TFilestream.Size zu groß unter Windows 7

[arnold mueller]

Hallo zusammen!

um es kurz zu machen, das Problem lag weder an Windows 7 noch an TFileStream, es lag bzw. saß vor dem Bildschirm...

Unsere Software wird auf Windows 7 gehoben. Bei der Datei handelt es sich um eine Lizenzdatei, eine Binärdatei mit teils verschlüsselten und auch unverschlüsselten Datenbereichen. In der Windows 7 Umgebung bekam ich immer einen CRC Fehler - und zwar vollkommen zurecht, es war eine Testdatei - allerdings habe ich beim Vergleich mit Windows XP angenommen dieselben Dateien zu vergleichen. Dem war leider nicht so.

Immerhin hat die Fehlersuche etwas Gutes. Die Implementation von TFilestream in D2007 unterscheidet sich nicht grundlegend von der in DXE.

Und offensichtlich arbeitet EMBA an der Crossplattform-Fähigkeit

Delphi-Quellcode:

unit Classes;


// Delphi 2007

{$IFDEF MSWINDOWS}
uses Windows, Messages, SysUtils, Variants, TypInfo, ActiveX;
{$ENDIF}
{$IFDEF LINUX}
uses Libc, SysUtils, Variants, TypInfo, Types;
{$ENDIF}

// Delphi XE

{$IFDEF MSWINDOWS}
  Windows, Messages, ActiveX,
{$ENDIF MSWINDOWS}
{$IFDEF POSIX}
  Types, PosixSysTypes, PosixUniStd, PosixSignal,
{$ENDIF POSIX}
{$IFDEF MACOS}
  CoreServices,
{$ENDIF MACOS}
  SysUtils, Variants, TypInfo;

Danke für euer Feedback,
arno