Oracle的FORM中如何存取图象

王朝oracle·作者佚名  2007-01-25
窄屏简体版  字體: |||超大  

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字段的数据项。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航