Delphi - Захват стандартный вывод и вывод STDERR из статически связанного MSVC++ компилируется DLL

Question

Я пытался захватить стандартный вывод и STDERR выход из DLL, составленный в MSVC++, что мой Delphi приложение статически ссылки на, но до сих пор не увенчались успехом ,

procedure Test; 
var 
    fs: TFileStream; 

begin 
    fs := TFileStream.Create('C:\temp\output.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; 

Думал, что я был на правильном пути, но он не работает.

1. Is SetStdHandle() достаточно?
2. Правильно ли используется TFileStream?
3. Я правильно использую TFileStream для SetStdHandle()?
4. Возможно ли, что DLL устанавливает дескрипторы stdout/stderr при загрузке приложения? Если да, то где лучше всего использовать SetStdHandle() или эквивалент?

Любая помощь будет оценена по достоинству.

Answer 1

Если DLL захватывает стандартный вывод ручки, когда он будет загружен, то вам нужно будет динамически загружать DLL после того как вы изменили стандартный вывод ручки в вашем коде.

Answer 2

Если ваше приложение представляет собой консольное приложение, вы можете просто запустить его и перенести все в stdout с перенаправлением. т.е.

C:\MyAppWhichCallsDll.exe > c:\temp\output.log