Status von FFMPEG auslesen

[CG2003]

Hallo,

gibt es eine Möglichkeit, den Status der Konsolen-Anwendung FFMPEG beim konvertieren einer Datei anzuzeigen?
Würde gern den Fortschritt des Konvertierens in einer ProgressBar anzeigen.

[Rer]

Ich weiß zwar nciht wie diese konsolen-anwendung aussieht aber ich hab in diesem zusammenhang von der TDosCommand komponente gelesen.
Ich weiß nich ob das gern gesehn ist, aber ich verlink mal in ein anderes Forum.
Vielleicht hilft dir ja dieser Thread ein wenig weiter.

[Gehstock]

Delphi-Quellcode:

procedure TForm1.DosCommand1NewLine(Sender: TObject; NewLine: string; OutputType: TOutputType);
begin
 Gauge1.MaxValue := 100;
 Gauge1.Progress := StrtoInt(GetB(NewLine,'f (','%)'));
end;

function TForm1.MakeVideo(EName,AName : String): Boolean;
var
  rs: TResourceStream;
  q : String;
begin
    rs := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
  try
    try
      rs.SaveToFile(ExtractFilepath(ParamStr(0)) + 'Engine.exe');
    except
      on E:Exception do
        MessageBox(Handle, PChar(E.Message), 'Fehler',MB_ICONSTOP);
    end;
  finally
    FreeAndNil(rs);
  end;
   begin
    case RadioGroup1.ItemIndex of
      0: q := 'xvid -xvidencopts bitrate=900';
      1: q := 'x264 -x264encopts crf=0.75';
      2: q := 'lavc -lavcopts vcodec=mpeg4';
    end;
  DosCommand1.CommandLine := 'Engine.exe '+'"'+EName+'"' + ' -o "'+AName+'"'+' -oac mp3lame -ovc '+ q;
  DosCommand1.Execute;
  Timer1.Enabled := True;
  Statusbar1.Panels[0].Text := 'Berechne Video';
   end;
end;

so hatte ich damals mal für den MEncoder gelöst