谁能帮我把delphi转成 bcb
这是动态库中的说明原型 1
procedure SetUpLoadProc(vOnDeviceLogin:FunOnDeviceLogin;
vOnRefreshDeviceState: FunOnRefreshDeviceStateBySerial;
vOnRecieveBatchRecord: FunOnRecieveBatchRecordBySerial);

下面是定义吧 2
type

TSerialType=Array [0..16] of Char;
FunOnRefreshDeviceStateBySerial = procedure(Dev_id: integer;Serial:TSerialType; State: integer; RecordCount: integer);stdcall;
FunOnDeviceLogin=procedure(Dev_id:integer;Serial:TSerialType;ip:PChar;port:integer;
var Heartbeat:integer);stdcall;
FunOnRecieveBatchRecordBySerial=procedure(Dev_id: integer;Serial:TSerialType;index:integer;RecordCount:integer;Records: DeviceDataArray;var bReturnOK:boolean);stdcall;

还有一个这个是什么意思 3
procedure OnRefreshDeviceStateBySerial(Dev_id: integer;Serial:TSerialType; State: integer; RecordCount: integer); stdcall;
procedure OnDeviceLogin(Dev_id:integer;Serial:TSerialType;ip:PChar;port:integer; var Heartbeat:integer); stdcall;
procedure OnRecieveBatchRecordBySerial(Dev_id: integer;Serial:TSerialType;index:integer;RecordCount:integer;Records: DeviceDataArray;var bReturnOK:boolean);stdcall;


调用是这样的 4

SetUpLoadProc(OnDeviceLogin,OnRefreshDeviceStateBySerial,OnRecieveBatchRecordBySerial);

请问在BCB中如何解释？

坐等大仙！


[解决办法]
把 pas 文件，放到CB中一，就生正的文件。
的翻是官方的，最精。

手工翻成 CB 代，容易。
[解决办法]
应该就是个回调函数，那不是三个事件吗