后台是用image类型字段存储照片。
后台的照片一部分是bitmap格式(可以用db控件直接显示)
一部分是jpeg格式(不可以用db控件直接显示)。我现在想把把数据读出来,然后显示在前台image上
如何判断是哪种格式呢,我的前台是delphi6.0后台是sql 2000注:下面是分别是显示jpeg和bitmap照片的代码
//jpeg
var
blobstream:TblobStream;
jpegmap:Tjpegimage;
JpegMap:=TJpegImage.Create;
blobstream:=TBlobStream.Create(TBlobField(table1.FieldByName('photo')),bmRead);
JpegMap.LoadFromStream(blobstream);
Image2.Picture.BitMap.Assign(JpegMap);
jpegmap.free;
blobstream.free;
//bitmap
var
blobstream:TblobStream;
bitmap:Tbitmap;
bitmap:=tbitmap.Create;
blobstream:=TBlobStream.Create(TBlobField(table1.FieldByName('photo')),bmRead);
bitmap.LoadFromStream(blobstream);
Image2.Picture.BitMap.Assign(bitmap);
bitmap.free;
blobstream.free;
后台的照片一部分是bitmap格式(可以用db控件直接显示)
一部分是jpeg格式(不可以用db控件直接显示)。我现在想把把数据读出来,然后显示在前台image上
如何判断是哪种格式呢,我的前台是delphi6.0后台是sql 2000注:下面是分别是显示jpeg和bitmap照片的代码
//jpeg
var
blobstream:TblobStream;
jpegmap:Tjpegimage;
JpegMap:=TJpegImage.Create;
blobstream:=TBlobStream.Create(TBlobField(table1.FieldByName('photo')),bmRead);
JpegMap.LoadFromStream(blobstream);
Image2.Picture.BitMap.Assign(JpegMap);
jpegmap.free;
blobstream.free;
//bitmap
var
blobstream:TblobStream;
bitmap:Tbitmap;
bitmap:=tbitmap.Create;
blobstream:=TBlobStream.Create(TBlobField(table1.FieldByName('photo')),bmRead);
bitmap.LoadFromStream(blobstream);
Image2.Picture.BitMap.Assign(bitmap);
bitmap.free;
blobstream.free;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货