delphi调用动态库出错
时间:2011-08-29
来源:互联网
作者: tianlu123 发布时间: 2011-08-29
作者: tianlu123 发布时间: 2011-08-29
作者: jayqiang 发布时间: 2011-08-29
作者: sonicer 发布时间: 2011-08-29
DLL部分
C/C++ code
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); }
delphi调用
Delphi(Pascal) code
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;
大哥们,谢谢了
作者: tianlu123 发布时间: 2011-08-29
Delphi(Pascal) code
function JBC7K2_Comsume_Server(server_ip: pchar; ip: pchar; port: integer): integer; stdcall; external 'Dll\jbc7200.dll';
我用动态库跟踪了,值都传不下去
作者: tianlu123 发布时间: 2011-08-29
作者: tianlu123 发布时间: 2011-08-29
作者: sonicer 发布时间: 2011-08-29
作者: tianlu123 发布时间: 2011-08-29
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28