HELP ME:把数据库中的图片读到Stream中，再赋给IMAGE控件时，怎么IMAGE控件中的图片全黑了。-CSDN论坛

HELP ME:把数据库中的图片读到Stream中，再赋给IMAGE控件时，怎么IMAGE控件中的图片全黑了。

Delphi > 数据库相关

收藏回复

[问题点数：20分，结帖人liung]

⋅程序中用到f1book6，发布到别的机子上时老提示“版权对话框“，请问有解决的办法吗？ ⋅用dbgrid做类似计算器的功能，最好还能能做到和excel一样有灵活的格式，大伙能给点提示吗？ ⋅请教：DELPHI中如何存取ORACLE的CLOB或BLOB字段？ 更多帖子 关注私信空间博客 liung 等级 本版专家分：20 结帖率 100%: 把数据库中的图片读到Stream中，再赋给IMAGE控件，怎么IMAGE控件中的图片全黑了？源代码如下：
  Clientdataset1.Active:=false;
  Clientdataset1.CommandText :='SELECT * FROM Asx where  bh=''0000001''';
  Clientdataset1.Active:=true ;
  str:=TStream.Create();
  str:=c1.CreateBlobStream(Clientdataset1.fieldbyname('jxt'),bmRead);
  image1.Picture.Bitmap.LoadFromStream(str);
  str.Free;

2002-05-07 18:36:11

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅放分200，祝大家元旦快乐！ ⋅小兵ＶＳ老迈，抢楼比赛，其它人不要来 ⋅【公告】小版主任命通知 更多帖子 关注私信空间博客 短歌如风 等级 本版专家分：14303 勋章 红花 2003年11月 C/C++大版内专家分月排行榜第一 2003年5月 C/C++大版内专家分月排行榜第一 黄花 2002年5月 Delphi大版内专家分月排行榜第二 2003年12月专题开发/技术/项目大版内专家分月排行榜第二 蓝花 2002年6月 C++ Builder大版内专家分月排行榜第三 2003年11月专题开发/技术/项目大版内专家分月排行榜第三: 你在数据库中存的是BMP格式吗?

     ____     ____
     \ p \   / g /
      \ l \_/ n /
       \ a   o /
        \ i s /
         \ n /
          \_/

2002-05-07 19:04:45

点赞只看TA 引用举报 #1得分 0

⋅程序中用到f1book6，发布到别的机子上时老提示“版权对话框“，请问有解决的办法吗？ ⋅用dbgrid做类似计算器的功能，最好还能能做到和excel一样有灵活的格式，大伙能给点提示吗？ ⋅请教：DELPHI中如何存取ORACLE的CLOB或BLOB字段？ 更多帖子 关注私信空间博客 liung 等级 本版专家分：20: 是BMP格式的图片存在SQL SERVER数据库的BLOBField字段。因为我开发的是分布式多层应用系统，所以必须得用TClientDastSet控件，但用TClientDastSet控件从应用程序服务器中取出的图片是全是黑的。其实用用QUERY或TABLE取出的图片是正常的，只不过我不能用它们。

2002-05-07 19:31:01

点赞只看TA 引用举报 #2得分 0

⋅在SQL Server企业资源管理器中，如何改变smallint，int类型字段的数据长度？ ⋅midas做的多层数据库中M/D数据不能正确显示，是何道理？ ⋅在unix下设置环境变量，但是log out之后，重新登陆，还是原样，是何道理？ 更多帖子 关注私信空间博客 everydayniceday 等级 本版专家分：664: 至少证明了一件事：数据库中的图片数据格式是有效的。
你可以试一试用TMemoryStream代替Tstream看一看。

2002-05-07 19:36:45

点赞只看TA 引用举报 #3得分 0

