Форум: "Основная";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Вниз

Профайлер для Delphi   Найти похожие ветки 

← →
DelphiLexx ©   (2006-02-06 13:36) [0]

Подскажите пожалуйста где можно взять профайлер для Delphi2005.
Профайлер(точно не знаю как на англ. пишется) - штуковина позволяющая определять сколько времени уходит на выполнение каждой процедуры в рабочем коде.

---

← →
Игорь Шевченко ©   (2006-02-06 14:26) [1]

искать gpprofile

---

← →
kaZaNoVa ©   (2006-02-06 14:54) [2]

пример уникальной программы по измерению времени:

program Project1;

uses SysUtils, windows;
var
 k, n, h, p: int64;
 t1: Cardinal;
 PriorityClass, Priority: Integer;
{$R *.res}

procedure taimer(a: boolean);
begin
 if a then begin
   p := gettickcount; QueryPerformanceFrequency(h); QueryPerformanceCounter(k);
 end else begin
   QueryPerformanceCounter(n);
   MessageBox(0, "Ready", Pchar(Inttostr(gettickcount - p) + " ms    (" + (Floattostr(round(10000000 * (n - k) / h) / 10000)) + ") ms"), 0);
 end; end;

begin
 PriorityClass := GetPriorityClass(GetCurrentProcess);
 Priority := GetThreadPriority(GetCurrentThread);
 SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
 SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

 taimer(true);
 for t1 := 1 to 1000 do sleep(0);   //тут измеряемая функция
 taimer(false);

end.

---

← →
drpass ©   (2006-02-06 15:23) [3]

> kaZaNoVa ©   (06.02.06 14:54) [2]

Жуть. А как оценить эффективность выполнения вложенных в "измеряемую функцию"  подпрограмм? То-то же. Все-таки лучше профилировщик ;-)

---

← →
Игорь Шевченко ©   (2006-02-06 15:27) [4]

kaZaNoVa ©   (06.02.06 14:54) [2]

"Если у тебя есть фонтан, заткни его - дай отдохнуть и фонтану"
(с) Козьма Прутков

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.011 c