Ich versuche eine vorhandene Anwendung von LDAP zu LDAPS umzustellen.
Derzeitiges Problem: Fehlermeldung bei der Abfrage der Option LDAP_OPT_SSL.
Als Ergebnis bekomme ich einen Code der mit ldap_err2string als "Parameterfehler" zurück gibt.
Delphi-Quellcode:
FConn: Pointer;
FSSL: Pointer;
FVersion: Integer;
TriggerProtocol(Self, 'Initialize an LDAP session using SSL');
fConn := ldap_sslinit(PChar(fHost), fPort, 1);
try
FVersion := LDAP_VERSION3;
TriggerProtocol(Self, Format('Setting Protocol version to %d', [FVersion]));
LDAPCheck(ldap_set_option(fConn, LDAP_OPT_PROTOCOL_VERSION, @FVersion));
TriggerProtocol(Self, 'Checking if SSL is enabled');
FSSL := LDAP_OPT_OFF;
LDAPCheck(ldap_get_option(fConn, LDAP_OPT_SSL, FSSL));
TriggerProtocol(Self, IfThen(FSSL = LDAP_OPT_ON, 'SSL is enabled', 'SSL not enabled'));
if FSSL <> LDAP_OPT_ON then
begin
TriggerProtocol(Self, 'SSL being enabled...');
FSSL := LDAP_OPT_ON;
LDAPCheck(ldap_set_option(fConn, LDAP_OPT_SSL, FSSL));
end;
Das Protokoll:
Code:
Initialize an LDAP session using SSL
Setting Protocol version to 3
Checking if SSL is enabled
Parameterfehler