TESTER DANS UN TPICTURE SI L'IMAGE EST AU FORMAT GIF

Commentaire de PascalZ le 17/12/2003 21:15:00

une autre bonne méthode :

TImageType = (I_Jpeg, I_BMP, I_GIF, I_PNG, I_Unknow);

function GetImageType(FileName: String): TImageType;
var
  FS: TFileStream;
  Buff: String;
begin
  SetLength(Buff, 3);
  FS := TFileStream.Create(FileName, fmOpenRead + fmShareDenyNone);
  with FS do
  begin
    Read(Buff[1], 3);
    if (Ord(Buff[1]) = $FF) and (Ord(Buff[2]) = $D8) then result := I_Jpeg
    else if (Ord(Buff[1]) = $42) and (Ord(Buff[2]) = $4D) then result := I_BMP
    else if Buff = 'GIF' then result := I_GIF
    else if (Ord(Buff[1]) = $89) and (Ord(Buff[2]) = $50) and (Ord(Buff[3]) = $4E) then
      result := I_PNG
    else result := I_Unknow;
    Free;
  end;
end;