vb 调用delphi编写的dll 问题

[hongqi162]

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")

不知道是那部分出了问题 调用的时候就非法关闭

[of123]

字符串不能通过返回值传递。因为它是栈传递的。

改，将 DLL 函数改为进出两个参数，返回值为 32 位（Long）或 16 位（Integer）型数值。

vb
Public Declare Function strdata Lib "Inidll.dll" (ByVal instr As String, Byval outstr As String ) As Long

[zqsntws]

学习