相关疑难解决方法(0)

如果我理解正确,请TImage.LoadFromFile从文件扩展名确定图片类型.

有没有办法从TBlobStream原始图像中自动检测图像类型？

我目前的代码:

procedure LoadImageFromStream(AImage: TImage; ADataSet: TDataSet);
var
  Stream: TStream;
begin
  Stream := ADataSet.CreateBlobStream(Field, bmRead);
  try
    AImage.Picture.Graphic.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end

我试图用来image1.Picture.LoadFromFile(MyTiffFile)加载tiff文件Timage,但不支持tiff.

有没有办法在不使用任何第三方库的情况下实现这一目标？