在delphi中如何将一个word文件写到Oracle的Blob字段中？-CSDN论坛

在delphi中如何将一个word文件写到Oracle的Blob字段中？

推荐

Delphi > VCL组件开发及应用

收藏回复

[问题点数：80分，结帖人weyoung]

⋅请教高手：用Indy组件的IdTCPClient、IdHTTP组件，怎么通过HTTP代理访问外网？ ⋅高分咨询：用Indy组件的IdTCPClient、IdHTTP组件，怎么通过HTTP代理访问外网？ ⋅请教：如何ActiveX添加自定义事件？ 更多帖子 关注私信空间博客 weyoung 等级 本版专家分：477 结帖率 100%: 小弟需要在Delphi中往Oracle存取Word文档，表结构如下：
  create table ywy_test(
       test_no varchar2(20) not null,
       test_word blob null);

刚才搜索了一下，发现相关的帖子很多，但好象不是很详细，希望哪位大虾能给出具体的代码。谢谢大家！

2002-04-16 11:43:44

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

展开阅读全文

⋅TBitMap的问题 ⋅紧急招聘精通ORACLE的人员 ⋅TBlobField和Oracle的问题 更多帖子 关注私信空间博客 mshawk 等级 本版专家分：1573: 使用TMemoryStream读入此文件，Copy到TBlobField里面就可以了。

2002-04-16 11:45:47

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

⋅不用spring和hibernate 就Atomikos+tomcat5.5+mysql5配置JTA的问题 ⋅上次在中视在线国际传媒广告（北京）有限公司面试JAVA开发经理，那总监问我熟悉钩S不？真汗颜你们知道什么叫钩S不? ⋅用过memcached的进来 更多帖子 关注私信空间博客 liusp 等级 本版专家分：4430: 关注

2002-04-16 11:48:12

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

⋅请教高手：用Indy组件的IdTCPClient、IdHTTP组件，怎么通过HTTP代理访问外网？ ⋅高分咨询：用Indy组件的IdTCPClient、IdHTTP组件，怎么通过HTTP代理访问外网？ ⋅请教：如何ActiveX添加自定义事件？ 更多帖子 关注私信空间博客 weyoung 等级 本版专家分：477: 希望mshawk(憨憨)能给出具体的代码。

2002-04-16 11:50:00

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

⋅delphi通过JNI调用JAVA的CLASS的问题。小弟很着急啊，进来都有分的 ⋅急问：WASD5.1和Webshpere5.1中如何配置MSSQL2005的数据源 ⋅关于delphi调用C的DLL问题，着急中。。。请求帮助！！！ 更多帖子 关注私信空间博客 celeronii 等级 本版专家分：5672: TBlobField(table1.FieldbyName('test_word')).LoadFromfile(wordfilename)

2002-04-16 12:17:53

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

⋅[图片]找工作的人太多了。。。。。。。。。 ⋅我用swish2做了个文字特效，导入到FlashMX里，在编辑区播放的时候能看见文字，而在测试影片时就看不见呢？ ⋅在CSDN上我认识一个女孩，现在我发现她喜欢上了我，可是我们相隔好远，我该怎么办？而且，她已经知道，我该怎么办啊！以前我可从来不相信 更多帖子 关注私信空间博客 hegum 等级 本版专家分：741: 回复人：　wwwwwwww(我我)　(2002-1-28 9:46:44)  得0分
保存word文档:
procedure Tfrmdyqk1.BitBtn3Click(Sender: TObject);
var  ms:TMemoryStream;
begin
  ms:= TMemoryStream.create;
  OleContainer1.SaveToStream (ms);
  ms.Position := 0;

  Query1.close;
  Query1.sql.clear;
  Query1.sql.text:='select *  from oadbo.bw_qwb';
  Query1.open;
  Query1.append;
  Query1.fieldbyname('wjid').value:=77777777 ;
  Query1.fieldbyname('wjdid').value:=7;
  Query1.fieldbyname('kzm').value:='txt';
  TBlobField(Query1.fieldbyname('qw')).loadfromstream(ms);
  ms.free;
  Query1.post;
  //Query1.applyupdates;
  Query1.close;
