Hallo,
I want to use LDAPS over Port 636.
But I dont know, how to import the certificate for ldaps.
Over port 389 it works fine, but with 636 the server has an error with the
certifikate. A LDAP-Browser works over ldaps and 636.
Here my code:
------------------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
ldap: TLDAPsend;
l: TStringList;
begin
memo1.Clear;
ldap:= TLDAPsend.Create;
l := TStringList.Create;
try
ldap.TargetHost := '172.16.0.1';
ldap.TargetPort := '636';
ldap.Version := 3;
ldap.FullSSL := true;
ldap.UserName := 'cn=administrator,dc=domain,dc=com';
ldap.Password := 'password';
ldap.Login;
ldap.Bind;
l.Add('*');
ldap.Search('ou=basic,o=domain,dc=domain,dc=com', False, '(cn=*)', l);
memo1.Lines.Add(LDAPResultdump(ldap.SearchResult));
ldap.Logout;
finally
ldap.Free;
l.Free;
end;
end;
------------------------------------------------------------------------------------------------
Can someone help me?
Thank you !!
Potsbew
-------------------------------------------------------------------------
SF.Net email is sponsored by: The Future of Linux Business White Paper
from Novell. From the desktop to the data center, Linux is going
mainstream. Let it simplify your IT future.
http://altfarm.mediaplex.com/ad/ck/8857-50307-18918-4
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
