Ist nicht das eigentliche Problem, aber
OPEN_ALWAYS
solltest du zu
OPEN_EXISTING
ändern (bei
CreateFile) und bei
GetFileSize statt
INVALID_HANDLE_VALUE
auf
INVALID_FILE_SIZE
prüfen (ist der selbe Wert, nur nicht so verwirrend beim lesen
). Den zweiten Parameter kannst du hier auch auf
nil
setzen statt
@FileSize
(den Wert überschreibst du ja eh wieder sobald das Resultat der Funktion zugewiesen wird).
Habe es versucht wie gesagt dann verändern sich die Daten im vergleiche zum FileSize.
Wie meinst du das "im Vergleich zu FileSize"? Welches Alignment hast du probiert?
{$A1}
, also
packed
?
Edit: Kannst du mal die originale (unveränderte) Definition von
TSTChannel
verlinken?