Salut à tous !    
 
Voilà, je voudrais savoir si il est possible d'insérer des gifs animés sur une fiche Delphi 6, et si oui, comment ?
 
Merci de vos réponses =).
 
 

Faut trouver un composant rajoutant le support du gif dans le TImage.
Par ex :
http://www.egroups.com/files/JEDI-GIFImage/
http://www.sulako.com/tgifimage.htm

Merci beaucoup pour ta spontanéité antp    
Cependant, ton premier lien est dead, et le deuxième mène vers un composant qui n'est pas encore porté sur Delphi 6 ("seulement" Delphi 3, 4 et 5).    
 
Mais je note que ça n'est pas possible d'origine, et qu'il faut installer un composant pour le faire ...  
 
Si quelqu'un sait où je peux trouver ce genre de composant compatible avec Delphi 6, je le remercie de m'en faire part =)

Le premier marche bien en Delphi 6 mais pour les animations il rame un peu
Le second comme y a pas les sources, j'avais pas fait attention, et qui dit pas de source dit pas de portage aux autres versions Delphi (enfin je crois, tu peux toujours tester).
 
Pour le premier lien, il doit être bon, il fonctionne ici (bon ok faut un identifiant Yahoo...)

Ouais, en fait je me suis un peu emporté : le premier lien il marche bien, j'ai téléchargé le zip, et dedans, ya juste un xxxxx.pas, et si je veux m'en servir, je dois soit le retoucher pour modifier le composant TImage, soit le modifier pour pouvoir en faire un composant à part entière ... mais bon, modifier un code que je connais pas ... quans il fait 2000 lignes !    non merci    
 
  Donc si tu connais d'autres endroits où télécharger un composant tout fait qui gère les gifs animés ... je suis toujours preneur  

tu as un TGIFImage, qui est donc ce .pas
tu mets ce .pas dans un dossier connu de Delphi ou dans le dossier de ton projet, tu mets "gifimage" (enfin le nom de la unit) dans les uses, et hop c'est magique le TImage de Delphi reconnaît les GIF ! Pas besoin de modifier quoi que ce soit.
Y a la même chose pour les PNG (avec support des transparences des PNG 32 bits etc...) : http://pngdelphi.sourceforge.net/ De la même manière que le GIF, juste un truc à mettre dans les uses de la unit où est le TImage de ton application, et ça marche.

[jfdsdjhfuetppo]--Message édité par antp le 28-05-2002 à 12:34:21--[/jfdsdjhfuetppo]

AAAAAaaaaaaaaaaaaaaaaaaaaaah !!!!!!!!!!
OKKKAAAAAAAAAAAAAAAAAAAAAYYYY  !!!!
Bon, ok, j'avais po compris ça comme ça ...    
Ca a l'air vachement bien et pratique, seulement g bo faire ce que tu dis (copie du fichier .pas dans le rep de mon projet et ajout de 'GIFImage' dans le uses), ben ... ça marche tjs po :-(((
 
Mais bon, je persévère ...
 
Merci en tous cas pour topn aide =)

C'est bizarre, normalement ça doit marcher. T'as un message d'erreur de quel genre ?

ben quand je choisis l'image, on ne me propose pas de .gif, et si j'en prends un quand même, on me dit 'extension de fichier inconnue'

T'as bien mis le gifimage dans les uses de la unit (form) où tu as mis ton Timage ?

ben oui bien sur !

Bon bhen t'as pas de bol alors

mouais ...    
fait chier quand même cette histoire, ça avait l'air vachement bien ton truc là =).
 
Merci quand même antp  

est-ce que g besoin d'inclure le 'gifimage.pas' dans le projet ?
je ne l'ai pas fait, mais je pense pas que ça soit utile ...
sinon, voici le code de la form qui doit contenir le gif :
 
/////////////////////////////////////////////////////////////
 
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ToolWin, ActnMan, ActnCtrls, GIFImage;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    Image2: TImage;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
end.

Normalement ça doit marcher... Enfin je sais pas si ça marche en design-time au fait...

dans ce cas, tu connais les propriétés nécessaires à la création du composant en runtime ?
genre Image := TGIFImage.Create( .... ??
ou
Image.Picture := ... ???

Image1.Picture.LoadFromFile('c:\machin.gif';
 
ça doit fonctionner.
ou alors  
 
TGIFImage: img;
 
img := TGIFImage.Create;
TGIFImage.LoadFromFile('c:\machin.gif' ;
Image1.Picture.Assign(img);

[jfdsdjhfuetppo]--Message édité par antp le 28-05-2002 à 15:52:44--[/jfdsdjhfuetppo]

OK    
J'ai réussi (enfin !! ) avec ce code là :
 
////////////////////////////////////////////////////
procedure TForm2.FormCreate(Sender: TObject);
var
  Image: TGIFImage;
begin
Image := TGIFImage.Create;
TGIFImage(Image).LoadFromFile('E:\Yohann\s
tar.gif';
Image3.Picture.Assign(Image);
 
end;
//////////////////////////////////////////////////
//
 
Euh ... sinon, à part ça .. euh ... tu saurais pas comment on règle la vitesse de l'animation ? paske là ça speed c monstrueux !!    
 
En tous cas merci pour tes tuyaux !  

si ça speed c'est souvent un gif foireux
ou alors faut voir dans les propriétés du TGIFImage avant de faire l'Assign
 
N'oublie pas de faire un Free du TGIFImage (Image.Free) après l'Assign, vu que Assign ne fait que recopier le contenu.

[jfdsdjhfuetppo]--Message édité par antp le 28-05-2002 à 17:55:36--[/jfdsdjhfuetppo]

antp a écrit a écrit : Le premier marche bien en Delphi 6 mais pour les animations il rame un peu Le second comme y a pas les sources, j'avais pas fait attention, et qui dit pas de source dit pas de portage aux autres versions Delphi (enfin je crois, tu peux toujours tester).   Pour le premier lien, il doit être bon, il fonctionne ici (bon ok faut un identifiant Yahoo...)

 
Donc si j'ai bien compris pour le premier lien, il faut s'inscrire au group ? (qqn pourrait m'envoyer le compostant TGIFImage par mail ? )

http://ibelgique.ifrance.com/antp/_files/gifimage.zip
http://ibelgique.ifrance.com/antp/ [...] age_d6.zip -> version non officielle, pour delphi 6 (mais je crois que l'autre fonctionne aussi)

 
Merci !!!

T'avais raison pour le gif antp : il était foireux.
Avec d'autres gif ça passe nikel.
 
Merci pour ton aide !!
 
A bientôt =)

Le meilleur compo que G vu pour le moment pour les GIF C celui des RX.... mais il n'est vraiment pas pratique.... si qq'1 a du temps pour se pencher sur les sources....