L
lucooms
Guest
This seems to work I have added a persistend procedure to the Control frame wlogical = CtrlFrame:ADD-EVENTS-PROCEDURE( whproc ) . This presistent procedure is running PROCEDURE FrmWebBrowse.WebBrowser.BeforeNavigate2 : DEFINE INPUT PARAMETER pDisp AS COM-HANDLE. DEFINE INPUT PARAMETER URL AS CHARACTER. DEFINE INPUT PARAMETER Flags AS INTEGER. DEFINE INPUT PARAMETER TargetFrameName AS CHARACTER. DEFINE INPUT PARAMETER PostData AS MEMPTR. DEFINE INPUT PARAMETER Headers AS LONGCHAR. DEFINE INPUT-OUTPUT PARAMETER Cancel AS LOGICAL. DEFINE VARIABLE wicounter AS INTEGER NO-UNDO. DEFINE VARIABLE lTEXT AS LONGCHAR NO-UNDO. wicounter = GET-SIZE(PostData) NO-ERROR. IF ERROR-STATUS:ERROR THEN MESSAGE " IN navigate 2 " VIEW-AS ALERT-BOX. ELSE DO : MESSAGE " IN navigate 2 " wicounter GET-STRING(PostData,1) VIEW-AS ALERT-BOX. END. END PROCEDURE.
Continue reading...
Continue reading...