Discussion :

[psohier]

Bonjour,

Je souhaiterais pouvoir dans la fenêtre d'ouverture d'une application DELPHI 7 Pro où je fais saisir un nom d'utilisateur et un mot de passe, pouvoir autoriser l'accès à cette application en interrogeant un annuaire active directory en passant en paramètres le user et le password saisis et récupérer l'info renvoyé par l'annuaire (le user existe et son mot de passe est correct)

j'ai vu au détour des forums et tutorials que cela pouvait se faire en .NET. Est-ce aussi possible en D7 Win32 ? quelle piste de recherche puis-je suivre ?

MErci

[qi130]

Bonjour et bienvenue sur le forum.

As-tu lu les Règles du forum avant de poster (#4.8) ?



En effet (je viens de vérifier) plusieurs post relatifs à ce sujet existent.

[[DreaMs]]

perso j'ai le même problème et une recherche ne m'a pas vraiment renseigné.
je dois mal chercher.

quelqu'un pourrais-t'il m'aider ?

[Soulama]

http://www.google.at/search?hl=de&q=...nG=Suche&meta=

[ALWEBER]

Tu peux effectivement en delphi 7 te connecter sur l'annuaire LDAP d'active directory ainsi que sur un annuaire openLDAP.
Tu trouveras des exemples sur le site 'http://www.agnisoft.com'
Si besoin est je peux te donner plus d'infos

[ALWEBER]

unit mainform;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, ADODB, StdCtrls, ComCtrls, comobj,
activex,variants, ExtCtrls;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Panel1: TPanel;
Memo1: TMemo;
Button1: TButton;
Memo2: TMemo;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
v1 : variant ;
i1,i2,i3 : integer ;
sl1 : TSTringList ;
begin
if ADOQuery1.Active then ADOQuery1.Close ;
ADOQuery1.Connection := nil ;
ADOQuery1.SQL.Text := Memo1.lines.text ;
ADOQuery1.Connection := ADOConnection1 ;
sl1 := TSTringList.create ;
try
ADOQuery1.Open ;
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
if ADOQuery1.Fields.Count > 0 then
if ADOQuery1.Fields[0] <> nil then
begin
v1 := ADOQuery1.Fields[0].AsVariant ;
i1 := integer(vartype(v1)) ;
case i1 of
varOleStr : sl1.Add(v1) ;
varNull : ;
varSmallint,varInteger : sl1.Add(intToSTr(v1)) ;
$200C :
begin
i3 := VarArrayDimCount(v1) ;
//memo2.Lines.Add(':'+intTostr(i3)) ;
for i2 := VarArrayLowBound(v1,1) to VarArrayHighBound(v1,1) do
sL1.Add(v1[i2]) ;
end
else
memo2.Lines.Add('\$'+intToHex(vartype(v1),4)) ;
end ;

end ;
ADOQuery1.Next;
end;
finally
memo2.clear ;
sl1.Sort ;
memo2.Lines.addStrings (sl1) ;
Label1.caption := intToStr(sl1.count) ;
sl1.free ;
end ;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
memo1.Text := 'SELECT * FROM ''LDAP://ldap.toto.com/ou=People,dc=toto,dc=com''' ;
end;

end.