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