uLDAP, keine Verbindung

[neus]

Ich benutzte das Modul uldap um mich mit LDAP auseinanderzusetzten.

Ich hatte schon mal eine Verbindung zum Server, es war aber ein anderer Quellcode. An dem jetzigen kann ich aber keinen Fehler finden und dennoch geht es nicht. Eine Firewall gibt es nicht.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
        Server:='172.16.20.2';
        Port:=389;
        UserDN:='cn=steffen,ou=VT,ou=HQ,o=DM';
        // Ich habe auch schon probiert: UserDN:='steffen,VT,DM';
        UserPW:='apap';
        uldap.ldapConnection.Create.Host:=Server;
        uldap.ldapconnection.Create.Port:=Port;
        uldap.ldapConnection.Create.BindDN:=UserDN;
        uldap.ldapconnection.Create.BindPwd:=UserPW;
        // procedure Open(const Hostname:string;const BindAs:string='';const BindPassword:string='';const PortNumber:integer=389);
        try
                uldap.ldapConnection.Create.Open();
                ShowMessage('ldap da');
                uldap.ldapConnection.Create.Destroy();
        except
                ShowMessage('ldap nicht da');
        end;
end;

Dauernt springt er als Fehlermeldung in die uldap.pas in Zeile: procedure ldapConnection.LDAPError(const s: string);
begin
raise ELDAP.Create(s);
end;

und gibt als Fehlermeldung aus: Project1.exe raised exception class ELDAP with message "Error Opening Connection to Server". Process stopped. Use Step or Run to Continue

Ich verzweifel langsam

[marabu]

Hallo,

du solltest die Verbindung auch festhalten und nicht einfach wegwerfen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Server := '172.16.20.2';
  Port := 389;
  UserDN := 'cn=steffen,ou=VT,ou=HQ,o=DM';
  // Ich habe auch schon probiert: UserDN:='steffen,VT,DM';
  UserPW:='apap';
  ldap := LDAPConnection.Create;
  ldap.Host := Server;
  ldap.Port := Port;
  ldap.BindDN := UserDN;
  ldap.BindPwd := UserPW;
  try
    try
      ldap.Open();
      ShowMessage('ldap da');
    except
      ShowMessage('ldap nicht da');
    end;  
  finally
    ldap.Free;  // nicht Destroy() verwenden!
  end;
end;

Deklariere LDAP als private Form-Variable.

Ob dein UserDN wirklich stimmt, dass kannst nur du wissen.

Grüße vom marabu