Filestream Segmente über WebService machen Exe kaputt andere

[webservice]

Diese bösen kleinen Fehlerteufelchen

Wenn wir den Quelltext genau betrachten, fällt auf, das die Datei-Segment-Nummer bei 0 beginnt.

In der Methode DoSaveToFile steht:

Delphi-Quellcode:

if Datei.SegmentNr > 1 then
   todatei.Seek (Datei.SegmentNr * Datei.SegmentSize, soBeginning);

Folglich wird das 0. Segment an den Anfang geschrieben, das erste Segment an den Anfang geschrieben, das zweite Segment dahinter geschrieben, das dritte Segment dahinter geschrieben ... *Wir könnten dies noch bis ins unendliche fortführen*

Wenn ich das 0. Segment mit dem Ersten überschreibe, kann doch keine vernünftige Datei herauskommen.
Ich frage mich nur, warum das bei ZIP Archiven, Bildern, etc nicht aufgefallen ist...

Vielen Dank, DGL-luke für das Treten in die richtige Richtung