各位大哥!如何显示保存在SQL Server中的图片???

sunshinning 2003-10-19 03:09:36
我想把保存在SQL Server中的图片(二进制格式)显示出来,除了使用DBIMage之外,用什么办法??谢谢!
...全文
51 10 打赏 收藏 转发到动态 举报
写回复
用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
  • 打赏
  • 举报
回复
有没有人关注一下啊

1,178

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder 数据库及相关技术
社区管理员
  • 数据库及相关技术社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