vb 调用delphi编写的dll 问题

hongqi162 2006-07-05 10:18:58
dll

function strdata(d:PChar):PChar;stdcall;
begin
result:=PChar('1234');
end;
exports
strdata;

vb
Public Declare Function strdata Lib "Inidll.dll" (ByVal d As String) As String

vb调用
Me.Text1.Text = strdata("134")

不知道是那部分出了问题 调用的时候就非法关闭
...全文
201 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zqsntws 2006-07-05
学习
  • 打赏
  • 举报
回复
of123 2006-07-05
字符串不能通过返回值传递。因为它是栈传递的。

改,将 DLL 函数改为进出两个参数,返回值为 32 位(Long)或 16 位(Integer)型数值。

vb
Public Declare Function strdata Lib "Inidll.dll" (ByVal instr As String, Byval outstr As String ) As Long
  • 打赏
  • 举报
回复
相关推荐
发帖
VB基础类
加入

7592

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2006-07-05 10:18
社区公告
暂无公告