[D7] Message d'une exception - erreur d'assignation d'un Jpeg

Version imprimable

Bonjour,
je voudrais intercepter une erreur d'assignation d'un Jpeg dans le cas ou le Jpeg est invalide :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        JPEG := TJPEGImage.Create();
        Try
          JPEG.Performance := jpBestSpeed;
          JPEG.Scale := jsEighth;
          JPEG.PixelFormat := jf24Bit;
          JPEG.LoadFromStream(MS) ;
          Try
           Image1.Picture.Assign(JPEG);
          Except
            on Exception do ShowMessage('Erreur Jpeg') ;   //  ou directement : ShowMessage('Erreur Jpeg') ;
          End ;
        Finally
          JPEG.Free;
        End;

Quand le Jpeg est invalide, j'ai le message : 'Erreur Jpeg #60' alors que je voudrais afficher le mien : 'Erreur Jpeg'.

Comment puis je faire ?

A+
Charly

11/10/2022, 17h38
ShaiLeTroll

C'est pas plutôt le LoadFromStream qui provoque l'erreur ?
11/10/2022, 18h20
Charly910

J'ai essayé de mettre le LoadFromStream dans le 2eme Try : c'est pareil

A+
Charly
11/10/2022, 18h25
Charly910

Si je supprime le

Code:

Image1.Picture.Assign(JPEG);

je n'ai plus d'erreur. Donc c'est bien là ?

A+
Charly
11/10/2022, 18h37
ShaiLeTroll

Sinon, tu ne confonds pas la Notification d'Exception que l'on a sous le Débogueur avant d'avoir l'Exception affichée par l'Application ?
11/10/2022, 18h44
Charly910

J'ai le même message (Erreur Jpeg #60) dans l'IDE et hors de l'IDE

A+
Charly
11/10/2022, 18h48
Charly910

J'ai regardé dans Jpeg.pas : apparemment c'est cette unité qui envoie ce message d'erreur.
12/10/2022, 09h19
pprem

Quel type d'exception est envoyé par cette unité JPEG ? (est-ce bien une exception ?)

Pour rappel "on Exception do" ne sert à rien si tu n'interceptes pas plusieurs types d'exceptions, tente sans.
12/10/2022, 09h38
Paul TOTH

tu peux nous fournir le fichier que tu souhaites afficher ?

1 pièce(s) jointe(s)

Bonjour,

Voici le code complet d'affichage :

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
procedure TF_Princ.Btn_PhotoClick(Sender: TObject);
var
  Extrait  : String ;
  F : TStringList  ;
  S : String ;
  I, K : Integer ;
  MS : TMemoryStream ;
  SS : TStringStream ;
  JPEG : TJPEGImage ;
Begin
  F := TStringList.Create ;
  Try
    F.LoadFromFile('Photo.txt') ;
    S := '';
    For i := 0 To F.Count-1 Do S := S + F.Strings[i] ;
    Extrait := StringReplace(S, #32, '', [rfReplaceAll]) ;
//    Extrait := StringReplace(Extrait, #13#10#32, '', [rfReplaceAll]);
  Finally
    F.Free ;
  End;
  I := Pos('JPEG:', Extrait);
  If I > 0 then
    Begin
      I := I + Length('JPEG:') ;
      MS := TMemoryStream.Create();
      K := Length(Extrait) ;
      Extrait := Copy(Extrait, I, K - I) ;
      Try
        SS:= TStringStream.Create(Extrait) ;
        Try
         EncdDecd.DecodeStream(SS, MS);
        Finally
          SS.Free();
        End;
        MS.Seek(0, soBeginning);
        MS.Position := 0;
        JPEG := TJPEGImage.Create();
        Try
          JPEG.Performance := jpBestSpeed;
          JPEG.Scale := jsEighth;
          JPEG.PixelFormat := jf24Bit;
          Try
            JPEG.LoadFromStream(MS) ;
            Image1.Picture.Assign(JPEG);
          Except
            ShowMessage('Erreur Jpeg') ;
          End ;
        Finally
          JPEG.Free;
        End;
      Finally
        MS.Free;
      End;
    End;
End;
{ ===================================================================== }

et le fichier à afficher issu d'un fichier VCard (voir mon précédent post et mes échanges avec ShaiLeTroll) :

Pièce jointe 627147

A+
Charly

12/10/2022, 09h52
Charly910

Sinon, l’exception envoyée est de type EJpeg
12/10/2022, 15h06
Paul TOTH

1 pièce(s) jointe(s)

alors pour info, ton code - et le mien - ne produisent aucune erreur sous D11 :D

du coup deux possibilités

1) l'image est mal décodée