⋅程序中用到f1book6，发布到别的机子上时老提示“版权对话框“，请问有解决的办法吗？ ⋅用dbgrid做类似计算器的功能，最好还能能做到和excel一样有灵活的格式，大伙能给点提示吗？ ⋅请教：DELPHI中如何存取ORACLE的CLOB或BLOB字段？ 更多帖子 关注私信空间博客 liung 等级 本版专家分：20: TBlobStream，TMemorySstream,TStream都试过了，读出来的也都是黑的。

2002-05-07 19:40:33

点赞只看TA 引用举报 #4得分 0

⋅怎样在word中插入图片（在线等待） ⋅怎样在word中插入图片（在线等待） ⋅怎样在word中插入图片（在线等待） 更多帖子 关注私信空间博客 asdie 等级 本版专家分：91: up

2002-05-07 19:49:48

点赞只看TA 引用举报 #5得分 0

⋅windows下apache如何能判断网站网页能否正常显示？ ⋅求改一个正则（javascript的改成jsp的replaceAll） ⋅求一个正则表达式（相对路径变绝对路径） 更多帖子 关注私信空间博客 goldtogo 等级 本版专家分：40: up

2002-05-07 19:51:48

点赞只看TA 引用举报 #6得分 0

⋅放分200，祝大家元旦快乐！ ⋅小兵ＶＳ老迈，抢楼比赛，其它人不要来 ⋅【公告】小版主任命通知 更多帖子 关注私信空间博客 短歌如风 等级 本版专家分：14303 勋章 红花 2003年11月 C/C++大版内专家分月排行榜第一 2003年5月 C/C++大版内专家分月排行榜第一 黄花 2002年5月 Delphi大版内专家分月排行榜第二 2003年12月专题开发/技术/项目大版内专家分月排行榜第二 蓝花 2002年6月 C++ Builder大版内专家分月排行榜第三 2003年11月专题开发/技术/项目大版内专家分月排行榜第三: 既然用TQuery可以而用TClientDataset不行,你试着换一种方法:
在服务端编写一个方法,返回指定记录的Blob字段(假设为GetBlob):
function MyServer.GetBlob(Key:KeyType):OleVariant;//KeyType改为正确的类型.
var
  BlobField:TBlobField;
  BlobStream:TStream;
  PtrData:PByte;
begin
  ...
  //取得正确的BlobField
  BlobStream := TBlobStream.Create(BlobStream,bmRead);
  Result := VarArrayCreate([0,BlobStream.Size-1],varByte);
  PtrData := VarArrayLock(Result);
  BlobStream.Read(PtrData^,BlobStream.Size);
  BlobStream.Free;
  VarArrayUnlock(Result);
0Aend;
在客户端读出来:
var
  PtrData:PByte;
  VarData:OleVariant;
  MemStream:TStream;
...
  VarData := RServer.AppServer.GetBlob(MyKeyData);
  PtrData := VarArrayLock(VarData);
  MemStream := TMemoryStream.Create;
  MemStream.Write(PtrData^,VarArrayHighBound(VarData,1)+1);
  VarArrayUnlock(VarData);
0A  image1.Picture.Bitmap.LoadFromStream(MemStream);
  MemStream.Free;

     ____     ____
     \ p \   / g /
      \ l \_/ n /
       \ a   o /
        \ i s /
         \ n /
          \_/

2002-05-08 17:17:00

点赞只看TA 引用举报 #7得分 20

⋅如何运行数据流中的程序？ ⋅关于声音输入的问题…… ⋅高分求图象过滤问题…… 更多帖子 关注私信空间博客 dudu320 等级 本版专家分：156: 数据流的posion要重新设置为0
str.posion:=0;

2002-05-08 17:33:27

点赞只看TA 引用举报 #8得分 0

收起

收藏回复

liung

等级：

关注私信 TA的帖子

[简明微积分(第四版)]带书签.龚升.高等教育出版社: 龚升 [简明微积分(第四版)] 带书签版本 高等教育出版社

简明微积分: 简明微积分/龚昇著.-4版.-北京：高等教育出版社，2006.4

