Explorateur ldap Delphi

**dvarrel** · 27/01/2008, 11h57

bonjour,

je cherche à créer un explorateur ldap.

j'essaie d'utiliser l'unité ldap de jean-paul toth :

les fonctions LDAPSearch, LDAPAttribute fonctionnent, mais ne permettent pas de récupérer les infos de type arborescence (type entrée au lieu de attribut texte par exemple).

Comment peut-on modifier afin que cela soit rendu possible ?

Est-ce quelqu'un a t'il déjà travailler sur cette unité ?

**Jipété** · 27/01/2008, 12h24

Salut.

Je suis pas du tout spécialiste, mais tu peux toujours jeter un œil à cette discussion, pas très vieille.
Mes 2 cts,
--
jp

**dvarrel** · 27/01/2008, 13h28

merci,

effectivement la source adsi fonctionne, mais j'aimerais pouvoir m'en passer (activex) et utiliser le code natif de jean-paul toth.

**Paul TOTH** · 28/01/2008, 12h11

Envoyé par dvarrel

merci,

effectivement la source adsi fonctionne, mais j'aimerais pouvoir m'en passer (activex) et utiliser le code natif de jean-paul toth.

bon déjà, si tu continues à m'appeler Jean-Paul tu prends une baffe

ensuite pour faire ce que tu veux, il va falloir que tu te documentes un peu sur LDAP. Mon unité, comme bcp de ce que je livre sous GPL, est au départ un outils dont j'ai eu besoin. Et là mon besoin était d'authentifier des gens, pas de parcourir l'annuaire.

les clients LDAP utilisent une syntaxe à la con pour faire des recherche...un truc qui fait un peu penser à du SQL. Au niveau protocole, c'est codé sous une forme tout aussi étrange avec des "chunk"

voici le principe un peu plus expliqué dans le 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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
function LDAPSearch(LDAP:integer; Name:string):string;
var
 s1,s2,s3:string;
begin
 Result:='';
// construction de la requête LDAP
 s1:=Chunk(LDAP_SEQUENCE, // SEQUENCE
// en vrai, l'ID devrait incrémenté à chaque requête...
  Chunk(LDAP_INTEGER,#2)+      // Message ID 2
// on va faire une recherche
  Chunk(LDAP_SEARCH,     // Search
// chaine vide = objet de base (efin il me semble :) )
   Chunk(LDAP_STRING,'')+ // BaseObject
// sur tout l'arbre
   Chunk(LDAP_ENUM,#2)+ // Scope 2 = Whole Tree
// en incluant les alias
   Chunk(LDAP_ENUM,#0)+ // Aliases 0 = derefaliases
// sans limite de taille
   Chunk(LDAP_INTEGER,#0)+ // Size limite
// ni de temps
   Chunk(LDAP_INTEGER,#0)+ // Time limite
// ni de type d'objet
   Chunk(LDAP_BOOLEAN,LDAP_FALSE)+ // Type only (boolean)
// et maintenant le filtre
// un OR entre les deux qui suivent
   Chunk(LDAP_FILTER_OR, // Filter = OR
 // le premier est un MATCH entre "cn" et le nom
    Chunk(LDAP_FILTER_MATCH, // Filter = Equality Match
     Chunk(LDAP_STRING,'cn')+ // common name
     Chunk(LDAP_STRING,Name)
    )+
 // le second est un match entre "uid" et le nom
    Chunk(LDAP_FILTER_MATCH, // Filter = Equality Match
     Chunk(LDAP_STRING,'uid')+ // unique id
     Chunk(LDAP_STRING,Name)
    )
   )+
// fin du chunk
   Chunk(LDAP_SEQUENCE,
    Chunk(LDAP_NULL,'') // NULL
   )
  )
 );
// on envoie la requte
 if SendData(LDAP,s1[1],Length(s1))<=0 then exit;
// on lit la séquence réponse dans s1, s2 est un buffer de réception
 s1:='';
 if not ReadSequence(LDAP,s1,s2,2) then exit;
// ouverture du chunk qui doit être un SEARCH_ENTRY
 if not OpenChunk(LDAP_SEARCH_ENTRY,s1) then exit;
// la 2ième séquence dans  s2 (s3 est le buffer de réception)
  if not ReadSequence(LDAP,s2,s3,2) then exit;
// on ne devrait pas avoir de 3ième séquence (voir ci-dessous)
  if s3<>'' then exit;
// la seconde séquence doit être un SEARCH_DONE (sinon, c'est qu'on a plusieurs réponses...ce qui sera le cas sur un explorateur)
  if not OpenChunk(LDAP_SEARCH_DONE,s2) then exit; // Search Done
// tout va bien, donc la première séquence est la chaine que l'on cherche
 Result:=StrChunk(s1);
end;

Mon unité, comme je le fais souvent, stocke dans des STRING des données binaires. Cela présente l'avantage de pouvoir concaténer deux éléments par une simple addition

L'affichage d'une de ces chaines ne donnerait rien d'intéressant en fait

Maintenant sous Windows tu as une DLL qui permet d'interroger un annuaire LDAP, et il serait sans doute plus simple de passer par là

C'est juste une question de gout, moi j'aime bien comprendre ce qu'il se passe dans les protocoles, ça permet à mon sens de faire des clients mieux conçus (notamment sur les requêtes MySQL)