Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Tutoriaux - Générer un fichier AVI

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] [Télécharger genereravi.zip]

Auteur : Yoann
Site internet :
http://delphipage.free.fr/
 

Tous droits réservés - Contacts
Haut de la page