OpenEdge - Progress ABL：如何在对话框窗口中打开Web浏览器

Question

目前我有一个代码，允许我直接从我的Progress应用程序打开Web浏览器。

DEFINE VARIABLE cProgramName  AS CHARACTER  NO-UNDO.
DEFINE VARIABLE cPageAddress  AS CHARACTER  NO-UNDO.
DEFINE VARIABLE iReturnResult AS INTEGER    NO-UNDO.

ASSIGN
    cProgramName = "C:\Program Files\Internet Explorer\iexplore.exe"
    cPageAddress    = "http://www.progress.com".

RUN WinExec (INPUT cProgramName + CHR(32) + cPageAddress , INPUT 1, OUTPUT iReturnResult).

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.

现在我想在对话框，弹出窗口或框架内打开浏览器。我找不到任何代码来帮助我！

Answer 1

在AppBuilder中，选择＆＃34; OCX＆＃34;从调色板。然后拖动＆＃34; Microsoft Web浏览器＆＃34;框架上的Active X Control。

导航到某个网页使用：

chCtrlFrame:WebBrowser:Navigate ("http://www.progress.com").