我用是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"