sistema de login via LDAP

[Anny_dt]

Olá... preciso fazer um sistema de login usando os usuários cadastrados no LDAP - active direct.

Podem me dar uma ideia de como fazer isso?

[Jhonas]

exemplo

procedure TForm1.Button53Click(Sender: TObject);
var
  ldap: TLDAPsend;
  l: TStringList;
begin
  ldap:= TLDAPsend.Create;
  l := TStringList.Create;
  try
    ldap.TargetHost := 'www.openldap.com';
    ldap.Login;
    ldap.Bind;
    l.Add('displayname');
    l.Add('description');
    l.Add('givenName');
    l.Add('*');
    ldap.Search('dc=OpenLDAP,dc=org', False, '(objectclass=*)', l);
    memo1.Lines.Add(LDAPResultdump(ldap.SearchResult));
    ldap.Logout;
  finally
    ldap.Free;
    l.Free;
  end;
end;

ou veja

http://www.google.com.br/search?hl=pt&...c.1.8k2USXK_tuw

abraço