利用DDE技术实现ORACLE FORMS 6i 中打开文件（如：EXCEL、WORD、图片、网页）的功能

405562956

xilangxiangwa 发表于 2008-1-25 11:14
为啥大家看了都不回贴啊,
有建议随便提啊.没事的

现在才看到这个帖子，我试了一下，为什么失败？

xilangxiangwa

yfmfeizhou 发表于 2012-4-6 10:07
一直打开文件失败啊，楼主是怎么运行的啊，我也加载了pll了，在同一目录下的，编译也没问题，没有一个能打开 ...

可以参照附件中的程序。
注意是CS的

zhoutingjun

这个帖子很受欢迎，从08年讨论到15年。可惜没有成功打开的。若高手看到回帖，还请多多指导啊！
我的试验情况如下：
下载D2KWUTIL.PLL顺利，加载该附加程序库顺利，编译.fmb顺利，可运行就是调不出WORD。
试了一下：若注释掉读取注册表语句，直接给        v_application_path赋常量，即：
  --v_application_path:=Win_Api_Environment.Read_Registry('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\'||v_application,'Path');  
   v_application_path:='C:\Program Files\Microsoft Office\OFFICE11\';
则打开WORD成功。说明问题出在调用Win_Api_Environment.Read_Registry（）子程序上，没有任何路径字符串返回，也无失败信息。
我有几处不明白，多谢高手给予指点啊：
1 这个调用子程序的语句是否写错了？查了包头的定义，似乎没错？
2 D2KWUTIL.PLL下载后为676kb，可加载后仅9kb，可打开包头，但打不开包体，是否包体没装好？否则为什么丢了这么多数据？
3 真的没有调用成功的吗？请介绍一下啊。谢谢 急盼。

kevin_hsiang

CHECK   HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\  有無 "WORD.EXE" 的機碼及PATH內的值
同理 EXCEL 亦同

kevin_hsiang

D2KWUTIL.PLL需加载到附加程序库再编译
Win_Api_Environment.Read_Registry
就不會報錯了
/*过程参数说明:
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

suyimeng910

开始试了，能编译但点按钮报错，后来找高手解决了，原来是D2kwutil.pll的版本不对，dp2000和dp6i的程序库是有区别的，要用508kb的那个，完美解决。话说现在用6i的真是快绝种了。

Johnson_sim

UP！UPUP表示感谢

Johnson_sim

suyimeng910 发表于 2017-6-30 12:01
开始试了，能编译但点按钮报错，后来找高手解决了，原来是D2kwutil.pll的版本不对，dp2000和dp6i的程序库是 ...

兄弟 我刚入行 你说的我有点 理解不了！能帮忙具体解释一下么！小弟在此谢过！