PB接受vb的字符串 发生错误
我用VB6.0做了一个动态库去访问数据库并返回数据,用VB调用动态库发送接收一切正常,但是用别人用PB6.5调用返回数据时总缺内容。
函数如下:
Function SendMsg(ByVal ArgHost$, ByVal ArgPort$, ByVal ArgS_Msg$, ByVal ArgS_Len%, ArgR_Msg$, ArgR_Len%, ByVal ArgDelay_Time%) As Integer
其中ArgR_Msg$和ArgR_Len%是返回的字符串内容和长度。长度没有问题,就是返回的字符串,字符串前面大部分都正常,就是最后有问题,字符不正常,而且被“吃”掉了一些,郁闷啊。pb8.0没有问题。
用VB做了一个简单的动态库,大伙可以试试。(PB6.5用ole方式调用,类名:temp,函数returnstr,无参数,直接调用就行,返回汉字,正确应当是“测试字符串”)
function ReturnStr() As String
Returnstr="测试字符串"
End Function
着急用,还请大伙帮忙了!
[此贴子已经被作者于2006-9-20 21:07:59编辑过]