Adquirir XML via Web

[softruz]

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.

[softruz]

Muy buenas, Antonio, ¿tendrias algún ejemplo para adquirir el XML que me retorna una web al conectarme?

Un Saludo. y mil gracias

[postinelli]

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
//----------------------------------------------------------------------------//

[softruz]

Muchas Gracias, pero me da error, ¿Donde puedo encontrar la clase TipClientHttp()?

Un Saludo.

[fgondi]

Yo uso este código para descargar los cambios de divisas que publica el banco central europeo

Code: Select all  Expand view

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 lReturn

[softruz]

Ante todo muchas gracias, pero me da error, ¿Donde puedo encontrar la clase TipClientHttp()?

Un Saludo.

[fgondi]

Pertenece a xHarbour.

Revisa esto:
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=24992

[postinelli]

enlaza Tip.lib

[Joel Andujo]

Hola, a Mi me va de 10 con la API de windows te paso el código.

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

[softruz]

Muchas gracias a todos voy a probar.

Un Saludo.