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的字符串与16进制的相互转换函数的汇编代码

wmi cim_datafile的33个属性

Delphi实现dbgrid全选和反选功能

Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie

Delphi建立文件的快捷方式

Delphi 控制n个字符间距空格

Delphi 统计中英文字个数的例子

Delphi 修改exe应用程序图标

Delphi反调试【初级】检测法

Delphi 2009 之 tstringbuilder 类[1]: create

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

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