频道分类

Delphi 中 TJpegImage 中的一处问题修复

作者:admin 来源: 日期:2020/2/22 14:18:51 人气: 标签:

 
uses  JPEG;


function CanLoadFromStream(Stream: TStream): Boolean;
var
  soi, marker: Word;
  P: Int64;
begin
  P := Stream.Position;
  try
    Result := (Stream.Read(soi, SizeOf(soi)) = SizeOf(soi)) and (soi = $D8FF);
  finally
    Stream.Position := P;
  end;
end;


来源:http://blog.qdac.cc/?p=5174