Discussion :

[colorid]

Bonjour,

Quelqu'un peut-il me fournir le code source de la lacture de la largeur et la hauteur d'un bitmap sans ouvrir le fichier en extrayant ces informations de l'entête du fichier ?

Merci d'avance

[colorid]

Voici le code :

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
function GetBMPHeight_Width( const FileName: TFileName;
                                          var BMP_W,BMP_H : Integer):boolean;
var
  FileStream:  TFileStream;
  InfoHeader:  TBitmapInfoHeader;
begin
  result:= fileExists(FileName);
  if result then
  begin
    FileStream := TFileStream.Create(FileName,fmOpenRead OR fmShareDenyNone);
    try
      FileStream.Seek(SizeOf(TBitmapInfoHeader), soFromBeginning);
      FileStream.Read(InfoHeader, SizeOf(InfoHeader));
      BMP_W:= InfoHeader.biWidth;
      BMP_H:= InfoHeader.biHeight;
    finally
      FileStream.Free;
    end;
  end;
end;

Merci tout de même à tous et particulièrement aux 20 delphinautes qui ont lus la question

[colorid]

Bonjour,

Quelqu''un sait-il comment surcharger la fonction Tbitmap.LoadFromFile() de manière à ce que avant de charger la bitmap cette fonction appele une procedure externe d'une DLL comme celle que je viens de publier en réponse à la question précédente "Lecture dans BmpHeader largeur et hauteur" afin d'initialiser les deux variables générale CurentWidthBMP et CurentHeightBMP

Un exemple de code serait bienvenu

Merc à tous les delphinautes

colorid