Ausgabe eines DOS-Programmes empfangen

[Christian Seehase]

Moin Rebugger,

ich hab' Deine letzten Codeschnipsel mal ein wenig überarbeitet:

Code:

[b]var[/b]
  PHPString : [b]string[/b];
  fsIN      : TFileStream;

[b]begin[/b]
  fsIN := TFileStream.Create(PHPFile,fmOpenRead);
  [b]try[/b]
    PHPString := StringOfChar(#00,fsIN.Size);
    fsIN.Read(PHPString[1],fsIN.Size);
    PHPoutput := '>c:\ausgabe.htm';
    PHPstring := StringReplace(PHPstring, #13#10, '', [rfReplaceAll]);
    MessageDlg(PHPpath + ' ' + PHPstring + ' ' + PHPoutput, mtInformation, [mbOK], 0);
    ShellExecute(0, 'open', PChar(PHPpath + ' ' + PHPstring + ' ' + PHPoutput), [b]nil[/b], [b]nil[/b], SW_NORMAL);
  [b]finally[/b]
    FreeAndNil(fsIN);
  [b]end[/b];
[b]end[/b];

Da Du offensichtlich nicht die einzelnen Zeilen brauchst (immerhin löscht Du ja alle Zeilenvorschübe), dürfte diese Variante etwas resourcensparender sein.
Bist Du sicher, dass es funktioniert, wenn Du alle Zeilenvorschübe löscht?