谁能帮我把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 代碼，容易錯。
[解决办法]
应该就是个回调函数，那不是三个事件吗
