Fichiers BMP d'un format 'spécial'

Version imprimable

10/10/2008, 00h28
Champy_33

Fichiers BMP d'un format 'spécial' [Résolu]

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
10/10/2008, 09h27
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é

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:

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.

10/10/2008, 13h30
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 ?
10/10/2008, 19h40
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...
10/10/2008, 20h45
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.
10/10/2008, 21h02
Champy_33

Merci CapJack

J'ai moi aussi pensé à la solution qui consiste à ouvrir chaque fichier dans PaintShop et à le sauvegarder sous un autre nom. Cependant, je ne vois pas le faire pour plus de 3000 fichiers...
J'aimerais simplement savoir pourquoi ça coince, afin d'y remédier de manière 'logicielle'.

Champy
11/10/2008, 06h33
Franck SORIANO

Citation:

L'erreur est tout simplement 'EReadError', autant dire que je n'en sais pas plus...

Ca ne dit pas grand chose en effet...

Dans ce cas, je ne vois qu'une seule façon d'avancer : Essaie de compiler l'appli avec les sources de la VCL (inclus le fichier Graphics.pas dans ton projet) et passe en debug dans le code de lecture du TBitmap.
L'erreur doit probablement se déclencher quelque part dans TBitmap.ReadDIB.

Ca devrait te permettre de comprendre ce qui se passe.
11/10/2008, 10h30
Champy_33

Bravo Franck.

Ton pronostic s'avère parfait, car c'est en effet dans ReadDIB qu'il y a un problème. Cependant, j'ai beau suivre les lignes de code en 'pas à pas', j'avoue que je ne comprends pas trop ce qu'il se passe.
L'erreur se déclenche au moment où l'appli a besoin de copier (lire) les bits de l'image dans un buffer - Stream.ReadBuffer(BitMem^,ImageSize)
Visiblement, le nombre de données lues est différent de celui prévu et la procédure 'raise' une erreur.
Il faut dire qu'il existe moult formats de fichiers et la taille de l'image est progressivement réduite au fur et à mesure que ses diverses entêtes sont lues. Mais ne connaissant pas le format 'exact' de mes fichiers, je ne peux malheureusement pas deviner où il y a une erreur...

Merci dans tous les cas. Mais je crois que je n'irai pas plus loin, parce que ça dépasse un peu mes modestes compétences.
Je trouve quand même étonnant qu'aucun fana de jeux n'ait rencontré (et résolu) ce problème avant moi.

Champy

Bonjour

A force de 'bricoler' pendant de longues heures d'énervement, j'ai enfin trouvé comment remédier à mon problème de chargement de certains fichiers bmp.
Il faut copier le fichier 'graphic.pas' d'origine dans son répertoire de sources, afin qu'il soit utilisé à la place de l'originel (Merci Franck). Ensuite, il faut modifier le code d'une de ses procédures comme suit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 procedure TBitmap.ReadDIB(Stream: TStream; ImageSize: LongWord; bmf: PBitmapFileHeader); ... ... try {$IFDEF LINUX} // I need to pre-touch the memory in 4096 byte increments to ensure // the read will succeed. WINE marks this memory as not present to // catch when we make changes to it. If we read directly into it // Linux will (correctly) terminate the read with a failure since an // exception occured during the read. We need to make sure these // exceptions are triggered in user space instead of kernel. for I := 1 to (ImageSize + 4095) div 4096 do PByteArray(BitsMem)^[(I - 1) * 4096] := 0; {$ENDIF} // !!! Il faut retirer 2 octets à l'ImageSize pour que ça marche !!! Stream.ReadBuffer(BitsMem^, ImageSize-2); except DeleteObject(BMHandle); raise; end; ...
Voilà. Après cette minuscule modification, les bmp 'normaux' se chargent toujours sans problème (tout du moins ceux que j'ai en magasin...), ainsi que ceux issus du jeu de simulation de vol IL2 FB.
En conclusion, je pense pouvoir avancer sans trop me tromper que le format de ces bmp ne respecte pas à la lettre un des standards 'normaux'. Néanmoins, je ne peux pas affirmer que les formats 'normaux' de bmp seront tous lus sans erreur suite à la modification que je propose.

Si ça peut arranger quelques développeurs...

Champy

15/10/2008, 19h29
Franck SORIANO

Citation:

Néanmoins, je ne peux pas affirmer que les formats 'normaux' de bmp seront tous lus sans erreur suite à la modification que je propose.

Vu le code que tu modifies, sur les formats "normaux" tu ne devrais pas avoir d'erreur. Par contre tu risques de perdre la couleur d'un ou deux pixels au début ou à la fin...
15/10/2008, 21h01
tourlourou
je trouve ça dans mon Graphics.pas (D5)
Code:

1 2 3 4 with bmiHeader do begin //**** if biSizeImage < ImageSize then ImageSize := biSizeImage;
regarde si jamais tu as une différence entre les 2 bmiHeader.biSizeImage et ImageSize, à tout hasard
16/10/2008, 00h42
Champy_33

Merci
Je vais vérifier ça dans les jours qui viennent.

Champy