DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: lixuan123
今日帖子: 18
在线用户: 5
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 yuvo (yuvo) ★☆☆☆☆ -
普通会员
2003/9/17 23:24:08
标题:
如何使用ado中的command存取jpg图像 浏览:2042
加入我的收藏
楼主: 如何使用ado中的command存取jpg图像
请指教,谢谢!!!!!!
----------------------------------------------
-
作者:
男 zizii (高高高级馒头) ★☆☆☆☆ -
神秘会员
2003/9/17 23:46:11
1楼: 我随便抄的:
------------------------------------------------------
读: 
TBlobField * pField=(TBlobField *)pQuery->FieldByName("Image");

TBlobStream * pmem=new TBlobStream(pField,bmRead);

pmem->Seek(0,soFromBeginning);

Graphics::TBitmap * pBitmap=new Graphics::TBitmap();

pBitmap->LoadFromStream(pmem);

Image1->Picture->Assign(pBitmap);

delete pBitmap;

delete pmem;

写:
TBlobField * pField=(TBlobField *)pQuery->FieldByName("Image");

TBlobStream * pmem=new TBlobStream(pField,bmWrite);

pmem->Seek(0,soFromBeginning);

Graphics::TBitmap * pBitmap=new Graphics::TBitmap();

pBitmap->Assign(Image1->Picture->Graphic);

pBitmap->SaveToStream(pmem);

delete pBitmap;

delete pmem;

注意:一定要用此方法进行读写,因为实际上它是以二进制流的方式存入数据库!
----------------------------------------------
维护世界和平,共创美好盒子。
作者:
男 yuvo (yuvo) ★☆☆☆☆ -
普通会员
2003/9/18 0:30:10
2楼: 谢谢zizii我调试一下看看效果如何.!!!
----------------------------------------------
-
作者:
男 yuvo (yuvo) ★☆☆☆☆ -
普通会员
2003/9/18 0:33:05
3楼: 你好zizii可不可以告诉我qq号,我们聊一聊!!!,我的qq是57114906
----------------------------------------------
-
作者:
男 zizii (高高高级馒头) ★☆☆☆☆ -
神秘会员
2003/9/18 0:43:31
4楼: 网站关于就有我的QQ号,不过已经人满为患,我都不敢开QQ。
----------------------------------------------
维护世界和平,共创美好盒子。
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行70.3125毫秒 RSS