[Synalist] LDAPSend...

[Kurt B. <ku...@sd...>]

Hi,

Using Delphi XE / XE2 and having issues with LDAPSend. It seems like it locks up when trying to bind. Anyone facing the same?

Basically I have this working C# code:

static bool IsAuthenticated(String FQDN, String domain, String username, String pwd)
        {
            String domainAndUsername = (domain + @"\" + username);
            String _path = "LDAP://" + FQDN;
            bool Success;

            DirectoryEntry entry = new DirectoryEntry(_path, domainAndUsername, pwd, AuthenticationTypes.Secure);
            DirectorySearcher Searcher = new DirectorySearcher(entry);

            Searcher.SearchScope = SearchScope.OneLevel;
            try
            {
                SearchResult result = Searcher.FindOne();
                Success = !(result == null);
            }
            catch (Exception ex)
            {
                Success = false;
            }
            return Success;
        }

This should be something like this in Delphi:

Function IsAuthenticated(FQDO: string, domain: string, username: string, pwd: string): boolean;
var
  ldap: TLDAPsend;
  l: TStringList;
domainAndUsername: string;
_path: string;

Begin
  _path := "LDAP://" + FQDN;
  domainAndUsername = domain + '\' + username;
  ldap:= TLDAPsend.Create;
  ldap.UserName := domainAndUsername;
  ldap.Password :=pwd;
  ldap.AutoTLS := true; //secure login
  try
    ldap.TargetHost := _path;
    ldap.Login;
    Result := ldap.Bind;
    //ldap.Search('SAMAccountName='+username, False, '(objectclass=*)', l); - no need to search or ?!? (eg. FindOne in C#) - if bind pws and domainandusername combination is ok!
    ldap.Logout;
  finally
    ldap.Free;
  end;
end;

This is used to verify the username and password against an AD - I don't need to get(or set) attributes......

I have tried the "www.openldap.com" example, but it also locks at "bind"-time ;-)

TIA,
Kurt