delphi 调用C语言中的DLL文件(100分)

#define WORD unsigned short<br>#define BYTE unsigned char<br><br>struct GPSInfo<br>{<br> &nbsp;WORD year;<br> BYTE month, day, hour, minute, second;<br> <br> GPSInfo() <br> { <br> Initialize();<br> }<br><br> void Initialize()<br> {<br> year = month = day = hour = minute = second = 0<br> }<br>};<br><br>short DecodeYDProtocol(void *src, int srclen, WORD* seqno, BYTE* status, GPSInfo* gpsinfo)<br><br>假如dll 的文件名为： delphi.dll<br>现在怎样在delphi 中定义这个结构体<br>还有引用DecodeYDProtocol函数

type<br> &nbsp;GPSInfo= record<br> &nbsp; &nbsp;wYear : WORD;<br> &nbsp; &nbsp;wMonth : WORD;<br> &nbsp; &nbsp;wDay : WORD;<br> &nbsp; &nbsp;wHour : WORD;<br> &nbsp; &nbsp;wMinute : WORD;<br> &nbsp; &nbsp;wSecond : WORD;<br>end;

function (var src();var srclen:integer;var seqno:Word;var status:Word;var gpsInfo:gpsInfo);

to:浪人情哥<br> &nbsp;function (var src();var srclen:integer;var seqno:Word;var status:Word;var gpsInfo:gpsInfo); &nbsp;stdcall; external &quot;delphi.dll&quot;

顶