FRITZ!Box Komponente v0.17

[Union]

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;