Question

dll的头文件.h转换为DELPHI 的.PAS

我在做个SDK的应用，但是我用的语言室DELPHI 的。SDK是C的。头文件需要转换，之前都很顺利。但是。有一段我不知道怎么转。请赐教，好的话。加分。。。

typedef struct {
DWORD dwWorkType;
char sDVRIP[16];
WORD wDVRPort;
BYTE byChannel; BYTE byLinkMode; DWORD dwLinkType; union
{
struct
{
BYTE sUserName[NAME_LEN]; BYTE sPassword[PASSWD_LEN];
char cReserve[52];
}userInfo;
struct
{
BYTE fileName[100];
}fileInfo;
struct
{
DWORD dwChannel;
BYTE sUserName[NAME_LEN]; BYTE sPassword[PASSWD_LEN]; NET_DVR_TIME struStartTime; NET_DVR_TIME struStopTime; }timeInfo;
}objectInfo;
}NET_DVR_DECCHANSTATUS, *LPNET_DVR_DECCHANSTATUS;
这是海康的DVR的SDK。如果有在转换好的PAS.再加500分。

Answer 1

// typedef struct {
// struct{ }userInfo
Tuserinfo=packed record
sUserName:array[0..NAME_LEN-1]of BYTE;
sPassword:array[0..PASSWD_LEN-1]of BYTE;
cReserve:array[0..51]of char;
end;
// struct{ }fileinfo
T_fileInfo=packed record
fileName:array[0..99]of BYTE;
end;
// struct{ }timeInfo;
T_timeInfo=packed record
dwChannel:DWORD;
sUserName:array[0..NAME_LEN-1]of BYTE;
sPassword:array[0..PASSWD_LEN-1]of BYTE;
struStartTime:TNET_DVR_TIME;
struStopTime:TNET_DVR_TIME;
end;

TLPNET_DVR_DECCHANSTATUS=^TNET_DVR_DECCHANSTATUS;
TNET_DVR_DECCHANSTATUS = packed record
dwWorkType:DWORD;
sDVRIP:array[0..15]of char;
wDVRPort:WORD;
byChannel:BYTE;
byLinkMode:BYTE;
dwLinkType:DWORD;
case integer of
0: (userinfo:Tuserinfo);
1: (fileinfo:T_fileInfo);
2: (_timeInfo:T_timeInfo);
end;

Answer 2

楼上的真卑劣，不会就不要回答，不要这样吧！