C语言入门经典（第四版）.pdf: 《C语言入门经典(第4版)》的目标是使你在C语言程序设计方面由一位初学者成为一位称职的程序员。读者基本不需要具备任何编程知识，即可通过《C语言入门经典(第4版)》从头开始编写自己的C程序。研读《C语言入门经典...

中国科学院大学数学院本科生教材: 微积分I-A：《数学分析（第4版）》第1卷，卓里奇，高等教育出版社 微积分I-B（非数专业）：《数学分析（第4版）》，华东师范大学数学系，高等教育出版社，2010年参考书：1.《托马斯微积分》（第10版），托马斯，...

鲁宾逊微积分是什么？: 进入21世纪，做好基础学科微积分学的科普工作显得更为紧迫。怎么办？大家知道，在国内互联网媒体上，微积分科普被糟蹋得不成样子，误人子弟。六十年之前，美国数学家鲁宾逊发现了利用现代数理逻辑发展最新成果...

PDF下载——简明Python教程-Python3(中文版): 简明Python教程-Python3(中文版) http://t.cn/ExZcTX9

大学物理简明教程第3版修订版课后习题答案

2019医学电子书下载PDF电子版下载: 坎贝尔骨科手术学第13版典藏版共八卷 2018年超清带书签pdf版宫腔镜手术操作及精选实例（PDF+配套光盘）胎儿超声心动图实用指南正常和异常心脏第3版_14254114.pdf 简明皮肤病临床及组织病理图谱_马寒2...

大学物理简明教程笔记: （清华大学出版社）第一章牛顿力学基础 1.1牛顿力学的建立与发展 No.1牛顿（1634-1727） No.2亚里士多德（384BC-322BC） No.3伽利略（1564-1642） No.4开普勒（1571-1630） 1.1.2 牛顿三定律的表述 1.1.2.1 牛顿第...

大学物理简明教程第三版修订版课后习题详解

2015-4-12分享的PDF: iOS传感器应用开发最佳实践_PDF电子书下载 带书签目录完整版http://pan.baidu.com/s/1dDtSP2L Node应用程序构建使用MongoDB和Backbone_PDF电子书下载 带书签目录完整版 http://pan.baidu.com/s/1c04KnNM ...

[转载]windbg简明教程: [转载]windbg简明教程文章作者：Sucsor on 2006.06.11 Windbg是Microsoft公司免费调试器调试集合中的GUI的调试器，支持Source和Assembly两种模式的调试。Windbg不仅可以调试应用程序，还可以进行 Kernel Debug（新...

Kubernetes 入门简明教程: Kubernetes(K8S) 是 Google 开源的容器集群管理系统。在 Docker 技术的基础上，为容器化的应用提供部署运行、资源调度、服务发现和动态伸缩等一系列完整功能，提高了大规模容器集群管理的便捷性。...

正则表达式简明手册: 一、元字符字符说明^一行开始$一行结束\b单词的开始或结束.除换行符外的任意字符\w单词字符（包括字母、数字、下划线和汉字）\W任意的非单词字符（包括字母、数字、下划线和汉字）\s任意的空白字符，如空格、制表符...

BlockChain：《区块链世界简明生存指南（一块听听）》2017-06-06 李笑来—听课笔记分享(1): BlockChain：《区块链世界简明生存指南（一块听听）》2017-06-06 李笑来—听课笔记分享(1) 导读李笑来是一位得到App专栏的作家，专栏《通往财富自由之路》订阅人数近15万，著名书籍《把时间当做朋友》，他曾经是...

微积分中数学符号的由来: “使用符号，是数学史上的一件大事。一套合适的符号，绝不仅仅是起速记、节省时间的作用。它能够精确、深刻地表达...　积分的本质是无穷小的和，拉丁文中“Summa”表示“和”的意思。将“Summa”的头一个字母“S”拉

DOS批处理简明高级教程: DOS批处理简明高级教程预览下载地址：

