Delphi对Oracle数据库BLOB字段的操作

Question

如何用Delphi对Oracle数据库的BLOB字段进行操作？
比如对图片（BLOB）字段进行添加和删除

Answer 1

试试内存流的办法：
var
  memstrm:TMemoryStream ;
begin
  memstrm:=TMemoryStream.Create;
  try
    memstrm.Clear;
    memstrm.LoadFromFile(openpicturedialog1.FileName);
    with adoquery1 do
    begin
      insert;      
      TBlobField(FieldByName('PIC')).LoadFromStream(memstrm);
      Post;
    end;
  finally
    memstrm.Free;
  end;
end;

Answer 2

我是用存储过程来做，你直接用DELPHI调用存储过程就可以了。因为做项目，需要使用BFILE字段存储图像文件，所以进行了一些研究。
bfile字段实际的文件存储在文件系统中,字段中存储的是文件定位指针.bfile对  oracle来说是只读的,也不参与事务性控制和数据恢复  bfile的基本操作如下：   1.先在oracle数据库中下面我们建立一个目录别名,用于将文件定位指针映射到文  件系统：    create DIRECTORY 'tmpdir' AS '/tmp';   tmpdir表示逻辑目录名，'/tmp'是实际目录。 注意该目录oracle应该有读权限  然后根据需要授权  GRANT READ ON DIRECTORY bfile_dir1 TO scott; 建立一个含有bfile字段的表  create table bfiletest(id number(3), fname bfile);  建立一个含有BLOB字段的表
create table blobtest(id number(3),ablob blob);2.插入数据  这里需要使用bfilename来进行bfile字段的insert 或者 update操作   INSERT INTO bfiletest      VALUES (1, BFILENAME ('tmpdir', 'tmptest'));     bfilename的参数1是DIRECTORY名，参数2是文件名。注意：这一行中插入的是  一个指向/tmp/tmptest的文件定位指针映射,不是文件本身。  3.读取bfile       通过使用dbms_lob包进行可以对bfile读入到blob/clob对象中操作(只读)  CREATE OR REPLACE PROCEDURE loadLOBFromBFILE_proc(
TID IN NUMBER,rfilename in varchar2,rfiledir in varchar2,upmessage out varchar2) 
AS 
   Dest_loc       BLOB; 
   Src_loc        BFILE;
BEGIN
  INSERT INTO BLOBTEST(ID,ABLOB) VALUES(TID,EMPTY_BLOB()) RETURN ABLOB INTO DEST_LOC;  Src_loc := BFILENAME(rfiledir,rfilename);
         /* 如果bfile文件实际存在 */ 
   IF (DBMS_LOB.FILEEXISTS(Src_loc) != 0) 
   THEN 
       /* 打开bfile源文件 */  
       DBMS_LOB.OPEN(Src_loc, DBMS_LOB.LOB_READONLY); 
       /* 打开目标blob: */  
       DBMS_LOB.OPEN(Dest_loc, DBMS_LOB.LOB_READWRITE); 
       /*从文件中装入 */ 
       DBMS_LOB.LOADFROMFILE(Dest_loc, Src_loc,DBMS_LOB.GETLENGTH(Src_loc)); 
       /* 记得关闭: */  
       DBMS_LOB.CLOSE(Dest_loc); 
       DBMS_LOB.CLOSE(Src_loc); 
       COMMIT;
       upmessage := '0'; 
   END IF; 
   EXCEPTION 
       WHEN OTHERS THEN 
          ROLLBACK;
          upmessage := '操作失败'; END;
有一点需要注意，目录名要用大写，如以上的例子，调用BFILENAME时，要用MYFILE，而不能使用myfile