AYUDA para Descargar Pagina WEB

[yampichu]

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]

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.

[JmGarcia]

Yo uso este código:

Code: Select all  Expand view

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.