FORM实现中打开图片,链接,文档(参考自itpub上一篇帖子,整理而来)
2013-12-04 23:11
295 查看
FORM实现中打开图片,链接,文档 参考自itpub上一篇帖子,整理而来 1.添加PL程序库D2kwutil.pll 2.主要实现程序 /*过程参数说明: v_application ——打开文件的应用程序 v_file_path ——带详细路径的文件名 */ PROCEDURE p_open_file(v_application VARCHAR2 , v_file_path VARCHAR2) IS v_app_id PLS_INTEGER; v_application_path VARCHAR2(200); --应用程路径 v_end_char VARCHAR2(1); BEGIN --读注册表获取应用程序路径 v_application_path := Win_Api_Environment.Read_Registry('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\'||v_application,'Path'); --为做到打开文件的统一性,对应用程序路径做相应处理 v_end_char :=SUBSTR(v_application_path , LENGTH(v_application_path)); IF v_end_char = ';' OR v_end_char = '\' THEN v_application_path := SUBSTR(v_application_path , 1 ,LENGTH(v_application_path)-1); END IF; --打开文件 --注意:dde.app_begin()函数的第一个参数格式为:应用程序路径 + 空格 + 文件名(含路径) -- 由此为使文件名中含空格或桌面上的文件也能被打开,我们需给文件名加上双引号 v_app_id :=dde.app_begin(v_application_path||'\'||v_application||' '||'"'||v_file_path||'"' ,dde.app_mode_maximized); --将光标定位到打开的文件中 dde.app_focus(v_app_id); EXCEPTION WHEN OTHERS THEN MESSAGE('打开文件失败。'); END; 3.在按钮触发器调用 --打开已存在的EXCEL文件 BEGIN p_open_file('EXCEL.EXE' ,'E:\test.xls'); END; --打开已存在的WORD文件 BEGIN p_open_file('WINWORD.EXE' ,'e:\test.doc'); END; --打开网页 BEGIN p_open_file('IEXPLORE.EXE' ,'www.163.com'); END; --打开已存在的图片文件 BEGIN p_open_file('OIS.EXE' ,'E:\test.JPG'); END;
相关文章推荐
- FORM实现中打开图片,链接,文档(参考自itpub上一篇帖子,整理而来)
- FORM实现中打开图片,链接,文档(参考自itpub上一篇帖子,整理而来)
- 用javascript实现点击链接弹出"图片另存为"而不是直接打开
- 老大要求把Word文档加上公司的标识,公司名文字或者logo图片都可以,但要求是用电脑打开(电子文档时)能看见标识,如果打印出来(纸质文档)就不显示出来,如何实现?
- 如何才能实现在点击链接时直接在网页中打开word文档,但不提示保存
- 用javascript实现点击链接弹出"图片另存为"而不是直接打开
- 使用CSS实现控制链接为新窗口打开的方法
- js实现网页图片延时加载 提升网页打开速度
- android实现通过浏览器点击链接打开本地应用(APP)并拿到浏览器传递的数据
- 如何实现仿百度文库和截取PDF文档图片
- js实现图片轮播(根据同事代码整理而得)
- 利用JS自动打开页面上链接的实现代码
- Android模拟 HTTP multipart/form-data 请求协议信息实现图片上传
- 如何实现在单文档的窗口背景上贴上图片?
- GreenOpenPaint的实现(二)打开显示图片
- js实现图片预览和FormData上传
- JAVA实现自动打开URL对应的网页并保存为图片-不借助第三方API
- jquery简单实现外部链接用新窗口打开的方法
- 【iOS功能实现】之利用UIDocumentInteractionController打开和预览文档
- Stripes视图框架实现纯Java代码控制表现层参考文档