FiveTech Support Forums

Colegas,
Necesito leer el contenido de una pagina Web.
En venezula la indetificacion fiscal se revisa mendiante una pagina

http://www.seniat.gov.ve/BuscaRif/Busca ... V121703340

Deseo leer su contenido,
muchas gracias.

este codigo es de patrick mast

Carlos,
Muchas gracias, lo probaré.

carlos vargas wrote:este codigo es de patrick mast

Code: Select all Collapse

FUNCTION wfReadURL(cUrl)
  LOCAL cPageContent:="Error: " + cUrl + " not found or timed out."
  LOCAL oConn
 
  IF Upper(Left(cUrl,4))#"HTTP"
     cUrl:="http://"+cUrl
  ENDIF
 
  TRY
 
   oConn := TipClientHttp():New(TURL():New(cUrl))
   oConn:nConnTimeout := 20000

   IF oConn:Open(cURL)
      cPageContent := oConn:ReadAll()
      oConn:Close()
   ENDIF
   
  CATCH
   cPageContent:="Error opening " + cUrl
   
  END
 
RETURN cPageContent

Carlos,
Necesito las classes, compile y genera error de funciones inexistentes:

Compiling...
xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6195)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'c:\dpadmwin\dpftp\dpftp.prg' and generating preprocessed output to '
:\dpadmwin\dpftp\dpftp.ppo'...
Lines 569, Functions/Procedures 12
Generating C source output to 'dpftp.c'...
Done.
Borland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland
c:\dpadmwin\dpftp\dpftp.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_TIPCLIENTHTTP' referenced from C:\DPADMWIN\
PFTP\DPFTP.OBJ
Error: Unresolved external '_HB_FUN_TURL' referenced from C:\DPADMWIN\DPFTP\DPF
P.OBJ

carlos vargas wrote:este codigo es de patrick mast

Code: Select all Collapse

FUNCTION wfReadURL(cUrl)
  LOCAL cPageContent:="Error: " + cUrl + " not found or timed out."
  LOCAL oConn
 
  IF Upper(Left(cUrl,4))#"HTTP"
     cUrl:="http://"+cUrl
  ENDIF
 
  TRY
 
   oConn := TipClientHttp():New(TURL():New(cUrl))
   oConn:nConnTimeout := 20000

   IF oConn:Open(cURL)
      cPageContent := oConn:ReadAll()
      oConn:Close()
   ENDIF
   
  CATCH
   cPageContent:="Error opening " + cUrl
   
  END
 
RETURN cPageContent

TIP es una libreria incluida con xharbour al menos, con harbour no recuerdo. basta con que agreges la libreria a tu link scrip.
Si no tienes la lib, puedes encontrar los fuentes en la carpeta de xharbour, buscala y la compilas.

si no la ubicas, dime que version de xharbor usas y te consigo la lib.

salu2
carlos vargas