Поиск по LDAP на Delphi

Программирование
Последний на сегодня метод поиска по LDAP. Небольшая программа на Turbo Delphi 2006, без использования сторонних компонентов. Может искать по части ФИО пользователя, сворачиваться в трей, создавать письмо по клику на почтовый адрес. Все :)
Скриншот

Для доступа к своей базе нужно в файле uMain.pas в запросе подправить строку LDAP
ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select CN, mail, sAMAccountName, telephoneNumber from '); 
      ADOQuery1.SQL.Add('+#39+'LDAP://OU=Пользователи,DC=domain,DC=local'+#39);
      ADOQuery1.SQL.Add('WHERE objectcategory = '+#39+'Person'+#39+' AND objectclass = '+#39+'User'+#39);
      ADOQuery1.SQL.Add(' and CN = '+#39+'*'+edit1.text+'*'+#39+' order by CN');
      ADOQuery1.open;

Осталось только откомпилировать.
Скачать проект (100 кб)

0 комментариев

Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.