Gedemin TLB.IGedemin.AddLogRecord - История изменений

SYSDBA в 08:18, 4 апреля 2016

2016-04-04T08:18:49Z

SYSDBA в 08:06, 4 апреля 2016

2016-04-04T08:06:59Z

SYSDBA: Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure AddLogRecord(const ASrc: WideString; c…»

2016-04-04T08:04:52Z

Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure AddLogRecord(const ASrc: WideString; c…»

Новая страница

{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure AddLogRecord(const ASrc: WideString; const AText: WideString; AType: Integer; AnObjID: Integer; const AnObjType: WideString; AShowWindow: WordBool); safecall;}}

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

<syntaxhighlight lang="vbnet">
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
</syntaxhighlight>

@@ Строка 3: / Строка 3: @@
 <onlyinclude>Добавляет запись в лог.</onlyinclude>
-;ASrc: Источник. Строка.
+;ASrc: Источник. Строка. Используется для фильтрации записей в логе.
 <syntaxhighlight lang="vbnet">

← Предыдущая		Версия 08:06, 4 апреля 2016
Строка 2:		Строка 2:

	<onlyinclude>Добавляет запись в лог.</onlyinclude>		<onlyinclude>Добавляет запись в лог.</onlyinclude>
		+
		+	;ASrc: Источник. Строка.

	<syntaxhighlight lang="vbnet">		<syntaxhighlight lang="vbnet">