Visual FoxPro

Configure HTTP Basic Authentication for REST

Demonstrates Rest.SetAuthBasic, which configures HTTP Basic authentication from a username and password. Chilkat automatically adds the Authorization header to each request sent through the object.

Background. HTTP Basic authentication transmits credentials with every request, so it should be used over HTTPS. Credentials should be obtained from a secure source rather than hard-coded in production code.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnBAutoReconnect
LOCAL lcUsername
LOCAL lcPassword
LOCAL lcResponseText

lnSuccess = 0

loRest = CreateObject('Chilkat.Rest')
lnBTls = 1
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("example.com",443,lnBTls,lnBAutoReconnect)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

*  Normally you would not hard-code secrets in source.  You should instead obtain them from an
*  interactive prompt, environment variable, or a secrets vault.
lcUsername = "myUsername"
lcPassword = "myPassword"

*  Configure HTTP Basic authentication.  Chilkat automatically adds the Authorization header to
*  each request sent through this object.
lnSuccess = loRest.SetAuthBasic(lcUsername,lcPassword)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

lcResponseText = loRest.FullRequestNoBody("GET","/api/protected")
IF (loRest.LastMethodSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

? lcResponseText

RELEASE loRest