TBitmaps2Video

[Renate Schaaf]

Ich verfolge dieses Forum seit einiger Zeit passiv mit viel Vergnügen und habe nützliche Hinweise gefunden.
Jetzt möchte ich gern mein neuestes Projekt zur Diskussion stellen, eine Klasse, die es ermöglicht sequentiell Bitmaps zu einem Video zusammenzustellen. Ich kann mir vorstellen, dass die/der eine oder andere sowas gebrauchen kann. Die Klasse baut auf den Libav(ffmpeg)-dlls auf, aber mein Ziel war es, ein interface mit leicht und intuitiv verständlichen Prozeduren und Einstellungen herzustellen, ohne dass man sich um die etwas obskuren und technischen Prozeduren in den dlls kümmern muss.

Jetzt zu finden auf GitHub:
https://github.com/rmesch/Bitmaps2Video

Update:
Source code: Bitmaps2Video_3.zip
Es werden jetzt 7 Codecs unterstützt, m.E. die wichtigsten.
Das geänderte interface ist jetzt:

Delphi-Quellcode:

///<summary>Sequentially encode bitmaps to a compressed video. Uses Libav Dlls. </summary>
  TBitmapEncoder = class
.....
    /// <param name="filename"> Output filename. Extension picks the container format (.mp4 .avi .mkv ..)
    /// </param>
    /// <param name="Width"> Video size in pixels (multiples of 2)</param>
    /// <param name="Height"> Video size in pixels (multiples of 2)</param>
    /// <param name="FrameRate"> Frames per second (can be slightly off in the resulting file)</param>
    /// <param name="Quality"> Encoding quality, scale from 0 to 100. 0 gives marginally acceptable quality </param>
    /// <param name="CodecId"> (TAVCodecID see UFormats.pas) Identifier of the codec to use. AV_CODEC_ID_NONE picks the default codec for the file extension. </param>
    /// <param name="VideoScaling">Resample algo used if video size differs from bitmap size </param>
    constructor Create(const filename: string; Width, Height: integer;
      FrameRate: integer; Quality: byte; CodecId: TAVCodecId = AV_CODEC_ID_NONE;
      VideoScaling: TVideoScaling = vsFastBilinear);

    /// <summary> Turn a Bitmap into a movie frame </summary>
    /// <param name="bm"> Bitmap(TBitmap) to be fed to the video. Will be converted to pf32bit if not already </param>
    procedure AddFrame(const bm: TBitmap);

    /// <summary> Hold the last frame </summary>
    /// <param name="EffectTime"> Displaytime(integer) in ms </param>
    procedure Freeze(EffectTime: integer);

    /// <summary> Add a picture which is displayed for a certain time </summary>
    /// <param name="bm"> Bitmap(TBitmap) of the picture to be displayed </param>
    /// <param name="ShowTime"> Time(integer) in ms for the display </param>
    procedure AddStillImage(const bm: TBitmap; ShowTime: integer);

    /// <summary> Make a smooth transition from SourceR to TargetR within EffectTime.</summary>
    /// <param name="bm"> The Bitmap(TBitmap) to be animated </param>
    /// <param name="SourceR"> Beginning rectangle(TRectF) within rect(0,0,bm.width,bm.height) </param>
    /// <param name="TargetR"> End rectangle(TRectF) within rect(0,0,bm.width,bm.height) </param>
    /// <param name="EffectTime"> Duration(integer) of the animation in ms </param>
    /// <param name="ZoomOption"> Quality of the zoom (zoAAx2, zoAAx4, zoAAx6, zoResample). </param>
    /// <param name="SpeedEnvelope"> Modifies the speed during EffectTime. (zeFastSlow, zeSlowFast, zeSlowSlow, zeLinear) </param>
    procedure ZoomPan(const bm: TBitmap; SourceR, TargetR: TRectF;
      EffectTime: integer; ZoomOption: TZoomOption;
      SpeedEnvelope: TZoomSpeedEnvelope = zeLinear);

    /// <summary> Close the file and make the output file usable. </summary>
    function CloseFile: Boolean;

Audio wird jetzt rudimentär unterstützt:

Delphi-Quellcode:

  /// <summary> Combine the video stream from VideoFile with the audio from Audiofile. The streams will just be copied, not encoded.
  ///Audio is clipped to video length. Raises exception if the format of the audio file is not supported.</summary>
  /// <param name="VideoFile"> (string) File which contains a video stream. Any audio stream present will be ignored. </param>
  /// <param name="AudioFile"> (string) Genuine audio file (.wav .mp3 .aac) the audio of which shall be added to the video in VideoFile. </param>
  /// <param name="OutputFile"> (string) Name of the file containing the newly combined video and audio. </param>
procedure MuxStreams2(const VideoFile, AudioFile: string;
  const OutputFile: string);

