Impossible de bloquer une exception : ERREUR JPEG #42

Version imprimable

Voir 40 message(s) de cette discussion en une page

22/11/2004, 15h27
YanK

Impossible de bloquer une exception : ERREUR JPEG #42
Bonjour,
Voilà j'aimerais bloquer un message d'erreur causé lors de l'ouverture d'une image dans un TPicture. Si j'essaye d'ouvrir une image JPG de taille 0 octet, j'ai le message d'erreur suivant : "ERREUR JPEG #42".
J'ai essayé le code suivant pour bloquer le message, mais ca ne fait rien. :(
Code:

1 2 3 4 5 6 7 8 9 ImgTest := TPicture.Create; Try ImgTest.LoadFromFile(nomImg); Except On e : Exception do begin // end; end; FreeAndNil(ImgTest);
J'ai l'impression que ce n'est pas une exception. Y a t-il un moyen de bloquer ce message? Sinon y a t-il un moyen de tester l'intergrité d'une image avant et l'ouvrir seulement si il n'y a pas d'erreur.

Merci d'avance pour l'aide que vous pourrez m'apporter. ;)
22/11/2004, 16h09
Bestiol

Peut-être ça :

Ouvre le fichier nomImg dans un TFileStream... Vérifie que FileStream.Size est différent de 0, et si c'est bien le cas alors utilise la méthode TPicture.Graphic.LoadFromStream ! :)

Il me semble que ça devrait fonctionner...
22/11/2004, 16h13
Clorish

If faut decocher l'option : "Options - Options du deboggeur - Exception du Language - Arreter sur Exception delphi"

sinon les excpetion ne sont pas "captées" depuis l'IDE Delphi mem avec un Try. Mais lance l'exe sans passer par Delphi, Tes Exceptions seront captee par le Try.
22/11/2004, 16h15
Higgins

si tu es en mode debug, c'est normal . Ce problème survient-il lors de l'exécution "autonome" (sans passer par l'IDE Delphi) ?
22/11/2004, 16h15
YanK

Bestiol > Merci je suis désolé j'aurais du dire que je l'avais déjà fait. Ca marche, mais pour une autre erreur n'ayant pas de rapport avec la taille j'ai peur qu'il me renvoi une fenêtre. :(
Le but était de bloquer l'erreur quelque soit cette erreur. :)
22/11/2004, 16h17
YanK

Clorish & Higgins > J'ai le message en mode debug et normal. :(

Salut,

c'est une erreur dans le source jpeg.pas qui n'est pas fournit avec Delphi : seul le dcu est fournit.
Pour trapper l'exception il ne te reste que :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.ApplicationOnException(Sender: TObject; E: Exception); begin if E.ClassName = 'EJPEG' then // Gérer l'erreur; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnException := ApplicationOnException; end;
Remarque bien la classe EJPEG n'est pas accessible en dev, c'est pourquoi on passe par le nom de classe (classname).
Comme le load d'un jpeg est multithreadé, il est asynchrone. Donc pour gérer l'erreur, il est nécessaire de faire ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm1.Button4Click(Sender: TObject); var ImgTest : TImage; begin Try Image1.Picture.LoadFromFile('d:\essai.jpg'); Except on e : EInvalidGraphic do showmessage(e.message); end; Application.Processmessages; Showmessage('fin de load image'); end;
Si tu ne mets pas le Application.processmessages tu vois apparaitre 'fin de load image' avant la gestion d'erreur.

Bref, le mieux est de récupérer le fichier JPEG.pas quelque part et de regarder comment ca se comporte.
Voici un lien qui explique un peu en anglais comment le recompiler pour pouvoir gérer l'exception EJPEG :
http://groups.google.fr/groups?q=delphi+exception+ejpeg&hl=fr&lr=&selm=6ii99f%24o3314%40forums.borland.com&rnum=1

Bon courage.

22/11/2004, 17h18
Bestiol

J'aimerais infirmer quelque chose :

Citation:

Envoyé par ElNan

le source jpeg.pas qui n'est pas fournit avec Delphi : seul le dcu est fournit

Effectivement il n'est pas installé par défaut, ce .pas, mais il est dispo sur le CD de Delphi dans un répertoire "Info\Extras\jpeg" avec les sources en C également...

Je parle pour ma part de D7 pro.

Si jamais tu veux ce fichier YanK, je ne pense pas qu'il soit illégal que je te l'envoie ??
Envoie-moi un MP avec ton mail si ça t'intéresse ! :wink:

Bonne prog' !
Bestiol.
22/11/2004, 17h32
YanK

ElNan & Bestiol > Merci à tous les deux je vais chercher ce qu'il faut modifier avec tout ce que vous m'avez donné. Et je posterais ce que j'ai fait.
ElNan > Merci pour ton lien je vais le lire attentivement. ;)
Bestiol > Merci beaucoup, j'ai aussi la version Pro et j'ai trouvé le fichier garce à ton aide. ;)
22/11/2004, 17h33
Bestiol

