استفسار عن كيفية تحديد نوع الملف

السلام عليكم

تتميز ملفات Jpeg/JFIF بـ header ثابت وهو أول 2 بايت في الملف حيث يجب أن يكون أول بايت في الملف $FF والثاني $D8

وهذه داله بسيطة لمعرفة هل الملف من هذا النوع أم لا

function IsJpegFile(const FName:string):boolean;
var f : file of byte;
    a,b: byte;
begin
        AssignFile(f,FName);
        Reset(f );
        Read(f,a,B);
        if (a=$FF) and (b=$D8) then
           Result := true
        else Result := false;
        CloseFile(f );
end;

لاحظ انه يفحص فقط الهيدر مع العلم انه ايضاً يوجد لهذه الملفات trailer مميز لابد أن تنتهي به وهو $FF و $D9

تحياتي لك ،،،