Discussion :

[YanK]

Ben non j'ai pas l'impression :

Code :

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

1
2
procedure jpeg_save_markers(var cinfo: jpeg_decompress_struct; marker_code: Integer; length_limit: UINT); {$IFDEF LINUX} cdecl; {$ENDIF}
  external {$IFDEF JPEGSO} 'libjpeg.so' name 'jpeg_save_markers' {$ENDIF};

[Bestiol]

Arf !! J'y comprend plus rien !

On a du zapper quelque chose... Veux-tu que je t'envoie ma version pour que tu voies si ça marche chez toi ?!

Au passage tu as bien copié tous les fichiers .obj du répertoire infos\extras\jpeg\obj sur ton dur ??

[YanK]

J'avais du oublier des Obj car je les ai recopié et je n'ai plus l'erreur.
Je vais tester une image dans un nouveau projet. Car la mon appli est trop grande pour trouver d'ou vient le probleme

[YanK]

Tout compte fait je veux bien ce que tu as fait, car la je pige plus rien, ca ne marche pas.

[YanK]

Voila je remerci Bestiol pour son aide et je met son code pour ceux qui chercheraient à faire la même chose.
Donc modifier le jpg.pas comme expliqué dans les posts précédents et voici le code pour choper les Exceptions :

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
21
22
23
procedure TForm1.Button7Click(Sender: TObject);
var fichier: String;
    jpeg: TJPEGImage;
begin
  if not PromptForFileName(Fichier, 'JPEG (*.jpg)|*.jpg') then Exit;
 
  Edit5.Text := Fichier;
 
  try
  jpeg := TJPEGImage.Create;
  jpeg.LoadFromFile(Edit5.Text);
  jpeg.DIBNeeded;
 
  Image1.Picture.Bitmap.Assign(jpeg);
  except
    on e: EJPEG do
    begin
      ShowMessage(e.Message);
      jpeg.Free;
    end;
  end;
 
end;

Et ca marche! Je remerci toutes les personnes ayant participé à ce post.

[Bestiol]

mmmmh y a un ptit pb dans mon code !

Le jpeg.free ne sera pas appelé à chaque fois, mais que s'il y a une erreur !

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
21
22
23
procedure TForm1.Button7Click(Sender: TObject);
var fichier: String;
    jpeg: TJPEGImage;
begin
  if not PromptForFileName(Fichier, 'JPEG (*.jpg)|*.jpg') then Exit;
 
  Edit5.Text := Fichier;
 
  try
    try
      jpeg := TJPEGImage.Create;
      jpeg.LoadFromFile(Edit5.Text);
      jpeg.DIBNeeded;
 
      Image1.Picture.Bitmap.Assign(jpeg);
    except
      on e: EJPEG do ShowMessage(e.Message);
    end;
  finally
    jpeg.Free;
  end;
 
end;

Vala qui est mieux !