Table of Contents

Codeunit "Azure File Storage UTCAP"

ID 70344765
Namespace: CapVision.Core.Storage

Ce module propose une implémentation du service Azure File Storage.

Examples

Lister les partages

``` AL
    var
        AzureFileStorage: Codeunit "Azure File Storage UTCAP";
        Shares: List of [Text];
        ShareName: Text;
        SharesNames: TextBuilder;
    begin
        AzureFileStorage.Initialize('mystorage', '<key1>');
        AzureFileStorage.GetShares(Shares);
    
        foreach SharesName in Shares do
            SharesNames.AppendLine(ShareName);
        
        Message(ShareNames.ToText());
    end;
```

Créer un fichier

``` AL
    var
        AzureFileStorage: Codeunit "Azure File Storage UTCAP";
        TempBlob: Codeunit "Temp Blob";
        InStr: InStream;
        FromFile: Text;
    begin
        TempBlob.CreateInStream(InStr);
        UploadIntoStream('', '', 'All Files (*.*)|*.*', FromFile, InStr);
    
        AzureFileStorage.Initialize('mystorage', '<key1>');
        AzureFileStorage.UploadFile('myshare', 'directory/' + FromFile, InStr);
    end;
```

Supprimer un fichier

``` AL
    var
        AzureFileStorage: Codeunit "Azure File Storage UTCAP";
    begin
        AzureFileStorage.Initialize('mystorage', '<key1>');
        AzureFileStorage.DeleteFile('myshare', 'directory/myfile.txt');
    end;
```

Créer un dossier

``` AL
    var
        AzureFileStorage: Codeunit "Azure File Storage UTCAP";
    begin
        AzureFileStorage.Initialize('mystorage', '<key1>');
        AzureFileStorage.CreateDirectory('myshare', 'directory/subdirectory');
    end;
```

Supprimer un dossier

``` AL
    var
        AzureFileStorage: Codeunit "Azure File Storage UTCAP";
    begin
        AzureFileStorage.Initialize('mystorage', '<key1>');
        AzureFileStorage.DeleteDirectory('myshare', 'directory/subdirectory');
    end;
```

Methods

Initialize

Obsolete

This element will become obsolete from version V25.202505. Replaced by same procedure with AccessKey as SecretText.

[Obsolete(Replaced by same procedure with AccessKey as SecretText.,V25.202505)]
procedure Initialize(NewAccountName: Text, NewAccessKey: Text)

Parameters

Name Type Description
NewAccountName Text
NewAccessKey Text

Initialize

procedure Initialize(NewAccountName: Text, NewAccessKey: SecretText)

Parameters

Name Type Description
NewAccountName Text
NewAccessKey SecretText

CreateShare

[TryFunction]
procedure CreateShare(ShareName: Text): Boolean

Parameters

Name Type Description
ShareName Text

Returns

Type Description
Boolean

DeleteShare

[TryFunction]
procedure DeleteShare(ShareName: Text): Boolean

Parameters

Name Type Description
ShareName Text

Returns

Type Description
Boolean

GetShares

[TryFunction]
procedure GetShares(var Shares: List of [Text]): Boolean

Parameters

Name Type Description
Shares List of [Text]

Returns

Type Description
Boolean

List

[TryFunction]
procedure List(Share: Text, Path: Text, var Directories: List of [Text], var Files: List of [Text]): Boolean

Parameters

Name Type Description
Share Text
Path Text
Directories List of [Text]
Files List of [Text]

Returns

Type Description
Boolean

GetFile

[TryFunction]
procedure GetFile(StorageName: Text, Path: Text, var DocumentStream: InStream): Boolean

Parameters

Name Type Description
StorageName Text
Path Text
DocumentStream InStream

Returns

Type Description
Boolean

DeleteDirectory

[TryFunction]
procedure DeleteDirectory(StorageName: Text, Path: Text): Boolean

Parameters

Name Type Description
StorageName Text
Path Text

Returns

Type Description
Boolean

CreateDirectory

[TryFunction]
procedure CreateDirectory(StorageName: Text, Path: Text): Boolean

Parameters

Name Type Description
StorageName Text
Path Text

Returns

Type Description
Boolean

UploadFile

[TryFunction]
procedure UploadFile(StorageName: Text, Path: Text, DocumentStream: InStream): Boolean

Parameters

Name Type Description
StorageName Text
Path Text
DocumentStream InStream

Returns

Type Description
Boolean

CreateFile

Créé un nouveau fichier dans le partage.

[TryFunction]
procedure CreateFile(StorageName: Text, Path: Text, SizeInBytes: Integer): Boolean

Parameters

Name Type Description
StorageName Text

Nom du partage.
Path Text

Chemin du fichier dans le partage.
SizeInBytes Integer

Taille du fichier en octets.

Returns

Type Description
Boolean

PutFile

Dépose un nouveau fichier dans le partage.

[TryFunction]
procedure PutFile(StorageName: Text, Path: Text, FileLength: Integer, DocumentStream: InStream): Boolean

Parameters

Name Type Description
StorageName Text

Nom du partage.
Path Text

Chemin du fichier dans le partage.
FileLength Integer

Taille du fichier en octets.
DocumentStream InStream

Flux depuis lequel lire le fichier à télécharger.

Returns

Type Description
Boolean

DeleteFile

Supprime un fichier.

[TryFunction]
procedure DeleteFile(StorageName: Text, Path: Text): Boolean

Parameters

Name Type Description
StorageName Text

Nom du partage.
Path Text

Chemin du fichier.

Returns

Type Description
Boolean

See also