[D6] ADSOpenObject dans une DLL

Version imprimable

Comment utiliser ADSOpenObject dans une DLL ?

Dans une application, ça fonctionne bien, mais dans une DLL, ça échoue à chaque fois (ça renvoit faux, comme si le login/mdp était incorrect). :bug:

Code dans la DLL :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   function ADsOpenObject(lpszPathName: PWideChar; lpszUserName: PWideChar; lpszPassword: PWideChar; dwReserved: LongInt; const riid: TGUID; out obj): HResult;   stdcall;   external 'activeds.dll';
 
function VerificationMDPLDAP(const szLogin, szPwd: String): Boolean;
var
   wUsername, wPassword: WideString;
//   OutObj: Pointer;
   UnknownObj: IUnknown;
   HR: HResult;
begin
   wUsername := szLogin;
   wPassword := szPwd;
   HR := ADSOpenObject('LDAP://serveurdomaine/DC=domaine,DC=LOC', PWideChar(wUsername), PWideChar(wPassword), ADS_SECURE_AUTHENTICATION, IID_IADs, UnknownObj);
   if HR = S_OK then
      Result := True
   else
      Result := False;
end;

Y-a-t'il des précautions ou des choses à faire attention ?

:hola:

05/12/2007, 08h12
Lung

Je suis le seul à l'avoir fait ?

:calim2:
05/12/2007, 14h36
ShaiLeTroll

Personnellement, je dois aussi faire du LDAP, et seul ADSGetObject se connecte, avec ADSOpenObject, j'ai les erreurs 001F ou 002B, ... et je ne le fais que dans une application pourtant !

essaye de voir l'unité de Paul Toth, je vais l'essayer dès que j'aurais le temps sur ce projet, en ce moment, un autre est prioritaire
06/12/2007, 11h03
Lung

Citation:

Envoyé par ShaiLeTroll

essaye de voir l'unité de Paul Toth, je vais l'essayer dès que j'aurais le temps sur ce projet, en ce moment, un autre est prioritaire

LDAPSearch ne me trouve rien.
Pas simple, de jouer avec le LDAP ...

:cry:
06/12/2007, 14h30
ShaiLeTroll

Je n'ai pas encore essayé son unité, mais non, LDAP, c'est pas un truc facile, ...

attention, l'ordre des "cn=...o=...dc=..." dans le nom qualifié est important !
11/12/2007, 10h19
Lung

Citation:

Envoyé par ShaiLeTroll

attention, l'ordre des "cn=...o=...dc=..." dans le nom qualifié est important !

C'est-à-dire ?

Voici mon code :

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
27
28
29
function VerificationMDPLDAP(const szLogin, szPwd: String): Boolean;
var
   ldap: Integer;
   dn: String;
begin
   Result := False;
   ldap := LDAPOpen('sghm.loc');
   if ldap = INVALID_SOCKET then
   begin
      ShowMessage('Serveur de sécurité introuvable');
      Exit;
   end;
   try
      dn := LDAPSearch(ldap, szLogin);
      if dn = '' then
      begin
         ShowMessage('Compte inconnu');
         Exit;
      end;
      if not LDAPBind(ldap, dn, szPwd) then
      begin
         ShowMessage('Mot de passe invalide');
         Exit;
      end;
   finally
      LDAPClose(ldap);
   end;
   Result := True;
end;

Et celui avec ADO :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
function VerificationMDPLDAP(const szLogin, szPwd: String): Boolean;
var
   ADOConnection: TADOConnection;
   ADOQuery: TADOQuery;
begin
   Result := False;
 
   CoInitialize(nil);
   ADOConnection := TADOConnection.Create(nil);
   ADOQuery := TADOQuery.Create(nil);
   try
//      ADOConnection.Provider := 'ADsDSOObject;Encrypt Password=False;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648';
      ADOConnection.Provider := 'Provider=ADsDSOObject;Password=poiop;User ID=admin;Encrypt Password=True;Data Source=sghm.loc;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648';
      ADOQuery.Connection := ADOConnection;
 
      ADOQuery.Close;
      ADOQuery.SQL.Clear;
      ADOQuery.SQL.Add('select AdsPath, CN, SN, mail, userPrincipalName, sAMAccountName, Title, company, department');
      ADOQuery.SQL.Add('from ''LDAP://DC=sghm,DC=loc''');
      ADOQuery.SQL.Add('where LdapsAMAccountName = ' + QuotedStr(szLogin)+' or givenName = ' + QuotedStr(szLogin) + ' or sn = ' + QuotedStr(szLogin));
      ADOQuery.SQL.Add('order by sn');
      try
         ADOQuery.Open;
      except
         on E: Exception do
         begin
            ADOQuery.Close;
            ShowMessage(E.Message);
            Exit;
         end;
      end;
      if ADOQuery.IsEmpty then
         ShowMessage('RIEN !')
      else
      begin
         ShowMessage(ADOQuery.FieldByName('userPrincipalName').AsString);
         Result := True;
      end;
   finally
      ADOQuery.Free;
      ADOConnection.Free;
   end;
end;

Y a t'il quelque chose que je ne fais pas bien ?

14/01/2008, 15h49
fulster

Bonjour à tous et plus particulièrement à ShaïLeTroll :king:,

Moi non plus, le LDAP search ne renvoie rien.

Code:

ldap := LDAPOpen('xxx.xxx.xxx.xxx');

ou

Code:

ldap := LDAPOpen('xxx.xxx.xxx.xxx/dc=xxxx,dc=xxx');

Comment fait le morceau de code pour "choisir" le dc ...
Ma question est sans doute naive.

Si tu as réussi depuis ça m'aiderait bcp !

Merci,

Fulst'