Что возвращает QueryPerformanceCounter?

[nibufep]

Что возвращает QueryPerformanceCounter? Как я понял время выполнения участка кода? т.е.

QueryPerformanceCounter(t1);
sleep(1);
QueryPerformanceCounter(t2);
t3:=(t2-t1);

в t3 будет время между t1 и t2 в микросекундах?

[northener]

Сообщение от nibufep

Что возвращает QueryPerformanceCounter? Как я понял время выполнения участка кода? т.е.

QueryPerformanceCounter(t1);
sleep(1);
QueryPerformanceCounter(t2);
t3:=(t2-t1);

в t3 будет время между t1 и t2 в микросекундах?

Нет. Это будет время в попугаях. Чтобы перевести в микросекунды используй QueryPerformanceFrequency

[nibufep]

Сообщение от northener

Нет. Это будет время в попугаях. Чтобы перевести в микросекунды используй QueryPerformanceFrequency

а подробней можно как это сделать?

[northener]

var
  TicsPerSec: Int64;
  TimeInSecs: Extended;
...
  if QueryPerformanceFrequency(TicsPerSec) then TimeInSecs:=(t2-t1)/TicsPerSec;

[nibufep]

Правильно?

var
t1,t2:Int64;
TicsPerSec: Int64;
TimeInSecs: Extended;
begin
QueryPerformanceCounter(t1);
http.GET('http://',html);
QueryPerformanceCounter(t2);
if QueryPerformanceFrequency(TicsPerSec) then TimeInSecs:=(t2-t1)/TicsPerSec;
Edit.Text:=FloatToStr(TimeInSecs);

[Stilet]

А можно глупый вопрос: Это все зачем?

[northener]

Сообщение от nibufep

Правильно?

var
t1,t2:Int64;
TicsPerSec: Int64;
TimeInSecs: Extended;
begin
QueryPerformanceCounter(t1);
http.GET('http://',html);
QueryPerformanceCounter(t2);
if QueryPerformanceFrequency(TicsPerSec) then TimeInSecs:=(t2-t1)/TicsPerSec;
Edit.Text:=FloatToStr(TimeInSecs);

В коде ошибок нет. Но я абсолютно согласен со Stilet. Замерять время выполнения GET-запроса таким способом не имеет никакого смысла.

Хотя был не совсем прав говоря что в коде нет ошибок.
Если подразумевается что сей код это часть реальной программы, то в нём куча принципиальных ошибок. В коде присутствуют три вызова функций. В двух из них результат функции не проверяется вообще. В оставшемся, результат проверяется, но используется лишь частично.

[nibufep]

Сообщение от northener

Замерять время выполнения GET-запроса таким способом не имеет никакого смысла.

А как лучше это сделать?

[Stilet]

А как лучше это сделать?

Ахахах! Так проблема только в этом? Измерить скорость интернета что ли хочешь?

[Dmitry33RU]

Сообщение от nibufep

А как лучше это сделать?

t:=now;
http.GET('http://',html);
t2:=IntToStr(MilliSecondsBetween(now,t));