TIP and TipClientHttp() class

[JC]

Antonio and friends,


How I can obtain a manual for TIP class? I need to use tipClientHttp() and your method ::open()... but this not works.

Please, someone can help me?

[Horizon]

Hi JC,

I have not tested yet. It is given from someone of this forum. It may help you.

Code: Select all  Expand view


IF wfReadURL("http://www.test.be/test.txt") # "Error opening"
   ... File is there
ELSE
   ... File is not there
ENDIF

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

//================================================================================
FUNCTION wfSaveURL(cUrl,cSaveAs)

  LOCAL cPageContent:=wfReadURL(cUrl)
  LOCAL lReturn:=.T.
 
  IF cPageContent="Error:"
     lReturn:=.F.
  ELSE
     MemoWrite(cSaveAs,cPageContent)
     IF !File(cSaveAs)
        lReturn:=.T.
     ENDIF   
  ENDIF
 
RETURN lReturn



[JC]

Hakan,

I use transparent proxy for my connection... is necessary to define the server and port of my proxy to tip class?

If yes, how I can do?