Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Проблема с LDAP

Автор: keymaster 19.5.2008, 12:37

Имеется:

implementation

Код


function ADsOpenObject(lpszPathName: WideString; lpszUserName: WideString; lpszPassword: WideString;
 dwReserved: DWORD; const riid: TGUID; out ppObject: IADs): HRESULT; external 'activeds.dll';

Но её вызов:

Код


var
HR : HResult;
obj : IADS;
begin
HR := ADsOpenObject('LDAPL//ldap.****/ou=***, dc=*****, dc=***** '; 'ldap.user'; 'ldap.password',
ADS_SECURE_AUTHENTICATION , IID_IADs, usr);
end;

Приводит либо к AV, либо к Failed(HR).

Смысл задачи - введённый логин/пароль проверить через LDAP + принадлежность юзера к определённой группе пользователей приложения.

На "королевстве" много прочитал, MSDN тоже читал, но просветление на тему "что я делаю не так" не наступает.
Кто сталкивался?

BDS2006, WInXp, комп в домене.

Автор: Rennigth 20.5.2008, 14:30

keymaster, реализация activeds.dll у тебя есть? Точно правильно декларировал функцию? stdcall пробовал указать?

Автор: keymaster 20.5.2008, 14:39

После указания stdcall заработало.
Спасибо.