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