Pour générer un fichier AVI à partir de plusieurs bitmaps, nous allons utiliser le composant TAviWriter de Elliott Shevin [12 Ko].

Avec ce composant, vous pouvez également ajouter à la video AVI un fichier son au format WAV.



Pour commencer, ajoutez trois composants TGroupBox, quatre TEdit, quatre TLabel, trois TButton, un TImage et un TListBox. Disposez tous ses composants comme ci-dessus.
Ajoutez également un composant TOpenDialog et enfin TAviWriter.

Dans un premier temps, l'utilisateur devra choisir les bitmaps qu'il veut incorporer dans le fichier vidéo. Pour cela, il pourra les visualiser un par un par l'intermédiaire du composant TImage que nous avons placé.

procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then Image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName); //Charge le bitmap dans le composant "Image1" end;

Puis dans un deuxième temps, l'utilisateur peut s'il le souhaite, insérer le bitmap pour que celui-ce soit ajouter à la vidéo.

private { Déclarations privées } Bitmap:TBitmap; end; procedure TForm1.Button2Click(Sender: TObject); begin Bitmap:=TBitmap.Create; //Créé un bitmap Bitmap.LoadFromFile(OpenDialog1.FileName); //Charge l'imagedans le bitmap AviWriter1.Bitmaps.Add(Bitmap); //Ajoute le bitmap ListBox1.Items.Add(OpenDialog1.FileName); //Ajoute le chemin complet de l'image dans la liste end;

Le composant TListBox permet de lister les fichiers bitmaps que contiendra le fichier vidéo.

Pour terminer, la dernière opération a effectuée est la création du fichier AVI. Pour cela, il suffit de renseigner les différents paramètres (nom complet, largeur, hauteur et temps entre chaque images) du fichier vidéo. Puis grâce à la méthode "Write", le fichier AVI sera alors crée.

procedure TForm1.Button3Click(Sender: TObject); begin Screen.Cursor:=crHourglass; //Curseur sablier try AviWriter1.FileName:=Edit1.Text; //Nom du fichier AVI AviWriter1.Width:=StrToInt(Edit2.Text); //Largeur du fichier AVI AviWriter1.Height:=StrToInt(Edit3.Text); //Hauteur du fichier AVI AviWriter1.FrameTime:=StrToInt(Edit4.Text); //Image par secondes AviWriter1.Write; //Crée le fichier AVI finally AviWriter1.Bitmaps:=nil; //Vide la liste des bitmaps Bitmap.Free; //Libère le bitmap Screen.Cursor:=crDefault; //Curseur par défaut end; end;

Générer un fichier AVI à partir de bitmaps    [ 23-01-2004 ]  Générer un fichier AVI à partir de bitmaps avec Delphi. Télécharger :  [7 Ko] [ genereravi.zip] Auteur : Yoann Site internet : http://delphipage.free.fr/