Delphi DLL

Create a New Table in an Azure Storage Account

See more Azure Table Service Examples

Creates a new table using the Azure Table Service REST API. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder, Rest, AuthAzureStorage, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
rest: HCkRest;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
azAuth: HCkAuthAzureStorage;
json: HCkJsonObject;
sbRequestBody: HCkStringBuilder;
sbResponseBody: HCkStringBuilder;
respStatusCode: Integer;
jsonResponse: HCkJsonObject;
odata_metadata: PWideChar;
odata_type: PWideChar;
odata_id: PWideChar;
odata_editLink: PWideChar;
TableName: PWideChar;

begin
success := False;

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

rest := CkRest_Create();

// Implements the following CURL command:

// curl -X POST \
//   -H "Content-Type: application/json" \
//   -H "Accept: application/json;odata=fullmetadata" \
//   -H "Prefer: return-content" \
//   -d '{   
//     "TableName":"mytable"  
// }' https://myaccount.table.core.windows.net/Tables

// Use the following online tool to generate REST code from a CURL command
// Convert a cURL Command to REST Source Code

// IMPORTANT: Make sure to change "myaccount" to your actual Azure Storage Account name.
// URL: https://myaccount.table.core.windows.net/Tables
bTls := True;
port := 443;
bAutoReconnect := True;
success := CkRest_Connect(rest,'myaccount.table.core.windows.net',port,bTls,bAutoReconnect);
if (success <> True) then
  begin
    Memo1.Lines.Add('ConnectFailReason: ' + IntToStr(CkRest_getConnectFailReason(rest)));
    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,'myaccount');
CkAuthAzureStorage_putScheme(azAuth,'SharedKey');
CkAuthAzureStorage_putService(azAuth,'Table');

// This causes the "x-ms-version: 2019-07-07" header to be automatically added.
CkAuthAzureStorage_putXMsVersion(azAuth,'2019-07-07');
success := CkRest_SetAuthAzureStorage(rest,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.

// Note: The above code does not need to be repeatedly called for each REST request.
// The rest object can be setup once, and then many requests can be sent.  Chilkat will automatically
// reconnect within a FullRequest* method as needed.  It is only the very first connection that is explicitly
// made via the Connect method.

// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON

// The following JSON is sent in the request body.

// {
//   "TableName": "mytable"
// }

json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'TableName','mytable');

CkRest_AddHeader(rest,'Accept','application/json;odata=fullmetadata');
CkRest_AddHeader(rest,'Prefer','return-content');
CkRest_AddHeader(rest,'Content-Type','application/json');

sbRequestBody := CkStringBuilder_Create();
CkJsonObject_EmitSb(json,sbRequestBody);
sbResponseBody := CkStringBuilder_Create();
success := CkRest_FullRequestSb(rest,'POST','/Tables',sbRequestBody,sbResponseBody);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;
respStatusCode := CkRest_getResponseStatusCode(rest);
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkRest__responseHeader(rest));
    Memo1.Lines.Add('Response Body:');
    Memo1.Lines.Add(CkStringBuilder__getAsString(sbResponseBody));
    Exit;
  end;

jsonResponse := CkJsonObject_Create();
CkJsonObject_LoadSb(jsonResponse,sbResponseBody);

CkJsonObject_putEmitCompact(jsonResponse,False);
Memo1.Lines.Add(CkJsonObject__emit(jsonResponse));

odata_metadata := CkJsonObject__stringOf(jsonResponse,'"odata.metadata"');
odata_type := CkJsonObject__stringOf(jsonResponse,'"odata.type"');
odata_id := CkJsonObject__stringOf(jsonResponse,'"odata.id"');
odata_editLink := CkJsonObject__stringOf(jsonResponse,'"odata.editLink"');
TableName := CkJsonObject__stringOf(jsonResponse,'TableName');

CkRest_Dispose(rest);
CkAuthAzureStorage_Dispose(azAuth);
CkJsonObject_Dispose(json);
CkStringBuilder_Dispose(sbRequestBody);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jsonResponse);

end;