Discussion :

[MivGabin]

Bonjour,

J'aurais besoin de créer une solution d'authentification qui utiliserait en fait le login et password d'un utilisateur d'un serveur LDAP. Pour cela il faudrait que je me connecte à un serveur LDAP et que je valide ou non la connexion avec le combo login/password (j'imagine).
Le problème c'est que j'en suis quasiment au stade zéro. J'ai effectué beaucoup de recherches, sur ce forum, sur d'autres anglais et français, et je ne trouve rien de convaincant. Soit je n'arrive pas à mettre en oeuvre la solution, soit elle est dépassée et ne compile même plus.
De plus, j'aurais voulu que cette solution fonctionne à la fois sous windows, et à la fois sous linux, donc j'imagine que les solutions à base de activeds.dll sont donc à proscrire pour ce cas...

Ce qui m'a paru le plus intéressant pour le moment est le travail de Paul TOTH que voici. Malheureusement je n'arrive même pas à passer la case connexion (honte à moi ?).

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
 
procedure login(const user,pass:string; var id,FullName:string);
var
 ldap:integer;
 dn  :string;
begin
 ldap:=LDAPOpen('ldap_serveur');
 if (ldap=INVALID_SOCKET) then raise Exception.Create('Serveur de sécurité introuvable');
 try
  dn:=LDAPSearch(ldap,user);                             
  if (dn='') then raise Exception.Create('Compte inconnu');
  if LDAPBind(ldap,dn,pass)=false then raise Exception.Create('Mot de passe invalide');
  id:=LDAPAttribute(ldap,dn,'EmployeeID');
  if id='' then raise Exception.Create('Annuaire incomplet');
  FullName:=LDAPAttribute(ldap,dn,'cn');
 finally
  LDAPClose(ldap);
 end;
end;

J'ai trouvé un serveur LDAP de test sur le web, avec lequel j'arrive à me connecter avec Apache Studio. Voici le lien pour les curieux.

Donc dans le code ci-dessus je remplace 'ldap_serveur' par 'ldap.forumsys.com' mais erreur... Suis-je totalement à côté de la plaque ?

Merci beaucoup à ceux qui m'aideront.

[Paul TOTH]

Bonjour,

Attention, cette unité d'un autre age utilise des String Ansi, le code ne peut pas fonctionner sur un Delphi >= 2009

il faut au minimum remplacer tous les String par AnsiString ou RawByteString et les Char par AnsiChar...ou réécrire le tout avec un type binaire comme TBytes mais celui-ci n'offre pas la même souplesse.

[MivGabin]

Ah, je me disais bien aussi...
Du coup quelle serait la meilleure solution selon toi ? La seule que j'ai vue pour l'instant c'est le composant IPWorks mais à 2k balles le composant...
Connaîtrais-tu des alternatives ?

[Paul TOTH]

Ah, je me disais bien aussi...
Du coup quelle serait la meilleure solution selon toi ? La seule que j'ai vue pour l'instant c'est le composant IPWorks mais à 2k balles le composant...
Connaîtrais-tu des alternatives ?

si tu ne veux pas tester le Recherche/Remplace de String en RawByteString, je peux te facturer la prestation

sinon je crois savoir que Windows possède une API LDAP mais je ne l'ai jamais utilisée et je ne sais pas si elle est déclarée en standard dans Delphi

[MivGabin]

Malheureusement même en changeant les strings, je ne parviens à aucun résultat.
Concernant l'API windows, j'imagine qu'elle ne me permettrait que la connexion à un active directory et exit l'OpenLDAP?

[sergio_is_back]

Pourquoi ne pas utiliser une connexion ADO ? (TADOConnection) avec le provider ADsDSOObject...

Voici un petit exemple trouvé rapidement http://delphi.cjcsoft.net/viewthread.php?tid=45953
Mais y'en a plein d'autres sur la façon d'accéder à LDAP via le fournisseur d'accès MSAD pour OLEBD

https://docs.microsoft.com/fr-fr/sql...ql-server-2017