IAuditLogons.Stamp

Синтаксис

Stamp: Double;

Описание

Свойство Stamp возвращает дату и время входа в репозиторий.

Пример

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

AL: IAuditLog;

ALogon: IAuditLogons;

d, d1: DateTime;

Begin

MB := MetabaseClass.Active;

MS := MB.Security;

Al := MS.OpenAuditLog;

ALogon := AL.OpenLogons(False);

While Not ALogon.Eof Do

Debug.Write("Сессия: " + ALogon.Session.ToString + " | ");

d := (ALogon.Stamp As Variant) As DateTime;

d1 := (ALogon.StampOut As Variant) As DateTime;

Debug.WriteLine(d.ToString + "-" + d1.ToString);

ALogon.Next;

End While;

End Sub Button1OnClick;

После выполнения примера в консоль среды разработки будет выведена информация о сессиях с текущим репозиторием. Будет выведен номер сессия и даты начала и завершения сессии.

См. также:

IAuditLogons