Détection type de fichier

Version imprimable

Bonjour,

Non, j'ai rien à demander, mais comme j'ai écris ça vite fait, je me disais que ça pouvait servir à d'autres.

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
 
unit UnitFileType;
 
interface
 
uses
  System.SysUtils, System.Classes, System.IOUtils, System.rtti;
 
type
  TImageType = (ifUnknown, ifJPG, ifBMP, ifPNG, ifPDF, ifGIF);
 
  TRecSign = record
    Name: string;
    ImageType: TImageType;
    Header: array of byte;
  end;
 
  TRetour = reference to procedure(Rec: TRecSign);
 
procedure ListImageTypes(Retour: TRetour);
function GetFileTypename(Filename: String): string;
function GetFileType(Filename: String): TImageType;
function GetFileTypeStr(Filename: String): string;
 
implementation
 
const
 
  RecSigns: array [Succ(Low(TImageType)) .. High(TImageType)] of TRecSign = (
    (Name : 'Jpeg'  ; ImageType: TImageType.ifJPG; Header: [$FF, $D8, $FF, $E0]),
    (Name : 'Png'   ; ImageType: TImageType.ifPNG; Header: [$89, $50, $4E, $47]),
    (Name : 'PDF'   ; ImageType: TImageType.ifPDF; Header: [$25, $50, $44, $46]),
    (Name : 'GIF'   ; ImageType: TImageType.ifGIF; Header: [$47, $49, $46, $38]),
    (Name : 'Bitmap'; ImageType: TImageType.ifBMP; Header: [$42, $4D])
  );
 
procedure ListImageTypes(Retour: TRetour);
var
  Rc: TRecSign;
begin
  for Rc in RecSigns do
    Retour(Rc);
end;
 
function GetFileTypename(Filename: String): string;
var
  RecSign: TRecSign;
  H: Cardinal;
  Bts: TBytes;
  Mx: NativeUInt;
begin
  Result := '';
 
  Mx := 0;
  for RecSign in RecSigns do
  begin
    if Mx < Length(RecSign.Header) then
      Mx := Length(RecSign.Header);
  end;
 
  H := FileOpen(Filename, fmOpenRead);
  if H <> INVALID_HANDLE_VALUE then
  begin
 
    SetLength(Bts, Mx);
    FileRead(H, Bts, 0, Mx);
    FileClose(H);
 
    for RecSign in RecSigns do
    begin
      if CompareMem(Bts, RecSign.Header, Length(RecSign.Header)) = True then
      begin
        Result := RecSign.Name;
        Break;
      end;
    end;
 
  end;
 
end;
 
function GetFileType(Filename: String): TImageType;
var
  RecSign: TRecSign;
  H: Cardinal;
  Bts: TBytes;
  Mx: NativeUInt;
begin
  Result := TImageType.ifUnknown;
 
  Mx := 0;
  for RecSign in RecSigns do
  begin
    if Mx < Length(RecSign.Header) then
      Mx := Length(RecSign.Header);
  end;
 
  H := FileOpen(Filename, fmOpenRead);
  if H <> INVALID_HANDLE_VALUE then
  begin
 
    SetLength(Bts, Mx);
    FileRead(H, Bts, 0, Mx);
    FileClose(H);
 
    for RecSign in RecSigns do
    begin
      if CompareMem(Bts, RecSign.Header, Length(RecSign.Header)) = True then
      begin
        Result := RecSign.ImageType;
        Break;
      end;
    end;
 
  end;
 
end;
 
function GetFileTypeStr(Filename: String): string;
var
  T: TImageType;
begin
  T := GetFileType(Filename);
  Result := TRttiEnumerationType.GetName(T);
end;
 
end.

Utilisable d'ailleurs avec l'unité ci-dessous qui permet créer une image en centrant une image dans une autre.
Code sans doute à améliorer, donc j'apprécie toute idée de votre part

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
 
unit UnitMergeImages;
 
interface
 
uses
  Winapi.Windows, System.SysUtils, System.Classes, System.IOUtils,
  Vcl.Graphics, Vcl.Imaging.pngimage, Vcl.Imaging.Jpeg, Vcl.Dialogs,
  UnitFileType;
 
procedure MergeAndCenter(BmpSrce: TBitmap; var BmpDest: TBitmap); overload;
procedure MergeAndCenter(Filename: TFileName; var Bmp: TBitmap); overload;
 
implementation
 
type
  TMode = (mEgal, mPortrait, mPaysage);
  TMyGraph = class of TGraphic;
 
procedure MergeAndCenter(BmpSrce: TBitmap; var BmpDest: TBitmap);
var
  Mode: TMode;
  Rct: TRect;
  Ratio: Single;
  W, H: Integer;
begin
 
  // Préparation du conteneur au format A4
  BmpDest.SetSize(Trunc(210 / (25.4 / GetDeviceCaps(BmpDest.Canvas.Handle, LOGPIXELSX))),
    Trunc(297 / (25.4 / GetDeviceCaps(BmpDest.Canvas.Handle, LOGPIXELSY))));
 
  if BmpSrce.Width > BmpSrce.Height then
    Mode := TMode.mPaysage
  else if BmpSrce.Width < BmpSrce.Height then
    Mode := TMode.mPortrait
  else
    Mode := TMode.mEgal;
 
  case Mode of
 
    mEgal:
      begin
        if BmpDest.Width > BmpSrce.Width then
          Ratio := 1
        else
          Ratio := BmpDest.Width / BmpSrce.Width;
        W := Round(BmpSrce.Width * Ratio);
        H := Round(BmpSrce.Height * Ratio);
      end;
 
    mPaysage:
      begin
        if BmpDest.Width > BmpSrce.Width then
          Ratio := 1
        else
          Ratio := BmpDest.Width / BmpSrce.Width;
        W := Round(BmpSrce.Width * Ratio);
        H := Round(BmpSrce.Height * Ratio);
      end;
 
    mPortrait:
      begin
        if BmpDest.Height > BmpSrce.Height then
          Ratio := 1
        else
          Ratio := BmpDest.Height / BmpSrce.Height;
        W := Round(BmpSrce.Width * Ratio);
        H := Round(BmpSrce.Height * Ratio);
      end
 
  else
    begin
      W := 0;
      H := 0;
    end;
 
  end;
 
  Rct.SetLocation((BmpDest.Width - W) div 2, (BmpDest.Height - H) div 2);
  Rct.Width := W;
  Rct.Height := H;
 
  BmpDest.Canvas.StretchDraw(Rct, BmpSrce);
 
