FiveTech Software tech support forums

... Function SendPresencia( ) Local oHttp, e Local nTime := 0 Local lAsincronico := .T. Local cUrl := "http://www.pruyeb.es/test/bin/"+; "Presencia.php?proceso=FIVEWIN&"+; "app=PEPE" +; "&time="+Time() if ( oHttp := ::CreateHttp() ) != ...

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 la ventana. ...

... +=" var marker = new GMarker(point); "+CRLF cHtml2 +=" map.addOverlay(marker); "+CRLF cHtml2 +=" coords = marker.getPoint(); "+CRLF cHtml2 +=[ var curl = cAddressName + "<p>" + coords.toUrlValue(6) + "</p>" ]+CRLF cHtml2 +=[ var button = '<input type="button" value="Imprimir" onClick="window.print()"/>;' ...

... +=" var marker = new GMarker(point); "+CRLF cHtml2 +=" map.addOverlay(marker); "+CRLF cHtml2 +=" coords = marker.getPoint(); "+CRLF cHtml2 +=[ var curl = cAddressName + "<p>" + coords.toUrlValue(6) + "</p>" ]+CRLF cHtml2 +=[ var button = '<input type="button" value="Imprimir" onClick="window.print()"/>;' ...

func GetMyIP( cURL ) #include "tip.ch" local cMyIP := "" local oUrl, oClient cURL := if( empty(cURL), "http://www.whatismyip.org/", cURL ) oUrl := tURL():New( cURL ) if !empty( oUrl ) oClient := tIPclient():new( oUrl ) if !empty( ...

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 la ventana. ...

... función: //-----------------------------------------------------------------------------------------------------------------// FUNCTION Internet( cUrl ) cUrl := IF( "@" $ cUrl, "mailto:" + cUrl, cUrl ) IF EMPTY( cUrl ) oAsis:wInfo( "Introduzca algún valor en el campo", oApp:lAsis ) ELSE IF IsWinNT() ...

Easiest way to do this, for text is to use a turllink control

Which basically does

ShellExecute(::Hwnd, "open", ::cUrl), which you could assign to a button

... exactly he's looking for, but your sample certainly should do the trick. Any reason you're not using TOleAuto() class? I.e.: Function RunExpl( cURL ) local hE hE := TOleAuto():New("InternetExplorer.Application") hE:Visible := .T. hE:ToolBar := .F. hE:StatusBar := .F. hE:MenuBar := .F. hE:Navigate( ...

... 160, oDlf ) REDEFINE SBUTTON ID 161 OF oDlf ; Title "Starten"; BORDER ; ACTION oAnimate:CopyFiles() , DoTheUp(Down)load( oDlf, cUrl, cFile, cEmaildef, cDomein ); COLORS CLR_WHITE, CLR_RED; TOOLTIP "Starten" REDEFINE SBUTTON ID 162 OF oDlf ; Title "Cancel"; BORDER ; ACTION oDlf:End(); ...

... 160, oDlf ) REDEFINE SBUTTON ID 161 OF oDlf ; Title "Starten"; BORDER ; ACTION oAnimate:CopyFiles() , DoTheUp(Down)load( oDlf, cUrl, cFile, cEmaildef, cDomein ); COLORS CLR_WHITE, CLR_RED; TOOLTIP "Starten" REDEFINE SBUTTON ID 162 OF oDlf ; Title "Cancel"; BORDER ; ACTION oDlf:End(); ...