library abc;uses
SysUtils,
Classes;{$R *.res}
var s1:string;
function Hello(var aa:PChar):Integer;export;
begin
SetLength(s1, 255);
s1:='abc';
aa:=PChar(s1);
Result:=0;
end;
Exports
Hello;
begin
end.
做好之后,编译没问题,但在用VB调用时出错,不知何故。
SysUtils,
Classes;{$R *.res}
var s1:string;
function Hello(var aa:PChar):Integer;export;
begin
SetLength(s1, 255);
s1:='abc';
aa:=PChar(s1);
Result:=0;
end;
Exports
Hello;
begin
end.
做好之后,编译没问题,但在用VB调用时出错,不知何故。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货