1,183
社区成员
发帖
与我相关
我的任务
分享
int __declspec(dllexport) Load_BC_Datablk_MCH(int, usint blknum, usint wdcnt, usint *data);
WORD BCIN00[32];
BCIN00[0] =0x4004;
BCIN00[1] =0x0180;
BCIN00[2] =0;
BCIN00[3] =0;
BCIN00[4] =0;;
BCIN00[5] =0;;
BCIN00[6] =0;;
Load_BC_Datablk_MCH(m_nhandle, 1,18,BCIN00);
Function Load_BC_Datablk_MCH(hBus : THandle; BlkNum, wdcnt : WORD; var Data : WORD) : Integer; stdcall; external 'MCHMS.DLL' name 'Load_BC_Datablk_MCH';
Function Load_BC_Datablk_MCH(hBus : THandle; BlkNum, wdcnt : WORD; Data : Array of WORD) : Integer; stdcall; external 'MCHMS.DLL' name 'Load_BC_Datablk_MCH';
BCIN : Array[0..31] of WORD;
BCIN[0] := $4004;
BCIN[1] := $0180;
BCIN[2] := 0;
BCIN[3] := 0;
BCIN[4] := 0;
BCIN[5] := 0;
BCIN[6] := 0;
Load_BC_Datablk_MCH(hBus, 1, 18, BCIN);
或者Load_BC_Datablk_MCH(hBus, 1, 18, BCIN[0]);
C++中如果
WORD BCIN00[32]; 這也是DLL處的寫法
那在 Delphi 中最好 array[0..32-1] of Word ; //
Function Load_BC_Datablk_MCH(hBus : THandle; BlkNum, wdcnt : WORD;
Data : PWordArray) : Integer; stdcall;
external 'MCHMS.DLL' name 'Load_BC_Datablk_MCH';