Sauvegarder un Gif avec TGifImage

Sauvegarder un Gif avec TGifImage - Delphi/Pascal - Programmation

Marsh Posté le 25-07-2004 à 15:39:45    

Bonsoir  à tous,
 
 
voila , j'utilises les TGifImage. L'auteur donne comme exemple le code ci-dessous
 

Code :
  1. procedure TForm1.Button2Click(Sender: TObject);
  2. var
  3.   GIF: TGIFImage;
  4.   Bitmap: TBitmap;
  5. begin
  6.   Bitmap := TBitmap.Create;
  7.   try
  8.     Bitmap.Width := (Canvas.ClipRect.Right-Canvas.ClipRect.Left);
  9.     Bitmap.Height := (Canvas.ClipRect.Bottom-Canvas.ClipRect.Top);
  10.     Bitmap.PixelFormat := pf24bit;//en modifiant ici , l'image ne change pas trop
  11.     Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect, Canvas,
  12.       Canvas.ClipRect);
  13.     GIF := TGIFImage.Create;
  14.     try
  15.       GIF.Assign(Bitmap);
  16.       GIF.SaveToFile('C:\MonRep\gif\legif.gif');
  17.     finally
  18.       GIF.Free;
  19.     end;
  20.   finally
  21.     Bitmap.Free;
  22.   end;


 
au final , l'image est bien sauvegardée , mais pas avec les bonnes couleurs  :??:  Que dois-je modifier pour avoir un gif avec des couleurs identique à la copie d'ecran ?  :sarcastic:  
 
Merci

Reply

Marsh Posté le 25-07-2004 à 15:39:45   

Reply

Marsh Posté le 25-07-2004 à 16:36:48    

Le GIF ne permettant que 256 couleurs, il y aura toujours une perte.
Je ne sais pas comment se fait le calcul de quelle couleur reste et quelle couleur disparaît par contre...
Tu as absolument besoin de GIF ?
Pour les captures le PNG est en général plus indiqué, et il permet de conserver toutes les couleurs.
Pour cela il y a TPNGObject disponible ici : http://pngdelphi.sourceforge.net/

Reply

Marsh Posté le 25-07-2004 à 18:05:13    

ok , je vais voir ce que cela fait avec le PNG . merci pour l'idée  
 
Merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed