david
2a98435b14
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
49 lines
1.8 KiB
ObjectPascal
49 lines
1.8 KiB
ObjectPascal
unit uROLDAP;
|
|
{----------------------------------------------------------------------------}
|
|
{ RemObjects SDK Library - Core components }
|
|
{ }
|
|
{ compiler: Delphi 6 and up, Lazarus/FPC }
|
|
{ platform: Win32, Linux, MacOS }
|
|
{ }
|
|
{ (c)opyright RemObjects Software. all rights reserved. }
|
|
{ }
|
|
{ Using this code requires a valid license of the RemObjects SDK }
|
|
{ which can be obtained at http://www.remobjects.com. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$I RemObjects.inc}
|
|
interface
|
|
|
|
{ Note: for TLS/SSL support, you should include one from these files into your project
|
|
ssl_cryptlib.pas
|
|
ssl_openssl.pas
|
|
ssl_sbb.pas
|
|
ssl_streamsec.pas
|
|
}
|
|
function LDAPPlainCheck(const aUserName, aPassword, aHost: string; aPort: integer; const UseTLS: Boolean = False; const UseSSL: Boolean = False): Boolean;
|
|
|
|
implementation
|
|
uses
|
|
SysUtils,
|
|
ldapsend;
|
|
|
|
function LDAPPlainCheck(const aUserName, aPassword, aHost: string; aPort: integer; const UseTLS: Boolean = False; const UseSSL: Boolean = False): boolean;
|
|
var
|
|
ldap: TLDAPsend;
|
|
begin
|
|
ldap:= TLDAPsend.Create;
|
|
try
|
|
ldap.TargetHost := aHost;
|
|
ldap.TargetPort := IntToStr(aPort);
|
|
ldap.UserName := aUserName;
|
|
ldap.Password := aPassword;
|
|
ldap.AutoTLS := UseTLS;
|
|
ldap.FullSSL := UseSSL;
|
|
Result := ldap.Login and ldap.Bind;
|
|
finally
|
|
ldap.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|