当前位置导航:炫浪网>>网络学院>>编程开发>>Oracle教程

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


  通过一个例子给大家介绍一下在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?http://www.xvna.com、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; 
   
  } 
   
  }
相关内容
赞助商链接