怎麼寫delphi語句把word/excel/bmp等文件存入Oracle中的blob字段里去??

Question

tblobfield(table1.fieldbyname(file_content)).loadfromfile
tblobfield(table1.fieldbyname(file_content)).savetofile
调整blobzie blobcatch

Answer 1

刚刚看了这样的资料，不知道有没有用。我还没有试呢：P在Oracle中，Blob字段不能直接写入，需要先写入一个空的记录，然后修改，代码如下：
// 插入一个新记录
Query->Close();
Query->SQL->Clear();
Query->SQL->Add("INSERT mytable(NO, BLOBFIELD) VALUE(:INDEX, EMPTY_BLOB())");
Query->ParamByName("INDEX")->AsInteger = No;
Query->ExecSQL();
// 修改刚才的记录，写入Blob数据
Query->SQL->Clear();
Query->SQL->Add("UPDATE mytable SET BLOBFIELD=:BLOBDATA WHERE NO=:INDEX");
Query->ParamByName("INDEX")->AsInteger = No;
Query->ParamByName("BLOBDATA")->SetBlobData(Buffer,ByteCount);
Query->ExecSQL();

Answer 2

你用一个TDatabase控件和一个TQuery控件，TDatabase中的BLOBSIZE值要大于你所写入的最大长度

Answer 3

我現在正在試李維<<高級篇>>p105的例子..... 
  有做過的老大給我貼一段好嗎???

Answer 4

李維<<高級篇>>p105的例子是2層的,可以通過adoconnection +adodataset
加載blob文件.
  
 我的程序是3層的;
   server端;  ADOConnection1+ADOQuery1+DataSetProvider1
   client端;  SocketConnection1+ClientDataSet1
我能否在client端加載blob文件?? 
  請給出源碼好嗎???