FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Env铆o de URL a internet
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Env铆o de URL a internet
Posted: Thu Aug 27, 2015 12:39 PM

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?

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Env铆o de URL a internet
Posted: Thu Aug 27, 2015 01:36 PM
Hola, Prueba asi..

Code (fw): Select all Collapse
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
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Env铆o de URL a internet
Posted: Fri Aug 28, 2015 10:19 PM
Willi Quintana wrote:Hola, Prueba asi..

Code (fw): Select all Collapse
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茅.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Env铆o de URL a internet
Posted: Sun Aug 30, 2015 03:59 PM
Willi Quintana wrote:Hola, Prueba asi..

Code (fw): Select all Collapse
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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Re: Env铆o de URL a internet
Posted: Mon Aug 31, 2015 11:32 AM
Yo uso este tipo de c贸digo:
Code (fw): Select all Collapse
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
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
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Env铆o de URL a internet
Posted: Mon Aug 31, 2015 07:08 PM
JmGarcia wrote:Yo uso este tipo de c贸digo:
Code (fw): Select all Collapse
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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Env铆o de URL a internet
Posted: Mon Aug 31, 2015 07:51 PM
Mira se ayuda,

Code (fw): Select all Collapse
#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 - Phone: +55(11)95150-7341
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: Env铆o de URL a internet
Posted: Tue Sep 01, 2015 03:19 AM

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

JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Re: Env铆o de URL a internet
Posted: Tue Sep 01, 2015 10:54 AM
Ahondando en la soluci贸n de karinha el c贸digo expuesto por mi se puede mejorar con el Try/Catch/End Try
Code (fw): Select all Collapse
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
Marcelo Roggeri
Posts: 344
Joined: Sat Jul 22, 2006 09:04 PM
Re: Env铆o de URL a internet
Posted: Sat Sep 12, 2015 02:55 AM

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
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Env铆o de URL a internet
Posted: Sat Sep 12, 2015 02:44 PM
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.


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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions