Auto Import File from Azure Storage to Cloud BC

   procedure ReadAzureStorageDirectory()
    var
        requestMethod: Text;
        request: HttpRequestMessage;
        RequestHeader: HttpHeaders;
        hhtpres: HttpResponseMessage;
        canonicalizedResource: Text;
        canonicalizedHeaders: Text;
        urlPath: Text;
        client: HttpClient;
        content: HttpContent;
        ContentHeaders: HttpHeaders;
        test: Boolean;
        authorizationHeader: Text;
        stringToSign: Text;
        msVersion: Text;
        cha: Text[1];
        contenttype: Text;
        contentLength: Integer;
        res: Text;
        keyss: Text;
        dateInRfc1123Format: Text;  // <------------ Changed
        //EncryptionManagement: Codeunit "Encryption Management";
        EncryptionManagement: Codeunit "Cryptography Management";  // <------------ Changed BC15    
        uri: Text;
        Range: Text;
        InStr: InStream;
        ResponseText: Text;
    begin
        cha[1] := 10;
        msVersion := '2020-02-10';
        keyss := GetAccountAccessKey();
        dateInRfc1123Format := GetUTCDateTimeText(); // <------------ Changed
        requestMethod := 'GET';

        urlPath := GetAccountSharedResource() + '/' + GetAdditionalFolderPath + '?comp=list';
        CanonicalizedResource := StrSubstNo('/%1/%2', GetAccountName(), urlPath);
        CanonicalizedHeaders := 'x-ms-date:' + dateInRfc1123Format + Format(cha) +
                                'x-ms-version:' + msVersion;

        stringToSign := (requestMethod + Format(cha) +
                         Format(cha) + //Content-Encoding + "\n" +  
                         Format(cha) + //Content-Language + "\n" +  
                         Format(cha) + //Content-Length + "\n" +  
                         Format(cha) + //Content-MD5 + "\n" +
                         Format(cha) + //Content-Type + "\n" +  
                         Format(cha) + //Date + "\n" +  
                         Format(cha) + //If-Modified-Since + "\n" +  
                         Format(cha) + //If-Match + "\n" + 
                         Format(cha) + //If-None-Match + "\n" +  
                         Format(cha) + //If-Unmodified-Since + "\n" +  
                         Format(cha) + //Range + "\n" +  
                         canonicalizedHeaders + Format(cha) + // <------------ Changed
                         canonicalizedResource);

        authorizationHeader := 'SharedKey ' + GetAccountName() + ':' + EncryptionManagement.GenerateBase64KeyedHashAsBase64String(stringToSign, keyss, 2);
        uri := StrSubstNo('https://%1.file.core.windows.net/%2', GetAccountName(), urlPath);
        request.SetRequestUri(uri);
        request.Method := requestMethod;
        RequestHeader.Clear();
        request.GetHeaders(RequestHeader);
        RequestHeader.Add('Authorization', authorizationHeader);
        RequestHeader.Add('x-ms-date', dateInRfc1123Format);
        RequestHeader.Add('x-ms-version', msVersion);

        client.Send(request, hhtpres);
        if not hhtpres.IsSuccessStatusCode then
            Error(hhtpres.ReasonPhrase)
        else begin
            hhtpres.Content.ReadAs(ResponseText);
            message('%1', ResponseText);
        end;
    end;