EVITER LA FENÊTRE ERREUR JPEG #41 SI CHARGEMENT D'IMAGE JPG INVALIDE
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
11 févr. 2005 à 23:14
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 24 août 2006 à 22:25
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 24 août 2006 à 22:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29433-eviter-la-fenetre-erreur-jpeg-41-si-chargement-d-image-jpg-invalide
https://codes-sources.commentcamarche.net/source/29433-eviter-la-fenetre-erreur-jpeg-41-si-chargement-d-image-jpg-invalide
24 août 2006 à 22:25
function LoadImageJpeg(const FromFile: string; ToImage: TImage): Boolean;
var
Bmp: TBitmap;
Jpg: TJpegImage;
begin
Result := True;
Jpg := TJpegImage.Create;
try
try
Jpg.LoadFromFile(FromFile);
Bmp := TBitmap.Create;
try
Bmp.Assign(Jpg);
ToImage.Picture.Assign(Bmp);
finally
Bmp.Free;
end;
finally
Jpg.Free;
end;
except
Result := False;
end;
end;
On peut remarquer qu'en cas d'exception, je ne libère plus les ressources avant de les avoir créées, lol.
A plus...
24 août 2006 à 22:21
24 août 2006 à 22:19
Tu as l'intention d'éplucher tous mes vieux codes ? Moin il y a longtemps que je n'ose plus les regarder...
Pourtant, je l'aimais bien, celui-là.
Mais en le regardant mieux, je note que j'avais mal disposé les instructions à l'intérieur des blocs try ..except et try..finally.
Il apparaît également que ton astuce est plus efficace, car non seulement on économise du code, du temps et de la ressource, mais en plus on cerne précisément l'erreur déclenchée.
Voici quand même la correction de mon code (devenu inutile), en attendant la mise à jour.
Bon, Grandvizir n'avait pas tort, mais il a toujours eu le chic pour m'agacer...
24 août 2006 à 15:31
encore moi ... :-)
Voici un petit truc qui permet de caputer les exceptions JPEG #41, #52, #53 voir plus
je l'ai adapté à ton code et du coup on ne se sert plus de LoadImageJpeg
procedure TForm1.rgChoixClick(Sender: TObject);
var AnImage: String;
begin
case rgChoix.ItemIndex of
0: AnImage := 'Valid.jpg';
1: AnImage := 'NoImage.jpg';
2: AnImage := 'Invalid.jpg';
end;
AnImage := PathAppli + AnImage;
sbInfo.SimpleText := AnImage;
Try
Image1.Picture.LoadFromFile(AnImage);
// il suffit de faire un refresh avant ce qui permet la capture des exceptions en question
Image1.Refresh;
Except
ON E: Exception DO
begin
if cbMessage.Checked then
ShowMessage(E.Message); // la preuve ici ;-)
if cbClearImage.Checked then
Image1.Picture := nil;
End;
End;
end;
GrandVizir n'était pas loin il était sur la bonne piste.
Bien sur à tester en dehors de l'EDI
@+
Cirec
14 févr. 2005 à 15:11
try
Image.Picture.LoadFromFile(*.jpg);
except
on EInvalidGraphic do
DeleteFile(*.jpg);
end;
13 févr. 2005 à 17:55
L'ambiance sur le site est vraiment excellente depuis quelques temps, vraiment.
Beaucoup d'intervenants sont de qualité, par leur science ou/et par leurs qualités humaines.
Tu en fais partie à mon humble avis.
Mais c'est vrai que tu es souvent tranchant et péremptoire dans tes interventions.
Tu as trouvé la méthode efficace pour me faire "monter dans les tours", c'est clair.
Allez, fais pas la gueule, s'il n'y avait pas grandvizir sur ce site, qu'est ce qu'on s'emmerderait ;)
Amitiés Delphistes, mec ;)
13 févr. 2005 à 17:05
13 févr. 2005 à 09:46
Pour iznogoud, j'ai trouvé un adjectif : pédant...
Excuse-moi pour le !o! utilisé plus haut, je n'avais pas eu le temps de l'épiler.
|o| là, ç'est bien mieux.
13 févr. 2005 à 03:02
"Les erreurs Jpeg sont parfois de la crotte"
ok man, tu veux encore casser un code posté par japee, pas de problème, défoule toi, ça te fera du bien à défaut de te dégorger le poireau ;)
Sinon, réfléchis au problème et à sa solution, ça te calmera...
Accessoirement, on a toujours un peu de mal à comprendre ce que tu veux dire, question de terminologie... ou de patois régional ?
12 févr. 2005 à 18:48
try
MonTImage.Picture.LoadFromFile('Fichier.jpg');
except
MonTImage.Refresh;
end;
Les erreurs Jpeg sont parfois de la crotte (un peu comme les EDBEngineError où ça ne tient souvent qu'à un détail). Ca bugge et surtout fait planter tout l'enchaînement des procédures, et fait manquer l'affichage au passage. D'ailleurs, si j'ai bien compris, si jappe passe par un bmp puis affiche, on voit très bien que je prend un raccourci encore plus court. Question d'actualisation... Oh ??
Faudra donc tester la méthode. Je ne sais plus où j'ai entendu parler de l'erreur 41, mais il me semble que cela n'affecte que l'affichage, ou le header même ???
Sinon, pourquoi dis-tu «pervers» ?
12 févr. 2005 à 16:21
Content que ça puisse te servir, c'est fait pour ça.
A ranger dans la catégorie petites astuces qui dépannent bien, quoi...
Je constate avec plaisir que je ne suis pas le seul "pervers" à apprécier la plastique de notre Lio internationale. ;)
12 févr. 2005 à 16:03
En ce qui concerne l'image, tu aurais eu tort de réduire la qualité, nom de d'là, !o!
12 févr. 2005 à 13:44
Ca m'étonnerait que tu puisses abuser, ma science de Delphi a hélas pas mal de limites ;-)
Je viens de faire une mise à jour. Le code précédent fonctionnait mais était inutilement compliqué.
12 févr. 2005 à 05:12
12 févr. 2005 à 00:00
Le code est devenu "un poil" plus complexe.
J'avais manqué de rigueur dans la mise au point de ma fonction, ça peut arriver, c'est une explication, mais c'est pas une excuse... :(
Donc, là, ça baigne.
Encore mes excuses aux 40 premiers qui ont déjà téléchargé !
11 févr. 2005 à 23:14
Je suis allé un peu vite...