如何从DLL中返回大于4k的pchar字符串

关于："如何从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;