Utiliser l'API OVH avec Delphi

Version imprimable

27/07/2017, 18h28
ads42

Utiliser l'API OVH avec Delphi

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
27/07/2017, 23h03
Jipété

Bonsoir,

Citation:

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, :mouarf:
28/07/2017, 09h00
der§en

Faut dire aussi que le forum Lazarus est plus actif que celui de Delphi de nos jours :mouarf:
28/07/2017, 09h46
Paul TOTH

Citation:

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.
29/07/2017, 21h28
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

Citation:

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:

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:

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é :)

30/07/2017, 11h58
ads42

Bonjour Paul,

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

Citation:

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

tu utilises quoi pour le SHA1 ?

Merci et bonne fin de Week-end
30/07/2017, 13h05
Paul TOTH

avec TIdHashSHA1.HashBytesAsHex
30/07/2017, 20h45
gbegreg

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
01/08/2017, 10h36
ads42
Merci Paul,
Code:

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
01/08/2017, 11h18
Paul TOTH
Citation:
Envoyé par ads42

Merci Paul,

Code:

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
10/03/2021, 10h35
hamba007

J'ai le même problème

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
10/03/2021, 10h50
ShaiLeTroll

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
10/03/2021, 10h53
SergioMaster

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

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:

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.

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

essayer donc juste ceci
Code:

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

10/03/2021, 11h48
hamba007
Citation:
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:

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
10/03/2021, 12h17
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)
10/03/2021, 12h26
hamba007

Citation:

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.
10/03/2021, 12h29
hamba007

Citation:

Envoyé par hamba007

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

Voila, je viens d'essayer avec la dernière version openssl-1.0.2u-i386-win32 et j'ai l'erreur suivante :
http/1.1 405 Method not allowed
10/03/2021, 22h03
Paul TOTH

alors OpenSSL a grandement modifié son API (d'après ce que j'ai lu) dans les dernières version et n'est pas compatible avec Indy

mais en fait j'ai arrêté d'utiliser OpenSSL depuis longtemps, maintenant j'utilise Microsoft SChannel , il suffit de remplacer le composant SSL par le mien comme le montre l'exemple.
10/03/2021, 23h08
pprem

Suite à l'incendie de la nuit dernière sur le datacentre de Strasbourg une partie des systèmes liés aux services de téléphonie étaient HS ou partiellement inutilisables une partie de la journée.
Les systèmes d'API ont également été impacté sur certains services.

Je ne sais pas si c'est le cas, mais quoiqu'il en soit les anomalies d'accès peuvent y être liées.

Mieux vaut attendre d'avoir les services concernés au vert avant de faire des tests et statuer sur une technologie ou une autre:
http://travaux.ovh.net
11/03/2021, 09h39
hamba007

Citation:

Envoyé par Paul TOTH

alors OpenSSL a grandement modifié son API (d'après ce que j'ai lu) dans les dernières version et n'est pas compatible avec Indy

mais en fait j'ai arrêté d'utiliser OpenSSL depuis longtemps, maintenant j'utilise Microsoft SChannel , il suffit de remplacer le composant SSL par le mien comme le montre l'exemple.

D'accord je vais essayer cela, pour voir si ca me correspond.

Merci.
11/03/2021, 09h40
hamba007

Citation:

Envoyé par pprem

Suite à l'incendie de la nuit dernière sur le datacentre de Strasbourg une partie des systèmes liés aux services de téléphonie étaient HS ou partiellement inutilisables une partie de la journée.
Les systèmes d'API ont également été impacté sur certains services.

Je ne sais pas si c'est le cas, mais quoiqu'il en soit les anomalies d'accès peuvent y être liées.

Mieux vaut attendre d'avoir les services concernés au vert avant de faire des tests et statuer sur une technologie ou une autre:
http://travaux.ovh.net

Oui je vois ca, mais je ne vois nul part indiquer que les API SMS sont HS..
11/03/2021, 10h37
Paul TOTH

Citation:

Envoyé par hamba007

Oui je vois ca, mais je ne vois nul part indiquer que les API SMS sont HS..

l'API SMS fonctionne pour moi.

Citation:

Envoyé par Paul TOTH

l'API SMS fonctionne pour moi.

ah ok d'accord tant mieux, c'est bon a savoir.

Je viens d'essayer avec le SChannel en suivant ta démo.

Je reçois l6'erreur "404 not found"
En résumé voila ce que j'ai fais :
j'ai créé mon application secret et mon application Key via ce lien ' Creating an API Application'
https://eu.api.ovh.com/createApp/.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 IdHTTP1.IOHandler := IOHandler; IdHTTP1.Request.CustomHeaders.Add('X-Ovh-Application: ' + cAK); Reply := TMemoryStream.Create; try IdHTTP1.Get('https://eu.api.ovh.com/1.0/auth/credential/*', Reply); Reply.Position := 0; Memo1.Lines.LoadFromStream(Reply); except on E : Exception do begin ShowMessage('Exception class name = '+E.ClassName+ ' Exception message = '+E.Message); end; end;
en suivant l'exemple sur le tuto d'ovh qui est en Curl :
Code:

1 2 3 4 5 6 7 8 9 10 11 $ curl -XPOST -H"X-Ovh-Application: 7kbG7Bk7S9Nt7ZSV" -H "Content-type: application/json" \ https://eu.api.ovh.com/1.0/auth/credential -d '{ "accessRules": [ { "method": "GET", "path": "/*" } ], "redirection":"https://www.mywebsite.com/" }'
Alors que je devrais recevoir un consumer Key.

Merci d'avance pour idées;

11/03/2021, 15h47
Paul TOTH

euh...tu veux faire quoi sur auth/credential ?

tu dois faire

1) Time := GET('https://eu.api.ovh.com/1.0/auth/time')

2) tu dois calculer le SHA1 de AS + CK + Method + URL + Body + Time

exemple, pour ouvrir GET https://eu.api.ovh.com/1.0/sms

tu dois calculer Sign := SHA1( cAS + '+' + cCK + '+GET+https://eu.api.ovh.com/1.0/sms++' + Time)

3) tu invoques GET https://eu.api.ovh.com/1.0/sms
avec les entêtes
X-Ovh-Application: cAK
X-Ovh-Consumer: cCK
X-Ovh-Signature: '$1$' + Sign
X-Ovh-Timestamp: Time
11/03/2021, 16h11
hamba007

je fais un get sur cette Url : afin de récupérer le consumer key (CK) ..

La récupération du CK est la première étape.

afin de faire la suite ( le sha etc..) .

Voila le tuto https://docs.ovh.com/gb/en/customer/...plication-keys

Merci.
11/03/2021, 16h50
Paul TOTH

ah oui, j'ai du faire cela il y a longtemps...ou pas, je crois que c'est un stagiaire qui l'a fait et ma donné les codes :)

mais en fait tu peux le faire en ligne ça
https://eu.api.ovh.com/createToken/i...ST=/sms/*/jobs

c'est expliqué ici
https://docs.ovh.com/fr/sms/envoyer_...s-identifiants

Fuseau horaire GMT +2. Il est actuellement 15h28.