I
itdelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
我用Delphi写了一个DLL，用一个函数的参数动态返回字符串，但总是返回几个乱码字符（最多3个），
我只记得在输出时要加一个长度，但不知道该如何加（要求只用参数返回），源代码如下：
library getdblink;
uses
QDialogs,SysUtils,Classes;
function dir(var linkDir
char):boolean;stdcall;
var str:string ;
var boo:boolean;
begin
boo :=SelectDirectory('选择路径', '',str);
linkdir:=Pchar(str);
result:=boo;
end;
exports
dir;
end.
我只记得在输出时要加一个长度，但不知道该如何加（要求只用参数返回），源代码如下：
library getdblink;
uses
QDialogs,SysUtils,Classes;
function dir(var linkDir
char):boolean;stdcall;var str:string ;
var boo:boolean;
begin
boo :=SelectDirectory('选择路径', '',str);
linkdir:=Pchar(str);
result:=boo;
end;
exports
dir;
end.