Gedemin TLB.IGedemin.AddLogRecord
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) (Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure AddLogRecord(const ASrc: WideString; c…») |
SYSDBA (обсуждение | вклад) |
||
| Строка 2: | Строка 2: | ||
<onlyinclude>Добавляет запись в лог.</onlyinclude> | <onlyinclude>Добавляет запись в лог.</onlyinclude> | ||
| + | |||
| + | ;ASrc: Источник. Строка. | ||
<syntaxhighlight lang="vbnet"> | <syntaxhighlight lang="vbnet"> | ||
Версия 11:06, 4 апреля 2016
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
- Источник. Строка.
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
