Discussion :

[Duan]

J'ai un CD contenant plusieurs cartes Topographiques (Québec 1/50,000) sauvés en .GIF. La taille de chaque fichier se situe aux alentour de 2mo à 2,5 mo. J'aimerais convertir quelques-un de ceux-ci en BMP afin de pouvoir les insérer dans un TImage. Les composants comme jvcGIFAnimator ne semblent pas prendre de GIF aussi gros. Existe t'il une fonction ou autre qui changerais automatiquement ceux-ci. J'ai peut-être manqué quelque chose mais j'ai beau chercher, plus je cherche, plus je m'y perd. Il existe bien une façon car je possède des logiciels d'imagerie qui ouvre le gif et le sauve en bmp (save as).

Merci

Duan

[defluc]

Vas donc voir sur http://http://delphi.about.com/od/gr.../delphigif.htm

[Caribensila]

http://delphi.about.com/od/graphics/a/delphigif.htm

[Gilbert Geyer]

Bonjour,

Pour obtenir le BitMap, par exemple d'un fichier GIF, j'utilise cette fonction :

// Ajouter axCtrls dans le uses pour TOleGraphic

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function  BMPdeIMG(const nomFichierImg : string) : tBitMap;
const     FormatsSupportes = '.BMP.DIB.GIF.ICO.JIF.JPG.WMF.EMF';
var       OleGraphic: TOleGraphic; FS: TFileStream; ext : string; img : tImage;
begin     ext:=UpperCase(ExtractFileExt(nomFichierImg));
          if (ext='') or (pos(ext,FormatsSupportes)=0) then
          begin showMessage(ext+' = Format non supporté par BMPdeIMG');
                Result:=nil; EXIT;
          end;
          OleGraphic := TOleGraphic.Create;
          FS := TFileStream.Create(nomFichierImg, fmOpenRead or fmSharedenyNone);
          img:= tImage.Create(Application);
          try
             OleGraphic.LoadFromStream(FS);
             img.Picture.Assign(OleGraphic);
             Result :=tBitmap.create;
             with Result do
             begin PixelFormat:=pf24Bit;
                   Width :=img.Picture.Width;
                   Height:=img.Picture.Height;
                   Canvas.Draw(0, 0, img.Picture.Graphic);
             end;
          finally
             fs.Free;
             img.free;
             OleGraphic.Free;
          end;
end; // BMPdeIMG

... reste plus qu'à l'essayer avec un GIF de 2,5 Mo.

A+.

[Duan]

Au gros merci à tous. Avec le composant tGifImage, je vais pouvoir y arriver. Pour ceux qui aimeraient avoir des démos de différentes applications pour les .gif, faire une recherche avec :GifImage0202.exe ou aller à :http://www.tolderlund.eu/delphi/ download.

Je marque ce post comme résolu

Duan