Moin,
die
API Funktion WriteFile hat sich wohl nie geändert und D6 übersetzt den Code ohne Fehler, also wird schon alles in Ordnung sein. Durch das Verarbeiten von Nachrichten innerhalb der Schleife soll wohl dem Benutzer des Programms eine Abbruch-Möglichkeit gegeben werden. Das dürfte aber bei vernünftiger Handhabung keinen Einfluß auf die Dateigröße nehmen. Wenn FileClose() allerdings immer auskommentiert war, dann ist eine leer Datei ein durchaus zu erwartendes Ergebnis. Beim Grübeln konnte ich es mir nicht verkneifen den Code etwas umzugestalten.
Delphi-Quellcode:
const
BUFSIZE = 5120;
var
// ...
buffer: array [1..BUFSIZE] of Bytes;
writeOnce, writeFailed, writeCanceled: Boolean;
bytesWritten: Cardinal;
begin
// ...
writeCanceled := False;
writeOnce := not CB1.Enabled;
if FHandle <> INVALID_HANDLE_VALUE then
begin
repeat
writeFailed := not WriteFile(FHandle, buffer, BUFSIZE, bytesWritten, nil);
Application.ProcessMessages;
until writeOnce or writeFailed or writeCanceled or (BytesWritten < BUFSIZE);
if writeFailed then
ShowMessage('Mist: ' + SysErrorMessage(GetLastError));
CloseHandle(FHandle);
end;
// ...
end;
Freundliche Grüße