社区
数据库及相关技术
帖子详情
各位大哥!如何显示保存在SQL Server中的图片???
sunshinning
2003-10-19 03:09:36
我想把保存在SQL Server中的图片(二进制格式)显示出来,除了使用DBIMage之外,用什么办法??谢谢!
...全文
63
10
打赏
收藏
各位大哥!如何显示保存在SQL Server中的图片???
我想把保存在SQL Server中的图片(二进制格式)显示出来,除了使用DBIMage之外,用什么办法??谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
13312933476
2003-10-20
打赏
举报
回复
好像ADO不能从数据库里取出大于200K的数据图片哟!不能显示大于200K
的图片!!
sunshinning
2003-10-20
打赏
举报
回复
我要显示图片,并不想将此图片保存在硬盘中啊!各位高手帮忙啊!!
yst_killed
2003-10-20
打赏
举报
回复
xuexi
sunshinning
2003-10-20
打赏
举报
回复
啊,要是这样我就惨了,我的图片都是超过200K的啊!
sunshinning
2003-10-19
打赏
举报
回复
谢谢,我试一下阿!非常感谢!!
zzhong2
2003-10-19
打赏
举报
回复
不用TDBImage还可以用TImage
zzhong2
2003-10-19
打赏
举报
回复
SQL中存图片的数据类型一定要是image
存jpeg到SQL数据库:
if(OpenPictureDialog1->Execute())
{
ADOQuery1->Edit();
TBlobField *Field = (TBlobField*)ADOQuery1->FieldByName("photo");
Field->LoadFromFile(OpenPictureDialog1->FileName);
ADOQuery1->Post();
}
//以下是从数据库读jpeg
#include <clipbrd.hpp>
TStream *Stream1;
TJPEGImage *Pjp;
Pjp=new TJPEGImage();
ADOQuery1->Open();
try
{
Stream1=ADOQuery1->CreateBlobStream(ADOQuery1->FieldByName("treenodes"), bmRead);//treenodes是存放jpeg内容的字段,它的类型一定要用image
Pjp->LoadFromStream(Stream1);
//Image2是TDBImage组件,它的DateSource,和FieldName属性要空着
Image2->Picture->Bitmap->Assign(Pjp);
delete Stream1;
}
__finally
{
ADOQuery1->Close();
delete Pjp;
}
下面是别人的更好的方法,可存各种图形
以下是讀出各種類型的圖片的程序,支持ADO,BDE或TClientDataSet
#define PICTURE_MAP__(TBit) {TBit *PG = new TBit(); \
try {PG->LoadFromStream(TmpStream);\
Pic->Assign(PG); \
}\
catch(...)\
{delete PG ;\
return false;\
}\
delete PG;\
}
//----------------------------------------------------------------
//該模板將二進制字段中的圖像(GIF或JPG等等)使用Assign方法轉為TPicture,TBitmap等等。
template <class T >
bool LoadPhotoFromField(TField *F_Photo,const AnsiString Format,T *Pic)
{if(!F_Photo->DataSet->Active) return false ;
if(F_Photo->IsNull) return false ;
else
{TStream *TmpStream = F_Photo->DataSet->CreateBlobStream(F_Photo,bmRead);
if(Format == ".JPG" || Format == ".JPEG")PICTURE_MAP__(TJPEGImage )
else if(Format == ".BMP") PICTURE_MAP__(Graphics::TBitmap)
// else if(Format == ".GIF") PICTURE_MAP__(TGIFImage )
else if(Format == ".ICO") PICTURE_MAP__(TIcon)
else if(Format == ".WMF" || Format ==".EMF") PICTURE_MAP__(TMetafile)
else return false ;
}
return true;
}
#undef PICTURE_MAP__(TBit)
//如果要支持GIF,那你要安裝支持GIF的VCL類。
支持多種格式
存入:
if(OpenPictureDialog1->Execute())
{DataSet->Edit();
TBlobField *Field = (TBlobField*)DataSet->FieldByName("photo");
Field->LoadFromFile(OpenPictureDialog1->FileName);
DataSet->FieldByName("photoFormat")->AsString =
ExtractFileExt(OpenPictureDialog1->FileName).UpperCase();
DataSet->Post();
}
sunshinning
2003-10-19
打赏
举报
回复
谢谢!感激涕零!!怎么找得到啊!
freshman2003
2003-10-19
打赏
举报
回复
FAQ,要不要我帮你找?
sunshinning
2003-10-19
打赏
举报
回复
有没有人关注一下啊
MS-
SQL
Server
基础类 -
SQL
语句
vb/vb.net开发技巧荟萃(六)
300元请人做一个自动点击领取的软件 300元请人做一个自动点击领取的软件 vb
中
如何将excel导入到
sql
server
的数据库
中
vb调用vc动态连接库问题!!(100分求)
SQL
查询问题??会的快来 已会C++, 再学习VB还是C#? 如何在用一个程序打开一个文件的同时,用另一程序获取该文件的文件名? VB
中
如何用ADO从ORACLE
中
复制一个表到AC...
vb/vb.net开发精粹(8)
300元请人做一个自动点击领取的软件 300元请人做一个自动点击领取的软件 vb
中
如何将excel导入到
sql
server
的数据库
中
vb调用vc动态连接库问题!!(100分求)
SQL
查询问题??会的快来 已会C++, 再学习VB还是C#? 如何在用一个程序打开一个文件的同时,用另一程序获取该文件的文件名? VB
中
如何用ADO从ORACLE
中
复制一个表到ACCESS数据库
数据库帖子收集
这样的数据列表在存储过程
中
应该怎么样选择得到? 请问造成
SQL
2000服务不能启动的原因有哪些?
sql
server
中
有無類似于if 的函數,即像這樣select if(cancel=1,'cancel','') from sales 这样怎么返回呀!!!!记录集的返回。。 谁能跟我说说期初库存怎么样的一个业务逻辑!都要处理哪些内容!需要每月进...
请教一个SQL2000的安装问题
是这样的,我之前安装了一个SQL2000,后来数据库出了点问题,我就把数据库卸载了.现在重新安装SQL2000,到了安装"程序文件"和"数据文件"这一步时,安装系统提示出错.下面是出错的提示语:安装文件夹
中
的文件与列与注册表
中
的现有安装不对应.继续之前,请删除这些文件或选择一个新的安装文件夹.我不想选择一个新的安装文件夹,请问各位
大哥
如何删除这些文件或修改注册表.小弟在线急等1。将Prog
数据库及相关技术
1,178
社区成员
18,939
社区内容
发帖
与我相关
我的任务
数据库及相关技术
C++ Builder 数据库及相关技术
复制链接
扫一扫
分享
社区描述
C++ Builder 数据库及相关技术
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章