2) l'image n'est pas lue correctement

est-ce que tu obtiens bien ceci ?Pièce jointe 627180
peux-tu la lire ?
12/10/2022, 16h32
Charly910

Merci Paul,

avec mon code je ne peux pas afficher l'image et j'ai l'erreur Jpeg #60 à l’exécution du exe et aussi dans l'IDE. Dans l'IDE, si je n'arrête pas sur les exceptions j'ai une exception JPEG avec le message "Erreur JPEG #60".

Je n'ai pu la voir que dans les contacts Android dont le fichier Vcf est extrait et dont j'ai isolé la partie PHOTO dans Photo.txt.

Je ne comprends pas pourquoi tu n'as pas d'erreur avec mon code ?

je vais tester sous D10.4 Community.

A+
Charly

PS : ça peut venir de ma version de Jpeg.pas ? j'utilise le dcu, mais je ne sais plus de quel.pas il provient.
12/10/2022, 16h50
Paul TOTH

avec ce code compatible D7 tu peux charger un JPEG, mais aussi PNG et TIF d'ailleurs :)

Super, avec ton code la photo s'affiche :

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
{ ===================================================================== }
procedure TF_Princ.Btn_PhotoClick(Sender: TObject);
var
  Extrait  : String ;
  F : TStringList  ;
  S : String ;
  I, K : Integer ;
  MS : TMemoryStream ;
  SS : TStringStream ;
  JPEG : TJPEGImage ;
Begin
  F := TStringList.Create ;
  Try
    F.LoadFromFile('Photo.txt') ;
    S := '';
    For i := 0 To F.Count-1 Do S := S + F.Strings[i] ;
    Extrait := StringReplace(S, #32, '', [rfReplaceAll]) ;
//    Extrait := StringReplace(Extrait, #13#10#32, '', [rfReplaceAll]);
  Finally
    F.Free ;
  End;
  I := Pos('JPEG:', Extrait);
  If I > 0 then
    Begin
      I := I + Length('JPEG:') ;
      MS := TMemoryStream.Create();
      K := Length(Extrait) ;
      Extrait := Copy(Extrait, I, K - I) ;
      Try
        SS:= TStringStream.Create(Extrait) ;
        Try
         EncdDecd.DecodeStream(SS, MS);
        Finally
          SS.Free();
        End;
        MS.Seek(0, soBeginning);
        MS.Position := 0;
        JPEG := TJPEGImage.Create();
        Try
          JPEG.Performance := jpBestSpeed;
          JPEG.Scale := jsEighth;
          JPEG.PixelFormat := jf24Bit;
          Try
            GDIPLoadBitmapFromStream(Image1.Picture.Bitmap, MS) ;
//            JPEG.LoadFromStream(MS) ;
//            Image1.Picture.Assign(JPEG);
          Except
            ShowMessage('Erreur Jpeg') ;
          End ;
        Finally
          JPEG.Free;
        End;
      Finally
        MS.Free;
      End;
    End;
End;
{ ===================================================================== }

Merci beaucoup, je vais garder précieusement cette unité !

A+
Charly

12/10/2022, 18h35
Paul TOTH

par contre tu perds la Scale :) je me souviens avoir utilisé ce chargement à l'échelle pour une appli de géolocalisation...la vue satellite était lue en fonction du facteur de zoom et ça améliorait grandement les performances ;)