الصفحة الرئيسية>المتعلقة بالبرمجة>كود مصدر دلفي
تنزيل

العرض التوضيحي

Activedirectory4delphi

مكتبة Delphi Basic للتحقق من صحة ومصادقة مستخدمي LDAP في Active Directory.

تثبيت

  • التثبيت اليدوي : أضف المجلدات التالية إلى مشروعك ، في Project> Options> Resource Mespiler> الدلائل والشرطية> قم بتضمين مسار البحث عن الملفات 
 ../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

APP Demo باستخدام المكتبة

تنزيل 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 مرخص معهد ماساتشوستس للتكنولوجيا.

يوسع
معلومات إضافية
تطبيقات ذات صلة
نوصي لك
أخبار ذات صلة الكل