数据库中某个图像字段存有jpe,bmp,icon,怎样读出来啊?通过读文件头的方法是否可以,怎样做,请给出详细代码?
解决方案 »
- update多字段有什么好办法?
- delphi ado连接远程服务器数据库问题
- XML 编码转换(gb2312 to utf-8)怎么实现?
- ClientDataSet1.CommandText中执行SQL,提示:sqldataset:cannot perform this operation on an open dataset
- 怎样将字符串转化为 OleVariant 类型??
- dephi5程序如何用 winsock2
- 再还一百,闲人莫进。
- 请教取每周日期的时间段问题!!!
- 如何去掉字符串中的所有空格??
- 编辑软件中的转到第n行是怎样实现的?
- TXMLDocument操作xml文件,怎样使用xpath选择节点?
- 为我那因病去世的表哥默哀!散分!
procedure TDM.ViewPhoto(ImagX:TImage;FiledX:TBlobField);
var
B:Tbitmap;
JpegImage:TJpegImage;
BS:TBlobStream;
begin
ImagX.Picture.Assign(nil);
if not FiledX.IsNull then begin
try//如果是Jpeg格式
BS := TBlobStream.Create(TBlobField(FiledX), bmRead);
JpegImage := TJpegImage.Create;
JpegImage.JPEGNeeded;
JpegImage.LoadFromStream(BS);
ImagX.Picture.Assign(JpegImage);
JpegImage.Free;
BS.Free;
except//如果是BMP格式
BS := TBlobStream.Create(TBlobField(FiledX), bmRead);
B:=Tbitmap.Create;
b.LoadFromStream(BS);
ImagX.Picture.Assign(b);
B.Free;
BS.Free;
end;
end;
end;