16,746
社区成员
发帖
与我相关
我的任务
分享求高人把一段c++代码变成delphi
做RFID芯片读取时候用到的dll是用c++写的，里面有个函数怎么弄都没写对，求高人看下，delphi下这个函数该怎么写。
typedef struct
{
unsigned char TagType;
unsigned char AntNum;
unsigned char Ids[12];
}TagIds;
extern "C" DllExport short __stdcall Gen2MultiTagIdentify(HANDLE hCom, unsigned int * Count,TagIds *value,unsigned char Antenna,unsigned char ReaderAddr = 0xff);
typedef struct
{
unsigned char TagType;
unsigned char AntNum;
unsigned char Ids[12];
}TagIds;
extern "C" DllExport short __stdcall Gen2MultiTagIdentify(HANDLE hCom, unsigned int * Count,TagIds *value,unsigned char Antenna,unsigned char ReaderAddr = 0xff);
...全文
请发表友善的回复…
发表回复
zhitaoyang 2015-02-28
- 打赏
- 举报
大神崇拜你，结分
阿发伯 2015-02-28
- 打赏
- 举报
value: TTaglds;
zhitaoyang 2015-02-28
- 打赏
- 举报
大神厉害 可以用，机器能有反应了，但是还是报了命令长度错误，跪求大神再帮忙看下调用方式哪里有问题了，
------------------------
C++代码
TagIds IdBuf[300];
unsigned int tag_cnt = 0;
ReaderAddr = 0xFF;
Gen2MultiTagIdentify(hComHandle,&tag_cnt,IdBuf,ReaderAddr);
--------------------
我写的delphi代码
var
i : Byte;
count : integer;
value : PTagIds;
a : Byte ;
begin
count := 0;
a := $ff;
i := Gen2MultiTagIdentify(h,count,value^,a);
showmessage(IntToStr(i))
end;
阿发伯 2015-02-28
- 打赏
- 举报
也可分开写：
函数说明：
function Gen2MultiTagIdentify(hCom: THandle; var Count: Integer;
var value: TTagIds; Antenna: Byte; ReaderAddr: Byte = $ff): SmallInt; stdcall;
函数实现：
function Gen2MultiTagIdentify; external 'xxxx.dll' name 'Gen2MultiTagIdentify';
阿发伯 2015-02-28
- 打赏
- 举报
type
PTagIds = ^TTagIds;
TTagIds = packed record
TagType: Byte;
AntNum: Byte;
Ids: array[0..11] of Byte;
end;
function Gen2MultiTagIdentify(hCom: THandle; var Count: Integer;
var value: TTagIds; Antenna: Byte; ReaderAddr: Byte = $ff): SmallInt;
stdcall; external 'xxxx.dll' name 'Gen2MultiTagIdentify';
其中‘xxxx.dll'为你的dll名称。也可分开写：
函数说明：
function Gen2MultiTagIdentify(hCom: THandle; var Count: Integer;
var value: TTagIds; Antenna: Byte; ReaderAddr: Byte = $ff): SmallInt;
函数实现：
function Gen2MultiTagIdentify; external 'xxxx.dll' name 'Gen2MultiTagIdentify';
