Форум: "Основная";
Текущий архив: 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