FiveTech Software tech support forums

Posted: **Fri Oct 23, 2020 8:16 am**

Hello,

To check an url, I use this function :

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.

Posted: **Fri Oct 23, 2020 12:56 pm**

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

Posted: **Fri Oct 23, 2020 7:31 pm**

driessen wrote: [/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.
https://forums.fivetechsupport.com/view ... er#p225509

Posted: **Tue Dec 01, 2020 10:20 am**

Hi,

Is there any solution?

Posted: **Tue Dec 01, 2020 1:40 pm**

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

Posted: **Tue Dec 01, 2020 2:28 pm**

URLDOWNLOADTOFILE()

or

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

Posted: **Wed Dec 02, 2020 7:38 am**

Thank you,

URLDOWNLOADTOFILE() function solved my problem.

Posted: **Wed Dec 02, 2020 8:34 am**

Can you please try this simple function?

Code: Select all

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

Posted: **Wed Dec 02, 2020 8:52 am**

nageswaragunupudi wrote:Can you please try this simple function?
Code: Select all
cRet := WebPageContents( cUrl )
if Empty( cRet )
   ? "Invalid URL"
else
   ? cRet
endif
 

Thank Mr. Rao,

This functions also works successfully.

Posted: **Wed Dec 09, 2020 1:43 pm**

nageswaragunupudi wrote:Can you please try this simple function?
Code: Select all
cRet := WebPageContents( cUrl )
if Empty( cRet )
   ? "Invalid URL"
else
   ? cRet
endif
 

Hi Mr. Rao,

Is there an option to show progress of download?

Thanks.

Posted: **Wed Dec 09, 2020 3:11 pm**

Is there an option to show progress of download?

No.

Posted: **Sat Dec 19, 2020 11:43 pm**

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

Posted: **Tue Dec 29, 2020 5:10 pm**

http://forums.fivetechsupport.com/viewt ... 92#p234092

FiveTech Software tech support forums

checking an url

checking an url

Re: checking an url

Re: checking an url

Re: checking an url

Re: checking an url

Re: checking an url

Re: checking an url

Re: checking an url

Re: checking an url

Re: checking an url

Re: checking an url

Re: checking an url

Re: checking an url