checking an url

[driessen]

Hello,

To check an url, I use this function :

Code: Select all  Expand view

STATIC FUNCTION wfReadURL(cUrl,cNr,dUrl)

   LOCAL cFile  := SUBSTR(cUrl,RAT("/",cUrl)+1)
   LOCAL cExist := .F.

   LOCAL oUrl,oCli

   DEFAULT(dUrl,"")
   
   cUrl := LOWER(cUrl)
   
   BEGIN SEQUENCE

         oUrl := TUrl():New(cUrl)
         IF EMPTY(oUrl) ; BREAK ; ENDIF
         oCli := TIPClientHttp():New(oUrl)
         IF EMPTY(oCli) ; BREAK ; ENDIF
         IF !oCli:Open() ; BREAK ; ENDIF
         IF !oCli:ReadToFile(cFile) ; BREAK ; ENDIF
         IF PAR->TESTNOTRY
            cExist := "OK" $ UPPER(oCli:cReply)
         ELSE
            TRY
               cExist := "OK" $ UPPER(oCli:cReply)
            CATCH
               cExist := .T.
            END
         ENDIF
         oCli:Close()

   END SEQUENCE
 
RETURN(cExist)
 

Why is this function working fine while using an url starting with "http://" and why is it not working with "https://"?
In that case I got an error on the TipClienthttp:new() function.
Anyone any idea?
Thank you.

[Rick Lipkin]

Michael

I googled the difference between Http and Https ..

HTTPS is HTTP with encryption. The only difference between the two protocols is that HTTPS uses TLS (SSL) to encrypt normal HTTP requests and responses. As a result, HTTPS is far more secure than HTTP. A website that uses HTTP has http:// in its URL, while a website that uses HTTPS has https://.

Rick Lipkin

[FranciscoA]

 [/code]Why is this function working fine while using an url starting with "http://" and why is it not working with "https://"?
In that case I got an error on the TipClienthttp:new() function.
Anyone any idea?
Thank you.

Maybe this can help you.
viewtopic.php?f=6&t=37703&p=225509&hilit=nada+que+ver#p225509

[Horizon]

Hi,

Is there any solution?

[cnavarro]

You are using hbtip.lib in your example, right?
You need the lib hbtipssl.lib to support https sites.

[Natter]

URLDOWNLOADTOFILE()

or

ohttp:= CreateObject( "MSXML2.XMLHTTP" )
ohttp:Open( "GET", "https://....", 1)

[Horizon]

Thank you,

URLDOWNLOADTOFILE() function solved my problem.

[nageswaragunupudi]

Can you please try this simple function?

Code: Select all  Expand view

cRet := WebPageContents( cUrl )
if Empty( cRet )
   ? "Invalid URL"
else
   ? cRet
endif
 

[Horizon]

Can you please try this simple function?

Code: Select all  Expand view

cRet := WebPageContents( cUrl )
if Empty( cRet )
   ? "Invalid URL"
else
   ? cRet
endif
 

Thank Mr. Rao,

This functions also works successfully.

[Horizon]

Can you please try this simple function?

Code: Select all  Expand view

cRet := WebPageContents( cUrl )
if Empty( cRet )
   ? "Invalid URL"
else
   ? cRet
endif
 

Hi Mr. Rao,

Is there an option to show progress of download?

Thanks.

[nageswaragunupudi]

Is there an option to show progress of download?

No.

[FWExplorer]

Can this be used, to check the validity of sites with credentials?

[Antonio Linares]

viewtopic.php?p=234092#p234092