请教一个VC转DELPHI的问题。

lovewangyuxiao 2015-01-18 03:20:49
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);
...全文
155 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
SDK_NetDHCPConfig = packed record bEnable: Boolean; ifName: array[0..31] of ansichar; end; SDK_NetDHCPConfigAll = packed record vNetDHCPConfig: array[0..1] of SDK_NetDHCPConfig; end;

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