Envío de URL a internet

[FiveWiDi]

Hola a todos,

Es posible enviar la petición de una URL a internet sin dejar abierto el browser?

Me explico, preciso enviar esta url a internet y que explorador de internet no quede abierto:

http://www.estoesloquehay.com?bebe=muchaagua

Es posible?

[Willi Quintana]

Hola, Prueba asi..

Code: Select all  Expand view

Function Pruebas()
local cUrl, oUrl, oConn
cUrl := "http://www.estoesloquehay.com?bebe=muchaagua"
oUrl := TURL():New(cUrl)
   oConn := TipClientHttp():New(oUrl)
   oConn:nConnTimeout := 50000
   Msginfo("Abierto")
Return(NIl)

 

[FiveWiDi]

Hola, Prueba asi..

Code: Select all  Expand view

Function Pruebas()
local cUrl, oUrl, oConn
cUrl := "http://www.estoesloquehay.com?bebe=muchaagua"
oUrl := TURL():New(cUrl)
   oConn := TipClientHttp():New(oUrl)
   oConn:nConnTimeout := 50000
   Msginfo("Abierto")
Return(NIl)

 

Muchas gracias Willi,

Lo probaré.

[FiveWiDi]

Hola, Prueba asi..

Code: Select all  Expand view

Function Pruebas()
local cUrl, oUrl, oConn
cUrl := "http://www.estoesloquehay.com?bebe=muchaagua"
oUrl := TURL():New(cUrl)
   oConn := TipClientHttp():New(oUrl)
   oConn:nConnTimeout := 50000
   Msginfo("Abierto")
Return(NIl)

 

Gracias, Willi,

Pero parece que no hace nada.
Poniendo en el explorer la url que quiero levantar/ejecutar funciona, pero si lo hago desde tu código no hace nada.
Investigaré un poco.

[JmGarcia]

Yo uso este tipo de código:

Code: Select all  Expand view

cURL:="http://www.fivetechsupport.com"
oHttp:=CreateObject("winhttp.winhttprequest.5.1")
oHttp:SetTimeouts(5000,5000,10000,10000)
oHttp:Open("GET",cUrl,.F.)
oHttp:Send()
oHttp:WaitForResponse()
cTexto:=oHttp:ResponseText() // Aquí la respuesta del servidor

METODOS:
SetTimeouts: Specifies, in milliseconds, the individual time-out components of a send/receive operation.
Open: Opens an HTTP connection to an HTTP resource.
Send: Sends an HTTP request to an HTTP server.
WaitForResponse: Specifies the wait time, in seconds, for an asynchronous Send method to complete, with optional time-out value.

DATAS:
ResponseText: Read-only . Retrieves the response entity body as text.

Mas información sobre el objeto "WinHttpRequest" en el MSDN de Microsoft:
https://msdn.microsoft.com/es-es/library/windows/desktop/aa384106(v=vs.85).aspx

[FiveWiDi]

Yo uso este tipo de código:

Code: Select all  Expand view

cURL:="http://www.fivetechsupport.com"
oHttp:=CreateObject("winhttp.winhttprequest.5.1")
oHttp:SetTimeouts(5000,5000,10000,10000)
oHttp:Open("GET",cUrl,.F.)
oHttp:Send()
oHttp:WaitForResponse()
cTexto:=oHttp:ResponseText() // Aquí la respuesta del servidor

METODOS:
SetTimeouts: Specifies, in milliseconds, the individual time-out components of a send/receive operation.
Open: Opens an HTTP connection to an HTTP resource.
Send: Sends an HTTP request to an HTTP server.
WaitForResponse: Specifies the wait time, in seconds, for an asynchronous Send method to complete, with optional time-out value.

DATAS:
ResponseText: Read-only . Retrieves the response entity body as text.

Mas información sobre el objeto "WinHttpRequest" en el MSDN de Microsoft:
https://msdn.microsoft.com/es-es/library/windows/desktop/aa384106(v=vs.85).aspx

Gracias JMGarcia, esta propuesta si que ha funcionado.

[karinha]

Mira se ayuda,

Code: Select all  Expand view

#include "FiveWin.ch"

Function Pruebas()

   local cUrl, oUrl, oConn, cRet, cText := "SEND TEXT"

   cUrl := "http://www.estoesloquehay.com?bebe=muchaagua"

   oUrl := TURL():New(cUrl)

   oConn := TipClientHttp():New(oUrl)

   oConn:nConnTimeout := 50000

   IF .NOT. oConn:open() // Open the connection

      MsgAlert( "Connection error:", oConn:lastErrorMessage( ) )

      RETURN NIL

   ELSE

      Msginfo("Abierto...")

      oConn:Post( cText) // Send the text

      cRet := oConn:ReadAll( ) // Receive the response

      ? cRet

      oConn:Close() // Close the connection

   ENDIF

Return Nil
 



[Willi Quintana]

Hola Amigos...
Y para leer una imagen???
Salu2

[JmGarcia]

Ahondando en la solución de karinha el código expuesto por mi se puede mejorar con el Try/Catch/End Try

Code: Select all  Expand view

cURL:="http://www.fivetechsupport.com"
Try
   oHttp:=CreateObject("winhttp.winhttprequest.5.1")
   oHttp:SetTimeouts(5000,5000,10000,10000)
   oHttp:Open("GET",cUrl,.F.)
   oHttp:Send()
   oHttp:WaitForResponse()
   cTexto:=oHttp:ResponseText() // Aquí la respuesta del servidor
   MsgInfo(cTexto,"Respuesta HTML")
Catch
   MsgStop("Error...") // O el texto que se crea conveniente
End Try

[Marcelo Roggeri]

Carlos en el ejemplo el servidor te devuelve el contenido del archivo HTML, cual es el uso que podemos darle, puede que esto sirva para sacar el valor de una pagina por ejemplo la cotización del dólar? de ciertas web.

[FiveWiDi]

Carlos en el ejemplo el servidor te devuelve el contenido del archivo HTML, cual es el uso que podemos darle, puede que esto sirva para sacar el valor de una pagina por ejemplo la cotización del dólar? de ciertas web.

No tengo ni idea.
Yo sólo quería lanzar un php con unos valores para que envíe un mail a cierto email.
No pretendo recoger el valor del HTML.