16,748
社区成员
发帖
与我相关
我的任务
分享
function JBC7K2_Comsume_Server(server_ip: pchar; ip: pchar; port: integer): integer; stdcall; external 'Dll\jbc7200.dll';
int WINAPI JBC7K2_Comsume_Server(char *server_ip, char *ip, int port)
{
char s[128] = "";
_netpack_ *netpk = (_netpack_ *)s;
//_IpConfig_ *ipc = (_IpConfig_ *)netpk->szbuz;
*(DWORD*)netpk->szbuz = inet_addr(server_ip);
netpk->cmd = CMD_SERVERIP;
JBC7K2_CloseSocket();
JBC7K2_OpenSocket();
return CmdSend(netpk, 4, 4, ip, port);
}
codeprocedure TForm1.ServerIP_SetButtonClick(Sender: TObject);
var
ret: integer;
serverIP: string;
begin
serverIp := Trim(Edit_ip.Text);
ret := JBC7K2_Comsume_Server(Pchar(serverIp), pchar(g_devip), g_devport);
if (ret = 0) then
StatusBar.Panels[0].Text := '设置服务IP命令执行成功!'
else
StatusBar.Panels[0].Text := '设置服务IP命令执行失败!';
end;