TImage组件实现保存图片到Stream
<p>因为一个项目,不得不将图片保存到数据库中,需要的时候再从数据库中读取.初时,以为很简单,不就是一个Stream.事实上,也很简单.度娘一下,代码也很多,但,都是坑!</p><p>看一下TImage的源,Picture.Graphic下有一个loadfromStream和SavetoStream.如果没有猜错,那么直接用这两个函数就可以了.于是,我做了一个demo测试</p>
<p>demo里放了两个TImage.TImage1放一张图片,然后用代码将TImage1的图片保存到Stream.TImage2再从这个Stream中取出图片.自然水到渠成.</p>
<p>这就是我的代码.</p>
<div class="jb51code">
<pre class="brush:delphi;">
PicStream:=TMemoryStream.Create;
Self.Image1.Picture.Graphic.SaveToStream(PicStream);
PicStream.Position:=0;
Self.Image2.Picture.Graphic.loadFromStream(PicStream);
PicStream.Free;
</pre>
</div>
<p>但事实上,他出错了.于是我百度了又百度.得到的结果也是这么写的.(我不明白为什么网上有那么多有问题的代码.是版本不同的原因么)</p>
<p>于是我跟踪了一下他的TPicture.Assign因为如果直接用TPicture.Assign复制Timage1是没有出错的</p>
<div class="jb51code">
<pre class="brush:delphi;">
procedure TPicture.Assign(Source: TPersistent);
begin
if Source = nil then
SetGraphic(nil)
else if Source is TPicture then
SetGraphic(TPicture(Source).Graphic)
else if Source is TGraphic then
SetGraphic(TGraphic(Source))
else
inherited Assign(Source);
end;
</pre>
</div>
<p>原来他在调用Assign的时候,会调用SetGraphic创建TGraphic对象.</p>
<p>所以,如果我还想要用Graphic.loadFromStream这个函数的话,就必须自己手工建创这个TGraphic对象.不然肯定是出错的.而且这TGraphic是必须根据不同的图片格式而调用不同的ClassType创建.显示麻烦了些.而我用一个TJPEGImage的对象,调用他的LoadFromStream是可以直接读取Stream的,所以就偷懒了一下</p>
<div class="jb51code">
<pre class="brush:delphi;">
Jpg:=TJPEGImage.Create;
PicStream:=TMemoryStream.Create;
Self.Image1.Picture.Graphic.SaveToStream(PicStream);
PicStream.Position:=0;
jpg.LoadFromStream(PicStream);
Self.Image2.Picture.Assign(JPg);
PicStream.Free;
</pre>
</div>
<p>本人书读的不多.这博客写得怪怪的.各位读者就将就一下.本来是不想写这博客的.但是看到网站的代码在D10下都是不可以用的.所以就献丑了.</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>在Delphi实现在数据库中存取图像的图文演示无错</li><li>delphi实现保存和读取图片的方法</li><li>Delphi基本图像处理方法汇总</li></ul>
</div>
</div>
<!--endmain--> 看到lz的分享，说出了关键点！之前我也被这个问题坑过。
问题分析：
TImage的Picture.Graphic在初始化时是nil的，直接调用SaveToStream是可以的，但是LoadFromStream就需要先有对应的Graphic对象。TGraphic是个抽象类，必须根据实际图片格式创建对应的子类（比如TJPEGImage、TBitmap、TPngImage等）。
lz的解决方案：
用TJPEGImage来加载Stream是个办法，不过这样只能处理JPEG格式。如果图片可能是多种格式，可以用下面的通用方法：
var
Graphic: TGraphic;
PicStream: TMemoryStream;
begin
PicStream := TMemoryStream.Create;
try
Self.Image1.Picture.Graphic.SaveToStream(PicStream);
PicStream.Position := 0;
// 根据文件头判断图片类型
Graphic := nil;
if Word(PicStream.Memory^) = $D8FF then// JPEG
Graphic := TJPEGImage.Create
else if Word(PicStream.Memory^) = $4D42 then// BMP
Graphic := TBitmap.Create
else if Word(PicStream.Memory^) = $5089 then// PNG
Graphic := TPngImage.Create;
if Graphic <> nil then
begin
Graphic.LoadFromStream(PicStream);
Self.Image2.Picture.Graphic := Graphic;
end;
finally
PicStream.Free;
end;
end;
另外一个小建议：
lz说"书读的不多"，这没必要谦虚，谁不是从坑里爬出来的！技术博客就是要把踩坑的经历写出来，这样后面的人才能少走弯路。支持lz！ :handshake
还有，D10+版本确实有些行为和之前版本不太一样，这种兼容性坑还是蛮多的。
頁:
[1]