Discussion :

[DETHIER]

Je recupere les infos d'un annuaire LDAP sans problème, mais je ne sais pas calculer la date d'expiration d'un compte (quand il y en à une accountExpired <>0)

Quelqu'un peut-il m'expliquer comment réaliser ce calcul?

D'avance merci et meilleurs voeux a tous pour 2005

[rbag]

Bonjour,

Tu as essayé avec UnixToDateTime de l'unité DateUtils ?

[DETHIER]

Je viens de faire l'essai avec UnixToDateTime mais je génère une erreur "Operation en virgule flottante incorrecte" lorsque je veux afficher par DateTimeToStr le résultat de UnixToDateTime.

Par contre j'ai trouver comment recupérer directement la valeur exemple dans le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TfrmUtilisateur.RechercheAD_LDAP(Login : String);
var
    usr : IAdsUser;
 
begin
  ADsGetObject('WinNT://' + FDomain + '/' + login, IADsUser, usr);
  xFullName := Usr.FullName;
  xDescription := Usr.Description;
  xAccountDisabled    := usr.AccountDisabled;
  xIsAccountLocked    := usr.IsAccountLocked;
  Try
  xExpire :=[b]Usr.AccountExpirationDate[/b];
  Label1.Caption:=FormatDateTime('"Expire le "dddd d,mmmm yyyy',xExpire)
  Except
  xexpire :=0 ;
  Label1.Caption:='';
  End;
  chbAcctDisabled.Checked      := xAccountDisabled;
  chbAcctLockedOut.Checked     := xIsAccountLocked;
end;

_____________________________________
[Balises code rajoutées par Lil_jam63]