x264 infos mit Delphi auslesen

Delphi-Forum / Delphi-Library: Konsolen-Kommando ausführen und Ergebnis zurückliefern

Zitat von FatFaster

ich versuche schon länger mit meinem bescheidenen Delphi Kentnissen die Infos (z.B: schon encodete Frames, also aktuelle Position) beim x264 während des encodes mit Delphi abzugreifen. Ziel ist eine Progressbar...

Ich weiß nicht, wie Du das Encoding aufrufst bzw die aufgerufene Anwendung arbeitet, aber prinzipiell gibt es verschiedene Möglichkeiten.

Entweder Du rufst eine Anwendung commandline auf und wertest die Konsolenausgaben der Anwendung aus. Eine Möglichkeit findest Du in dem Link von LigH. Dort musst Du dann noch die Auswertung ergänzen. In SVCDPal2DVD und faRoboGUI verwende ich ähnliche Routinen.

Oder die Anwendung verwendet eine Callback-Routine, mit welcher sie Messages sendet, welche Du dann auswerten kannst.

Der Grund, warum du nicht immer alles sehen wirst:

Programme benutzen nicht immer nur das Dateihandle 1 (STDOUT) zur Ausgabe von Informationen, sondern manchmal auch das Dateihandle 2 (STDERR). Du musst also sozusagen zwei Ausgaben auf die selbe Konsole überwachen.

Und wenn alte "echte DOS-Programme" gar direkt in den vermeitlichen Textbereich des "Grafikkartenspeichers" schreiben wollen, dann sieht man mit Pipes auch nichts davon.

Nimm in Delphi statt dem Output-Stream den Errors-Stream, da is die Ausgabe von dem 2. Channel drin.

So klingt das durchaus erfolgversprechend.

Jetzt musst du nur noch intelligent die übergebenen Zeichen auswerten (d.h. u.U. einige davon ignorieren).

Sich selbst überschreibende Bildschirmausgaben erreicht man oft leicht durch die Verwendung der Steuerzeichen ^H / #8 (Rückschritt / Backspace) und einzelner ^M / #13 (Wagenrücklauf / Carriage return) -- ohne ^J / #10 (Zeilenvorschub / Line Feed).

So etwas?

repeat
        Win32Check    (GetExitCodeProcess(ProcessInfo.hProcess, ExitCode));
        PeekNamedPipe (ReadStdOut, Buffer, BufferSize, @Bread, @Avail, nil);


        if (Bread <> 0) then
        begin
          if (BufferSize < Avail) then
          begin
            BufferSize := Avail;
            ReallocMem(Buffer, BufferSize);
          end; {end if}
          FillChar (Buffer^, BufferSize, #0);
          ReadFile (ReadStdOut, Buffer^, BufferSize, Bread, nil);
          Str := Last;
          I   := 1;


          while (I < Bread) do
          begin
            case Buffer^[I] of
              #0: inc(I);
              #10:
                begin
                  inc(I);
                  Add_Log(Fenster, Str);
                  Str := '';
                end; {end #10}
              #13:
                begin
                  inc(I);
                  if (I < Bread) and (Buffer^[I] = #10)
                  then begin
                    inc(I);
                    Add_Log(Fenster, Str);
                  end
                  else
                    Add_Log(Fenster, Str);
                  Str := '';
                end; {end #13}
              else
                begin
                  Str := Str + Buffer^[I];
                  inc(I);
                end; {end else}
            end; {end case}
          end; {end while}
          Last := Str;
        end; {end if}
        Sleep(100);         // von 1 auf 100 erhöht


        Application.ProcessMessages;


      until (ExitCode <> STILL_ACTIVE);

Zitat von FatFaster

Code

a  := 'x264 --crf 22 --output video.264 "a.avs"';
  output:=TStringList.Create;
  try
    errors:=TStringList.Create;
    if GetConsoleOutput(a, output, errors) then  // Output liefert nix
      Memo1.Lines.AddStrings(errors);
  finally
    output.free;
    errors.free;
  end;

Außerdem hängt sich die Anwendung auf und reagiert erst nach dem encodeende

Da es nach dem Encoden wieder reagiert, hat es sich nicht aufgehängt! Das es bis dahin nicht reagiert ist logisch, da Du eine TStringList benutzt. Du musst entweder einen Buffer oder einen TFileStream verwenden. In der Delphipraxis gibt es zu Pipes etliche Beispiele. Und auch ich habe Dir oben zwei Programme (Consolenaufruf 1x als Klasse, 1x als Ansi- und 1x als Unicodefunction) genannt bei denen Du Dich bedienen könntest. Aus diesen stammt auch die Auswerteroutine.

Meine Routinen basieren auf dem Source von Sprint aus http://www.softgames.de/forum/viewtopic.php?t=24225.

Dann verwendet x264 vielleicht doch "direkte" Bildschirmfunktionen zum Updaten der Statuszeile. Das ist dann nicht abzufangen, außer ebenso direkt, indem man den Textbereich des "Grafikkartenspeichers" (den virtuellen freilich) auslesen würde. Ich glaube, das war unter Delphi eines der Seg####-Konstanten als Selektor. Aber gut möglich, dass das alles andere als einfach ist.
__

Oder Frank hat recht.

Vielleicht ist es dann wirklich nötig, sich mit den Entwicklern im englischen Board abzusprechen...

Das kann ich irgendwie nicht nachvollziehen. In den Routinen, die ich getestet habe, kommen die Ausgaben genauso an, wie auf der Konsole. Unterschied ist nur, dass manche die Ausgabe immer eine Zeile zurücksetzen. Sieht dann so aus, als würde immer in die selbe Zeile geschrieben und im TMemo oder TRichEdit hat man stattdessen viele Zeilen.

In der Delphipraxis gab es ein Pipesbeispiel, bei dem die Konsole in ein Formular geholt wurde. Das hat nur einen Fehler beim eingestellten CHARSET. Da Du hier fragst, nehme ich mal, das Du dort nicht registriert bist. Deshalb hier das Archiv (Habe es gerade wiedergefunden).

Zitat von FatFaster

Dann habe auch mal xvid_encraw getestet, da werden dann die Progress Infos zwar angezeigt aber auch nur ganz am Ende...

Zur Not kann man bei einer NTFS Partition auch die zu erwartende Dateigröße schätzen und fortlaufend mit der tatsächlichen vergleichen.

Wenn Du Ahnung von C# hast: http://forum.doom9.org/showthread.php?t=125085