FiveTech Software tech support forums

Posted: **Mon May 25, 2015 4: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-itmrconsr ... cion=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.

Posted: **Thu Jun 04, 2015 9: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.

Posted: **Thu Jun 04, 2015 10:23 am**

Yo uso este código:

Code: Select all

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.

FiveTech Software tech support forums

AYUDA para Descargar Pagina WEB

AYUDA para Descargar Pagina WEB

Re: AYUDA para Descargar Pagina WEB

Re: AYUDA para Descargar Pagina WEB