在Oracle中使用大对象的方法：

　　目的：把一个jpeg图像装入Oracle，并且用C++Builder显示出来。如果使用bmp图像，处理的过程则会更简单一些。

　　1. 创建一个表picture

例子：　
　　
　　 create table picture
　　 (　
　　 picture_name varchar2(30),　
　　 picture_blob blob,　
　　 picture_locator bfile　
　　 );

　　2. 创建一个目录，需要有DBA权限，用于指向在操作系统中的某个目录。

create directory picture_dir as 'd:\blob_test'

　　；假设在d：\blob_test目录下存放有pic.jpg、pic.bmp、pic.doc等文件。

　　3. 插入一条记录，注意blob对象需要初始化为空对象，对于Blob类型的大对象必须用Empty_blob（）函数。

insert into picture (picture_name,picture_blob,picture_locator )　
values(　
'pic1',empty_blob(),bfilename('PICTURE_DIR','PIC.JPG'));

　　4. 将picture_locator所指向的图形文件导入数据库的picture表中：

declare　
　　 l_pic_locator bfile;　
　　 l_pic_blob blob;　
　　 l_dir varchar2(200);　
　　 l_filename varchar2(200);　
　　 BEGIN　
select picture_locator,picture_blob into l_pic_locator,
l_pic_blob from picture where name='pic1';

　-- 1。判断文件是否存在　
　　 IF DBMS_LOB.FILEEXISTS(l_pic_locator)=1 then　
　　 dbms_output.put_line('!!! The file exists!');　
　　 -- 2. 判断文件是否已被打开　
　　 if dbms_lob.fileisopen(l_pic_locator)=0 THEN　
　　 DBMS_OUTPUT.PUT_LINE
(' THE FILE IS NOT OPEN, TO OPEN THE FILE...');　
　　 -- 3. 打开文件　
　　 DBMS_LOB.FILEOPEN(l_pic_locator);　
　　 DBMS_OUTPUT.PUT_LINE('!!! THE FILE IS OPENED!');　
　　　
　　 -- 4. 可以获得关于文件的一些信息，比如文件名，大小等　
　　 dbms_output.put_line('The Length of the file is:'
||to_char(dbms_lob.getlength(l_pic_locator)));　
　　 dbms_lob.filegetname(l_pic_locator,l_dir,l_filename);　
　　 DBMS_OUTPUT.PUT_LINE('The opened file name is :
'||l_dir||'\'||l_filename);　
　　 -- 5. 将外部jpeg文件装入Blob字段　
　　 DBMS_LOB.LOADFROMFILE(l_pic_blob,
l_pic_locator,dbms_lob.getlength(l_pic_locator),1,1);　
　　 dbms_output.put_line('The file is loaded into database!');　
　　　
　　 END IF;　
　　 DBMS_OUTPUT.PUT_LINE('To close the file');　
　　 --6. 每一个fileopen必须有一个fileclose与之对应，所以关闭文件　
　　 IF DBMS_LOB.FILEISOPEN(l_pic_locator)=1 THEN　
　　 DBMS_LOB.FILECLOSE(l_pic_locator);　
　　 DBMS_OUTPUT.PUT_LINE('The file is closed!');　
　　 END IF;　
　　　
　　 END IF;　
　　 -- 7. 还必须在exception中保证文件关闭文件　
　　 exception　
　　 when others then　
　　 IF DBMS_LOB.FILEISOPEN(L_PIC)=1 THEN　
　　 DBMS_LOB.FILECLOSE(L_PIC);　
　　 DBMS_OUTPUT.PUT_LINE
('An exception happens,the file is closed!');　
　　 else　
　　 dbms_output.put_line('An exception happens!') ;　
　　 end if;　
　　　
　　 END;　
　　　
　　 －－
　　 --在C++Builder中使用从数据库中取得
刚才创建的数据库中的图像
-----
　　　
　　 void __fastcall TForm1::Button1Click(TObject *Sender)　
　　 {　
　　　
　　 ADOQuery1- >Close();　
　　 ADOQuery1- >SQL->Clear();　
　　 ADOQuery1- >SQL->Add(Memo1->Lines->Text);　
　　 ADOQuery1- >Open();　
　　　
　　 if (ADOQuery1- >FieldByName("name")->AsString=="pic1")　
　　 DBImage1- >DataField="PICTURE_BLOB";　
　　 else　
　　 {//1.创建用于存放Blob大对象的临时字段，
并初始化为从数据库中取得的图形　
　　 TBlobField *pField =
(TBlobField *)ADOQuery1->FieldByName("picture_blob");　
　　　
　　 //2.创建一个BlobStream流，以流的形式读取图形数据　
　　 TADOBlobStream *pmem = new TADOBlobStream(pField,bmRead);　
　　　
　　 //3. 将流指针放在流的头部　
　　 pmem- >Seek(0,soFromBeginning);　
　　　
　　 //4. 新建一个JPEG对象　
　　 TJPEGImage * jp = new TJPEGImage();　
　　　
　　 //5. 将放在BlobStream流中的图形信息读入jpeg对象　
　　 jp- >LoadFromStream(pmem);　
　　　
　　 //6. 将jpeg图像放在Image控件的picture组件的Graphic内，
显示出来Image1->Picture->Graphic=jp;　
　　　
　　 //7. 释放BlobStream流　
　　　
　　 delete pmem;　
　　　
　　 }　
　　　
　　 }