(DataFlex) Azure File Service: Upload File

Sample code to upload a file to a directory in a share in the Azure File Service. A file is uploaded by first creating the file in the Azure share and then writes a range of bytes to the file. Azure imposes a 4MB limit for each PUT to write a range. Files larger than 4MB need to be uploaded by making multiple "Put Range" calls. This example uploads a file small enough for a single "Put Range" call.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoRest
    Boolean iBTls
    Integer iPort
    Boolean iBAutoReconnect
    Boolean iSuccess
    Variant vJpgData
    Handle hoJpgData
    Variant vAzAuth
    Handle hoAzAuth
    Handle hoSbFileSize
    String sResponseStr
    Handle hoSbRange
    Variant vSbResponseBody
    Handle hoSbResponseBody
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    // Azure File Service Example: Upload a file.  
    // See:  https://docs.microsoft.com/en-us/rest/api/storageservices/create-share
    // also see: https://docs.microsoft.com/en-us/rest/api/storageservices/put-range

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

    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End

    // Connect to the Azure Storage Blob Service
    Move True To iBTls
    Move 443 To iPort
    Move True To iBAutoReconnect
    // In this example, the storage account name is "chilkat".
    Get ComConnect Of hoRest "chilkat.file.core.windows.net" iPort iBTls iBAutoReconnect To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // This example will upload a relatively small file (760K), so it may as well 
    // just be load it into memory..
    Get Create (RefClass(cComChilkatBinData)) To hoJpgData
    If (Not(IsComObjectCreated(hoJpgData))) Begin
        Send CreateComObject of hoJpgData
    End
    Get ComLoadFile Of hoJpgData "qa_data/jpg/penguins.jpg" To iSuccess

    // Provide Azure Cloud credentials for the REST calls.
    Get Create (RefClass(cComChilkatAuthAzureStorage)) To hoAzAuth
    If (Not(IsComObjectCreated(hoAzAuth))) Begin
        Send CreateComObject of hoAzAuth
    End
    Set ComAccessKey Of hoAzAuth To "AZURE_ACCESS_KEY"
    // The account name used here should match the 1st part of the domain passed in the call to Connect (above).
    Set ComAccount Of hoAzAuth To "chilkat"
    Set ComScheme Of hoAzAuth To "SharedKey"
    Set ComService Of hoAzAuth To "File"
    // This causes the "x-ms-version: 2021-08-06" header to be automatically added.
    Set ComXMsVersion Of hoAzAuth To "2021-08-06"
    Get pvComObject of hoAzAuth to vAzAuth
    Get ComSetAuthAzureStorage Of hoRest vAzAuth To iSuccess

    // Note: The application does not need to explicitly set the following
    // headers: x-ms-date, Authorization.  These headers
    // are automatically set by Chilkat.

    // However, a few additional headers are required for the "Create File" operation:
    Get ComAddHeader Of hoRest "x-ms-type" "file" To iSuccess

    // This required header specifies the final size of the file (or the maximum size it can be).
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbFileSize
    If (Not(IsComObjectCreated(hoSbFileSize))) Begin
        Send CreateComObject of hoSbFileSize
    End
    Get ComNumBytes Of hoJpgData To iTemp1
    Get ComAppendInt Of hoSbFileSize iTemp1 To iSuccess
    Get ComGetAsString Of hoSbFileSize To sTemp1
    Get ComAddHeader Of hoRest "x-ms-content-length" sTemp1 To iSuccess

    // Send a PUT request to create the file (or replace the file if it already exists).
    // This will initialize the file in the Azure file storage.  To upload content, we'll need
    // to do the "Put Range" operation one or more times.

    // The following will create the file "penguins.jpg" in the share "pip", in the directory "/wildlife/antarctic"
    Get ComFullRequestNoBody Of hoRest "PUT" "/pip/wildlife/antarctic/penguins.jpg" To sResponseStr
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // When successful, the Azure File Service will respond with a 201 (Created) response status code,
    // with no XML response body.  If an error response is returned, there will be an XML response body.

    Get ComResponseStatusCode Of hoRest To iTemp1
    If (iTemp1 <> 201) Begin
        // Examine the request/response to see what happened.
        Get ComResponseStatusCode Of hoRest To iTemp1
        Showln "response status code = " iTemp1
        Get ComResponseStatusText Of hoRest To sTemp1
        Showln "response status text = " sTemp1
        Get ComResponseHeader Of hoRest To sTemp1
        Showln "response header: " sTemp1
        Showln "response body (if any): " sResponseStr
        Showln "---"
        Get ComLastRequestStartLine Of hoRest To sTemp1
        Showln "LastRequestStartLine: " sTemp1
        Get ComLastRequestHeader Of hoRest To sTemp1
        Showln "LastRequestHeader: " sTemp1
        Procedure_Return
    End

    Showln "Successfully created penguins.jpg"

    // --------------------------------------------------------------------------------
    // Upload the file data...

    // Make sure the headers from the "Create File" operation are removed.
    Get ComClearAllHeaders Of hoRest To iSuccess

    // The only tricky part here is to correctly add the x-ms-range header.
    // It will be formatted like this:
    // x-ms-range: bytes=0-759623

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbRange
    If (Not(IsComObjectCreated(hoSbRange))) Begin
        Send CreateComObject of hoSbRange
    End
    Get ComAppend Of hoSbRange "bytes=0-" To iSuccess
    Get ComNumBytes Of hoJpgData To iTemp1
    Get ComAppendInt Of hoSbRange (iTemp1 - 1) To iSuccess

    Get ComGetAsString Of hoSbRange To sTemp1
    Get ComAddHeader Of hoRest "x-ms-range" sTemp1 To iSuccess

    // The x-ms-write header is also required:
    Get ComAddHeader Of hoRest "x-ms-write" "update" To iSuccess

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
    If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
        Send CreateComObject of hoSbResponseBody
    End
    // IMPORTANT:  Don't forget the "?comp=range" at the end of the path passed in the 2nd argument.
    Get pvComObject of hoJpgData to vJpgData
    Get pvComObject of hoSbResponseBody to vSbResponseBody
    Get ComFullRequestBd Of hoRest "PUT" "/pip/wildlife/antarctic/penguins.jpg?comp=range" vJpgData vSbResponseBody To iSuccess
    If (iSuccess <> True) Begin
        // This would indicate a failure where no response was received.
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // A 201 response indicates the data was uploaded.
    Get ComResponseStatusCode Of hoRest To iTemp1
    If (iTemp1 <> 201) Begin
        // Examine the request/response to see what happened.
        Get ComResponseStatusCode Of hoRest To iTemp1
        Showln "response status code = " iTemp1
        Get ComResponseStatusText Of hoRest To sTemp1
        Showln "response status text = " sTemp1
        Get ComResponseHeader Of hoRest To sTemp1
        Showln "response header: " sTemp1
        Showln "response body (if any): " sResponseStr
        Showln "---"
        Get ComLastRequestStartLine Of hoRest To sTemp1
        Showln "LastRequestStartLine: " sTemp1
        Get ComLastRequestHeader Of hoRest To sTemp1
        Showln "LastRequestHeader: " sTemp1
        Procedure_Return
    End

    Showln "Successfully uploaded data into penguins.jpg"


End_Procedure