将文件保存到Oracle中去？？？？？

Question

TBlobField.LoadFromFile();
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 1

TBlobField.SaveToFile();
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

lxpbuaa(桂枝香在故国晚秋) ：
  请说详细一点好吗？谢谢！再谢谢！

Answer 3

tbl:TTTable;
Tbl.TableName:='OracleTableName'
Tbl.Open;
Tbl.Edit;
Tbl.Locate(keyfield,key,[loCaseSensitve],0);
TTbloBField(Tbl.FieldByName('field')).savetofile('test.txt');
Tbl.Post;
Tbl.Close;
vlTbl

Answer 4

先把文件读入一个串，然后再把这个串给这个字段
var
  FileStrm:TFileStream;
  FileStr:String;
begin
  FileStrm:=TFileStream.Create('D:\a.txt',fmOpenRead);
  SetLength(FileStr,FileStrm.Size);
  FileStrm.Read(Pointer(FileStr)^,FileStrm.Size);
  FileStrm.Free;
//以上代码是把文件读入一个串中
　........
  Table1.FieldByName('BlobField').AsString:=FileStr;　
  Table1.Post;

Answer 5

请问各位大侠，只能用TTable吗？能用TQuery吗？

Answer 6

请问各位大侠，blob类型的字段有长度限制和设置吗。我在BDE中设置blob的长度为32K，如果文件大于32K存进去，读取就有错误了。怎样设置才不会有长度限制呢？