หน้าแรก>การเขียนโปรแกรมที่เกี่ยวข้อง>ซอร์สโค้ดเดลฟี
ดาวน์โหลด

การสาธิต

Activedirectory4delphi

Delphi Basic Library สำหรับการตรวจสอบความถูกต้องและการรับรองความถูกต้องของผู้ใช้ LDAP ใน Active Directory

การติดตั้ง

  • การติดตั้งด้วยตนเอง : เพิ่มโฟลเดอร์ต่อไปนี้ลงในโครงการของคุณใน โครงการ> ตัวเลือก> คอมไพเลอร์ทรัพยากร> ไดเรกทอรีและเงื่อนไข> รวมเส้นทางการค้นหาไฟล์ 
 ../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

ผู้เขียน

- ซาวา

  • Twitter: @zavadev

แสดงการสนับสนุนของคุณ

ให้️ถ้าโครงการนี้ช่วยคุณได้!

ใบอนุญาต

ActiveDirectory4delphi ได้รับใบอนุญาต MIT

ขยาย
ข้อมูลเพิ่มเติม
แอปที่เกี่ยวข้อง
แนะนำสำหรับคุณ
ข้อมูลที่เกี่ยวข้อง ทั้งหมด