Gif to Jpeg. [Résolu]

Signaler
Messages postés
116
Date d'inscription
dimanche 12 décembre 2004
Statut
Membre
Dernière intervention
25 septembre 2005
-
Messages postés
116
Date d'inscription
dimanche 12 décembre 2004
Statut
Membre
Dernière intervention
25 septembre 2005
-
Salut les gars,



Je voudrais juste savoir c koi le code pour faire convertir une image
Gif au format Jpeg sachant que j'ai utilisé le code suivant mais
lorsque je compile le programme, que je sélectionne mon Gif et que je
clique sur Convertir, il me dit "Cannot Assign TGifImage To TJpegImage".

Voilà mon code :



var

JPEG : TjpegImage;

Gif : Tgifimage;



Gif := Tgifimage.Create;

JPEG := TJPEGImage.Create;

Gif.LoadFromFile(OpenPicture.FileName);

JPEG.CompressionQuality:=trackbar.position;

JPEG.Assign(Gif);

JPEG.SaveToFile(SavePicture.filename+ '.jpg');

JPEG.Free;

gif.Free;



N.B : Sur le forum, n'existe que comment pouvoir convertir Jpeg en Gif, pas l'inverse.

Merci à tous .

-----------------------------------------

May Delphi and Php change the world ....

2 réponses

Messages postés
308
Date d'inscription
mardi 11 juin 2002
Statut
Membre
Dernière intervention
26 septembre 2008

procedure TForm1.Button1Click(Sender: TObject);
var
JPEGs : TjpegImage; //uses jpeg,gifimage;
Gif : Tgifimage;
begin
if OpenPicture.execute=true then
try
Gif := Tgifimage.Create;
JPEGs := TJPEGImage.Create;
Gif.LoadFromFile(OpenPicture.FileName);
JPEGs.CompressionQuality:=trackbar.position;


JPEGs.Assign(Gif.Images.SubImages[0].Bitmap);

if SavePicture.execute=true then
JPEGs.SaveToFile(SavePicture.filename+ '.jpg');
finally
begin
JPEGs.Free;
gif.Free;
end;
end;
end;

le hic ici c'est que le gif ça peut-être un série d'image , ici je n'utilise que la première image du gif ,mais es-ce correct ? si SubImages[0]=NIL then ouch ...

et là c'est les propriétés par défaut , sinon ça se complique ,palette de couleurs etc...ouf

yve
Messages postés
116
Date d'inscription
dimanche 12 décembre 2004
Statut
Membre
Dernière intervention
25 septembre 2005

ok merci bcp mon pote.

-----------------------------------------

May Delphi and Php change the world ....