ReadFile und WriteFile

[marabu]

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