VCL ActiveDirectory4Delphi

Activedirectory4Delphi

Delphi基本庫，用於Active Directory中LDAP用戶的驗證和身份驗證。

安裝

• 手動安裝：在項目>選項>“資源編譯器”>“目錄和條件”> Include File Search Path中，將以下文件夾添加到您的項目中

 ../VCL-ActiveDirectory4Delphi/src/Core
../VCL-ActiveDirectory4Delphi/src/Interfaces
../VCL-ActiveDirectory4Delphi/src/Winapi

⚡️QuickStart

您需要使用ActiveDirectory.client

 uses ActiveDirectory.Client;

• 身份驗證當前用戶

 procedure Authenticate (UserPass: string);
var
  CurrentUserName: string;
  CurrentDomainName: string;
  CurrentLDAPDomainName: string;
begin
  if ( not ActiveDirectoryClient.GetActiveDirectoryEnabled) then
    Exit;

  CurrentUserName := ActiveDirectoryClient.GetCurrentUserName;
  CurrentDomainName := ActiveDirectoryClient.GetCurrentDomainName(CurrentUserName);  
  CurrentLDAPDomainName := ActiveDirectoryClient.GetCurrentLDAPDomainName(CurrentDomainName);  

  if ActiveDirectoryClient.AuthenticateUser(CurrentLDAPDomainName, CurrentUserName, UserPass) then
    ShowMessage( ' ok ' )
  else
    ShowMessage( ' Fail ' );
end ;

• 驗證用戶活動

 procedure ValidationUserActive (DomainName, UserName: string);
begin
  if ActiveDirectoryClient.GetUserActive(DomainName, UserName) then
    ShowMessage( ' ok ' )
  else
    ShowMessage( ' Fail ' );
end ;

更多信息查看單元activedirectory.client

使用庫的應用程序演示

下載Win32，Win64

使用可以恢復的庫和信息的示例的應用。

獲取當前信息

檢索當前部分的信息。

 AllProviders = WinNT:,LDAP:
CurrentUserName = usuario1
CurrentDomainName = MYDOMAIN
CurrentLDAPDomainName = DC=MYDOMAIN,DC=TEST
ActiveDirectoryEnabled = True

獲取用戶信息

使用文本框中指示的域和用戶檢索用戶信息。

 Param.Domain = MYDOMAIN
Param.UserName = usuario1
UserFind = True
UserActive = True
UserInfo.UID = usuario1
UserInfo.UserName = usuario1
UserInfo.Description = Descripcion del usuario 1
UserInfo.Password.Expired = False
UserInfo.Password.NeverExpires = False
UserInfo.Password.CannotChange = False
UserInfo.Disabled = False
UserInfo.LockedOut = False
UserInfo.Groups = gusuarios,Usuarios del dominio

認證

使用文本框中指示的域和用戶進行身份驗證。

 Param.Domain = MYDOMAIN
Param.UserName = usuario1
Param.UserPass = *********
Authenticated = True

作者

？ Zava

• Twitter：@zavadev

表示您的支持

如果這個項目對您有所幫助，請給！

執照

Activedirectory4Delphi已獲得MIT許可。