请教一个VC转DELPHI的问题。
vc代码:
//DHCP
struct SDK_NetDHCPConfig
{
bool bEnable;
char ifName[32];
};
/// 所有网卡的DHCP配置
struct SDK_NetDHCPConfigAll
{
SDK_NetDHCPConfig vNetDHCPConfig[2];
};
函数:
H264_DVR_GetDevConfig(long lLoginID, unsigned long dwCommand, int nChannelNO, char * lpOutBuffer, unsigned long dwOutBufferSize, unsigned long* lpBytesReturned,int waittime = 1000);
实现代码:
SDK_NetDHCPConfigAll NetDHPCfg;
bSuccess = H264_DVR_GetDevConfig(m_LoginID,E_SDK_CONFIG_NET_DHCP,0,
(char *)&NetDHPCfg,sizeof(SDK_NetDHCPConfigAll),&dwRetLen,nWaitTime);
请问在DELPHI中应该如何翻译:
我的老出错。
//DHCP
SDK_NetDHCPConfig = record
bEnable: Boolean;
ifName: array[0..31] of char;
end;
SDK_NetDHCPConfigAll = record
vNetDHCPConfig: array[0..1] of SDK_NetDHCPConfig;
end;
函数
function H264_DVR_GetDevConfig(LoginID:LongInt;dwCommand:SDK_CONFIG_TYPE;nChannelNO:Integer;
lpOutBuffer:Pointer;
dwOutBufferSize:DWORD;
lpBytesReturned:PDWORD;
waittime:Integer=1000):Integer;stdcall; external DllName;
实现代码:
var
NetDHCPConfigAll: SDK_NetDHCPConfigAll;
BuffLen: DWORD;
R := H264_DVR_GetDevConfig(LoginIDs,ConfigType, 0,@NetDHCPConfigAll,
SizeOf(SDK_NetDHCPConfigAll),@BuffLen,5000);