HanDs
NO.2

[Delphi文章] 判断一个文件是不是JPG图片文件 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

根据扩展名判断,只是一种简单方法.下面是根据文件头和文件尾判断.

//Code By LihuaSoft

function IsJpegFile(FileName: string): Boolean;
const
RightBuf : array[0..3] of Byte = ($FF,$D8,$FF,$D9);
var
Buf: array[0..3] of Byte;
begin
FillChar(Buf, 4, 0);
with TFileStream.Create(FileName, 0) do begin
    Position := 0;
    ReadBuffer(Buf[0], 2);
    Position := Size-2;
    ReadBuffer(Buf[2], 2);
    Free;
end;
Result := CompareMem(@RightBuf[0], @Buf[0], 4);
end;

procedure TForm1.Button1Click(Sender: TObject);//测试
begin
if Self.OpenDialog1.Execute then
    if IsJpegFile(Self.OpenDialog1.FileName) then
      Showmessage('Is Jpg File');
end;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
判断
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组