Form开发中的图片存储

DECLARE FILE_NAME VARCHAR2(120); IMAGE_TYPE VARCHAR2(10); I INTEGER; PNUM INTEGER := 0; wjm varchar2(200); BEGIN :wjzl.wjbh := :global.wjbh; IF :wjzl.YH IS NOT NULL THEN message('请选择一空页'); go_block('wjzl'); return; END IF; file_name := Win_Api_Dialog.Open_File('请选择一图形文件','','BMP文件 (*.BMP)|*.BMP|GIF文件(*.GIF)|*.GIF|TIF文件(*.TIF)|*.TIF|All files(*.*)|*.*|',TRUE,WIN_API.OFN_FLAG_DEFAULT,FALSE); IF FILE_NAME IS NOT NULL THEN I := INSTR(FILE_NAME,'.',1,1); IF I IS NOT NULL THEN IMAGE_TYPE:= SUBSTR(FILE_NAME,I+1,3); IF (IMAGE_TYPE='TIF') THEN IMAGE_TYPE := IMAGE_TYPE ||'F'; END IF; wjm := :global.wjbh||:wjzl.yh||'.'||IMAGE_TYPE; Win_Api_Utility.Copy_File(file_name,'i:/dayj/scan/'||wjm,FALSE,FALSE); Copy('i:/dayj/scan/'||wjm,'wjzl.dz'); Read_Image_File( 'i:/dayj/scan/'||wjm, IMAGE_TYPE, 'wjzl.YNR'); SELECT MAX(YH) INTO PNUM FROM wjzl WHERE wjbh = :wjzl.wjbh; IF PNUM IS NULL THEN PNUM := 1; ELSE PNUM := PNUM + 1; END IF; COPY(TO_CHAR(PNUM),'wjzl.yh'); commit; go_block('wjzl'); END IF; END IF; END;
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值