高手给我翻译下 简单的代码 CBuilder 翻译为 Delphi 主要是结构体问题(300分)

F

ftop1

Unregistered / Unconfirmed
GUEST, unregistred user!
高手给我翻译下 简单的代码 CBuilder 翻译为 Delphi 主要是结构体问题
/=========================================
声明 是这样
typedef short apiStatus;
//
struct TagIds
{
unsigned char TagType;
unsigned char AntNum;
unsigned char Ids[12];
};
TagIds IdBuf[8];

extern "C" apiStatus __stdcall IsoMultiTagIdentify(HANDLE hCom, unsigned int * Count,TagIds *value, unsigned char ReaderAddr);//

=====================================
调用
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(IsoMultiTagIdentify(hComHandle,&Cnt,IdBuf,0xff)==0)
{
mem->Lines->Add("读卡成功!!!");

mem->Lines->Add(IntToStr(Cnt));
}
}
 
L

lcmlhs

Unregistered / Unconfirmed
GUEST, unregistred user!
帮顶一个,顺便发个交流群:delphi天堂群:4654765
 
F

ftop1

Unregistered / Unconfirmed
GUEST, unregistred user!
以上是C Builder 的代码 我想要 Delphi 的
 
F

fengfan

Unregistered / Unconfirmed
GUEST, unregistred user!
C++ Builder 转 Delphi 自己来不行吗?
 
F

ftop1

Unregistered / Unconfirmed
GUEST, unregistred user!
要是行 我何苦呢
 
L

LSUPER

Unregistered / Unconfirmed
GUEST, unregistred user!
type
apiStatus = SmallInt;
type
TagId = record
TagType: Byte;
AntNum: Byte;
Ids: Array[0..12-1] of Byte;
end;

TagIds = array[0..7] of TagId;
function IsoMultiTagIdentify(hCom: THandle;
var Count: Word;
var value: TagIds;
ReaderAddr: Byte): apiStatus;
stdcall;
 
顶部