Das Projekt benötigt die ffmpeg-dlls und die zugehörigen Pascal-Headers. Beides kann man hier bekommen:
http://www.delphiffmpeg.com/downloads/

Näheres im Readme, und in meiner Antwort unten.

Ich bin sehr an Verbesserungsvorschlägen interessiert, vor allem, wie man die Schreibgeschwindigkeit erhöhen kann, und wie man eventuell die vorhandenen Libav-Filter dafür benutzen kann, und auch an Vorschlägen, was man noch einbauen sollte.

Renate

[TurboMagic]

Danke für das Integrieren. Soweit ich das sah sind nur 32 Bit so Dateien vorhanden. Die anderen sind für andere Plattformen.

Und ja, ein Android Gerät kostet ja nicht die Welt. Evtl. eines
mit Android One nehmen, da gibt's glaubr ich länger Updates für.
Sollte es dann Probleme mit den ersten Schritten geben
gibt's hier genügend Hilfe.

[Renate Schaaf]

Die im Ordner
...FFMPeg\BinaryLibrary\Android-armeabi-x64
sind falsch?

Guck doch nochmal, bevor ich alles auf die anderen header umstelle..

Danke, Renate

[TurboMagic]

Oha, dann hab ich die übersehen. Muss dann, sobald ich dazu komme die Bereitstellung für Android 64 Bit hinzufügen, da dort die .so Dateien in einen andere Unterordner müssen.

[TurboMagic]

Hallo,

so, jetzt sind auch die 64 Bit shared objects drin und man kann's als 64 Bit Android
compilieren lassen.

Wenn wir jetzt noch jemand mit einem iOS Entwicklungssystem finden würden, könnte dieser
iOS als Ziel ins Projekt aufnehmen und die vorhandenen Bibliotheken dafür im Bereitstellungsmanager
einführen.

Grüße
TurboMagic

[Renate Schaaf]

Ich habe die Demo für das crossplatform-Projekt um eine sehr simple Diaschau erweitert, um wirklich das Enkodieren von Bitmaps zu testen. Wäre schön, wenn das jemand mit Android testen könnte. Das Laden von Bitmaps geht gar nicht mal so langsam, wie ich dachte.

Dann wäre ich noch dankbar, wenn jemand das download vom master-zip testen könnte, da ist jemand mit einem "issue", das ich nicht nachvollziehen kann. Bei mir funktioniert das zip.

Danke schon mal!
Renate

[Renate Schaaf]

Habe die Win-Version des Projekts während der letzten 2 Wochen überarbeitet:

@grizzly Dein Vorschlag ist eingearbeitet (constructor CreateFromVideo), damit kann man unterbrochenes Encoding wieder aufnehmen. Es funktioniert allerdings bis jetzt nur eingeschränkt. Näheres in der Demo.

Die Methode AddVideo funktioniert jetzt (meistens). Damit kann man z.B. Videos, die man mit einer Video-Kamera aufgenommen hat, einbauen.

Die utility GrabFrame (UTools.pas) hat bis jetzt für einige Formate nicht funktioniert, sie tut jetzt für fast alle Videos auf meiner Festplatte.

Die Win-Demo wurde erweitert, um die neuen Funktionen zu testen.

Bug reports, Ideen, Mitarbeit sind willkommen, und Dank an alle für den Input bisher.

Gruß, Renate

[TurboMagic]

Hallo,

schön, dass es da weiter geht.
Wenn sich jetzt noch jemand finden würde der das mal für iOS vollends
aufbereiten könnte....

Mir fehlt dazu das Setup.
Man müsste wohl nur die richtigen .SO's im Deployment Manager für iOS
passend einbinden und mal die FMX Demo testen. Mit etwas Glück funktioniert
das dann schon.

Grüße

TurboMagic

[TurboMagic]

Hallo,

deine MultiDemo funktioniert nicht unter Android, weil du die FFMPEG .so's nicht im Deployment Manager
aufgeführt hast. Hab' nur leider gerade keine Zeit dir zu zeigen wo die rein müssen/wie das aussehen muss.

Aber so wie's ist stürzt es beim Starten unter Android mit SegFaults (Exceptions) ab.

Grüße
TurboMagic

[Renate Schaaf]

Mist.

Vielleicht kann ichs irgendwie beheben. Mein neues Tablet ist noch etwas gewöhnungsbedürftig, und ich hab gar keine Lust, es mit Delphi auszuprobieren.

Dafür hab ich an der Win-Version ganz schön rumgebastelt, Update kommt evtl. heute noch.

Danke für die Rückmeldung!

Renate

[Renate Schaaf]

Ich glaube ich habe ein paar .xml zu viel wegge"cleaned"
Vielleicht geht es ja jetzt wieder.