(Unicode C) Upload File in Blocks (with Content-MD5 header) and Commit the Block List

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 C/C++ Library Downloads
MS Visual C/C++ Linux/CentOS C/C++ Alpine Linux C/C++ MAC OS X C/C++	armhf/aarch64 C/C++ C++ Builder iOS C/C++ Android C/C++	Solaris C/C++ MinGW C/C++

#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)
    {
    HCkRestW rest;
    BOOL bTls;
    int port;
    BOOL bAutoReconnect;
    BOOL success;
    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;

    // 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: 2020-08-04" header to be automatically added.
    CkAuthAzureStorageW_putXMsVersion(azAuth,L"2020-08-04");
    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);

    }