往oracle的blob類型字段中插入word/excel等文件時錯怎麼解決???

Question

我的問題以前 chongyang 回答過,但沒解決http://www.csdn.net/expert/topic/666/666458.xml?temp=.5827753

Answer 1

我不明白你为什么要把流转换成String?
保存到数据库时调用TBlobField.LoadFromFile,从数据库生成文件时调用TBlobfield.SaveToFile不就行了?

Answer 2

在Oracle8以前的版本中，一般使用LongRow字段存储文件，8中使用Blob。Blob的引入，是文件读写非常简化，效率更高。
写入：
ADOTable1.Edit;
  (ADOTable1.FieldByName('AAAA') as TBlobField).LoadFromFile('h:\sdfasdfsadf.doc');
  ADOTable1.Post;
读出：
(ADOTable1.FieldByName('AAAA') as TBlobField).SaveToFile('h:\Luo.doc');注：这种读写方式与使用的数据库和数据集都无关。其本质是Delphi的数据集组件提供了一列方法：
TBolobField.LoadFromFile和TBolobField.SaveToFile。
这两个方法封装了比较复杂的实现过程。
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 3

保存：
(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 4

to  plainsong(轻风) :
   我這樣試過了的呀.報錯.to lxpbuaa(桂枝香在故国晚秋) /  netlib(河外孤星) :
   我的程序是3層的.   3層的我試過,沒問題.沒那麼簡單.你們參照
http://www.csdn.net/expert/topic/765/765494.xml?temp=.7469751

Answer 5

我用的是Paradox数据库的，ole字段类型，和你的代码一样，
没有问题，不知道是不是和数据库有关,我想是无关的，
但又不知道是什么地方　有问题。

Answer 6

to  netlib(河外孤星):
  能否貼出您的代碼??
to: zjqyb() ( 
我的程序是3層的.現在快發布了只能用;
   server端;  ADOConnection+ADOQuery+DataSetProvider
   client端;  SocketConnection+ClientDataSet

Answer 7

我參考;
http://www.csdn.net/expert/topic/678/678131.xml?temp=.3348963
後改為;
server端;  ADOConnection+ADOTable+DataSetProvider
   client端;  SocketConnection+ClientDataSet
報錯' 提供不一致或不完全的資訊導致參數物件不適當被拒 ',是什麼原應?? 能替我解決者,一定重謝  !!!!!