阿木伯 著 |
|
FORM中如何存取图象?如何把图象从一个表中导到另一个表中? |
|
- 软件环境:
1、服务器端:Windows NT4.0+ORACLE 8.0.4,ORACLE安装路径为:C:\ORANT
2、客户端:Windows 98、Developer/2000客户端安装(版本2.1)
- 实现方法:
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)
|
【最后更新:】 |
|