Oracle的FORM中如何存取图象

       1、SQL*Plus中

       SQL> create table t_photo1(photo1 long raw);

       SQL> create table t_photo2(photo2 long raw);

       2、硬盘上c:/下有一个图象文件tmp.bmp

       3、打开FORM

       新建两个块：t_photo1、t_photo2

       t_photo1块是数据库块，连接的表是数据库中的一个表t_photo1

       t_photo2块也是数据库块，连接的表是数据库中的另一个表t_photo2（备份表）

       t_photo1块上新建一个图象项，名为photo1，对应的是即表t_photo1中的photo1列

       t_photo2块上也新建一个图象项，名为photo2，对应的是即表t_photo2中的photo2列

       新建一按钮1，输入以下程序，这个按钮实现读入图象到表里，即录入图象到表里

       BEGIN

              GO_BLOCK('t_photo1');--到块1

              READ_IMAGE_FILE('c:/tmp.bmp','bmp','t_photo1.photo1');

              --读入外部图象文件tmp.bmp（图象类型为BMP）到t_photo1块的photo1项，也就是到了t_photo1表里

              COMMIT;--存盘

       END;

       新建一按钮2，输入以下程序，这个按钮实现图象的倒表（t_photo1到t_photo2）

       BEGIN

              GO_BLOCK('t_photo1');--到块1

              execute_query;

              --查询出表中的图象，这时，表中的图象到了FORM中的图象项上

              WRITE_IMAGE_FILE('c:/tmp.bmp','bmp','t_photo1.photo1');

              --把图象项中图象写入外部图象文件tmp.bmp

              GO_BLOCK('t_photo2');--到块2

              READ_IMAGE_FILE('c:/tmp.bmp','bmp','t_photo2.photo2');

              --把外部图象文件tmp.bmp读入到t_photo2块的photo2项，也就是到了t_photo2表里

              COMMIT;--存盘

       END;

       注释：t_photo1.photo1是正式图片表中的图象项（数据库项）（t_photo1块photo项1）

                   t_photo2.photo2是备份图片表中的图象项（数据库项）（t_photo2块photo项2）

 

另附：一个有“打开”对话框的保存图象到数据库的按钮例子

declare

       str_filename varchar2(200);

       str_filetype varchar2(3);

begin

str_filename:=get_file_name('c:/','图形文件','BMP_FILE(*.bmp)|*.bmp|'||'JPG_FILE(*.jpg)|*.jpg|'||'GIF_FILE(*.gif)|*.gif|'||'TIF_FILE(*.tif)|*.tif|','请选择要存入数据库的图形文件：',OPEN_FILE,TRUE);

       str_filetype:=substr(str_filename,length(str_filename)-2,3);

       go_block('PHOTO_TEST');

       execute_query;

       last_record; --移动到最后一条记录

       next_record; --移动到下一条记录，即一条新记录上

       read_image_file(str_filename,str_filetype,'PHOTO_TEST.PHOTO');

       if str_filename is not null then

              commit;

       end if;

end;

注：PHOTO_TEST为数据块，PHOTO_TEST.PHOTO为数据块中对应数据库中lang raw字段的数据项。