[Delphi] Bitmaps naar AVI

[ArieProductions]

Ik wil graag van een serie bitmaps een avi in elkaar draaien
Om in een splash screen de mogelijkheden van het te starten programma even snel door te nemen, door een aantal screenshots achter elkaar te zetten.

Gisterenavond TAviWriter gevonden op Torry, maar dat kreeg ik niet aan de praat (nog). Dit componentje maakte volgens commentaar weer gebruik van ActiveX componenten, maar welke en hoe bleef wat onduidelijk.
Kortom:

Iemand nog andere ideen, links etc. om van een serie Bitmaps een AVI in elkaar te zetten?

(standaard vidjo bewerkings software kan altijd nog)

[jelmervos]

Kun je niet gewoon die BMP's achter elkaar laden?

[ArieProductions]

Op woensdag 06 maart 2002 10:53 schreef jelmervos het volgende:
Kun je niet gewoon die BMP's achter elkaar laden?

nah, is veel te simpel , maar werkt natuurlijk wel.

Het leek me gewoon leuk om eens een avi inelkaar te knutselen.

[jelmervos]

Maar voor een AVI heb je weer een player nodig dacht ik. Nou zit die wel in Windows, maar dan wordt het al snel ActiveX.

Misschien is animated GIF nog een idee?

Maar voor dit doel zou ik idd kiezen om die BMP's achter elkaar te laden. Het hoeft toch niet echt animated te zijn, meer een slide show.

Succes.

[Verwijderd]

Op woensdag 06 maart 2002 11:05 schreef ArieProductions het volgende:

[..]

nah, is veel te simpel

*ziet al Notepad voor zich met een OpenGL splashscreen*

[Creepy]

Op woensdag 06 maart 2002 21:14 schreef Ublis het volgende:

[..]

*ziet al Notepad voor zich met een OpenGL splashscreen*

En dat is nog vrij simpel te doen ook

[ArieProductions]

Overigens heb ik deze code in m'n 'splashscreen', even een AVI-file koppelen aan de mediaplayer en de borderstyle van formpje op bsNone zetten

code:

procedure TForm2.FormShow(Sender: TObject);
var
   Rectangle : TRect;
begin
  MediaPlayer1.Open;
  with Rectangle do
  begin
    Left := 0;
    Top := 0;
    Right := Screen.Width;
    Bottom:= Screen.Height;
  end;
  MediaPlayer1.DisplayRect := Rectangle;
  MediaPlayer1.Play;

end;

En toen nog een serieuze toepassing bedenken.
OpenGL is ook leuk natuurlijk,

[ArieProductions]

YES,

gevonden:

http://homepages.borland.com/efg2lab/Library/Delphi/Graphics/Multimedia.htm

en dan onder:

Video for Windows (VFW)

See Rob Anderson's AVIBUILD.
Current version does not handle pf24bit BMPs correctly.
Includes vfw.pas (Video for Windows) interface unit for avifil32.dll.


Vervolgens alleen nog ff de volgende bug eruit halen:

- BitmapSize : Integer --> Cardinal,

En dan ga ik nu de code doorspitten om te kijken of ik het begrijp , zo te zien kan dat nog wel ff duren.