[Delphi XE] Envoi d'un Blob vers Azure

Version imprimable

Bonjour,

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

Code:

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;

J'ai l'erreur suivante lors du

Code:

PutBlockBlob

Citation:

Violation d'accès à l'adresse 0000000000. Lecture de l'adresse 000000000000

Si je vais plus en profondeur dans le code pour trouver l'erreur, la ligne qui échoue est la suivante :

(unité IdFIPS)

Code:

GetHMACSHA256HashInst(FSHAKey)

et même plus précisément (unité IdSSLOpenSSLHeaders)

Code:

HMAC_CTX_init

Savez-vous d'où ça peut provenir ?

04/07/2018, 10h37
ShaiLeTroll

C'est une exception ou une notification d'exception, ce n'est pas pareil

Normalement, Indy génère une exception "propre" comme "SSL HMAC is not available"

libcrypto.dll et libssl.dll sont présentes sur le poste ?
Sans compter ssleay32.dll et libeay32.dll

Essaye de mettre UseDevelopmentStorage à True avec un serveur local, déjà tu pourras t'affranchir du lien avec le serveur en ligne
04/07/2018, 13h26
lerorodu51

Bonjour,

En essayant de mettre UseDeveloppementStorage à true, j'ai exacetement la même erreur et pour information j'ai bien les dlls que vous avez cité (libcrypto.dll, libssl.dll ,ssleay32.dll et libeay32.dll).

C'est une notification d'exception.
04/07/2018, 14h16
ShaiLeTroll

Citation:

Envoyé par lerorodu51

C'est une notification d'exception.

Est-ce que l'exception remonte réellement, car si c'est juste une notification ce n'est pas trop grave, juste signe qu'il manque un if assigned dans le code Indy
04/07/2018, 14h52
lerorodu51

Oui elle remonte réellement, du coup le suite de mon code ne se fait pas. J'aimerai trouvé un moyen d'avoir une erreur plus parlante pour pouvoir avancer.
25/07/2018, 09h18
lerorodu51
Je suis revenu sur mon projet avec une autre tactique. J'ai posé un composant TAzureBlobManagement et je l'ai lié à ma ConnectionString pour voir si le problème vient de la connexion ou d'autre chose.
En posant le composant, je peux l'activer sans souci mais dès que j'essaie d'aller dans l'arborescence des blobs, j'ai ce message :

Code:

EidIOHandlerPropInvalid error 'IOHandler value not valid' on TidCustomHttp.SetHostAndPort.

A cet endroit du code :
Code:

1 2 3 // Just check can we do SSL if not (IOHandler is TIdSSLIOHandlerSocketBase) then begin raise EIdIOHandlerPropInvalid.Create(RSIOHandlerPropInvalid);
où IOHandler est nil... Du coup je me demande comment je peux faire en sorte d'avoir un IOHandler coupler à mon composant Azure (comme pour l'IdHttp)
25/07/2018, 10h50
ShaiLeTroll

TAzureBlobManagement c'est un TTreeView a ce que je vois.
Je n'ai pas les sources de TAzureConnectionString (DSAzure), je ne vois pas de lien entre ce composant et Indy, je ne vois pas pourquoi tu as erreur Indy en utilisant ce composant.
D'ailleurs, je l'ai trouvé dans Tokyo mais pas dans XE2.
26/07/2018, 08h25
lerorodu51

Citation:

Je n'ai pas les sources de TAzureConnectionString (DSAzure), je ne vois pas de lien entre ce composant et Indy, je ne vois pas pourquoi tu as erreur Indy en utilisant ce composant.

Au niveau du TAzureConnectionString, en effet il n'y a aucun lien avec Indy, cependant le composant TAzureBlobManagement ou le service TAzureBlobService effectue des GET/POST/PUT/DELETE idHttp donc on a clairement un lien à ce niveau.

Vu que j'avais un IOHandler null, je me suis dit, pourquoi ne pas renseigner un IOHandler au TAzureService (TAzureBlobService en hérite) ! Mais c'est une propriété en read-only...

Je cherche un composant/une propriété qui permettrait de renseigner un IOHandler à mon Service et je ne trouve aucun moyen de le faire :(.

Du coup, j'ai créé un helper de la classe TAzureService qui me permet d’accéder à l'IOHandler et de lui renseigner une valeur et ça fonctionne :).

Je ne sais pas si c'est la meilleure solution mais en tout cas ça me permet d'envoyer un Blob vers Azure.