ldap et ADSI

Version imprimable

ldap et ADSI

Bonjour,

Je cherche à ajouter une classe auxiliaire à un objet de l'active directory mais il semble que ce ne soit pas possible en utilisant system.directoryservices, il faut passer par adsi.

J'essaye donc de me connecter mais je n'y arrive pas.

J'ai d'abord déclarer ma procedure :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 procedure ADsOpenObject(lpszPathName:string; lpszUserName: string; lpszPassword: string; dwReserved: dword; riid: TGuid;out ppObject); interface [dllimport('activeds.dll',charset=charset.Unicode,preserveSig=false)] procedure ADsOpenObject(lpszPathName:string; lpszUserName: string; lpszPassword: string; dwReserved: dword; riid: TGuid; [MarshalAs(UnmanagedType.&Interface)] out ppObject);external; const IID_IADs : TGuid = '{FD8256D0-FD15-11CE-ABC4-02608C9E7553}'; procedure TForm1.Button1Click(Sender: TObject); var uObj:IADs; begin ADsOpenObject('LDAP://192.168.1.2:389/DC=srv,DC=local', 'srv\Administrateur','myPass',1,iid_iads,val); end;
Je reçois un message tentative de lecture de mémoire protégée... D'où peut venr le problème ? merci d'avance

Je crois bien qu'il faut travailler avec des WideString...
en Win32 je ferais comme ceci

Code:

1
2
3
4
5
 
Function ADsOpenObject(lpszPathName: PWideChar;
  lpszUserName: PWideChar; lpszPassword: PWideChar;
  dwReserved: LongInt; Const riid: TGUID; Out obj): HResult;
  Stdcall; External 'activeds.dll';

et pour ça...

Code:

1
2
3
4
5
 
[dllimport('activeds.dll',charset=charset.Unicode,preserveSig=false)]
  procedure ADsOpenObject(lpszPathName:string; lpszUserName: string;
    lpszPassword: string; dwReserved: dword; riid: TGuid;
    [MarshalAs(UnmanagedType.&Interface)] out ppObject);external;

désolé mais cette syntax m'est inconnue...(Delphi.Net j'imagine?)

10/07/2008, 00h30
flash_math

Citation:

Envoyé par Eric Boisvert

désolé mais cette syntax m'est inconnue...(Delphi.Net j'imagine?)

Euh ! Ben sur le forum Delphi.Net, oui il vaut mieux.:lol:
10/07/2008, 14h28
Eric Boisvert

Citation:

Envoyé par Eric Boisvert

désolé mais cette syntax m'est inconnue...(Delphi.Net j'imagine?)

je voulais dire nouveau en Delphi.Net....

ce qui est bizard... c'est qu'en win32 c'est bien une fonction...

et en delphi.net... tu la défini en procedure...et aucune valeur de retour?

aussi... win32 on parle bien de PWideChar pour le path,username et password...

en delphi.net...string...
peut-être que string en .Net est automatiquement en WideString...

j'espère avoir été plus claire dans ma simple réflexion...
11/07/2008, 11h39
flash_math

Ah pardon.

Citation:

Envoyé par Eric Boisvert

ce qui est bizard... c'est qu'en win32 c'est bien une fonction...

et en delphi.net... tu la défini en procedure...et aucune valeur de retour?

L'aide précise que dans le cas d'une fonction renvoyant un HResult on peut la déclarer en procédure, c'est delphi qui va se charger déclencher une erreur si Hresult est différent de S_OK.

Citation:

Envoyé par Eric Boisvert

peut-être que string en .Net est automatiquement en WideString...

C'est le cas comme le précise l'aide. Il me semble même que c'est le cas en .Net et en win32 depuis quelques versions mais là je m'y aventurerais pas car y a un bout de temps que j'ai pas fait du win32.
11/07/2008, 11h41
flash_math

En tout cas pour éviter d'utiliser cette fonction puisque je n'ai toujours pas de solution, on peut utiliser DirectoeryEntry et la propriété nativeObject renvoie l'interface souhaitée.