Sind bei dir denn keine
Indy-Quellcodes vorhanden?
Was für Fehler?
Mathematik? (Differenz zwischen zwei Werten ... das könnte man bestimmt auch selber berechnen
)
[add]
Delphi-Quellcode:
function GetTickDiff(const AOldTickCount, ANewTickCount: LongWord): LongWord;
{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
{This is just in case the TickCount rolled back to zero}
if ANewTickCount >= AOldTickCount then begin
Result := ANewTickCount - AOldTickCount;
end else begin
Result := High(LongWord) - AOldTickCount + ANewTickCount;
end;
end;
Wobei ich persönlich auch einfach den Überlauf ausnutzen würde.
Delphi-Quellcode:
function GetTickDiff(const AOldTickCount, ANewTickCount: LongWord): LongWord; inline;
begin
Result := LongWord(ANewTickCount - AOldTickCount); // LongWord(), da ich nicht weiß, ob sich das Inline da richtig verhält
end;