Mit BlockRead() Datei kopieren

[sk0r]

Hi,

ich möchte eine Datei einlesen und Stück für Stück
wieder, als eine Kopie, zusammensetzen. Dies habe
ich auch schon geschafft, indem ich immer ein Byte
kopiert habe. Das dauert aber viel zu lange. Desshalb
möchte ich gerne 1024 Bytes kopieren.

Am Ende möchte ich nämlich die Bytes von einem
Server zu einem Klienten senden, quasi als Download-Feature,
dass der Client Dateien vom Server herunterladen kann.

Leider schaffe ich nicht mal das bloße, stückweise Kopieren. -.-
Ich bekomme immer einen E/A - Fehler 1784.

Mein Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type TDLFile = array[0..1024-1] of Byte;

var
  Form1: TForm1;
  tmpReplace: String = 'C:\test.exe';
  tmpKopie: String = 'C:\test_copy.exe';
  sizeDlDat: Cardinal = 0;
  dlCounter: LongInt = 0;

implementation

{$R *.dfm}

function SizeOfFile(lpFileStr: String):Cardinal;
var
  hDat: File of Byte;
begin
  result := 0;
  if FileExists(lpFileStr) then
  begin
    AssignFile(hDat, lpFileStr);
    ReSet(hDat);
    result := FileSize(hDat);
    CloseFile(hDat);
  end;
end;

procedure WriteIntoDownloadedDat(bByteDat: TDLFile);
var
  hDat: File;
  g: LongInt;
begin
  if FileExists(tmpKopie) then
  begin
    AssignFile(hDat, tmpKopie);
    ReSet(hDat, 1024); //Öffnen, falls sie existiert.
    Seek(hDat, soFromEnd); //An das Ende der Datei springen
    BlockWrite(hDat, bByteDat, sizeof(bByteDat)); //Die neuen 1024 Bytes schreiben. Hier E/A - Fehler 1784.
    CloseFile(hDat); //Schliessen
  end
  else begin
    AssignFile(hDat, tmpKopie);
    ReWrite(hDat, 1); //Datei neu erstellen, falls sie nicht existiert.
    BlockWrite(hDat, bByteDat, sizeof(bByteDat)); //Die ersten 1024 Bytes schreiben
    CloseFile(hDat); //Schliessen
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  hDlDat: File;
  bDlDat: TDLFile;
  g: Integer;
begin
  memo1.Clear;
  if FileExists(tmpReplace) then
  begin
    sizeDlDat := SizeOfFile(tmpReplace)-1; //Dateigröße - 1
    memo1.Lines.Add('Full size: ' + inttostr(sizeDlDat) + ' bytes');
    AssignFile(hDlDat, tmpReplace); //Dateihandle erstellen
    ReSet(hDlDat, 1024); //Datei öffnen (1024 bytes)
    while not eof(hDlDat) do //Solange wir nicht am Ende der Datei sind..
    begin
      BlockRead(hDlDat, bDlDat[0], sizeof(bDlDat[0])); //1024 Bytes einlesen
      WriteIntoDownloadedDat(bDlDat); //Prozedur aufrufen und die Bytes übergeben.
      Seek(hDlDat, soFromCurrent); //Die 1024 kopierten Bytes überspringen, um zu den nächsten 1024 Bytes zu kommen
      Application.ProcessMessages;
    end;
    CloseFile(hDlDat); //Datei schliessen.
    sizeDlDat := 0;
    tmpReplace := '';
    memo1.Lines.Add('FINISHED!');
  end;
end;

end.

Ich weiß nicht mehr weiter.
Hoffe, ihr könnt mir helfen.