算法（第4版）: 《算法（第4版）》全面讲述算法和数据结构的必备知识，具有以下几大特色。算法领域的经典参考书：Sedgewick 畅销著作，反映了经过几十年演化而成的算法核心知识体系；内容全面：全面论述排序、搜索、图处理和字符...

JAVA大学简明教程：实例程序设计.pdf: JAVA大学简明教程：实例程序设计.pdf

发现一本数学好书——重温微积分: 高教-齐民有-2003本书根据作者多年来为各种不同程度的大学生和研究生讲课及讨论班上报告的内容整理而成。第一章对极限理论的发展作了历史的回顾。以下六章分别讨论函数、微分学、积分学、傅里叶分析、实分析与点集...

致 Python 初学者: 欢迎来到“Python进阶”专栏！来到这里的每一位同学，应该大致上学习了很多 Python 的基础知识，正在努力成长的过程中。在此期间，一定遇到了很多的困惑，对未来的学习方向感到迷茫。我非常理解你们所面临的处境。...

Mac OS X 系统安装 Tomcat 7.0.x 简明教程: Mac OS X 系统安装 Tomcat 7.0.x 简明教程

《简明Python教程》学习（一）: 《简明Python教程》学习（一）一、 Python脚本开头为什么要写 #!/usr/bin/python1. 新建helloworld.py文件2. 内容print ‘helloworld’3. 运行python helloworld.py 4. 输出helloworld 5. 运行 ./helloworld.py 6. ...

《简明Python教程》--沈洁元: 简明Python教程(第4版) A Byte of Python v4.0 中文pdf版+配套源码云盘资源py4 《A Byte of Python》是一本由 Swaroop C H 编写，旨在于介绍如何使用 Python 语言进行编程的自由图书。它以教材与指南的形式为入门者...

袖珍电子书：微积分学的基本定理: 微积分研究的内容是什么？这些内容为什么容易从我们的脑壳中被遗忘？相反，初等数学的内容却能“终生不忘”？为什么？人的记忆能力是会起伏变化的，遗忘也是一种自我保护的能力。刚才，我把A.Robinson的专著...

StarUML使用简明教程: 最近了解到StarUML比较多，所以写一篇教程供大家参考，不足支持，请见谅。 StarUML(简称SU)，是一种创建UML类图，生成类图和其他类型的统一建模语言(UML)图表的工具。StarUML是一个开源项目之一发展快、灵活、可...

DUILIB入门简明教程 - 电子书下载: 电子书下载: DUILIB入门简明教程.chm文章作者:　Alberl电子书制作: 邓学彬目录:2013 duilib入门简明教程 -- 前言(1)2013 duilib入门简明教程 -- VS环境配置(2)2013 duilib入门简明教程 -- 第一个程序 Hello World(3)...

git - 简明使用指南: 助你入门 git 的简明指南，木有高深内容安装下载 git OSX 版下载 git Windows 版下载 git Linux 版创建新仓库创建新文件夹，打开，然后执行git init 以创建新的 git 仓库。检出仓库执行如下...

书单丨被强化学习一次次伤害？本书单带你一步步入门！: 强化学习是机器学习里非常重要的分支但由于其自身已形成庞大的体系同时需要多方面知识进行辅助让很多初学者望而生畏本书单从机器学习基础着手一步步带你入门强化学习NO.1《Python与机器学习实战：决策树、集成学习、...

C语言--视频精讲: C语言作为被长期使用的编程语言，可以被运用到各种操作系统，游戏，开发中。本课程作为互联网上首家使用C99录制的C语言教程，展现了全面、专业。标准的C语言教程。可以帮助学员从基础开始一点点的深刻理解C语言。 a:0:{}

相关热词 c# 按行txt c#怎么扫条形码 c#打包html c# 实现刷新数据 c# 两个自定义控件重叠 c#浮点类型计算 c#.net 中文乱码 c# 时间排序 c# 必备书籍 c#异步网络通信