@ Robert:
Ich habe soeben die JCLCounter.pas n bisschen editiert. Vor dem call: if not QueryPerformanceCounter(FStart) then
habe ich ne Testvariable eingefügt: Test : bool.
Und jetzt kommts: test := QueryPerformanceCounter(FStart); gibt NICHT null zurück und siehe da...der Counter geht wieder. Ich verstehs aber nicht. Nach dem entfernen der Var geths trotzdem. Ich vermute aber...das es nicht daran lag sondern an irgendwas anderem.
So kanns nicht weitergehen...ich werde mal deine Schrittliste abarbeiten und den ganzen Kram entfernen.
Delphi-Quellcode:
procedure TJclCounter.Start;
var
test : Boolean;
begin
test := QueryPerformanceCounter(FStart);
FCounting := True;
FElapsedTime := 0;
FOverallElapsedTime := 0;
{$IFDEF MSWINDOWS}
if not QueryPerformanceCounter(FStart) then
raise EJclCounterError.CreateRes(@RsNoCounter);
{$ENDIF MSWINDOWS}
{$IFDEF LINUX}
GetTimeOfDay(FTimeval, nil);
FStart := FTimeval.tv_sec * 100000 + (FTimeval.tv_usec);
{$ENDIF LINUX}
end;