TBitmaps2Video

[th1975]

Erstmal vielen Dank für das Projekt. Konnte ich zwar nicht 1:1 benutzen, hat mir den Einstieg in die Verwendung von FFMPEG aber sehr erleichtert!
Eine Sache ist mir aufgefallen, die zu dropped frames im exportierten Video führt (steht ja auch schon in den Kommentaren):

In TBitmapEncoder.encode

Delphi-Quellcode:

  else
    begin
      pkt.pts := fFrameCount;
      pkt.dts := fFrameCount;
    end;

    av_packet_rescale_ts(@pkt, c.time_base, stream.time_base);
    pkt.stream_index := stream.index;

    // Write the encoded frame to the video file.
    // Can fail without causing harm, but should be checked in the debugger if frames are missing
    ret := av_interleaved_write_frame(oc, @pkt);
    result := (ret >= 0);
    av_packet_unref(@pkt);
    fVideoTime := round(1000 * av_rescale_q(av_stream_get_end_pts(stream),
      stream.time_base, c.time_base) / fRate);
  end;

Die Packet-Timestamps pkt.dts und pkt.pts sollten nicht mit dem fFrameCount hochgezählt werden. Besser einen weitern Zähler für die ausgegebenen Packets / pkt verwenden. Dann schlägt av_interleaved_write_frame auch nicht mehr hin und wieder fehl. Grund: Jedes Packet das der Codec ausspuckt entspricht einem Frame für die Wiedergabe, also muß jedes Packet eine aufsteigende presentation/decoding time pts/dts haben (nicht jedes Format ist da pingelig, MPEG-Container z.B. schon). Allerdings gibt der Codec (je nach Codec) für jeden mit avcodec_send_frame "reingeworfenen" Frame nicht immer genau ein Packet aus, sondern manchmal auch gar keins und manchmal mehrere auf einmal. Im ersteren Fall wird bei Verwendung von fFrameCount quasi ein Frame doppelt solange angezeigt, im zweiten Fall schlägt av_interleaved_write_frame fehl weil mehrere Packets mit gleicher pts geschrieben werden sollen.

Gruß, Tassilo

[Renate Schaaf]

Zitat:

pkt.pts sollten nicht mit dem fFrameCount hochgezählt werden

Danke für die gute Erklärung, ich versuchs mal einzubauen. Vielleicht erklärt das auch die Unverträglichkeiten, die ich sehe. Zu meiner Schande muss ich gestehen, dass ich bei dem Projekt viel mehr experimentelles Programmieren angewendet habe, als mir lieb ist . Wenn es hilft, mit FFMPeg klarzukommen, hat das Projekt aber schon seinen Sinn erfüllt.

Edit
Hach, hatte ich doch vor ein paar Tagen schon eingebaut! Man wird alt und dappisch. fFramecount wird nach jedem erfolgreich gelesenen packet heraufgesetzt, bei hereinkommenen Video-frames wird fFramecount von deren timestamps abgelesen, damit, wenn später wieder einzelne bitmaps dazukommen, das timing immer noch stimmt. Da der while-loop fast sicher bei bitmap-frames nur einmal voll durchlaufen wird, werden wirklich die bitmap-frames gezählt und gleichmäßig abgespielt.

Hab vorübergehend einen Zähler eingebaut, der zählt, wie oft av_interleaved_write_frame danebengeht. Bei Videos von insgesamt mehr als einer Stunde Spielzeit, bitmaps und clips gemischt: Nicht einmal.

Jetzt muss ich nur noch herausfinden, wie ich mir das Funktionieren der Codecs mpeg-1 und mpeg-2 zerschossen habe, und dann gibts ein Update.

Gruß und Danke nochmal, ist schön so konkretes Feedback zu kriegen.