Delphi – 从静态链接的MSVC编译的DLL捕获stdout和stderr输出

发布时间：2020-12-15 09:30:55 所属栏目：大数据来源：网络整理

导读：我一直在尝试从MSVC中编译的DLL中捕获stdout和stderr输出,这是我的Delphi应用程序静态链接到的,但到目前为止都没有成功. procedure Test;var fs: TFileStream;begin fs := TFileStream.Create('C:tempoutput.log',fmCreate or fmShareDenyWrite); SetStdHa

我一直在尝试从MSVC中编译的DLL中捕获stdout和stderr输出,这是我的Delphi应用程序静态链接到的,但到目前为止都没有成功.

procedure Test;
var
  fs: TFileStream;

begin
  fs := TFileStream.Create('C:tempoutput.log',fmCreate or fmShareDenyWrite);
  SetStdHandle(STD_OUTPUT_HANDLE,fs.Handle);
  SetStdHandle(STD_ERROR_HANDLE,fs.Handle);

  dllFunc(0); // Writes to stdout in MSVC++ console app,but not here
  // fs.Length is always zero

  fs.Free;
end;

以为我在正确的轨道上,但它不起作用.

> SetStdHandle()足够吗？
> TFileStream在这里使用是正确的吗？
>我是否正确使用TFileStream进行SetStdHandle()？
>当应用程序加载时,DLL是否可能设置其stdout / stderr句柄？如果是这样,使用SetStdHandle()或等效的最佳位置在哪里？

任何帮助,将不胜感激.

解决方法

如果DLL在加载时抓取stdout句柄,那么在更改代码中的stdout句柄后,您将需要动态加载DLL.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!