Discussion :

[yuefei]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Paul TOTH]

pourquoi utilises-tu du WideChar ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[yuefei]

pourquoi utilises-tu du WideChar ?

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

[yuefei]

Tu es en quelle version de Delphi ? 2009 ?

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ??

[yuefei]

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