輸出過程

Question

我正在開發使用拉撒路的程序，即執行GCC：

var 
AProcess: TProcess; 

begin 
if SaveDialog1.Execute then 
AProcess := TProcess.Create(nil); 
AProcess.CommandLine := 'gcc.exe ' + SaveDialog1.FileName + ' -o ' TextField23.Text; 
AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes]; 
AProcess.Execute; 
AProcess.Free; 
end; 

但我想顯示GCC的日誌（輸出）的另一種形式（OutputForm），即只有一個TMemo（OutputMemo）。

我該怎麼辦？

Answer 1

您可以使用TProcess對象的Output屬性。

試試這個代碼

var 
    AProcess: TProcess; 
begin 
    if SaveDialog1.Execute then begin 
    AProcess := TProcess.Create(nil); 
    try 
     AProcess.CommandLine := 'gcc.exe ' + SaveDialog1.FileName + ' -o ' 
     + TextField23.Text; 
     AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes]; 
     AProcess.Execute; 

     OutputForm.OutputMemo.Lines.BeginUpdate; 
     //OutputForm.OutputMemo.Lines.Clear; 
     OutputForm.OutputMemo.Lines.LoadFromStream(AProcess.Output); 
     OutputForm.OutputMemo.Lines.EndUpdate; 
    finally 
     AProcess.Free; 
    end; 
    end; 
end;