当前位置: 代码迷 >> PB >> 关于DLL调用的有关问题
  详细解决方案

关于DLL调用的有关问题

热度:195   发布时间:2016-04-29 09:32:10.0
关于DLL调用的问题
我用是PB10.5
调用的DLL是用delphi编的
其中一个函数function GetFaxStatusEx(HD: THandle; sServer: Pchar; buf: Pchar;Var IErr : integer; sError: Pchar): boolean;stdcall;
我在PB里面是这样定义的function boolean GetFaxStatusEx( ulong HD,ref string sServer,ref string buf,ref long IErr,ref string sError) Library "DLL.dll"

代码里面这样调用
string ls_server,ls_err,ls_buff
long i_err


ls_server = space(1024)
ls_buff = space(1024)
ls_err = space(1024)

ls_server = sle_ip.text
GetFaxStatusEx(0, ls_server, ls_buff, i_err, ls_err)
if i_err = 1100700 then
messagebox("系统提示","用户名或密码错误!请先登录")
else
messagebox("状态信息",ls_buff)
end if
现在调用不成功,ls_err返回一串乱码,其他什么都没有

------解决方案--------------------
function boolean GetFaxStatusEx( ulong HD,ref string sServer,ref string buf,ref long IErr,ref string sError) Library "DLL.dll" ALIAS FOR "GetFaxStatusEx;ansi"
  相关解决方案