Envío de URL a internet
Envío de URL a internet
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?
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?
Un Saludo
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
- Willi Quintana
- Posts: 859
- Joined: Sun Oct 09, 2005 10:41 pm
- Location: Cusco - Perú
- Contact:
Re: Envío de URL a internet
Hola, Prueba asi..
Code: Select all
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)
Re: Envío de URL a internet
Muchas gracias Willi,Willi Quintana wrote:Hola, Prueba asi..
Code: Select all
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)
Lo probaré.
Un Saludo
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Re: Envío de URL a internet
Gracias, Willi,Willi Quintana wrote:Hola, Prueba asi..
Code: Select all
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)
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.
Un Saludo
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Re: Envío de URL a internet
Yo uso este tipo de código:
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/librar ... s.85).aspx
Code: Select all
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
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/librar ... s.85).aspx
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
Re: Envío de URL a internet
Gracias JMGarcia, esta propuesta si que ha funcionado.JmGarcia wrote:Yo uso este tipo de código:METODOS:Code: Select all
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
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/librar ... s.85).aspx
Un Saludo
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Re: Envío de URL a internet
Mira se ayuda,
Code: Select all
#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
João Santos - São Paulo - Brasil
- Willi Quintana
- Posts: 859
- Joined: Sun Oct 09, 2005 10:41 pm
- Location: Cusco - Perú
- Contact:
Re: Envío de URL a internet
Hola Amigos...
Y para leer una imagen???
Salu2
Y para leer una imagen???
Salu2
Re: Envío de URL a internet
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
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
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
- Marcelo Roggeri
- Posts: 275
- Joined: Sat Jul 22, 2006 9:04 pm
- Location: Venado Tuerto - Santa Fe -Argentina
- Contact:
Re: Envío de URL a internet
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.
FWH - Harbour - BCC7 - PellesC - FivEdit (Cristobal Navarro)
Re: Envío de URL a internet
No tengo ni idea.Marcelo Roggeri wrote: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.
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.
Un Saludo
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10
Carlos G.
FiveWin 19.06 + Harbour 3.2, BCC 7 Windows 10