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
