如何在Delphi/Lazarus中拦截DLL的WriteLn()输出？

因为libJasPer没有提供直接禁用警告输出的接口，只能通过拦截控制台STDOUT的方式来屏蔽这些警告，下面提供两种适用于Delphi/Lazarus的实现方案：

方案一：使用Windows API重定向标准输出（通用Delphi/Lazarus） #

通过Windows API创建匿名管道，临时替换STDOUT句柄，让DLL的输出写入管道而非控制台，之后可以选择读取内容或直接丢弃。

uses
  Windows, SysUtils;

procedure InterceptJasPerOutput;
var
  hReadPipe, hWritePipe: THandle;
  hOldStdOut: THandle;
  sa: TSecurityAttributes;
  dwBytesRead: DWORD;
  buffer: array[0..4095] of Char;
begin
  // 设置安全属性，允许子进程继承句柄
  sa.nLength := SizeOf(TSecurityAttributes);
  sa.lpSecurityDescriptor := nil;
  sa.bInheritHandle := True;

  // 创建匿名管道
  if not CreatePipe(hReadPipe, hWritePipe, @sa, 0) then Exit;

  // 保存原STDOUT句柄
  hOldStdOut := GetStdHandle(STD_OUTPUT_HANDLE);
  if hOldStdOut = INVALID_HANDLE_VALUE then Exit;

  try
    // 将STDOUT重定向到管道的写端
    if not SetStdHandle(STD_OUTPUT_HANDLE, hWritePipe) then Exit;

    // 执行JasPer解码操作
    jas_image_decode(...); // 这里替换成你的解码调用代码

    // 刷新管道，确保所有输出都写入
    FlushFileBuffers(hWritePipe);
    CloseHandle(hWritePipe);

    // 可选：读取管道中的警告内容（如果需要查看）
    while ReadFile(hReadPipe, buffer, SizeOf(buffer)-1, dwBytesRead, nil) and (dwBytesRead > 0) do
    begin
      buffer[dwBytesRead] := #0;
      // 这里可以处理读取到的警告文本，比如存入变量或者忽略
    end;
  finally
    // 恢复原STDOUT句柄
    SetStdHandle(STD_OUTPUT_HANDLE, hOldStdOut);
    CloseHandle(hReadPipe);
  end;
end;

方案二：使用Lazarus内置的RedirectOutput函数（仅Lazarus） #

Lazarus的LCL库提供了RedirectOutput函数，可以快速将控制台输出重定向到字符串，实现更简洁：

uses
  SysUtils;

procedure InterceptJasPerOutput_Lazarus;
var
  OutputStr: string;
begin
  // 重定向输出到字符串变量
  RedirectOutput(OutputStr);
  try
    // 执行JasPer解码操作
    jas_image_decode(...); // 替换成你的解码调用代码
  finally
    // 恢复控制台输出（可选，若不需要恢复可省略）
    RedirectOutput;
  end;
  // OutputStr中会保存所有DLL输出的警告内容，可选择忽略或处理
end;

注意：两种方案都需要确保在解码完成后恢复原输出句柄，避免影响后续控制台输出逻辑。

内容的提问来源于stack exchange，提问作者Tom