Utiliser l'API OVH avec Delphi

**ads42** · 27/07/2017, 18h28

Bonjour,

quelqu'un a déjà utilisé les API OVH avec Delphi ?
Je souhaiterai inclure de la redirection de mail donc mon programme.
L'API est en REST mais tous les Wrappers existant sont basé langage Web (PHP, Python, etc..).
Si quelqu'un a une idée ou un bout de code dans ses tiroirs...

Merci

ads

**Jipété** · 27/07/2017, 23h03

Bonsoir,

Envoyé par ads42

Si quelqu'un a une idée ou un bout de code dans ses tiroirs...

Ah, d'habitude c'est les gens de Lazarus qui se perdent chez Delphi, ce soir c'est l'inverse,

**der§en** · 28/07/2017, 09h00

Faut dire aussi que le forum Lazarus est plus actif que celui de Delphi de nos jours

**Paul TOTH** · 28/07/2017, 09h46

Envoyé par ads42

Bonjour,

quelqu'un a déjà utilisé les API OVH avec Delphi ?
Je souhaiterai inclure de la redirection de mail donc mon programme.
L'API est en REST mais tous les Wrappers existant sont basé langage Web (PHP, Python, etc..).
Si quelqu'un a une idée ou un bout de code dans ses tiroirs...

Merci

ads

j'utiliser l'API SMS mais ce doit être me même principe, tout cela est très standard.

**ads42** · 29/07/2017, 21h28

Merci pour le déplacement de message.

Bonjour Paul,

si tu utilises l'API REst oui c'est la même chose que pour les SMS.
Tu utilises quels composants pour te connecter à L'API ?
Tu fais comment pour passer toutes les clés d'authentification ?
Cordialement

**Paul TOTH** · 29/07/2017, 22h09

Envoyé par ads42

Merci pour le déplacement de message.

Bonjour Paul,

si tu utilises l'API REst oui c'est la même chose que pour les SMS.
Tu utilises quels composants pour te connecter à L'API ?
Tu fais comment pour passer toutes les clés d'authentification ?
Cordialement

j'utilise tout simplement TIdHTTP

voici comme j'initialise le composant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
// paramétrage du lien ssl
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create;
  SSL.SSLOptions.Method := sslvSSLv23;
  SSL.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];
 
// paramétrage du requeteur HTTP
  HTTP := TIdHTTP.Create;
  HTTP.IOHandler := ssl;
  HTTP.Request.CharSet := 'utf-8';
  HTTP.Request.ContentType := 'application/json';
  HTTP.Request.Accept := 'application/json';

la signature de la requête s'ajoute comme ceci

Code :

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

1
2
3
4
5
 
  HTTP.Request.CustomHeaders.Add('X-Ovh-Application: ' + cAK);
  HTTP.Request.CustomHeaders.Add('X-Ovh-Consumer: ' + cCK);
  HTTP.Request.CustomHeaders.Add('X-Ovh-Signature: ' + Sign);
  HTTP.Request.CustomHeaders.Add('X-Ovh-Timestamp: ' + Time);

voilà pour la partie purement Delphi, pour le reste il faut suivre les spécifications... je ne peux pas publier mon code, désolé

**ads42** · 30/07/2017, 11h58

Bonjour Paul,

merci je testerai ça lundi matin.
Pour la signature il est précisé :

"$1$" + SHA1_HEX(AS+"+"+CK+"+"+METHOD+"+"+QUERY+"+"+BODY+"+"+TSTAMP)

tu utilises quoi pour le SHA1 ?

Merci et bonne fin de Week-end

**Paul TOTH** · 30/07/2017, 13h05

avec TIdHashSHA1.HashBytesAsHex

**gbegreg** · 30/07/2017, 20h45

Je ne connais pas l'API d'OVH mais si c'est du REST, le principe est le même quelque soit l'API REST utilisée.
Il y a quelques mois, Embarcadero avait organisé un petit concours de programmation dont le sujet était d'utiliser les API REST de la NASA. Les sources des projets ayant participé au concours sont disponibles sur GitHub. Cela peut fournir des exemples d'utilisation d'API REST. Le concours s'est déroulé avec la version Berlin de Delphi ou C++ Builder (à titre perso, j'avais proposé le projet Delphi sur le rover Curiosity).

La page officielle du concours avec les liens vers les projets présentés (et pour chaque projet son lien GitHub) est la suivante : https://community.embarcadero.com/co...sa-api-mash-up

**ads42** · 01/08/2017, 10h36

Merci Paul,

Code :

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

1
2
 
  SSL.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];

Je suis sous Delphi 2010 et je n'ai pas la propriété SSLVersions . elle est importante ? il y a t il moyen de la specifier autrement ?
Sinon ça concerne quelle version ?

Merci

Cordialement

**Paul TOTH** · 01/08/2017, 11h18

Envoyé par ads42

Merci Paul,

Code :

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

1
2
 
  SSL.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];

