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 循环 low high 用法

Delphi 窗口全屏

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi 显示简单图形

Delphi使用正则匹配网页数据

Delphi adoquery判断插入的值是否重复

Delphi 方法的类型

Delphi imagelist-图片（bmp）按名称而不按索引

Delphi tms web core 嵌入js代码

Delphi 获取指定年月的周、日数 -weeksinayear、weeksinyear、daysinayear、daysinamonth、daysinyear、daysinmonth

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

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