end;

取出word文档：
procedure Tfrmdyqk1.Button2Click(Sender: TObject);
var  strstream:Tmemorystream;
      //ls_qw:string;
begin

    OleContainer1.DestroyObject;
    strstream := Tmemorystream.Create;

    query1.Close;
    query1.sql.clear;
    query1.SQL.Add('select qw from oadbo.bw_qwb where wjid =' + inttostr(77777777));
    query1.open ;
    query1.First;


    Tblobfield(query1.fieldbyname('qw')).savetostream(strstream);
    strstream.position:=0;
    OleContainer1.loadfromstream(strstream);

    strstream.free;
end;

2002-04-16 12:22:31

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

⋅请教高手：用Indy组件的IdTCPClient、IdHTTP组件，怎么通过HTTP代理访问外网？ ⋅高分咨询：用Indy组件的IdTCPClient、IdHTTP组件，怎么通过HTTP代理访问外网？ ⋅请教：如何ActiveX添加自定义事件？ 更多帖子 关注私信空间博客 weyoung 等级 本版专家分：477: to  hegum(大概)：我的Oracle表的数据类型设计为Blob，在以下语句会出错：
   Query1.close;
   Query1.sql.clear;
   Query1.sql.text:='select *  from oadbo.bw_qwb';
   Query1.open; //在这一步是报错：invaid field type
   Query1.append;
   Query1.fieldbyname('wjid').value:=77777777 ;
   ....

还望不吝赐教

2002-04-16 14:23:22

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

⋅请教高手：用Indy组件的IdTCPClient、IdHTTP组件，怎么通过HTTP代理访问外网？ ⋅高分咨询：用Indy组件的IdTCPClient、IdHTTP组件，怎么通过HTTP代理访问外网？ ⋅请教：如何ActiveX添加自定义事件？ 更多帖子 关注私信空间博客 weyoung 等级 本版专家分：477: to hegum(大概):
我照你写的去做，在执行到第十行时就报错了：
  Query1.close;
  Query1.sql.clear;
  Query1.sql.text:='select *  from oadbo.bw_qwb';
  Query1.open; //在这里报错：Invaid field type
  ...

字段的数据类型为Blob。

2002-04-16 14:26:00

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

⋅[图片]找工作的人太多了。。。。。。。。。 ⋅我用swish2做了个文字特效，导入到FlashMX里，在编辑区播放的时候能看见文字，而在测试影片时就看不见呢？ ⋅在CSDN上我认识一个女孩，现在我发现她喜欢上了我，可是我们相隔好远，我该怎么办？而且，她已经知道，我该怎么办啊！以前我可从来不相信 更多帖子 关注私信空间博客 hegum 等级 本版专家分：741: 当然啊
Query1.sql.text:='select *  from oadbo.bw_qwb';
  Query1.open; //在这里报错：Invaid field type
*********这些是别人的程序啊
你要改成自己的啊。

http://202.96.70.228/cakk/delphi/delphi.htm
Delphi 5.X ADO_MTS_COM+高级程序设计篇  Delphi5开发人员指南 85,353k 配书源码太大了！
delphi5企业级解决方案及应用剖析 13,278k 　　
delphi5编程实例与技巧 12,201k 　　
delphi5数据开发技术

2002-04-16 14:36:59

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