Très bien alors bon courage ! :wink:
23/11/2004, 10h46
YanK

Je crois que je me suis senti plus fort que ce que j'etais. :(
Je ne trouve pas ce que je dois changer dans le jpg.pas pour qu'on puisse bloquer les exceptions. :(
23/11/2004, 12h08
Bestiol
Hey hey !!

Pas de découragement ! :P:P

Ce qu'il faut que tu fasses (d'après la lecture de la news sur google) :
-faire une backup de JConsts.dcu et jpeg.dcu (ils seront remplacés par ta version) qui se trouvent dans le répertoire 'lib' et non dans 'bin' !
-copie jconsts.pas et jpeg.pas de ton CD sur ton disque dur, dans le répertoire 'lib'
-ouvre jpeg.pas et trouve, aux lignes 962/963 environ, ce code :
Code:

1 2 type EJPEG = class(EInvalidGraphic);
Il faut que tu déplaces ces deux lignes au niveau du "first type statement", donc j'imagine au niveau de :
Code:

1 2 type TJPEGData = class(TSharedImage)
Ensuite tu recompiles, tu vérifies que les dcu ont bien été remplacés et tu devrais normalement pouvoir utiliser "on e: EJPEG do" dans un bloc "try..except" ! :)

Vala vala, j'espère que ça marchera ! :wink:
Bonne prog' !
Bestiol.
23/11/2004, 12h14
YanK

Je ne comprend pas il me dit "identificateur EJPEG non déclaré". :(
23/11/2004, 12h27
Bestiol
Sur quelle ligne bloque-t-il quand il te dit ça ?!

Je viens de tester, mais je me rends compte que j'ai oublié deux choses :
Il faut que tu copies les fichiers obj du CD avec ton .pas, et aussi, bien sûr, ton code final au début doit être :
Code:

1 2 3 4 5 6 type EJPEG = class(EInvalidGraphic); TJPEGData = class(TSharedImage) private ....

Il bloque sur le EJPEG que j'ai dans mon code à moi :

Code:

1
2
3
4
5
6
7
8
9
  ImgTest := TPicture.Create;
  Try
    ImgTest.LoadFromFile(nomImg);
    Except
      On e : EJPEG do begin
        ShowMessage('Mon message : '+e.Message);
        end;
      end;
  FreeAndNil(ImgTest);

23/11/2004, 12h56
Bestiol

Ah...

Si tu as bien le même code que celui que j'ai copié dans jpeg.pas, c'est que tu ne références pas la bonne unité dans les uses je pense !

Supprime les fichier jconsts.dcu et jpeg.dcu et recompile... S'il ne trouve pas l'unité jpeg peut-être qu'il te faut ajouter 'lib' aux chemins de recherche !
23/11/2004, 13h53
YanK

Je comprend plus rien :)
Maintenant j'ai une erreur quand je compile jpeg.pas
Il me dit ca: (ligne 873)

Code:

Déclaration forward ou external non satisfaite : 'jpeg_save_makers'

[edit]
La ligne :

Code:

external {$IFDEF JPEGSO} 'libjpeg.so' name 'jpeg_save_markers' {$ENDIF};
23/11/2004, 13h57
Bestiol

8O 8O 8O

T'es sûr d'avoir bien touché uniquement au type EJPEG ???

Tu as juste à faire un couper/coller de EJPEG = class(...); au desus de la définition de la première classe de l'unité, et à copier les bons fichiers... Ca ne devrait pas te donner ce genre d'erreur !

Oui c'est tout ce que j'ai fait un couper coller. :(
Voila le debut de mon jpeg.pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
unit jpeg;
 
interface
 
uses 
  Windows, SysUtils, Classes, Graphics;
 
type
  EJPEG = class(EInvalidGraphic);
  TJPEGData = class(TSharedImage)
  private
    FData: TCustomMemoryStream;
    FHeight: Integer;
    FWidth: Integer;
    FGrayscale: Boolean;
  protected
    procedure FreeHandle; override;
  public
    destructor Destroy; override;
  end;

23/11/2004, 14h11
Bestiol

Citation:

Envoyé par YanK

Code:

Déclaration forward ou external non satisfaite : 'jpeg_save_makers'

Vérifie bien que tu n'aies pas sans le vouloir supprimé un 'r' à la ligne 872... car le nom de la procédure est jpeg_save_maRkers et non jpeg_save_makers !!!

Voir 40 message(s) de cette discussion en une page