Delphi 中 TJpegImage 中的一处问题修复

本文整理自网络，侵删。

 
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

 

相关阅读 >>

Delphi数组之菜鸟篇

Delphi gettempdirectory 获取临时文件夹路径

Delphi中使用临界区来让线程同步

Delphi edit1.gettextlen 获取编辑框字符数

Delphi 让子窗体显示最大化

firemonkey使用android的路径信息

Delphi 增加/获得windows用户帐号

Delphi研究之驱动开发篇（二）--工具及环境搭建

Delphi richedit的内容保存为图片

Delphi 过滤所有空格的函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 中 TJpegImage 中的一处问题修复