Unicode C
Unicode C
Upload File in Blocks (with Content-MD5 header) and Commit the Block List
See more Azure Cloud Storage Examples
Demonstrates how to upload a file in blocks and then commit the block list. This example includes a Content-MD5 header for each block.Chilkat Unicode C Downloads
#include <C_CkRestW.h>
#include <C_CkAuthAzureStorageW.h>
#include <C_CkXmlW.h>
#include <C_CkFileAccessW.h>
#include <C_CkCrypt2W.h>
#include <C_CkStringBuilderW.h>
#include <C_CkBinDataW.h>
void ChilkatSample(void)
{
BOOL success;
HCkRestW rest;
BOOL bTls;
int port;
BOOL bAutoReconnect;
HCkAuthAzureStorageW azAuth;
HCkXmlW xml;
HCkFileAccessW fac;
int blockSize;
int numBlocks;
HCkCrypt2W crypt;
HCkStringBuilderW sbResponseBody;
HCkStringBuilderW uriPath;
const wchar_t *blockId;
HCkBinDataW dataBlock;
const wchar_t *contentMd5;
int i;
const wchar_t *xmlStr;
const wchar_t *responseStr;
success = FALSE;
// Azure Blob Service Example: Upload a file in blocks, and then commit the block list.
// See also: https://msdn.microsoft.com/en-us/library/azure/dd135726.aspx
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
rest = CkRestW_Create();
// Connect to the Azure Storage Blob Service
bTls = TRUE;
port = 443;
bAutoReconnect = TRUE;
// In this example, the storage account name is "chilkat".
success = CkRestW_Connect(rest,L"chilkat.blob.core.windows.net",port,bTls,bAutoReconnect);
if (success != TRUE) {
wprintf(L"%s\n",CkRestW_lastErrorText(rest));
CkRestW_Dispose(rest);
return;
}
// Provide Azure Cloud credentials for the REST call.
azAuth = CkAuthAzureStorageW_Create();
CkAuthAzureStorageW_putAccessKey(azAuth,L"AZURE_ACCESS_KEY");
// The account name used here should match the 1st part of the domain passed in the call to Connect (above).
CkAuthAzureStorageW_putAccount(azAuth,L"chilkat");
CkAuthAzureStorageW_putScheme(azAuth,L"SharedKey");
CkAuthAzureStorageW_putService(azAuth,L"Blob");
// This causes the "x-ms-version: 2021-08-06" header to be automatically added.
CkAuthAzureStorageW_putXMsVersion(azAuth,L"2021-08-06");
success = CkRestW_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.
// As the blocks are uploaded, we'll keep an XML block list for the subsequent commit..
xml = CkXmlW_Create();
CkXmlW_putTag(xml,L"BlockList");
// Any type of file can be uploaded in this way. It can a text file, binary file, anything...
// This example will upload an XML file that is approximately 275K in size. It can be downloaded
// at http://www.chilkatsoft.com/hamlet.xml
fac = CkFileAccessW_Create();
success = CkFileAccessW_OpenForRead(fac,L"qa_data/xml/hamlet.xml");
// Assuming success for the example..
// We'll upload in 16K blocks (normally a program would upload in larger block sizes than this,
// but this is just an example...)
blockSize = 16384;
// How many 16K blocks? (Including 1 for the last partial block)
numBlocks = CkFileAccessW_GetNumBlocks(fac,blockSize);
crypt = CkCrypt2W_Create();
CkCrypt2W_putHashAlgorithm(crypt,L"md5");
sbResponseBody = CkStringBuilderW_Create();
uriPath = CkStringBuilderW_Create();
dataBlock = CkBinDataW_Create();
i = 0;
while (i < numBlocks) {
CkBinDataW_Clear(dataBlock);
success = CkFileAccessW_ReadBlockBd(fac,i,blockSize,dataBlock);
if (success == FALSE) {
wprintf(L"%s\n",CkFileAccessW_lastErrorText(fac));
CkRestW_Dispose(rest);
CkAuthAzureStorageW_Dispose(azAuth);
CkXmlW_Dispose(xml);
CkFileAccessW_Dispose(fac);
CkCrypt2W_Dispose(crypt);
CkStringBuilderW_Dispose(sbResponseBody);
CkStringBuilderW_Dispose(uriPath);
CkBinDataW_Dispose(dataBlock);
return;
}
// Generate a base64 block ID.
// (Chilkat provides a helper method named GenBlockId to make this easy)
// A pre-base64 encoded block ID length of 4 is sufficient in this case because
// this file certainly won't have more than 99,999 blocks..
blockId = CkFileAccessW_genBlockId(fac,i,4,L"base64");
// Add this blockId to the list of blocks to be committed.
CkXmlW_NewChild2(xml,L"Latest",blockId);
// Build the URI path
CkStringBuilderW_Clear(uriPath);
success = CkStringBuilderW_Append(uriPath,L"/mycontainer/hamlet.xml?comp=block&blockId=");
success = CkStringBuilderW_Append(uriPath,blockId);
contentMd5 = CkCrypt2W_hashBdENC(crypt,dataBlock);
CkRestW_AddHeader(rest,L"Content-MD5",contentMd5);
// Upload this block..
CkStringBuilderW_Clear(sbResponseBody);
success = CkRestW_FullRequestBd(rest,L"PUT",CkStringBuilderW_getAsString(uriPath),dataBlock,sbResponseBody);
if (success == FALSE) {
wprintf(L"%s\n",CkRestW_lastErrorText(rest));
CkRestW_Dispose(rest);
CkAuthAzureStorageW_Dispose(azAuth);
CkXmlW_Dispose(xml);
CkFileAccessW_Dispose(fac);
CkCrypt2W_Dispose(crypt);
CkStringBuilderW_Dispose(sbResponseBody);
CkStringBuilderW_Dispose(uriPath);
CkBinDataW_Dispose(dataBlock);
return;
}
// Verify that we received a 201 status code.
if (CkRestW_getResponseStatusCode(rest) != 201) {
// Examine the request/response to see what happened.
wprintf(L"response status code = %d\n",CkRestW_getResponseStatusCode(rest));
wprintf(L"response status text = %s\n",CkRestW_responseStatusText(rest));
wprintf(L"response header: %s\n",CkRestW_responseHeader(rest));
wprintf(L"response body (if any): %s\n",CkStringBuilderW_getAsString(sbResponseBody));
wprintf(L"---\n");
wprintf(L"LastRequestStartLine: %s\n",CkRestW_lastRequestStartLine(rest));
wprintf(L"LastRequestHeader: %s\n",CkRestW_lastRequestHeader(rest));
CkRestW_Dispose(rest);
CkAuthAzureStorageW_Dispose(azAuth);
CkXmlW_Dispose(xml);
CkFileAccessW_Dispose(fac);
CkCrypt2W_Dispose(crypt);
CkStringBuilderW_Dispose(sbResponseBody);
CkStringBuilderW_Dispose(uriPath);
CkBinDataW_Dispose(dataBlock);
return;
}
i = i + 1;
}
CkFileAccessW_FileClose(fac);
// Now commit the blocks.
// Let's have a look at the XML that will commit the blocks:
xmlStr = CkXmlW_getXml(xml);
wprintf(L"%s\n",xmlStr);
// The XML will look like this:
// <?xml version="1.0" encoding="utf-8" ?>
// <BlockList>
// <Latest>MDAwMA==</Latest>
// <Latest>MDAwMQ==</Latest>
// <Latest>MDAwMg==</Latest>
// <Latest>MDAwMw==</Latest>
// <Latest>MDAwNA==</Latest>
// <Latest>MDAwNQ==</Latest>
// <Latest>MDAwNg==</Latest>
// <Latest>MDAwNw==</Latest>
// <Latest>MDAwOA==</Latest>
// <Latest>MDAwOQ==</Latest>
// <Latest>MDAxMA==</Latest>
// <Latest>MDAxMQ==</Latest>
// <Latest>MDAxMg==</Latest>
// <Latest>MDAxMw==</Latest>
// <Latest>MDAxNA==</Latest>
// <Latest>MDAxNQ==</Latest>
// <Latest>MDAxNg==</Latest>
// <Latest>MDAxNw==</Latest>
// </BlockList>
// --------------------------------------------------------------------------
// IMPORTANT: Remove the Content-MD5 header previously set in the loop above.
// --------------------------------------------------------------------------
CkRestW_RemoveHeader(rest,L"Content-MD5");
// Send the PUT Block List...
responseStr = CkRestW_fullRequestString(rest,L"PUT",L"/mycontainer/hamlet.xml?comp=blocklist",xmlStr);
if (CkRestW_getLastMethodSuccess(rest) != TRUE) {
wprintf(L"%s\n",CkRestW_lastErrorText(rest));
CkRestW_Dispose(rest);
CkAuthAzureStorageW_Dispose(azAuth);
CkXmlW_Dispose(xml);
CkFileAccessW_Dispose(fac);
CkCrypt2W_Dispose(crypt);
CkStringBuilderW_Dispose(sbResponseBody);
CkStringBuilderW_Dispose(uriPath);
CkBinDataW_Dispose(dataBlock);
return;
}
// When successful, the Azure Storage service will respond with a 201 response status code,
// with no response body.
if (CkRestW_getResponseStatusCode(rest) != 201) {
// Examine the request/response to see what happened.
wprintf(L"response status code = %d\n",CkRestW_getResponseStatusCode(rest));
wprintf(L"response status text = %s\n",CkRestW_responseStatusText(rest));
wprintf(L"response header: %s\n",CkRestW_responseHeader(rest));
wprintf(L"response body (if any): %s\n",responseStr);
wprintf(L"---\n");
wprintf(L"LastRequestStartLine: %s\n",CkRestW_lastRequestStartLine(rest));
wprintf(L"LastRequestHeader: %s\n",CkRestW_lastRequestHeader(rest));
CkRestW_Dispose(rest);
CkAuthAzureStorageW_Dispose(azAuth);
CkXmlW_Dispose(xml);
CkFileAccessW_Dispose(fac);
CkCrypt2W_Dispose(crypt);
CkStringBuilderW_Dispose(sbResponseBody);
CkStringBuilderW_Dispose(uriPath);
CkBinDataW_Dispose(dataBlock);
return;
}
wprintf(L"Success.\n");
CkRestW_Dispose(rest);
CkAuthAzureStorageW_Dispose(azAuth);
CkXmlW_Dispose(xml);
CkFileAccessW_Dispose(fac);
CkCrypt2W_Dispose(crypt);
CkStringBuilderW_Dispose(sbResponseBody);
CkStringBuilderW_Dispose(uriPath);
CkBinDataW_Dispose(dataBlock);
}