CSDN博客

img wangjiliang

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

发表于2004/10/8 15:29:00  842人阅读

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

阅读全文
0 0

相关文章推荐

img
取 消
img