VB 调用DELPHI编写的DLL出现了问题如何解决？

Question

我用DELPHI编的一个dll，想在VB中调用，以下是部份代码
DELPHI
library crypt;{$R *.res}
function max(x:real;y :real):real;
begin
  {...
  代码部分
  ...}
end;procedure descrypt(s:string):string;
var
  i ,len,half: integer;
  R : string;
begin
  R :='';
  {...
  代码部分
  ...}
  descrypt:= R;
end;
exports
   max,
   descrypt;
begin
end.VB中调用代码如下　
Declare Function max Lib "D:\WENBEAN\crypt\crypt.dll" (ByVal x As Double, ByVal y As Double) As Double
Declare function descrypt Lib "D:\WENBEAN\crypt\crypt.dll" (ByVal str As String) as StringPrivate Sub Command1_Click()
Dim str1, str2 As String
str1 = txt1.Text
str2= descrypt(ByVal CStr(str1))
End Sub '调用出错 “内存不该为writen”Private Sub Command2_Click()
Dim x, y As Integer
x = CInt(Text1.Text)
y = CInt(Text2.Text)
Text3.Text = CStr(max(x, y))
End Sub '调用成功请问我该如何才能成功调用函数descrypt?如何修改上面的代码?
请将答案发给[email protected]

Answer 1

用DELPHI写好不好，VB那种小孩子的玩具不好意思在用啊

Answer 2

在每个函数后面加上stdcall或者safecall，我不记得是哪一个了，自己试试