Je suis sous Delphi 2010 et je n'ai pas la propriété SSLVersions . elle est importante ? il y a t il moyen de la specifier autrement ?
Sinon ça concerne quelle version ?

Merci

Cordialement

aucune idée, mais il est possible de télécharger un Indy plus récent

**hamba007** · 10/03/2021, 10h35

Bonjour,

Actuellement j'essaie de communiquer avec l'Api Sms de ovh mais impossible.

Vous avais réussi a le faire ?

Car j'ai une erreur : Violation du protocole SSL EOF.

MErci

**ShaiLeTroll** · 10/03/2021, 10h50

Version Delphi ?
Version Indy ?
Version libeay32.dll et ssleay32.dll ?
Niveau SSL ?
Niveau TLS ?
Du code ?

Sans passer par Indy, faut tenter via InternetOpen\HttpOpenRequest qui utilise le HTTPS de Windows au lieu de celui de OpenSSL

**SergioMaster** · 10/03/2021, 10h53

Bonjour et bienvenue @hamba007

une bonne pratique est quand même d'indiquer quelle version de Delphi vous utilisez, et ma moindre des chose le code que vous avez écrit

**hamba007** · 10/03/2021, 11h03

Merci pour la réponse rapide.

Version Delphi ? Delphi Tokyo 10.2
Version Indy ? Version 10 (10.6.2.5366)
Version libeay32.dll et ssleay32.dll ? OpenSSL v1.0.2u
Niveau SSL ? comment le savoir ?
Niveau TLS ? sslvTLSv1_2

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
 
 
  idssl.SSLOptions.Method := sslvTLSv1_2;
  idssl.SSLOptions.Mode := sslmUnassigned;
  idssl.SSLOptions.VerifyMode := [];
  idssl.SSLOptions.VerifyDepth := 0;
 
    try
    HTTP.Request.CustomHeaders.Add('X-Ovh-Application: ' + cAK);
    HTTP.Request.CustomHeaders.Add('X-Ovh-Consumer: ' + cCK);
    HTTP.Request.CustomHeaders.Add('X-Ovh-Signature: ' + Sign);
    HTTP.Request.CustomHeaders.Add('X-Ovh-Timestamp: ' + Time);
 
    http.Get('https://eu.api.ovh.com/1.0/auth/credential',Stream);
    Stream.Position := 0;
    s := stream.ToString;
 
    sTmp:=TStringList.Create;
 
    sTmp.LoadFromStream(stream);
    s:= stmp.Text;
 
    finally
    Stream.Free;
  end;
  stmp.free;

Merci.

**ShaiLeTroll** · 10/03/2021, 11h39

Le code de Paul Toth montre un sslvSSLv23 en 2017, le niveau a-t-il changé depuis ?

essayer donc juste ceci

Code :

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

1
2
3
SSL := TIdSSLIOHandlerSocketOpenSSL.Create;
  SSL.SSLOptions.Method := sslvSSLv23;
  SSL.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];

**hamba007** · 10/03/2021, 11h48

Envoyé par ShaiLeTroll

Le code de Paul Toth montre un sslvSSLv23 en 2017, le niveau a-t-il changé depuis ?

essayer donc juste ceci

Code :

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

1
2
3
SSL := TIdSSLIOHandlerSocketOpenSSL.Create;
  SSL.SSLOptions.Method := sslvSSLv23;
  SSL.SSLOptions.SSLVersions := [sslvSSLv2, sslvSSLv3, sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];

J'ai essayé avec plusieurs version, c'est identique.

Après j'ai des dll de ssl de 2013, je sais pas ci c'est ca le problème. Et de plus, comment savoir quelles dll faut il pour la version indy 10.6.2.5366.

J'ai essayé avec d'autres dlls qui se trouvent surhttps://indy.fulgan.com/SSL/ mais je le message suivant : "Impossible de charger la bibliothèque SSL"

Merci

**ShaiLeTroll** · 10/03/2021, 12h17

Utiliser bien les x64 ou i86 selon votre programme compilé en 64Bits et 32Bits

Plus haut, vous indiquiez 'openssl-1.0.2u' et maintenant c'est les celle de 2013 ... confus tout ça
Récemment, j'ai utilisé les 1.0.2.19 (s) car j'ai eu ce problème de SSL avec Yahoo, les 1.0.2u c'est 1.0.2.21 (u = 21)

**hamba007** · 10/03/2021, 12h26

Envoyé par ShaiLeTroll

Utiliser bien les x64 ou i86 selon votre programme compilé en 64Bits et 32Bits

Plus haut, vous indiquiez 'openssl-1.0.2u' et maintenant c'est les celle de 2013 ... confus tout ça
Récemment, j'ai utilisé les 1.0.2.19 (s) car j'ai eu ce problème de SSL avec Yahoo, les 1.0.2u c'est 1.0.2.21 (u = 21)

J'ai essayé avec plusieurs versions pour tester en fait, c'est pour cela.