[Tool] Bitmap to AVI

[Micha88]

Zitat:

Konnte Frame nicht hinzufügen. AVI-Datei wurde noch nicht initialisiert.

- Windows 7 Home Premium 64bit. Es wurden die in der Demo mitgelieferten BMPs verwendet.

[Micha88]

Weiß jemand, wo dieser Fehler seine Ursache hat?

[DeddyH]

Japp, CreatorState <> csWriting. Hast Du vorher CreateAVIFile aufgerufen?

[Coffeecoder]

Hey,

Ich bekomme keine AV-Exception oder ähnliches. Bei mir wird problemlos alles erstellt wenn ich die BMP einfüge.
Super Tool!

[Micha88]

Zitat:

Japp, CreatorState <> csWriting. Hast Du vorher CreateAVIFile aufgerufen?

Ich verwende den im ersten Post angehängten Anhang.

Der Button "Make AVI" hat folgenden Code:

Delphi-Quellcode:

 bmp := TBitmap.Create;

 bmp.LoadFromFile(ListView1.Items[0].SubItems[0]);

 AVICreator := TAVICreator.Create(Handle);
 AVICreator.Filename := '';
 AVICreator.Width := bmp.Width;
 AVICreator.Height := bmp.Height;
 AVICreator.FPS := StrToInt(cbxFPS.Text);
 AVICreator.ResRestriction := TResRestriction(cbxRestriction.ItemIndex);

 AVICreator.CreateAVIFile;
// Selbst ohne diese Zeile kommt der Fehler

 ProgressBar1.Max := ListView1.Items.Count - 1;

 for i := 0 to ListView1.Items.Count - 1 do
  begin
   bmp.LoadFromFile(ListView1.Items[i].SubItems[0]);
   Image1.Picture.Bitmap.Assign(bmp);
   Image1.Refresh;
   ProgressBar1.Position := i;

   AVICreator.AddAVIFrame(bmp);
  end;

 bmp.free;

 fn := AVICreator.Filename; // Return the Filename selected of SaveDialog

 AVICreator.CloseAVIFile;

 AVICreator.free;