L
_liangzi_
Unregistered / Unconfirmed
GUEST, unregistred user!
C源程序:
struct ComPktInfo{
char JYM[7];
size_t PktLen;
size_t FileLen;
char FileName;
char DYLSH[9];
char JYBZ[2];
long JCH;
long RZLSH;
};
int WINAPI fcstsjjh(struct ComPktInfo *pstInfo,
char *pSndPkt,
char *pSndFile,
char **ppRcvPkt,
char **ppRcvFile,
long lWait,
char fsbz[2]
);
我已经把上面的程序翻译成Delphi的程序如下
type
ComPktInfo = record
JYM:array [0..6] of char;
PktLen:Cardinal;
FileLen:Cardinal;
FileName:char;
DYLSH:array [0..8] of char;
JYBZ:array [0..1] of char;
JCH:longint;
RZLSH:longint;
end;
SZChar=array [0..1] of char;
PComPktInfo = ^ComPktInfo;
PPChar = ^PChar;
function fcstsjjh(pstInfoComPktInfo;pSndPkt: PChar;pSndFile: PChar;ppRcvPkt: PPChar;ppRcvFile: PPChar;lWait: longint;fsbz:SZChar):Integer;stdcall;external 'IOHandle.DLL' name 'fcstsjjh';
那如果想赋值
pSndPkt="select * from abc"
pSndFile=""
JYM="100010"
PktLen=pSndPkt的长度
FileLen=0
JYBZ="0"
RZLSH=0
DYLSH="00000000"
Delphi语句该怎么写啊,很急的
struct ComPktInfo{
char JYM[7];
size_t PktLen;
size_t FileLen;
char FileName;
char DYLSH[9];
char JYBZ[2];
long JCH;
long RZLSH;
};
int WINAPI fcstsjjh(struct ComPktInfo *pstInfo,
char *pSndPkt,
char *pSndFile,
char **ppRcvPkt,
char **ppRcvFile,
long lWait,
char fsbz[2]
);
我已经把上面的程序翻译成Delphi的程序如下
type
ComPktInfo = record
JYM:array [0..6] of char;
PktLen:Cardinal;
FileLen:Cardinal;
FileName:char;
DYLSH:array [0..8] of char;
JYBZ:array [0..1] of char;
JCH:longint;
RZLSH:longint;
end;
SZChar=array [0..1] of char;
PComPktInfo = ^ComPktInfo;
PPChar = ^PChar;
function fcstsjjh(pstInfoComPktInfo;pSndPkt: PChar;pSndFile: PChar;ppRcvPkt: PPChar;ppRcvFile: PPChar;lWait: longint;fsbz:SZChar):Integer;stdcall;external 'IOHandle.DLL' name 'fcstsjjh';
那如果想赋值
pSndPkt="select * from abc"
pSndFile=""
JYM="100010"
PktLen=pSndPkt的长度
FileLen=0
JYBZ="0"
RZLSH=0
DYLSH="00000000"
Delphi语句该怎么写啊,很急的