在Oracle中创建和维护图形大对象

　-- 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;　
　　　
　　－－
　　--在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;　
　　　
　　}　
　　　
　　}

--------------------next---------------------