关于:"如何从DLL中返回大于4k的pchar字符串"
斜阳 在 2004-5-27 16:08:17 提供了如下回答, 请您查阅和评估:
--------------------------------------------------------------------------
---
看了你的程序,其实你根本什么都没有传出去,因为你要传出去的字符串在
XS_STRINGLIST.Destroy
已经被释放了,因此你在主程序中访问的是非法的内存
现将你的程序修该如下:
function RunDll:PChar; stdcall;
var
XS_STRINGLIST: TSTRINGLIST;//接系统设置用
dd: Integer;
n: Integer;
BEGIN
XS_STRINGLIST:=TSTRINGLIST.Create;
XS_STRINGLIST.Text:='<table border="1" width="100%">';
for DD := 1 to 300 do
XS_STRINGLIST.Text := XS_STRINGLIST.Text+'<tr><td
width="33%">DDDFGDFGFDGDDDDD</td><td
width="33%">DFSSFDGSDFASSDFDFSD</td><td
width="34%">'+INTTOSTR(DD)+'</t></tr>';
XS_STRINGLIST.Text:=XS_STRINGLIST.Text+'</table>';
//修该部分
n := Length(XS_STRINGLIST.Text);
Result := AllocMem(n + 1);
try
Move(XS_STRINGLIST.Text[1], Result^, n);
//一定要记住在调用 RunDll 函数的地方用完了要用FreeMem函数释放这个返回
值,要不然会造成内存泄漏
//////////////////
except
FreeMem(Result);
Result := nil;
end;
//RESULT:=PCHAR(XS_STRINGLIST.Text);
XS_STRINGLIST.Destroy;
END;
//调用的例子
procedure TForm1.Button1Click(Sender: TObject);
var
p: PChar;
begin
p := RunDll;
try
if p <> nil then
memo1.Lines.Add(String(p));
finally
FreeMem(p)
end;
end;