OpenEdge

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.

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

Answer 1

在 AppBuilder 中，从调色板中选择 "OCX"。然后将 "Microsoft Web Browser" Active X 控件拖到框架上。

要导航到某个网页，请使用：

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

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

OpenEdge - Progress ABL: How to open a web browser inside a dialog window

4gl

progress-4gl