Discussion :

[Champy_33]

Bonjour

J'envisage de me fabriquer un petit logiciel afin de ranger des BMP (plus de 3000) par 'similitude de contenu'. En fait, il s'agit de textures appliquées sur des modèles d'avions d'un simulateur de vol, que je souhaite classer selon divers critères et de manière itérative.

Le problème, c'est que Delphi (V7) refuse une fois sur deux de charger ces fichiers dans un TBitmap, me communiquant régulièrement une erreur de lecture. Ce qui est d'autant plus bizarre, c'est que ces fichiers s'ouvrent très bien avec PaintShop (ou autres) !

Ou peut donc se situer le problème, s'il vous plait ?

Merci d'avance.
Champy_33

[andreditdd]

Bienvenu sur le forum,
un petit bout de code ou une expliquation sur la façon dont tu charge tes BMP serait bien venu afin que l'on puisse t'aider.

André

[Champy_33]

OK, merci

Voici l'exemple le plus simple qu'on puisse implémenter et qui, comme je l'ai expliqué plus haut, ne marche pas avec certains bmp.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    OD: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Bit : TBitmap;
begin
  if OD.Execute then begin
    Bit:=TBitmap.Create;
    Bit.LoadFromFile(OD.FileName);
    Bit.Free;
  end;
end;
 
end.

[Franck SORIANO]

Et quand ça ne marche pas, tu as qu'elle erreur exactement ?
Est-ce que c'est toujours sur les mêmes images, ou est-ce que c'est au bout d'un certain nombre de lectures ?

[Champy_33]

L'erreur est tout simplement 'EReadError', autant dire que je n'en sais pas plus...
J'ai tout de même remarqué qu'un fichier qui ne veut pas s'ouvrir une première fois, continue de réagir de même. Pour ceux qui se sont déjà ouverts, c'est très aléatoire...

[CapJack]

J'ai très souvent eu ce problème, résolu parfois en chargeant le bitmap dans 'toshop, et en le sauvegardant sous un nom différent... TBitmap a vraiment des problèmes avec les bitmaps non standards.