Discussion :

[sematimo]

Bonjour
j'essaie d'utiliser TGIFImage mais j'ai des erreurs de compilation:

unit1.pas(116,30) Warning: Constructing a class "TGIFImage" with abstract method "GetWriterClass"
graphics.pp(1413,20) Hint: Found abstract method: class GetWriterClass(<Class Of TFPImageBitmap>):Class Of TFPCustomImageWriter;

Voilà ma source:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
var
  image:TGIFImage;
begin
 
      image:=TGIFImage.Create;
      image.LoadFromFile('d:\test.gif');
      image1.Picture.Assign(image);

[BeanzMaster]

Salut

A la place je te propose de d'installer mon coposant TGifViewer depuis le gestionnaire de paquet en ligne (OPM) de Lazarus ou de le télécharger TGifViewer directement sur mon dépot github

si tu as des questions sur sont utilisation, n'hésites pas

A+

Jérôme

[sematimo]

Bonjour

GIFviewer marche , parfois message erreur avec certaines gif dans resources, "Dimension de l'image invalide 42x0', alors quelles marchent avec loadfromfile.

merci

[BeanzMaster]

Bonjour

GIFviewer marche , parfois message erreur avec certaines gif dans resources, "Dimension de l'image invalide 42x0', alors quelles marchent avec loadfromfile.

merci

Bonsoir peux tu me mettre ton gif en piece jointe et peux tu me décrire la méthode que tu utilises pour convertir le fichier GIF en ressource (fichier .res)
Que veux tu dire par "certaines gif dans resources" ? je ne comprend pas

A+

Jérôme

[sematimo]

Bonjour

J'ai créé un nouveau fichier ressources avec LRS explorer et avec ce fichier ça marche.
j'avais ajouter mon image gif au fichier fpclogo.lrs de la demo GifRes avec LRS explorer et j'avais un message d'erreur en utilisant GIFViewer1.LoadFromResource('52531')
par contre en utilisant GIFViewer1.LoadFromFile('52531') je n'avais par d"erreur.

Ca vient peut-être de ma gif.

[BeanzMaster]

Bonjour, je ne comprend pas bien d'ou peut provenir ton erreur. J'ai testé avec la démo "GIFRes" en ajoutant ton fichier GIF tout comme toi avec LRS Explorer

Et je n'ai eu aucun problème

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
{ TMainForm }
 
Procedure TMainForm.FormShow(Sender: TObject);
var
  newLeft, newTop : Integer;
Begin
  //GIFViewer1.LoadFromResource('fpclogo');
  GIFViewer1.LoadFromResource('52531');
  newLeft := (clientWidth div 2) - (GIFViewer1.Width div 2);
  newTop := (clientHeight div 2) - (GIFViewer1.Height div 2);
  GIFViewer1.Left := newLeft;
  GIFViewer1.Top :=  newTop;
  GIFViewer1.Start;
end;
 
initialization
  {$I fpclogo.lrs} // Placer le fichier resource à inclure
 
 
End.

J'ai aussi testé avec la démo "GIFViewer" idem aucun problème

Essayes de créer un nouveau fichier lrs avec juste ton GIF.

A+

Jérôme