Discussion :

[xenos]

Bonjour à tous les delphinautes,

J'ai un répertoire avec différents types d'images (jpg, gif, ...), mais où les extensions de tous ces fichiers est .dat. J'ai donc conçu (sous Delphi Professionel 2005 et Windows XP Professionel) une interface qui permette de lire l'ensemble de ces images.

Mon logiciel :
- crée un répertoire temporaire dans le répertoire contenant les .dat.
- copie les fichiers .dat en changeant l'extension. J'ai mis arbitrairement jpeg comme extension.
- liste tous les fichiers dans ce dossier temporaire.
- lit les fichiers ... et c'est là que ce situe mon problème.

J'ai mis ce code pour qu'il puisse lire les jpg et les gif.

Code :

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

1
2
3
4
5
6
7
8
9
      Try
        begin
          Image1.Picture.LoadFromFile(Image);
        end;
      Except
        begin
          CreateRxGif(Image, 10, 155);
        end;
      end;

Cependant il ne fonctionne pas ... je ne comprends pas pourquoi ...

Image fait référence à une Function qui détermine l'url du fichier à lire, par exemple : C:\Windows\Temporaire\Image_01.jpg.

CreateRxGif fait quand à lui référence à la bibliothèque RxGif et permet de lire le gif.

Si je lance un gif le logiciel saura le lire et ne renverra aucune erreur, par contre si le fichier que je tente de lire est une une simple image, à ce moment là :

Erreur de création de l'objet

Project Project1.exe raised exception class EJEPG with message 'JPEG error #53'

J'espère que quelqu'un aura la solution à ce problème. D'avance merci.

[neilbgr]

S'il te faut détecter un jpeg, d'un gif d'un bmp, je te suggère ce poste :

http://www.developpez.net/forums/vie...271387#2271387

[delphichem]

Pour lire plusieurs formats de fichiers je te conseille
http://delphi.developpez.com/freewar...ismeMultimedia

Regardes dans GraphicEx.