dll动态调用完毕，将dll中函数计算出的值赋给其它变量时出错。

[syfan]

function TFrmReg.Getbc(dllname,ProcName,s:string): string;
var
aLib:THandle;
ss:Pchar;
Proc:function(Str:Pchar):Pchar; stdcall;
begin
aLib:=LoadLibrary(PChar(dllname));
if alib>=32 then
begin
Proc:=GetProcAddress(aLib,PChar(ProcName)); if Assigned(PChar(ProcName)) then
begin
ss:=Proc(Pchar(s));
end;

end;
FreeLibrary(aLib);
GetZZh:=string(ss);
end;

经根踪调试，到最后一行 GetZZh:=string(ss); 出错。

且以上ss的值也计算正确的。

[amdwinter]

工程文件都加上sharemem单元

[syfan]

另
FreeLibrary(aLib); 这一句也出错

[柯本]

编写dll的一条重要经验:
尽量不要在dll中返回char *类型的值,把它作为参数就可以了,因为如果你是返回dll中的临时变量,肯定出错

[wywry]

使用ShortString类型

[syfan]

多谢楼上的几位指点， 使用ShortString就没问题了。