TESTER DANS UN TPICTURE SI L'IMAGE EST AU FORMAT GIF
cs_PascalZ
Messages postés
13
Date d'inscription
samedi 8 février 2003
Statut
Membre
Dernière intervention
4 juillet 2012
-
17 déc. 2003 à 21:15
cs_PascalZ Messages postés 13 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 4 juillet 2012 - 17 déc. 2003 à 21:15
cs_PascalZ Messages postés 13 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 4 juillet 2012 - 17 déc. 2003 à 21:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/18695-tester-dans-un-tpicture-si-l-image-est-au-format-gif
https://codes-sources.commentcamarche.net/source/18695-tester-dans-un-tpicture-si-l-image-est-au-format-gif
17 déc. 2003 à 21:15
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;