So ich mal wieder:
QueryPerformanceFrequency liefert komischerweise nicht 0 zurück. Und zu faul bin ich auch nich ne Zeitmessung selber zu schreiben...vielleicht schreib ich ja gleich noch den TCPIP Stack neu wenn ich grad dabei bin
Ich hab aber den JCP in vielen meiner Tools verwendet und müsste ihn wieder rausnehmen wenn ich Ursache nicht finde...
Delphi-Quellcode:
procedure TForm1.button_3Click(Sender: TObject);
var
freq,time1,time2: int64;
i,a : Integer;
begin
QueryPerformanceFrequency(freq);
QueryPerformanceCounter(time1);
for I := 0 to 10000000 do
Inc(a);
QueryPerformanceCounter(time2);
ShowMessage(FloatToStr((time2-time1)/freq));
end;
"Message = 0,0102"