Mit BlockRead() Datei kopieren

[marabu]

Hi,

vermutlich testest du immernoch ohne Streams:

Delphi-Quellcode:

const
  BUF_SIZE = 1024;
var
  // ...
  bDlDat: array [1..BUF_SIZE] of Byte;
  bytes: Integer;
begin
  // ...
      if FileExists(tmpReplace) then
      begin
        // sizeDlDat := SizeOfFile(tmpReplace)-1; // unnötig
        AssignFile(hDlDat, tmpReplace);
        Reset(hDlDat, 1);
        repeat
          BlockRead(hDlDat, bDlDat, BUF_SIZE, bytes);
          if bytes > 0 then
            Socket.SendBuf(bDlDat, bytes);
          // Sleep(7);
          Application.ProcessMessages;
        until bytes = 0;
        CloseFile(hDlDat);
      end;
      tmpReplace := '';
  // ...
end;