FiveTech Software tech support forums

... Support" oActiveX = TActiveX():New( oWnd, "Shell.Explorer.2" ) oWnd:oClient = oActiveX // To fill the entire window surface oActiveX:Do("Navigate2",(CurDrive() + ":\"+CurDir()+"\MiHtml.htm")) ACTIVATE WINDOW oWnd Acontece que não obtive sucesso em ver o mapa, executando diretamente a ...

... AllTrim( cCity ) ) cHtml = StrTran( cHtml, "<<COUNTRY>>", AllTrim( cCountry ) ) MemoWrit( "temp.html", cHtml ) oActiveX:Do( "Navigate2", CurDrive() + ":" + CurDir() + "\temp.html" ) return nil http://img150.imageshack.us/img150/9775/demosl6.png Hi Shrkod, ...

... AllTrim( cCity ) ) cHtml = StrTran( cHtml, "<<COUNTRY>>", AllTrim( cCountry ) ) MemoWrit( "temp.html", cHtml ) oActiveX:Do( "Navigate2", CurDrive() + ":\" + CurDir() + "\temp.html" ) return nil http://img150.imageshack.us/img150/9775/demosl6.png

... oActiveX DEFINE WINDOW oWnd TITLE "Google Maps" oActiveX = TActiveX():New( oWnd, "Shell.Explorer" ) oWnd:oClient = oActiveX oActiveX:Do( "Navigate2", CurDrive() + ":\" + CurDir() + "\gmap.html" ) ACTIVATE WINDOW oWnd return nil And gmap.html, replace the address into it using StrTran() ...

Estoy leyendo paginas HTML con Activex, ejemplo oActiveX:Do("Navigate2",alltrim(cURL)), y con un Timer voy refrescando el contenido de la visualizacion. Me gustarian hacer 2 cosas con Activex: Quedarme con un Print-Screen (JPG) del contenido de ...

... WINDOW oWnd2 FROM 0, 0 TO 40, 85 MENU oMenu oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" ) oWnd2:oClient = oActiveX oActiveX:Do( "Navigate2", cAesdd + cHan ) ACTIVATE WINDOW oWnd2 NORMAL Thank you,

... ) ICON oIcon oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" ) oWnd2:oClient = oActiveX // To fill the entire window surface oActiveX:Do( "Navigate2", cAesdd + cHan ) ACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd ) RETURN nil

... cHan := "" DEFINE WINDOW oWnd2 oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" ) oWnd2:oClient = oActiveX oActiveX:Do( "Navigate2", cAesdd + cHan ) ACTIVATE WINDOW oWnd2 //ON INIT BringWindowToTop( oWnd2:hWnd ) return nil // eof

... cAesdd := ... cHan := ... DEFINE WINDOW oWnd2 oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" ) oWnd2:oClient = oActiveX oActiveX:Do( "Navigate2", cAesdd + cHan ) ACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd ) return nil --------------- James

... ) ICON oIcon oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" ) oWnd2:oClient = oActiveX // To fill the entire window surface oActiveX:Do( "Navigate2", cAesdd + cHan ) ACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd ) // Init... dProcdate := DATE() cProctime := TIME() cProcuser ...

... ) ICON oIcon oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" ) oWnd2:oClient = oActiveX // To fill the entire window surface oActiveX:Do( "Navigate2", cAesdd + cHan ) ACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd )

... WINDOW oWnd2 FROM 0, 0 TO 40, 85 MENU oMenu oActiveX = TActiveX():New( oWnd2, "Shell.Explorer" ) oWnd2:oClient = oActiveX oActiveX:Do( "Navigate2", cAesdd + cHan ) ACTIVATE WINDOW oWnd2 VALID ( oActiveX:End(), .T. ) Thank You,

Wanderson, Sólo tienes que volver a crear MiHtml.htm y llamar de nuevo a: oActiveX:Do("Navigate2",(CurDrive() + ":"+CurDir()+"\MiHtml.htm")) Si Antonio, mas o efeito no es o mesmo quando se passa solamente latitude e longitude ao google earth no quiero que ...

Wanderson,

Sólo tienes que volver a crear MiHtml.htm y llamar de nuevo a:

oActiveX:Do("Navigate2",(CurDrive() + ":\"+CurDir()+"\MiHtml.htm"))

... Foxpro code to get internet IP. Anyone can help to translate it to FWH plz :- loExplorer = CreateObject("InternetExplorer.Application") loExplorer.Navigate2("www.whatismyip.com") DO WHILE loExplorer.readystate <> 4 ENDDO loDoc = loExplorer.Document cIp = UPPER(loDoc.Body.Innertext)