请帮忙将一个C函数转换成DELPHI的(50)

这个函数在DELPHI里怎么申明呀?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条记录结构};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"

type Gs04_Record=record nCardID,nYear,nMonth,nDay,nHour,nMinute,nSecond,bIsBc,bOnDuty:dword; end; type s_allRecordInfo=record nRecord: array[1..100] of Gs04_Record; end; function GSTCPIP_ReadGs04Record( Ipaddress: pchar;Port,Addr,Index, nNum:ulong; StrRecord:s_allRecordInfo ):ulong; stdcall; external 'ZSTcpip.dll' name 'GSTCPIP_ReadGs04Record';//函数估计有点问题 楼主先看看能用不，或者让楼下回答

接楼上：有两个参数应该用变参吧。...var nNum: ULONG; var StrRecord: s_allRecordInfo

多人接受答案了。