Xojo Plugin

Call an AWS Lambda Function

See more AWS Misc Examples

Demonstrates how to call an AWS Lambda function. Xojo Plugin

Dim success As Boolean
success = False

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

Dim rest As New Chilkat.Rest

// Connect to the Amazon AWS REST server.
// such as https://email.us-west-2.amazonaws.com/
Dim bTls As Boolean
bTls = True
Dim port As Int32
port = 443
Dim bAutoReconnect As Boolean
bAutoReconnect = True

// -------------------------------------------------------------------------------------------
// Note: The source of the lambda function (hosted on AWS) is shown at the bottom of this page.
// --------------------------------------------------------------------------------------------

// If your lambda function URL is: https://itwxyj3vd6gjtaerbfqnfccs2e0fplzh.lambda-url.us-west-2.on.aws/
// then use just the domain part here:
success = rest.Connect("itwxyj3vd6gjtaerbfqnfccs2e0fplzh.lambda-url.us-west-2.on.aws",port,bTls,bAutoReconnect)

// Provide AWS credentials for the REST call.
Dim authAws As New Chilkat.AuthAws
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
// the region should match our domain above..
authAws.Region = "us-west-2"
authAws.ServiceName = "lambda"

success = rest.SetAuthAws(authAws)

Dim json As New Chilkat.JsonObject
success = json.UpdateString("name","Benny")

success = rest.AddHeader("Content-Type","application/json")

Dim sbRequestBody As New Chilkat.StringBuilder
success = json.EmitSb(sbRequestBody)

Dim sbResponseBody As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST","/",sbRequestBody,sbResponseBody)
If (success = False) Then
    System.DebugLog(rest.LastErrorText)
    Return
End If

Dim statusCode As Int32
statusCode = rest.ResponseStatusCode
If (statusCode >= 400) Then
    System.DebugLog("Response Status Code: " + Str(statusCode))
    System.DebugLog("Response Body: " + sbResponseBody.GetAsString())
    System.DebugLog("Failed.")
    Return
End If

System.DebugLog("Response Body:")
System.DebugLog(sbResponseBody.GetAsString())