Ja, seit Tokyo ist das UInt64. Folgende Korrekturen in UFritzBox beheben das:
Delphi-Quellcode:
// Ergänzung der Defines für neue Compilerversionen
{$IfDef VER330}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$Define USE_ULARGE_INTEGER}{$EndIf} {Delphi Rio}
{$IfDef VER320}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$Define USE_ULARGE_INTEGER}{$EndIf} {Delphi Tokyo}
{$IfDef VER310}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf} {Delphi Berlin}
{$IfDef VER300}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf} {Delphi Seattle}
{$IfDef VER290}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf} {Delphi XE8}
{$IfDef VER280}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf} {Delphi XE7}
{$IfDef VER270}{$Define DELPHI}{$Define DELPHI_XE2_UP}{$EndIf} {Delphi XE6}
TOnlineCounter = record
// Verwendung von ULARGE_INTEGER ab Tokyo
BytesReceived : {$IfDef DELPHI}{$IfDef USE_ULARGE_INTEGER}ULARGE_INTEGER{$else}TULargeInteger{$endif}{$Else}ULARGE_INTEGER{$EndIf}; // Bytes
BytesSent : {$IfDef DELPHI}{$IfDef USE_ULARGE_INTEGER}ULARGE_INTEGER{$else}TULargeInteger{$endif}{$Else}ULARGE_INTEGER{$EndIf}; // Bytes
OutgoingCalls : Cardinal; // Verbindungen der Fritzbox
ConnectTime : Cardinal; // in Sekunden
end;