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.