Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi DLL) Azure Storage Blob Simple UploadDemonstrates the simplest possible upload to Azure Storage. The contents of a string variable are uploaded to a blob file in Azure Cloud Storage.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Rest, AuthAzureStorage; ... procedure TForm1.Button1Click(Sender: TObject); var rest: HCkRest; bTls: Boolean; port: Integer; bAutoReconnect: Boolean; success: Boolean; azAuth: HCkAuthAzureStorage; responseStr: PWideChar; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. rest := CkRest_Create(); // Connect to the Azure Storage Blob Service bTls := True; port := 443; bAutoReconnect := True; // In this example, the storage account name is "chilkat". success := CkRest_Connect(rest,'chilkat.blob.core.windows.net',port,bTls,bAutoReconnect); if (success <> True) then begin Memo1.Lines.Add(CkRest__lastErrorText(rest)); Exit; end; // Provide Azure Cloud credentials for the REST call. azAuth := CkAuthAzureStorage_Create(); CkAuthAzureStorage_putAccessKey(azAuth,'AZURE_ACCESS_KEY'); // The account name used here should match the 1st part of the domain passed in the call to Connect (above). CkAuthAzureStorage_putAccount(azAuth,'chilkat'); CkAuthAzureStorage_putScheme(azAuth,'SharedKey'); CkAuthAzureStorage_putService(azAuth,'Blob'); // This causes the "x-ms-version: 2020-08-04" header to be automatically added. CkAuthAzureStorage_putXMsVersion(azAuth,'2020-08-04'); success := CkRest_SetAuthAzureStorage(rest,azAuth); // Set some request headers. success := CkRest_AddHeader(rest,'x-ms-blob-content-disposition','attachment; filename="helloWorld.txt"'); success := CkRest_AddHeader(rest,'x-ms-blob-type','BlockBlob'); success := CkRest_AddHeader(rest,'x-ms-meta-m1','v1'); success := CkRest_AddHeader(rest,'x-ms-meta-m2','v2'); // Note: The application does not need to explicitly set the following // headers: x-ms-date, Authorization, and Content-Length. These headers // are automatically set by Chilkat. // Upload the string "Hello World!" to the file named "helloWorld.txt" located in the container named "test". responseStr := CkRest__fullRequestString(rest,'PUT','/test/helloWorld.txt','Hello World!'); if (CkRest_getLastMethodSuccess(rest) <> True) then begin Memo1.Lines.Add(CkRest__lastErrorText(rest)); Exit; end; // When successful, the Azure Storage service will respond with a 201 response code, // with an empty body. Therefore, in the success condition, the responseStr is empty. if (CkRest_getResponseStatusCode(rest) = 201) then begin Memo1.Lines.Add('File uploaded.'); end else begin // Examine the request/response to see what happened. Memo1.Lines.Add('response status code = ' + IntToStr(CkRest_getResponseStatusCode(rest))); Memo1.Lines.Add('response status text = ' + CkRest__responseStatusText(rest)); Memo1.Lines.Add('response header: ' + CkRest__responseHeader(rest)); Memo1.Lines.Add('response body (if any): ' + responseStr); Memo1.Lines.Add('---'); Memo1.Lines.Add('LastRequestStartLine: ' + CkRest__lastRequestStartLine(rest)); Memo1.Lines.Add('LastRequestHeader: ' + CkRest__lastRequestHeader(rest)); end; CkRest_Dispose(rest); CkAuthAzureStorage_Dispose(azAuth); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.