topic-30754

Posts: 3

Joined: Sat May 23, 2015 05:43 PM

AYUDA para Descargar Pagina WEB
Posted: Mon May 25, 2015 04:02 PM

HOla AMigos, Necesito descargar una Imagen de la Pagina WEB, pero en este caso necesito usar el URLMON o internet.explorer como procesos
En realidad he visto tambien WGET, pero no hace lo que deseo exactamente, por eso deseo usar esos procedimientos que mencione.

He usado este proceso que encontre en en foro, pero me vota un ERROR, al compilar y ejecutar
Syntax error: "syntax error at 'FUCTION'
***********
cHttp:='http://www.sunat.gob.pe/cl-ti-itmrconsruc/captcha?accion=image'
if !URLDownLoad(cHttp, 'c:\SunatX.jpg')
mensaje('Error : '+cHttp)
else
? memoread('c:\SunatX.jpg')
endif

*----------------------------*
function URLDownLoad(cUrl, cSaveAs)
//hLib = LOADLIBRARY( "urlmon.dll")
if !URLDownloadToFile( 0, cUrl, cSaveAs, 0, 0 ) == 0
retu.f.
endif
//FREELIBRARY( hLib )
retu.t.

DLL32 FUNCTION URLDownloadToFile(pCaller AS LONG,szURL AS STRING, szFileName AS STRING, dwReserved AS LONG, lpfnCB AS LONG);
AS LONG PASCAL;
FROM "URLDownloadToFileA";
LIB "urlmon.dll"
//hlib
************

Si alguno tiene alguno modo de resolverlo o algo similar, estare muy agradecido.

jnavas

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

Re: AYUDA para Descargar Pagina WEB
Posted: Thu Jun 04, 2015 09:19 AM

Saludos
Harbour tiene una funcion para lectura de paginas Web. Estoy buscando en mis aplicaciones su nombre, lo he utilizado desde hace 10 años.

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Re: AYUDA para Descargar Pagina WEB
Posted: Thu Jun 04, 2015 10:23 AM

Yo uso este código:

Code (fw): Select all Collapse

cUrl:="http://www.fivetechsoft.com"
oHttp:=CreateObject("winhttp.winhttprequest.5.1")
oHttp:SetTimeouts(30000,30000,30000,30000)
oHttp:Open("GET",cUrl,.F.) // también se puede usar esto oHttp:Open("PUT",cUrl,.F.)
oHttp:Send()
cTextoHTML:=oHttp:ResponseText()

En la variable cTextoHTML tienes la página web recibida.

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

FiveTech Support Forums

Continue the discussion