VCL ActiveDirectory4Delphi

ActiveDirectory4Delphi

Delphi Basic Library untuk validasi dan otentikasi pengguna LDAP di Active Directory.

Instalasi

• Instalasi Manual : Tambahkan folder berikut ke proyek Anda, di Project> Options> Resource Compiler> Direktori dan Kondisional> Sertakan jalur pencarian file

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

⚡️ QuickStart

Anda perlu menggunakan active -sirtirectory.client

 uses ActiveDirectory.Client;

• Otentikasi pengguna saat ini

 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 ;

• Pengguna validasi aktif

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

Informasi lebih lanjut lihat unit ActiveDirectory.Client

Demo Aplikasi Menggunakan Perpustakaan

Unduh Win32, Win64

Penerapan contoh menggunakan perpustakaan dan informasi yang dapat dipulihkan.

Dapatkan info saat ini

Ambil informasi dari bagian saat ini.

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

Dapatkan info pengguna

Ambil informasi pengguna menggunakan domain dan pengguna yang ditunjukkan dalam kotak teks.

 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

Otentikasi

Otentikasi menggunakan domain dan pengguna yang ditunjukkan dalam kotak teks.

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

Pengarang

? Zava

• Twitter: @zavadev

Tunjukkan dukungan Anda

Berikan ️ jika proyek ini membantu Anda!

Lisensi

ActiveDirectory4Delphi dilisensikan MIT.