1、SQL*Plus中
SQL> create table t_photo1(photo1 long raw);
SQL> create table t_photo2(photo2 long raw);
2、硬盘上c:下有一个图象文件tmp.bmp
新建两个块：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: mp.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: mp.bmp","bmp","t_photo1.photo1");
--把图象项中图象写入外部图象文件tmp.bmp
GO_BLOCK("t_photo2");--到块2
READ_IMAGE_FILE("c: mp.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字段的数据项。
