Chilkat Xojo Plugin Download

// Azure Blob Service Example: Upload the contents of a string variable to a block blob.// This creates a new block blob or replaces an existing one in its entirety.// See also: https://msdn.microsoft.com/en-us/library/azure/dd179451.aspx// This example requires the Chilkat API to have been previously unlocked.// See Global Unlock Sample for sample code.Dim rest As NewChilkat.Rest// Connect to the Azure Storage Blob ServiceDim bTls As Boolean
bTls = TrueDim port As Int32
port = 443Dim bAutoReconnect As Boolean
bAutoReconnect = True// In this example, the storage account name is "chilkat".Dim success As Boolean
success = rest.Connect("chilkat.blob.core.windows.net",port,bTls,bAutoReconnect)
If (success <> True) Then
System.DebugLog(rest.LastErrorText)
ReturnEnd If// Provide Azure Cloud credentials for the REST call.Dim azAuth As NewChilkat.AuthAzureStorage
azAuth.AccessKey = "AZURE_ACCESS_KEY"// The account name used here should match the 1st part of the domain passed in the call to Connect (above).
azAuth.Account = "chilkat"
azAuth.Scheme = "SharedKey"
azAuth.Service = "Blob"// This causes the "x-ms-version: 2015-02-21" header to be automatically added.
azAuth.XMsVersion = "2015-02-21"
success = rest.SetAuthAzureStorage(azAuth)
// Note: The application does not need to explicitly set the following// headers: Content-Length, x-ms-date, Authorization. These headers// are automatically set by Chilkat.// IMPORTANT: Make sure to set the x-ms-blob-type header:
success = rest.AddHeader("x-ms-blob-type","BlockBlob")
// After uploading, the block blob named helloWorld.txt (in the container named "mycontainer")// will contain the following string:Dim blobContents As String
blobContents = "Hello World!"// Note: The maximum size of a block blob created by uploading in a single step is 64MB.// For larger files, the upload must be broken up into blocks. There is another Chilkat example for that..Dim responseStr As String
responseStr = rest.FullRequestString("PUT","/mycontainer/helloWorld.txt",blobContents)
If (rest.LastMethodSuccess <> True) Then
System.DebugLog(rest.LastErrorText)
ReturnEnd If// When successful, the Azure Storage service will respond with a 201 response status code,// with no response body.If (rest.ResponseStatusCode <> 201) Then// Examine the request/response to see what happened.
System.DebugLog("response status code = " + Str(rest.ResponseStatusCode))
System.DebugLog("response status text = " + rest.ResponseStatusText)
System.DebugLog("response header: " + rest.ResponseHeader)
System.DebugLog("response body (if any): " + responseStr)
System.DebugLog("---")
System.DebugLog("LastRequestStartLine: " + rest.LastRequestStartLine)
System.DebugLog("LastRequestHeader: " + rest.LastRequestHeader)
ReturnEnd If
System.DebugLog("Success.")