end;
 
procedure MergeAndCenter(Filename: TFileName; var Bmp: TBitmap);
 
  procedure Lt(Cls: TMyGraph);
  var
    G: TGraphic;
    BmpSrce: TBitmap;
  begin
    G := Cls.Create;
    G.LoadFromFile(Filename);
 
    if not Assigned(Bmp) then
      Bmp := TBitmap.Create;
 
    BmpSrce := TBitmap.Create;
    BmpSrce.Assign(G);
    MergeAndCenter(BmpSrce, Bmp);
    FreeAndNil(BmpSrce);
 
    FreeAndNil(G);
  end;
 
begin
 
  case UnitFileType.GetFileType(Filename) of
 
    ifUnknown:
      raise Exception.Create('Format image non supporté! (.bmp, .jpg, .png)');
 
    ifJPG:
      Lt(TJPEGImage);
 
    ifBMP:
      Lt(TBitmap);
 
    ifPNG:
      Lt(TPngImage);
 
  end;
 
end;
 
end.

28/01/2020, 10h47
ShaiLeTroll

Bonjour,
Principe des Magic Numbers, on avait déjà une fonction Delphi avec beaucoup de type
Je pars en réunion mais si je la retrouve après, je la mets ici
28/01/2020, 11h04
Papy214

Tout à fait, les magic numbers ....
Je l'avais codé en PHP et je l'ai refaite en Delphi pour le fun.

C'est du code sans prétention, juste pour aider :)
28/01/2020, 11h46
tourlourou

Bonjour,

Pour le format jpeg, on en a un cas particulier débutant par FFD8 FFE0 :

(Name : 'JFIF' ; ImageType: TImageType.ifJPG; Header: [$FF, $D8, $FF, $E0]),
Name : 'Jpeg' ; ImageType: TImageType.ifJPG; Header: [$FF, $D8]),
28/01/2020, 11h49
Papy214

pour être encore plus précis il y a 3 types différents apparemment si j'en crois ce site:

https://filesignatures.net/index.php...h=JPG&mode=EXT

Je me suis basé sur les valeurs communes mais on peut faire le distinguo :)
28/01/2020, 13h03
tourlourou

FFD8 en tête signe un jpeg
s'il comporte des métadonnées supplémentaires, il est suivi d'un marqueur application valant de FFE0 à FFEF :
- si elles sont au format JFIF, il est suivi de FFE0
- si elles sont au format EXIF, il est suivi de FFE1
28/01/2020, 23h07
Jipété

1 pièce(s) jointe(s)

Et vous oubliez FF D8 FF ED dont on a parlé là il y a quelques mois.

D'ailleurs j'ai posté une bêtise dans ce sujet en écrivant "ED" à l'adresse 03 c'est pas bon. : c'est faux, c'est bon, c'est juste un fichier jpeg fabriqué par Photoshop, comme l'indique la suite des premiers octets vue dans un éditeur hexa :

Pièce jointe 534253

Une bonne approche serait donc de ne se fier qu'aux deux premiers octets.
29/01/2020, 09h38
Papy214

Discussion intéressante qui montre les limitations de certains composants ...

Après, pour le JPG, que ce soit sur les 2 premiers ou les 3 premiers octets, ça doit revenir au même puisque dans tous les cas évoqués, FF est toujours en troisième position.

La question que je me pose après tout ça est : "Comment peut-on être sùr et certain de ne pas confondre 2 types de fichiers ?"
Est-ce ces "magic numbers" sont décidés de façon concertée ou est-ce le pur hasard si aucun n'a le même header ?
29/01/2020, 10h09
Paul TOTH

Citation:

Envoyé par Papy214

Discussion intéressante qui montre les limitations de certains composants ...

Après, pour le JPG, que ce soit sur les 2 premiers ou les 3 premiers octets, ça doit revenir au même puisque dans tous les cas évoqués, FF est toujours en troisième position.

La question que je me pose après tout ça est : "Comment peut-on être sùr et certain de ne pas confondre 2 types de fichiers ?"
Est-ce ces "magic numbers" sont décidés de façon concertée ou est-ce le pur hasard si aucun n'a le même header ?

il n'y a pas de concertation ce sont des données empiriques...l'avantage d'avoir une base en ligne comme filesignatures.net c'est qu'ils sont à même de déterminer si la signature est suffisante pour distinguer deux types de fichiers différents
29/01/2020, 11h24
Papy214

Citation:

il n'y a pas de concertation ce sont des données empiriques...l'avantage d'avoir une base en ligne comme filesignatures.net c'est qu'ils sont à même de déterminer si la signature est suffisante pour distinguer deux types de fichiers différents

Ok ! J'avais récupéré le fichier complet des signatures sur le site.
Quand j'aurai 5 min, je m'amuserai à chercher des doublons, juste par curiosité :)