[Delphi XE] Envoi d'un Blob vers Azure

**lerorodu51** · 04/07/2018, 07h48

Bonjour,

je souhaite envoyer un blob sur Azure, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
var unBlob : TAzureBlobService;
  Content: TBytes;
  Headers : TStringList;
  contentType: String;
  mimetype: PWideChar;
begin
 
  Headers := TStringList.Create;
  azsConnectionString.AccountName := 'myAccount';
  azsConnectionString.AccountKey := 'HmyKey';
  azsConnectionString.Protocol := 'https';
 
  FindMimeFromData(nil, PWideChar('myFile.jpg'), nil, 0, nil, 0, mimetype, 0);
  contentType :=  mimetype;
  unBlob := TAzureBlobService.Create(azsConnectionString);
	try
		try
        Headers.Add('x-ms-version=2015-12-11');
        Headers.Add('x-ms-date=' + DateTimeToStr(now));
        try
          Content := TFile.ReadAllBytes('myFile.jpg');
          unBlob.PutBlockBlob('images', 'channels/myFile.jpg', Content, '', Headers,contentType);
        except
          on E: Exception do
          begin
            ShowMessage(e.Message);
          end;
        end;
		finally
			unBlob.Free;
		end;
	finally
    ShowMessage('Maybe success');
	end;
 
 
end;