Error in webexp compiled with Borland 582

[devtuxtla]

Hello FiveWinners

This example WebExp.prg of 10.3 FWH version compiled with the Borland version 5.82 does not work, it freezes when running the application.

Basically it turn explorer:



#include "FiveWin.ch"

function Main()

local oWnd, oActiveX
local cEvents := ""

DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"

oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )

oWnd:oClient = oActiveX // To fill the entire window surface

// oActiveX:GoHome()
oActiveX:Navigate( "http://www.google.com" )

// oActiveX:StatusBar = .t.

oActiveX:bOnEvent = { | event, aParams, pParams | cEvents += EventInfo( event, aParams, pParams, oActiveX ) }

ACTIVATE WINDOW oWnd ;
VALID ( MemoEdit( cEvents ), .t. )

return nil


Anyone know the trick?

regards

[Rick Lipkin]

devtuxtla

Try it this way ..

Rick Lipkin

Code: Select all  Expand view

#include "fivewin.ch"

//--------------------
Func Main()

local IE, cUrl,cSay


cURL := "www.google.com"

TRY
   IE := CreateObject("InternetExplorer.Application")
CATCH
   cSAY := "Could not Create Browser Object"
   MsgInfo( cSay )
   
   SysReFresh()
   RETURN(.F.)
END TRY

IE:Visible := .t. // .f. for invisible
IE:Navigate( cURL )

Do While IE:Readystate <> 4
   SysWait(.5)
   SysRefresh()
   Loop
Enddo

// ie should now be open ..
// wait 10 seconds then close

SysWait(10)


try
   IE:Quit()
catch
end try

return(nil)

 

[devtuxtla]

Hello Rick

Thanks for the reply.

This example opens the browser and the code will execute the page we want, but do so within the application window.

Is there any way that the page is displayed within the application, as does the example of WebExp?

regards