FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Saltar proxy con TActivex / oActiveX:Do / Navigate2
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Saltar proxy con TActivex / oActiveX:Do / Navigate2
Posted: Mon Nov 15, 2010 04:37 PM
Necesito saber el c贸digo fuente necesario para saltar un proxy (conociendo usuario y contrase帽a, claro :-) ).

Lo necesito para con la clase TActivex en la que uso instrucciones de este estilo oActiveX:Do("Navigate2",cURL)

No me funciona cuando ejecuto el programa detras de un proxy... :-) :-) :-) no se ve el contenido de la URL.
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
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Re: Saltar proxy con TActivex / oActiveX:Do / Navigate2
Posted: Wed Nov 17, 2010 10:32 PM

隆隆隆 Socorro !!!

Help !!!

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
jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Saltar proxy con TActivex / oActiveX:Do / Navigate2
Posted: Wed Nov 17, 2010 11:29 PM

Hola JmGarcia:

Depende del proxy que tengas, pero simplemente tienes que asignar en tu salida el puerto interno y en el proxy configurar el redirecionamiento de dicho puerto al real, es decir, mapearlo.

un saludo
JLL

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
JmGarcia
Posts: 654
Joined: Mon May 29, 2006 03:14 PM
Re: Saltar proxy con TActivex / oActiveX:Do / Navigate2
Posted: Thu Nov 18, 2010 12:04 AM
En otro programa que uso, del que solo uso para coger el contenido HTML de la p谩gina web deseada:
Code (fw): Select all Collapse
oHttp:=CreateObject("winhttp.winhttprequest.5.1")
...


Lo resuelvo de esta forma:
Code (fw): Select all Collapse
 聽 Try
聽 聽 聽 if OkProxy
聽 聽 聽 聽 聽oHttp:SetProxy(HTTPREQUEST_PROXYSETTING_PROXY,cProxyServer+":"+alltrim(str(nProxyPort)),cProxyNo)
聽 聽 聽 endif
聽 聽 聽 oHttp:SetTimeouts(30000,30000,30000,30000)
聽 聽 聽 oHttp:Open("GET",cUrl,.F.)
聽 聽 聽 if OkProxy
聽 聽 聽 聽 聽oHttp:SetCredentials(cUserName,cPassword,HTTPREQUEST_SETCREDENTIALS_FOR_PROXY)
聽 聽 聽 endif
聽 聽 聽 oHttp:Send()
聽 聽 聽 cTextoHTML:=oHttp:ResponseText()
聽 聽Catch
聽 聽 聽 cTextoHTML:="Error"
聽 聽End Try


y en la variable cTextoHTML tengo el texto deseado...

Pero en el caso de oActiveX:Do("Navigate2",cURL) no se como se hace...
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

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions