德启动失败了。(3153)

Question

进展ABL : OpenEdge发行版11.6

操作系统: Windows 7

Microsoft Office: 2013

描述：

这是一个报告项目。进度4GL用于生成带有Office的报表。DDE启动失败。我不知道会发生什么。我参考了进度文件，其中说同样的问题是通过OpenEdge 11.5.1版本解决的。但我不这么认为。现在我希望每个人都能给予帮助。谢谢

DDE启动失败

DDE测试代码

问题编码：

DEFINE VARIABLE ddeid AS INTEGER NO-UNDO.
DEFINE VARIABLE frame-handle AS HANDLE NO-UNDO.

CREATE FRAME frame-handle
ASSIGN visible = TRUE
       hidden  = TRUE.
       
DDE INITIATE ddeid FRAME frame-handle
APPLICATION "Excel" TOPIC "System".

Answer 1

找出原因并解决

1. 缺少winword.exe路径
2. 缺失WinExec程序

编码：

DEFINE VARIABLE ddeid AS INTEGER NO-UNDO.
DEFINE VARIABLE frame-handle AS HANDLE NO-UNDO.
DEFINE VARIABLE return-code AS INT  NO-UNDO.

CREATE FRAME frame-handle
ASSIGN visible = TRUE
       hidden  = TRUE.

PROCEDURE WinExec EXTERNAL "KERNEL32.DLL":
    DEFINE INPUT PARAMETER ProgramName AS CHARACTER.
    DEFINE INPUT PARAMETER VisualStyle AS LONG.
    DEFINE RETURN PARAMETER StatusCode AS LONG.
END PROCEDURE.

RUN WinExec(INPUT "C:\Program Files\Microsoft Office\Office15\winword.exe", INPUT 1, OUTPUT return-code).
DDE INITIATE ddeid FRAME frame-handle
APPLICATION "Winword" TOPIC "System".