⋅[图片]找工作的人太多了。。。。。。。。。 ⋅我用swish2做了个文字特效，导入到FlashMX里，在编辑区播放的时候能看见文字，而在测试影片时就看不见呢？ ⋅在CSDN上我认识一个女孩，现在我发现她喜欢上了我，可是我们相隔好远，我该怎么办？而且，她已经知道，我该怎么办啊！以前我可从来不相信 更多帖子 关注私信空间博客 hegum 等级 本版专家分：741: procedure TsampleForm.OpenDOCClick(Sender: TObject);
      var
        MemSize: Integer;
        Buffer: PChar;
        MyFile: TFileStream;
        Stream: TBlobStream;
      begin
        OpenDialog1.Filter:='WORD文档(*.DOC)|*.DOC';{从对话窗选择文件}
        if OpenDialog1.Execute then
        begin
          MyFile:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
          with table1 do   {‘table1’为含BLOB字段的表名}
          begin
            Open;
            Edit;
            Stream := TBlobStream.Create(FieldByName('Doc') as TBlobField,
      bmWrite);{‘Doc’为BLOB字段名}
            MemSize := MyFile.Size;
            Inc(MemSize); {Make room for the  buffer's null terminator.}
            Buffer := AllocMem(MemSize);       {Allocate the memory.}
            try
              Stream.Seek(0, soFromBeginning);  {Seek 0 bytes from the stream's
      end point}
              MyFile.Read(Buffer^,MemSize);
              Stream.Write(Buffer^,MemSize);
            finally
              MyFile.Free;
              Stream.Free;
            end;
                 try
                  Post;
                 except
                  on E: EDatabaseError do
               if HandelException(E)< >0 then
                              exit
              else
              raise;
                 end;
           end;
           Doc_ole.CreateObjectFromFile(OpenDialog1.FileName,False);
           Doc_ole.Run;{Doc_ole为ToleContainer构件名}
         end;
      end;

      ---- 以上为向数据库中写入的程序，应用中从对话窗取出文件在ToleContainer构件中显示的同时存入数据库。
procedure TsampleForm.GetDocClick(Sender: TObject);
var
  MemSize: Integer;
  Buffer: PChar;
  MyFile: TFileStream;
  Stream: TBlobStream;
begin
    MyFile:=TFileStream.Create('c:\temp.tmp',fmCreate);
    with Query1 do
    begin
      Stream := TBlobStream.Create(FieldByName('Doc') as TBlobField, bmRead);
      MemSize := Stream.Size;
      Inc(MemSize); {Make room for the buffer's null terminator.}
      Buffer := AllocMem(MemSize);     {Allocate the memory.}
      try
        Stream.Read(Buffer^,MemSize);
        MyFile.Write(Buffer^,MemSize);
      finally
        MyFile.Free;
        Stream.Free;
      end;
    end;
      if FileExists('c:\temp.DOC') then
DeleteFile('c:\temp.DOC');
      if FileExists('c:\temp.tmp') then
      begin
        RenameFile('c:\temp.tmp', 'c:\temp.DOC');
        Doc_ole.CreateObjectFromFile('c:\temp.DOC',False);
        Doc_ole.Run;
      end;
end;

      ---- 以上程序为从数据库从将WORD文档取出，并放在temp.doc的临时文件上并在ToleContainer构件中显示。
      ---- 在程序的其他部份应准确控制表记录指针，使WORD文档的存取发生在正确的记录位置。

-----------------------------------------

2002-04-16 14:40:17

点赞只看TA 引用举报 #9得分 50

⋅[图片]找工作的人太多了。。。。。。。。。 ⋅我用swish2做了个文字特效，导入到FlashMX里，在编辑区播放的时候能看见文字，而在测试影片时就看不见呢？ ⋅在CSDN上我认识一个女孩，现在我发现她喜欢上了我，可是我们相隔好远，我该怎么办？而且，她已经知道，我该怎么办啊！以前我可从来不相信 更多帖子 关注私信空间博客 hegum 等级 本版专家分：741: 这些都要改，你自己改了：）

2002-04-16 14:41:05

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

1 2

收起

收藏回复

weyoung

等级：

关注私信 TA的帖子

Delphi与Oracle中BLOB字段的操作: 首先：先了解一下Oracle中的clob与blob字段 Oracle将LOB分为两种：内部LOB和外部LOB。内部LOB包括CLOB,BLOB和NCLOB三种类型，它们的数据存储在数据库中，并且支持事务操作（提交，回滚，保存点）;外部LOB只有BFILE...

Delphi 实现文件从Oralce数据库 Blob 字段的读写: 首先：先了解一下Oracle中的clob与blob字段 Oracle将LOB分为两种：内部LOB和外部LOB。内部LOB包括CLOB,BLOB和NCLOB三种类型，它们的数据存储在数据库中，并且支持事务操作（提交，回滚，保存点）;外部LOB只有BFILE...

delphi存取Blob字段: 1.连接用Delphi中的TADOQuery查询Oracle10G中的数据表时,Open时提示"数据... ORACLE的驱动是微软的Microsoft OLE DB provider for Oracle，不支持BLOB字段, 应使用ORACLE的驱动ORACLE provider for OLE DB，如果未装

查询表中blob字段的大小: 查询表中blob字段的大小 MySQL获取blob大小，单位字节： SELECT OCTET_LENGTH(column_name) datasize from table Oracle获取clob大小，单位字节： select length(column_name) ...

blob字段存储文件并读取: 文档或图片等文件在数据库表中以blob字段存储并读取的方法： 1、将文件以blob形式存放到数据库：参考 http://bbs.csdn.net/topics/330265813CREATE TABLE yuser (ID number,photo BLOB);--首先要创建目录将需要存放...

Delphi DataSnap方法实现BLOB字段的读写: Delphi传统的DataSnap技术，客户端数据集的数据包缺省不包含Blob字段数据，但可以在真正需要的时刻，实时自动从数据库取得，这种自动实现是基于IAppServer接口的。但在DataSnap 2009中，中间层通过方法调用返回...

在Oracle中存取BLOB对象实现文件的上传和下载: JAVA存取CLOB和BLOB方法 oracle大对象保存 java将blob转化byte 保存大对象文件如何插入一个图片到Oracle数据库中（写出代码） oracle+blob+select+java 导入weblogic.jdbc.vendor.oracle.OracleThinBlob 怎样存取...

oracle含有BLOB数据的表的导出导入: 经过一些尝试，得下面是一个示例，主要功能为从旧的数据将BLOB数据导出，然后导出到新的数据库。新旧库都为ORACLE。大体思路如下：第一步，从旧数据导出数据。第二步，将导出的数据导入新数据库。第一步则又...

用oracle的java存储过程实现BLOB字段的字符串读取: 阅读了一个帖子“有没有可能写出比...突发灵感，加上原来有一个需求，需要从BLOB字段(本来就是字符型的内容)中直接读取成为字符串，需要java 开发人员的支持，想了想与其求人不如求己， oracle.sql.BLOB的相关文档...

使用存储过程向Oracle数据库中插入BLOB文件: 这段时间在做扬子石化的GIS开发，一直以来遇到一个最大的问题就是上传大文件类型（BLOB）超过32K就会从数据库中报出错来，十分头痛，前天在网上看到一个解决方案，是用SQL语句在界面中先插入一个empty_blob()，再...

oracle中导出和导入部分blob,clob字段: 今天遇到个问题，在A，B库中，表结构相同，要在A库A表中，导出某部分记录到B库的A表，问题是两个库的两个相同表中，都含有BLOB，CLOB字段，琢磨了下，暂时找到了个方法，当然不知道有没更好的工具，那就是用...

多层数据库应用基于Delphi DataSnap方法调用的实现（四）BLOB字段的读写: [转]多层数据库应用基于Delphi DataSnap方法调用的实现（四）BLOB字段的读写数据库的BLOB字段，可以用来保存字节流数据，比如图片、声音文件、html文档和大文本等等。Delphi传统的DataSnap技术，客户端...

JAVA存取ORACLE中的BLOB对象: Oracle中存取BLOB对象...JAVA存取CLOB和BLOB方法 oracle大对象保存 java将blob转化byte 保存大对象文件如何插入一个图片到Oracle数据库中（写出代码） oracle+blob+select+java 导入weblogic.jdbc.vendor.oracle.Orac

在Delphi5 中操作Oracle的Blob/Clob字段的Bug.: 在某一应用中，需要在同一个表中使用两个Blob字段（本来也可以使用Long Raw字段，但Oracle中一个表只能拥有一个Long Raw):create table docs(? id? number constraint pk_docs primary key,doc blob);但在操作中发现...

FIREDAC保存ORACLE的BLOB字段数据: FIREDAC默认识别ORACLE的BLOB字段为HUGEBLOB，需要将HBLOB映射为BLOB，才可以保存ORACLE的BLOB字段的数据。转载于:https://www.cnblogs.com/hnxxcxg/p/5599661.html

上传图片至服务器，写入到数据库Blob字段中，以及从数据库读取Blob信息（iframe父子页面传值）(2): 首先说写入oracle的Blob字段 上一文章的实现方法没有贴出来，如下： TempUserService.java [html] view plaincopy package org.hd.tempuser.service; import java.io.FileNotFoundException; ...

C++Builder/Delphi 通过 ADO 存取Oracle 的 Blob 字段: 今天报表组的人说CB5里用ADO读取Oracle的Blob字段报错，于是我试了试，还真是这样，错误信息是“数据类型不被支持”。我又试了试Delphi7，也是一样的错。我想，BCB/Delphi的ADO是封装过了，会不会是封装得有问题？...

Blob字段为空值的查询问题: 想以Blob字段为空进行条件查询 select * from mytable where pic is null 这个语句在pic字段是空时可以查到，但如果pic字段不是空，但长度是0是又查不到。这时用 select * from mytable where length

Delphi与Oracle中BLOB字段的操作(转): Delphi与Oracle中BLOB字段的操作分类： Delphi 2011-12-20 15:37 50人阅读评论(0) 收藏举报首先：先了解一下Oracle中的clob与blob字段Oracle将LOB分为两种：内部LOB和外部LOB。内部LOB包括CLOB,BLOB和NCLOB...

处理Blob类型数据，例如将对象保存到blob字段中: Blob（Binary Long Object）是二进制长对象的意思，Blob列通常用于存储大文件，例如：图片、声音文件。 Blob数据插入数据库需要使用PreparedStatement,通过该对象的setBinaryStream(intparameterIndex,InputStream x...

如何处理BLOB类型数据之一：上传文件并保存到BLOB中: 实验环境：JDeveloper 11.1.2.0.0。 1. 实验准备：创建Schema （1）sqlplus system/welcome1 @create_neverland_user.sql grant connect, resource to neverland identified by neverland;...

Delphi2010中ADOQuery使用Oracle的Blob字段出现错误解决方法: 有时我们连接Oracle会采用如图所示： ...这样在使用TADOQuery查询带有Blob字段的表时会出现如下错误：解决方法：更换ADOQuery的Oracle的驱动连接字符串。如图：这样即可解决问题。呵呵～...

oracle中blob格式在delphi中如何显示出来: create table test( XH VARCHAR2(16) not null, PHOTO BLOB not null);在sql*plus里面运行SQL>select...列或属性类型无法通过 SQL*Plus 显示在sql*plus中这样，所以在delphi BDE的query.sql.add(select xh,photo fro

字符转换为blob字段的一些方法。: 我们经常会遇到把字符类型的数据以BLOB的方式存放到oracle数据库中。 oracle中的处理方法。。我们可以在oracle中把字符转换成BLOB类型。直接INSERT到表中就可以。 CREATE TABLE TTEST ( TTBLOB BLOB ...

写入到blob字段的存储过程: create or replace procedure write2blob(directions blob, v_blob blob, v_pos integer

相关热词 c# 解析ini c# 高德经纬度转墨卡托 c# 加法泛型 c#裁切image c#onpaint c# 函数参数初始化软件工程师考试题c# c# 多媒体定时器 c# 集合首字母排序 c#调用java程序