Discussion :

[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

[Jipété]

Bonsoir,

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]

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

[Paul TOTH]

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]

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]

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]

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]

avec TIdHashSHA1.HashBytesAsHex

[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

[Paul TOTH]

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