2 hjw957100 hjw957100 于 2014.05.31 10:51 提问

PB 调用DLL 返回值为乱码

PB 使用SMS.DLL在PB中调用时,发现返回值为乱码。
推测异常原因可能是: DLL中定义的数据类型与PB数据类型不同造成。

使用DELPHI调用相同的DLL,返回值正常。
//DLL声明
function uint Sms_Connection(string CopyRight,uint Com_Port,uint Com_BaudRate,ref string Mobile_Type,ref string CopyRightToCOM)library "sms.dll" alias for "Sms_Connection;Ansi"

//PB代码

integer li_com,li_rc
string ls_type
string str_copyright
string str_copyrighttocom
ls_type = space(5000)

str_CopyRight='//上海迅赛信息技术有限公司,网址www.xunsai.com//'

if ddlb_com.text = '' or isnull(ddlb_com.text) then
messagebox('','连接不能为空!')
return
end if

li_com = integer(ddlb_com.text)

li_rc = sms_connection(str_copyright,li_com,9600,ls_type,str_copyrighttocom)

if li_rc > 0 then
st_mobile.text = string(ls_type)
messagebox(string(len(trim(ls_type))),trim(ls_type))
messagebox('','连接成功!')
cb_1.enabled = false
cb_2.enabled = true
else
messagebox('','连接失败!')
cb_1.enabled = true
cb_2.enabled = false
end if

1个回答

lzp_lrp
lzp_lrp   Ds   Rxr 2014.11.12 08:49

代码没有问题,都赋初值了,可能是dll里的问题,与pb不兼容,建议你用delphi再封装一个dll,在pb里调用,应该就好了

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!