Lave AVI fil ud fra bitmaps?

hvor store er billederne?

http://www.ittide.com/document/source/multimedia/writeavi.zip

Det er godt nok C++, men kan måske bruges :)

Du bruger en Timagelist,Ttimer, og en Tbutton til at starte/stoppe din animation.

ps:billederne som indlæses i Timagelist må højst være 50 x 50

Indlæs de ønskede billeder i Timagelist - og skriv i private declarations:
ImageListIndex: integer;



her kommer koden:

procedure TForm1.FormCreate(Sender: TObject);
begin
ImageListIndex := 0;
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,0,true);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Canvas.Brush.Color := clBtnFace;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
ImageList1.Draw(Image1.Canvas,0,0,ImageListIndex,true);

Inc(ImageListIndex);

if ImageListIndex > ImageList1.Count -1 then
  ImageListIndex := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;

if Timer1.Enabled then
  Button1.Caption := 'Stop'
else
  Button1.Caption := 'Start';
end;

Stone: Hvor er det lige kreationen af selve Avi-Filen kommer ind i dit eksempel?

HejHej: Jeg vil prøve at kigge lidt på dit C++ kode. Jeg vidste faktisk ikke at Windows har en AviFile.Dll bibliotek liggende som standard, som man åbenbart bare kan benytte! Hvis du i mellemtiden ser noget Delphi kode ville det godt at vide ;))

Hent dette program .. det er så dejlig nemt + du kan ligge musik ind samtidig
http://cscentral.dk/files/VideoMach.exe

Den her skal du vist have for at kunne bruge funktionerne
http://www.torry.net/vcl/mmedia/video/vfw.zip

Du kunne jo også prøve at kigge på koden i nogle af componenterne f.eks.
http://delphi.tthayer.com/ping.asp?file_id=d20free/AviWriter.zip

Her er nået til Delphi.
http://www.swissdelphicenter.ch/torry/showcode.php?id=1180

Mange tak for de rigtig gode links. Der skulle nu nok være noget brugligt!

ZeroHero

Hejhej>> Smid et svar og du vil få points :))

Mange tak :D

Fandt lige et component mere, som både kan læse og skrive fra compressed avi filer http://www.torry.net/vcl/mmedia/video/avi.zip