Muy buenas, tengo una web que cuando me identifico me devuelve un XML y me lo muestra en el explorador y me gustaria saber si teneis un ejemplo de como adquirir ese XML pasandole la direccion Ej: https://....., para despues tratarlo.
Un Saludo.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Adquirir XML via Web
Muy buenas, Antonio, ¿tendrias algún ejemplo para adquirir el XML que me retorna una web al conectarme?
Un Saludo. y mil gracias
Yo bajo así archivos específicos de sitios específicos, quizás te sirva
//----------------------------------------------------------------------------//
Function Download(origen, Bajaron)
LOCAL cURL, cSaveAs, nFileSize
cURL := "http://www.tusitio.com.ar/docs/"+origen+".zip"
cSaveAs := origen+".zip"
nFileSize := Get_File_Size(cURL)
If nFileSize>1000 //0
IF wfSaveURL(cURL, cSaveAs, nFileSize)
MsgWait(origen + " descargado OK","Envío a Central HTML",1) // ... File is there AND downloaded as cSaveAs
ELSE
MsgWait(origen + " No Disponible","Envío a Central HTML",1) // ... File is not there
ENDIF
EndIf
RETURN Bajaron
//----------------------------------------------------------------------------//
FUNCTION wfSaveURL(cUrl, cSaveAs, nFileSize)
LOCAL oConn, lReturn:=.T.
DEFAULT nFileSize := 0
IF Upper(Left(cUrl,4))#"HTTP"
cUrl:="http://"+cUrl
ENDIF
TRY
oConn := TipClientHttp():New(TURL():New(cUrl))
oConn:nConnTimeout := 20000
IF oConn:Open(cURL)
oConn:ReadToFile(cSaveAs,,nFileSize)
oConn:Close()
ENDIF
CATCH
lReturn := .F.
END
RETURN lReturn
//----------------------------------------------------------------------------//
Muchas Gracias, pero me da error, ¿Donde puedo encontrar la clase TipClientHttp()?
Un Saludo.
Yo uso este código para descargar los cambios de divisas que publica el banco central europeo
ps_DownloadHttp( "http://www.ecb.europa.eu/stats/eurofxref/eurofxref-hist-90d.xml", "eurofxref-hist-90d.xml")
static func ps_DownloadHttp( cURL, cSaveAs)
LOCAL nFileSize := Get_File_Size(cURL)
LOCAL oConn, lReturn:=.T.
if File( cSaveAs )
fErase( cSaveAs )
endif
IF Upper(Left(cUrl,4))#"HTTP"
cUrl:="http://"+cUrl
ENDIF
TRY
oConn := TipClientHttp():New(TURL():New(cUrl))
oConn:nConnTimeout := 20000
IF oConn:Open(cURL)
oConn:ReadToFile(cSaveAs,,nFileSize)
oConn:Close()
ENDIF
CATCH
lReturn := .F.
END
RETURN lReturnUn saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
Ante todo muchas gracias, pero me da error, ¿Donde puedo encontrar la clase TipClientHttp()?
Un Saludo.
Un saludo
Fernando González Diez
ALSIS Sistemas Informáticos
Fernando González Diez
ALSIS Sistemas Informáticos
enlaza Tip.lib
Hola, a Mi me va de 10 con la API de windows te paso el código.
saludos a todos
Joel Andujo
saludos a todos
Joel Andujo
*----------------------------*
func 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 hlib
Muchas gracias a todos voy a probar.
Un Saludo.