TFilestream.Size zu groß unter Windows 7

[arnold mueller]

Hallo zusammen!

TFilestream.Size liefert unter Windows 7 nicht den gleichen Wert wie unter Windows XP.

Die Datei hat laut HxD-Editor 783 Bytes. Windows XP und auch Windows 7 zeigen unter den Dateieigenschaften 784 Bytes an. TFilestream.Size liefert unter XP 780 Bytes, unter Windows 7 784 Bytes.

Zu allem Überfluss liefert der folgende Code unter Windows 7 auch 780 Bytes:

Delphi-Quellcode:

    try
      iFileHandle := SysUtils.FileOpen(FileName, fmOpenRead);
      iFileLength := SysUtils.FileSeek(iFileHandle,0,2);
    finally
      FileClose(iFileHandle);
    end;

Was stimmt den nun? 783 Bytes scheinen plausibel da HxD 0x30F (783) anzeigt, wenn ich den Cursor auf das letzte Byte stelle. Mein Programm läuft aber seit Tag und Jahr problemlos unter Windows XP, also mit 780 Bytes. Irgendwelche Ideen?

-
arno

[xaromz]

Hallo,

Zitat von arnold mueller:

783 Bytes scheinen plausibel da HxD 0x30F (783) anzeigt, wenn ich den Cursor auf das letzte Byte stelle.

Dann sollte die Datei aber 784 Byte lang sein, denn das erste Byte hat ja die Position null. Das ist auch konsistent mit den Dateieigenschaften bzw. der Dateigröße unter Win7.

Gruß
xaromz

[arnold mueller]

Zitat:

Dann sollte die Datei aber 784 Byte lang sein, denn das erste Byte hat ja die Position null.

Stimmt!

Aber wie kommen dann die 780 Bytes zustande?

[Klaus01]

Hallo,

vielleicht spielt BOM (Byte Order Mark; 3Byte) eine Rolle?

..noch einen schönen ersten Advent

Klaus

[alzaimar]

Da gibts doch diesen Unicode-Prefix, hat der vielleicht etwas damit zu tun?
Wieso verwendest Du nicht die FileSize-Funktion? Eventuell ist die abwärtskompatibel.

[arnold mueller]

Zitat von alzaimar:

Wieso verwendest Du nicht die FileSize-Funktion? Eventuell ist die abwärtskompatibel.

FileSize - oder auch der Code von oben - würde mein Problem sicher lösen, nur würde ich auch gerne die Ursache verstehen

Zitat von alzaimar:

Da gibts doch diesen Unicode-Prefix, hat der vielleicht etwas damit zu tun?

Die Datei wurde mit einem Delphi-Compiler < 2009 erstellt. Es wäre möglich, das TFilestream im aktuellen Compiler anders damit umgeht. Das ist ein guter Hinweis dem ich nachgehen werde, danke dafür. Dir auch, Klaus01.


Gleichfalls noch einen schönen 1. Advent ...

arno

[himitsu]

Die alten Pascal-Funktionen kennen kein Unicode ... auch unter D2009+ sind und bleiben sie ANSI (da Emba dieses aus Kompatiblitätsgründen so belassen hat, oder sie hatten einfach keine Lust, sie zu erweitern)

Hast du mal soeine Datei für uns?
(auch wenn ich mir nicht vorstellen kann, daß der Dateiinhalt irgendeinen einfluß auf den TFileStream haben sollte)