VCL ActiveDirectory4Delphi

activedirectory4delphi

Active Directory에서 LDAP 사용자의 검증 및 인증을위한 Delphi Basic 라이브러리.

설치

• 수동 설치 : 프로젝트> 옵션> 리소스 컴파일러> 디렉토리 및 조건부에서 프로젝트에 다음 폴더를 추가하십시오. 파일 검색 경로 포함

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

⚡️ QuickStart

activedivedirectory.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 ;

자세한 내용은 Activedivedirectory.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

작가

? 자바

• 트위터 : @zavadev

지원을 보여주세요

이 프로젝트가 도움이된다면 ️를주세요!

특허

Activedirectory4delphi는 MIT 라이센스가 부여되었습니다.