高分求助，在线等候：如何把word文档保存到数据库大文本字段？

Question

wwDBRichEdit1.Lines.LoadFromFile()
wwDBRichEdit1.Lines.SaveToFile()

Answer 1

var MemoryStream: TMemoryStream;
begin
  ...
  OleContainer.SaveToStream(MemoryStream)
  TBlobField(YourDataSet.FieldByName('YourBlobField')).LoadFromStream(MemoryStream);
  ...
end;密切关注，
深表遗憾！
强烈谴责，
啥也不干！

Answer 2

Borlandor(五角▲大民) :我用你的方法是了，但仍然有错，我该怎么办呢？

Answer 3

用个简单的方法把，把数据库中的这个字段load到query中，名字叫doc 吧。
query.append;
doc.loadfromfile(.....);
query.post;
就可以存到大字段里面了。读出来的时候类似了可以把doc.savetostream，然后产生一个临时文件

Answer 4

看来你对“把数据库中的这个字段load到query中”这句话有困惑，
双击你的Query控件，你就知道了

Answer 5

二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));

Answer 6

二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));

Answer 7

二进制字段
保存：
(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.bmp');
TBlobField(Table1.FieldByName('Image')).Assign(Image1.Picture.Bitmap);
取出：
(query1.FieldByName('img') as TBlobField).Savetofile('e:\temp.bmp');
Image1.Picture.Bitmap.assign(TBlobField(Table1.FieldByName('Image')));

Answer 8

var MemoryStream: TMemoryStream;
begin
  ...
  OleContainer.SaveToStream(MemoryStream)
  MemoryStream.Position := 0; //忘了这一句了，害人啊！
  TBlobField(YourDataSet.FieldByName('YourBlobField')).LoadFromStream(MemoryStream);
  ...
end;密切关注，
深表遗憾！
强烈谴责，
啥也不干！

Answer 9

我在程序中用到TOleContainer组件，oracle数据库表中有LONG RAW类型字段
=================================================================
我没用过oracle,但是我知道word文档应该保存在blob字段里面.不知道oracle里面有没有image之类的字段类型,如果有的话应该选择它而不是大文本字段.因为word文档不仅包含文本信息,还包括了格式信息.其它的东东大家都写了.
=============================TRY================================

Answer 10

我没分了，请朋友们帮我回答一下这个好吗？谢谢了。
http://www.csdn.net/Expert/TopicView1.asp?id=831786

Answer 11

Borlandor(五角▲大民):显示出错，程序如下：
procedure TFrm_kj_kfxm_sqs.Button2Click(Sender: TObject);
var memorystream1,memorystream2:Tmemorystream;
begin
  inherited;
  memorystream1 := tmemorystream.Create;
  memorystream2 := tmemorystream.Create;
  //保存
  try
    OleContainer1.SaveToStream(memorystream1);
    MemoryStream1.Position:= 0;
    cds_data.edit;
    TblobField(cds_data.FieldByName('sqwd')).LoadFromStream(MemoryStream1);
    cds_data.Post;
  finally
    memorystream1.Free;
  end;
  //显示
  try
     TblobField(cds_data.FieldByName('sqwd')).SaveToStream(Memorystream2);
     OleContainer2.LoadFromStream(memorystream2);//出错
  finally
    memorystream2.Free;
  end;
end;

Answer 12

Mudeen(笑哥哥) ：我以前用过PowerBuilder的，字段类型应该没错，难道Delphi实现起来真得这么难吗？咳，Borland呀！！

Answer 13

在你出错的上面再加一行代码：
-------------------------------------------------
//显示
  try
     TblobField(cds_data.FieldByName('sqwd')).SaveToStream(Memorystream2);
     memorystream2.position:=0; //添加这一行代码
     OleContainer2.LoadFromStream(memorystream2);
  finally
    memorystream2.Free;
  end;

Answer 14

谢谢各位啦！问题基本解决了，在这里对每位朋友表示感谢。就此揭帖吧！希望大家有更好的建议请与我联系！Email:[email protected]或[email protected]

Answer 15

var MemoryStream: TMemoryStream;
begin
  ...
  memorystream := tmemorystream.Create;  //一定记住
  OleContainer.SaveToStream(MemoryStream) 
  MemoryStream.Position := 0; //忘了这一句了，害人啊！
  TBlobField(YourDataSet.FieldByName('YourBlobField')).LoadFromStream(MemoryStream);
  ...
end;