ldap "Serveur hors servic"

bonjour,
je suis en train d'écrire un program pour accéder au annuaire LDAP par DELPHI.
en fait j'en ai déjà fait un en C qui marche bien. Mais après la traduction, celui en DELPHI marche toujours pas, et me donne chaque fois une erreur "Serveur hors service"
voici mes codes:

Code:

---

1 2 3 4 5 6 7

d : PLDAP; ld := ldap_init(PWideChar(sServeur), LDAP_PORT); if ld = nil then begin showMessage('ERROR: ldap_init: ' + ldap_err2stringW(GetLastError)); goto labelFin; end

---

et labelFin qui juste vient à la fin de program.

Merci bcp pour vos aides.

pourquoi utilises-tu du WideChar ?

Tu es en quelle version de Delphi ? 2009 ?

Pour D7, j'ai écrit ce code, faut essayer les 3 variantes, PChar, PAnsiChar, PWideChar ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function TLDAPToolHelp.LDAPExists(const LDAPServerName: string; LDAPPort: Cardinal = 389): Boolean; var ID: PLDAP; begin ID := wldap32.ldap_init(PChar(LDAPServerName), LDAPPort); // ldap_open est deprecated Result := Assigned(ID); if Result then wldap32.ldap_unbind(ID) else SetLastError(wldap32.LdapGetLastError(), 'ldap_init'); end;

---

"goto", lol, c'est pas du basic, instruction à éviter ! c'est juste vilain

Citation:

---

Envoyé par Paul TOTH

pourquoi utilises-tu du WideChar ?

---

Car sinon, il y aura une err de 'types incomcompatibles'

Citation:

---

Envoyé par ShaiLeTroll

Tu es en quelle version de Delphi ? 2009 ?

Pour D7, j'ai écrit ce code, faut essayer les 3 variantes, PChar, PAnsiChar, PWideChar ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function TLDAPToolHelp.LDAPExists(const LDAPServerName: string; LDAPPort: Cardinal = 389): Boolean; var ID: PLDAP; begin ID := wldap32.ldap_init(PChar(LDAPServerName), LDAPPort); // ldap_open est deprecated Result := Assigned(ID); if Result then wldap32.ldap_unbind(ID) else SetLastError(wldap32.LdapGetLastError(), 'ldap_init'); end;

---

"goto", lol, c'est pas du basic, instruction à éviter ! c'est juste vilain

---

ou, j'utilise delphi 2009

en fait, c'était après k j'appelle ldap_connect, le message d'erreur apparait..
j'ai oublié de dire..
désolée pr c'était pas claire..

ps: c'est toi qui a écrit l class wldap32 ??

OK, c bon. Ca marche.
j'ai juste changé ldap_init à ldap_initW
mon dieu...
je suis bloquée depuis hier matin pour cette magnifique 'W'...
Merci pour vos aides 8-)