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 直接将html字符串读入webbrowser中

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi中tstringlist分割字符串的用法

Delphi获得某个磁盘或是文件夹的所有子目录

Delphi memo1 统计行 列

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

Delphi使用hough变换查找直线

Delphi识别android设备的电池电量

Delphi 实现执行外部程序，并等待程序结束的函数

Delphi驱动方式winio模拟按键

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

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