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)