Discussion :

[lerorodu51]

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;

J'ai l'erreur suivante lors du

Code :

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

PutBlockBlob

:

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 :

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

GetHMACSHA256HashInst(FSHAKey)

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

Code :

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

HMAC_CTX_init

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

[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

[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.

[ShaiLeTroll]

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

[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.

[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 :

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

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

A cet endroit du code :

Code :

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

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)

[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.

[lerorodu51]

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.