Hallo,

ich hab folgendes Problem:

Ich kopiere mit dem untenstehenden Code Dateien und zeige den Zustand in einer Progressbar an.
Das funktioniert ganz gut, aber wenn ich schreibgeschützte Dateien kopieren will, dann bekomm ich einen Fehler bei " reset(FromF);"


Was kann das sein?

mfg
Helmi

markieren

Code:

procedure TForm1.CopyFileWithProgressBar(Source, Destination: string;
      ProgressBar: TProgressBar; sameDateTime: Boolean);
var
  FromF, ToF: file of byte;
  Buffer: array[0..51200] of char;
  NumRead: integer;
  FileLength: longint;

begin
  AssignFile(FromF, Source);
  reset(FromF);
  AssignFile(ToF, Destination);
  rewrite(ToF);
  FileLength := FileSize(FromF);

  with ProgressBar do
    begin
      Position := 0;

      Min      := 0;
      Max      := FileLength;

      while FileLength > 0 do
        begin
          BlockRead(FromF, Buffer[0], SizeOf(Buffer), NumRead);
          FileLength := FileLength - NumRead;

          BlockWrite(ToF, Buffer[0], NumRead);

          Position   := Position + NumRead;
        end;

      CloseFile(FromF);
      CloseFile(ToF);

      If sameDateTime then
        FileSetDate(Destination, FileAge(Source));
    end;
end;

FileMode := fmOpenread;

gracias gracias

Moin Helmi,

ggf. wäre es allerdings besser die entsprechenden Betriebssystemfunktionen für das Kopieren zu benutzen, da bei Deiner Methode die Dateiattribute (speziell auch Werte die es dann nur unter NTFS gibt) nicht mitkopiert werden.

Hallo Christian Seehase,

wahrscheinlich ist es schon besser - nur will ich das mit einer Progressbar in meinem Projekt anzeigen lassen ohne extriges Fenster vom Windoof

mfg
Helmi