关于显示数据库中图像的问题!

ehom 2002-01-06 08:35:48

如何显示数据库中的JPEG图像,图像数据为ASP中写入的长二进制数据,图像字段为IMG,用ADO进行连接!从Adoquery.FieldValues['IMG']读出的数据为Variant型!
如果要用建立图像临时文件的方法,如何将Variant转为二进制!
先谢了!

...全文

127 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

lubing317 2002-01-07

打赏
举报

能再详细一点吗？

title 2002-01-07

打赏
举报

可以先把数据库中的数据存入一个临时的Blob流里面，然后Tbmp导出就可以了

946 2002-01-07

打赏
举报

提

wisenowa 2002-01-07

打赏
举报

Stream:=TBlobStream.Create(FieldByName('img') as TBlobField, bmRead);
Stream.SaveToStream(ms);
哪句错？
我也没用过这个

ehom 2002-01-07

打赏
举报

没错,先谢了!
为什么
Stream:=TBlobStream.Create(FieldByName('img') as TBlobField, bmRead);
Stream.SaveToStream(ms);
不可以?
我第一次用DELPHI开发软件,也是摹仿来的!

wisenowa 2002-01-07

打赏
举报

TBlobField(FieldByName('i')).SaveToStream(ms);
出错吗？

ehom 2002-01-07

打赏
举报

Stream:=TBlobStream.Create(FieldByName('img') as TBlobField, bmRead);
这样写,为什么显示错误"Invalid class typecast."

wisenowa 2002-01-07

打赏
举报

MoveBy(StrToInt(Edit1.Text));//没用

wisenowa 2002-01-07

打赏
举报

var
ms:tmemorystream;
jp:TJpegImage;
begin
ms:=tmemorystream.Create;
jp:=TJpegImage.Create;
try
with ADOQuery1 do
begin
Open;
First;
MoveBy(StrToInt(Edit1.Text));
TBlobField(FieldByName('i')).SaveToStream(ms);
Close;
end;
ms.Position:=0;
jp.LoadFromStream(ms);
Image1.Picture.Bitmap.Assign(jp);
finally
ms.Free;
jp.Free;
end;
end;

kangyinglai 2002-01-07

打赏
举报

tblobfield(adoquery.fieldbalues['img']).value

ehom 2002-01-07

打赏
举报

那么如何将Adoquery.FieldValues['IMG']读出的数据转为Blob流呢?谢了!

ehom 2002-01-07

打赏
举报

如果用DBimage会出现"Bitmap image is not valid!"
我也想到了用临时文件,但前两天才刚开始第一次用DELPHI开发软件,还不熟习DELPHI对文件的操作!也不知道什么是Blob流!哪位帮帮忙?有示例代码最好!先谢了!

ksxy 2002-01-06

打赏
举报

For BMP, directly display it in some TImage component. For others like JPEG and GIF, you should use JPEG unit or TGIFImage component. JPEG support is enclosed in Delphi while TGIFImage component is a popular component you can dowload from web, and it is aldo free.

ehom 2002-01-06