各位大侠,请问我用delphi生成一个dll(结果返回数组),在VB端调用怎么出错啊
delphi的源程序:
library Project2;
type
array1=array of integer;
function Min(x:integer; y:integer):array1;stdcall;export;//external;// 'project2.Dll';
var
temparr:array1;
begin
setlength(tempArr,2);
temparr[0]:=x;
temparr[1]:=y;
result:=temparr;
end;
exports
Min index 1;
begin
end.vb端调用的程序:
Private Declare Function Min Lib "f:\Project2.dll" (ByVal x As Long, ByVal y As Long) As Long()
Private Sub Command1_Click()
Dim a
a = Min(4, 3)
Debug.Print a(0)
Debug.Print a(1)
End Sub在线等
delphi的源程序:
library Project2;
type
array1=array of integer;
function Min(x:integer; y:integer):array1;stdcall;export;//external;// 'project2.Dll';
var
temparr:array1;
begin
setlength(tempArr,2);
temparr[0]:=x;
temparr[1]:=y;
result:=temparr;
end;
exports
Min index 1;
begin
end.vb端调用的程序:
Private Declare Function Min Lib "f:\Project2.dll" (ByVal x As Long, ByVal y As Long) As Long()
Private Sub Command1_Click()
Dim a
a = Min(4, 3)
Debug.Print a(0)
Debug.Print a(1)
End Sub在线等
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货