Prüfen, ob Datei ein PNG ist

[CalganX]

Von Hador kommt folgende Funktion, um zu prüfen, ob eine angegebene Datei ein PNG-Bild ist:

Delphi-Quellcode:

function IsPNG(const AFileName: String): Boolean; 
var 
  FileHandle: Integer; 
  Buffer: array[0..2] of Byte;  
begin 
  FileHandle := FileOpen(AFileName, fmOpenRead); 
  FileSeek(FileHandle, 1, 0); 
  FileRead(FileHandle, Buffer, 3); 
  FileClose(FileHandle); 
  Result := (Buffer[0] = $50) and (Buffer[1] = $4E) and (Buffer[2] = $47); 
end;