File-Splitter

[MrKnogge]

In der OH is doch n Beispiel:

Delphi-Quellcode:

var

  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then     { Öffnen-Dialogfeld anzeigen }
  begin
    AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1);   { Datensatzgröße = 1 }
    if SaveDialog1.Execute then      { Speichern-Dialogfeld anzeigen }
    begin
      AssignFile(ToF, SaveDialog1.FileName);   { Ausgabedatei öffnen }

      Rewrite(ToF, 1);   { Datensatzgröße = 1 }
      Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
    end;
  end;
end;

So habs ich es verstanden:

Delphi-Quellcode:

Delphi-Syntax:
procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);

buf:
wenn du einen Block einlesen möchtest, dann must du das eingelsene ja irgendwo reinschreiben !

count:
Anzahl der zu übertragenen "Stücke"