AD zugriff mit ActiveDs_TLB und adshlp - www.agnisoft.com

[cherry]

ok bin jetzt ein bisschen weiter mit diesem Code:

Delphi-Quellcode:

library ADSI;

{ [email][e-mail][/email] - 05.10.2007 }

uses
  SysUtils,
  Classes,
  ActiveDs_TLB,
  adshlp,
  Variants, 
  ComCtrls;

type 
  THelper = class(TObject)
    procedure AddToTree(disp: IADs);
  private
  public
  end;

var
  trUser: TTreeView;
  helper: THelper;

{$R *.res}

// open winnt (ActiveDirectory) with other username and password
function OpenWinNT(domain, username, password: String): TTreeView; stdcall;
var
  dom: IADsContainer;
begin
  ADsOpenObject('WinNT://' + domain, username, password, 1, IADsContainer, dom);
  result := trUser;
end;

// open winnt (ActiveDirectory) with current user
function GetWinNT(domain: String): TTreeView; stdcall;
var
  dom: IADsContainer;
begin
  ADsGetObject('WinNT://' + domain, IADsContainer, dom);
  result := trUser;
end;

// adds the user to the chosen list
procedure THelper.AddToTree(disp: IADs);
begin
  trUser.Items.Add(nil, disp.Name);
end;

// set some properties for open winnt
procedure OpenProperties(dom: IADsContainer);
begin
  dom.Filter := VarArrayOf(['user']);
  ADsEnumerateObjects(dom, THelper.AddToTree);
end;

exports
  OpenWinNT,
  GetWinNT;

begin

end.

erhalte ich nun die folgende neue Fehlermeldung:

[Pascal Fehler] ADSI.dpr(54): E2010 Inkompatible Typen: 'TADsEnumCallBack' und 'Procedure'