Gedemin TLB.IGedemin.AddLogRecord

From Gedemin TLB.pas

 procedure AddLogRecord(const ASrc: WideString; const AText: WideString; AType: Integer; AnObjID: Integer; const AnObjType: WideString; AShowWindow: WordBool); safecall;

Unit: Gedemin TLB

Type: procedure

Visibility: public

Member Of: IGedemin

Описание

Добавляет запись в лог.

ASrc

Источник. Строка. Используется для фильтрации записей в логе.

AText

Текст записи.

AType

Целочисленный тип: 1 -- информационная запись, 2 -- предупреждение, 3 -- ошибка.

AnObjID

ИД бизнес-объекта, если применимо.

AnObjType

тип и (через пробел) подтип бизнес-объекта, если применимо.

AShowWindow

активизировать окно лога.

Option Explicit
Sub ShowProgressWindow
 
   Dim Creator, P, I, C
   Set Creator = New TCreator
   Set P = Creator.GetObject(nil, "TgdccProgress", "")
 
   P.StartWork "Обработка данных", "Длительный процесс", 100, True, True
 
   C = System.StartPerfCounter("test", "Процесс...")
 
   For I = 1 To 100
     P.StartStep "Step #" & I, 1
 
     System.AddLogRecord "Test", "Идет выполнение процесса...", 1, -1, "", False
 
     If P.Canceled Then Exit For
 
     WinAPI.Sleep 200
   Next
 
   System.StopPerfCounter(C)
 
   P.EndWork "Обработка завершена успешно", False
End Sub