Gedemin TLB.IGedemin.StartPerfCounter

From Gedemin TLB.pas

 function StartPerfCounter(const ASrc: WideString; const AName: WideString): Integer; safecall;

Unit: Gedemin TLB

Type: function

Visibility: public

Member Of: IGedemin

Описание

Создает счетчик производительности.

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