Query website save response

[cdmmaui]

Good Day Everyone!

Does anyone have a sample code they can share where a website is queried and response saved?

Thank you in advance for your help!

Sincerely,

[rhlawek]

I use this for quick access. Must link in hbtip and call InetInit() somewhere in your code.

Code: Select all

FUNCTION GETURL( cURL, nBytes )

   LOCAL cRetValue := ""

   hb_default( @nBytes, 00 )

   WITH OBJECT TIPClientHTTP():new( cURL )
      IF :open()
         :Get()
         IF nBytes == 00
            cRetValue := :readall()
         ELSE
            cRetValue := :read( nBytes )
         ENDIF
      ENDIF
      :close()
   END

   RETURN ( cRetValue )
 

Robb

[cdmmaui]

Hi Robb,

Thank you!