调用ＤＬＬ时出错？

[303]

不知道为什么？在调用一个ＤＬＬ时总是出错。
在那个函数中如果是算如平方数时没有问题，但是把一个字符串传进去以后，把两个字符串相加就出错。
h := LoadLibrary('test.dll');
if h > 32 then
begin
@m := GetProcAddress(h, 'GetSqr1');
if not (@m = nil) then
t:=m(edit1.Text);
ShowMessage(t);

end;
FreeLibrary(h);
ShowMessage这还是正确的，点完确定以后就出错了。不知道为什么？

[303]

这是ｄｌｌ　部分　
function GetSqr1(a : string):string;stdcall;
var
b : string;
begin
b := a+'dsfd';
result:= b;
end;

[why_why]

begin
b := a+'dsfd';
setlength(result,b);
result:= b;
end

[jjaacc]

t:=m(edit1.Text);
改成： t:=GetSqrl('11');
试一下。

[chancecui]

把string该成shortstring

[RamjetZhang]

pchar?

[walonelee]

对，可能是pchar的问题

[303]

b := a+'dsfd';
result:= pchar(b);
我又改成了这样，是不出什么提示了，但是，最后还是出现了一个错误提示。哪们能否给小弟一个实例，就要求能将字符串传入Ｄｌｌ中，在Ｄｌｌ　中将一个字符串和这个相加就行。谢谢。
[e-mail]
[e-mail]
谢谢。