请帮忙把一个VC函数申请转换成DELPHI的

Question

这个函数在DELPHI里怎么申明呀?Function ulong GSTCPIP_ReadGs04Record(ref char Ipaddress[15],ulong Port,ulong Addr,ulong Index,ref ulong nNum, &ref s_allRecordInfo StrRecord) Library "ZSTcpip.dll"  Alias For "GSTCPIP_ReadGs04Record;Ansi"

Answer 1

ulong 
&ref s_allRecordInfo StrRecord
Library "ZSTcpip.dll" Alias For "GSTCPIP_ReadGs04Record;Ansi"
这三个是什么意思

Answer 2

truct Gs04_Record         //记录结构
{
dword   nCardID;   //物理卡号
dword   nYear;     //年
dword   nMonth;   //月
dword   nDay;     //日
dword   nHour;    //时
dword   nMinute;  //分
dword   nSecond;  //秒
dword   bIsBc;  //是否是注册的卡，黑名单
dword   bOnDuty; //上下班标志，或进出标志
};
struct s_allRecordInfo
{
Gs04_Record  nRecord[100];  //100条记录结构
};

Answer 3

Function ulong GSTCPIP_ReadGs04Record(ref char Ipaddress[15],ulong Port,ulong Addr,ulong Index,ref ulong nNum, &ref s_allRecordInfo StrRecord) Library "ZSTcpip.dll" Alias For "GSTCPIP_ReadGs04Record;Ansi"Function GSTCPIP_ReadGs04Record(PCHAR Ipaddress,Por:CARDINALt, Addr:CARDINAL,Index:CARDINAL,nNum:CARDINAL, VAR s_allRecordInfo : StrRecord) : CARDINAL;STDCALL;EXTERNAL "ZSTcpip.dll" NAME "GSTCPIP_ReadGs04Record";

Answer 4

UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP

Answer 5

安装组件，把ZSTcpip.dll加进去，自动引出接口。试试！

Answer 6

yshuui纯API函数没有办法自动引出接口的