Salut les gars,
Je suis entrain de faire un convertisseur d'image Bmp à Gif.
J'ai mis le code suivant mais il ya une erreur, il me dit "Fichier introuvable:gifimage.dcu" Je faisquoi ? Voila mon code :
Uses
GifImage;
procedure TForm1.Button1Click(Sender: TObject);
var GIF : TGIFImage;
Bitmapa : TBitmap;
begin
Bitmapa:=TBitmap.Create; //Créé
un bitmap
Gif:= TGifImage.Create; //Crée
le gif
Bitmapa.LoadFromFile('c:\test.bmp'); //Charge
le bitmap
Bitmapa.Width:=Gif.Width; //Récupère
la largeur
Bitmapa.Height:=Gif.Height; //Récupère
la hauteur
Bitmapa.Canvas.Draw(0,0,Gif);
GIF.SaveToFile('c:\test.gif'); //Sauvegarde
le gif
Gif.Free; //Libère le
gif
Bitmapa.Free; //Libère
le bitmap
end;
Merci à tous.
-----------------------------------------
May Delphi and Php change the world ....