Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Re: TFileStream - irgendwie raff ichs net
26. Okt 2003, 21:27
Ich dachte der Code ist mit den Kommentaren selbst erklärend. Aber gut.
Als erstes reservieren wir 1024 Byte Speicher.
Dann kommt die Schleife, die so lange läuft, bis der Dateizeiger am Ende der Quelldatei angekommen ist.
In der Schleife werden 1024 Blöcke gelesen, verschlüssel und wieder geschrieben. Da es nun sein kann, dass die Quelldateigröße kein Vielfaches von 1024 ist, ziehen wir von der Größe der Quelldatei die aktuelle Position ab und kucken so, ob noch 1024 Byte gelesen werden können. Ist dies der Fall werden 1024 Byte gelesen, wenn nicht nur noch so viel, wie übrig ist.
Michael Ein Teil meines Codes würde euch verunsichern.
|