Аутентификация в Active Directory через Delphi 2009+ с LDAP

Delphi , Файловая система , Активные директории

После успешной реализации аутентификации в Active Directory (AD) в C# с использованием LDAP, перед нами встала задача осуществить ту же процедуру в Delphi 2009+ с поддержкой Unicode. В качестве отправной точки мы нашли компонент LDAP-аутентификации для Delphi 2007, созданный Соломоном (Solomon's Delphi 2007 LDAP authentication component). Однако, нам потребовались рабочие версии для Delphi 2009+ и примеры простой аутентификации в AD с проверкой домена, пользователя и пароля.

В C# аутентификация происходит путем выполнения однократного поиска на уровне LDAP для проверки подлинности пользователя, без необходимости обходить всю структуру AD. В этой статье мы рассмотрим, как выполнить аналогичную процедуру в Delphi 2009+ с использованием LDAP.

Подтвержденный ответ:

Для аутентификации в Active Directory через Delphi 2009+ с LDAP мы можем воспользоваться компонентом Synapse LDAP. Ниже приведен пример кода на Object Pascal (Delphi), который демонстрирует базовую аутентификацию в Active Directory:

uses
  LDAPSend;

var
  fldap: TLDAPSend;
  fad_domain, ausername, apassword: string;
begin
  ausername := 'your AD username';
  apassword := 'your AD password';
  fldap := TLDAPSend.Create;
  fad_domain := 'your.ad.domain';
  fldap.TargetHost := fad_domain;
  // Следующая строка является ключом к успешной аутентификации в AD
  fldap.UserName := ausername + '@' + fad_domain;
  fldap.Password := apassword;
  try
    try
      if fldap.Login then
        if fldap.Bind then
        begin
          // Пользователь успешно аутентифицирован на этом этапе
        end
        else
          raise Exception.Create('LDAP bind failed.');
    except
      on E: Exception do
        // Обработка исключений
    end;
  finally
    fldap.Logout;
    FreeAndNil(fldap);
  end;
end;

В этом примере мы создаем экземпляр компонента TLDAPSend, устанавливаем целевой хост (домен AD), имя пользователя и пароль. Затем мы вызываем методы Login и Bind, чтобы выполнить аутентификацию. Если аутентификация успешна, пользователь считается аутентифицированным.

Альтернативный ответ:

Как упоминалось в комментариях, существует похожий вопрос "Как интегрировать Delphi с Active Directory?", который также может быть вам полезен.

Заключение:

В данной статье мы рассмотрели, как выполнить аутентификацию в Active Directory через Delphi 2009+ с LDAP, используя компонент Synapse LDAP. Мы предоставили рабочий пример кода на Object Pascal (Delphi), который демонстрирует базовую аутентификацию в Active Directory. Следуя описанному подходу, вы сможете успешно аутентифицировать пользователей в Active Directory из своих приложений, созданных с помощью Delphi.

Создано по материалам из источника по ссылке.

Необходимо выполнить аутентификацию в Active Directory через Delphi 2009+ с использованием LDAP, используя компонент Synapse LDAP.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Активные директории ::