Systemfehlercode 6 beim Kopieren von Dateien

[DieDolly]

Keiner?

[Der schöne Günther]

Ok also ich verstehe es richtig, es geht jetzt mittlerweile um etwas ganz anderes, nämlich "Wie verfolge ich den Gesamtfortschritt wenn ich parallel mittels CopyFileEx mehrere Dateien kopiere, alle aber natürlich den gleichen Callback aufrufen?", richtig?

Ich hätte 2 Ideen:

1. Jede Copy-Operation bekommt ihren eigenen Callback
2. Du wertest im Callback einen der Parameter (dwStreamNumber?) aus um daraus zu erkennen, welcher Kopiervorgang bereits wieviel kopiert hat (Doku)

[DieDolly]

Zitat:

"Wie verfolge ich den Gesamtfortschritt wenn ich parallel mittels CopyFileEx mehrere Dateien kopiere, alle aber natürlich den gleichen Callback aufrufen?"

Fast. Sequentiell.

2 Dateien sollen kopiert werden. Die erste 1 GB, die zweite 2 GB.
Im CopyFileEx steht Caption := BytesCopied.ToString + ' - ' + BytesCopiedTmp.ToString; Bei der ersten Datei sieht man in der Caption, wie BytesCopied bis 1 GB hochgeht. BytesCopiedTmp ist durchgehend 1 MB (der Chunk).
Wird angefangen die Zweite Datei zu kopieren, fängt BytesCopied wieder bei 0 an statt bei 1GB weiterzumachen.

[Der schöne Günther]

Ist doch auch logisch, die beiden Operationen haben nichts miteinander zu tun.
Wenn du es sowieso strikt nacheinander machst kannst du doch den Wert einfach aufaddieren. Verstehe das Problem dahinter ehrlich gesagt nicht.

(Und weshalb sollte es nicht funktionieren zwei Dateien parallel zu kopieren?)

[DieDolly]

Zitat von Der schöne Günther:

Wenn du es sowieso strikt nacheinander machst kannst du doch den Wert einfach aufaddieren. Verstehe das Problem dahinter ehrlich gesagt nicht.

Mach ich doch

Delphi-Quellcode:

   if CanContinue then
    begin
     BytesCopiedTmp := BytesCopied - StreamBytesTransferred;
     Inc(BytesCopied, BytesCopiedTmp);

     Caption := BytesCopied.ToString + ' - ' + BytesCopiedTmp.ToString;
    end;

[Der schöne Günther]

Du musst dir den Wert über den Aufruf des Callbacks hinaus merken. Du brauchst ein Feld in deinem Formular oder wo auch immer du das speichern möchtest, keine lokale Variable.

[DieDolly]

BytesCopied und BytesCopiedTmp sind global.

Ich glaube ich habs

Delphi-Quellcode:

// BytesCopied und BytesCopiedTmp sind global

function CopyCallback(TotalFileSize, TotalBytesCopied, StreamSize, StreamBytesTransferred: Int64; dwStreamNumber, dwCallbackReason: DWORD; hSourceFile, hDestinationFile: THandle)
 : DWORD; stdcall;
var
 CanContinue: Boolean;
const
 PROCESS_CONTINUE = 0;
begin
 CanContinue := not Cancel;

 Result := PROCESS_CONTINUE;
 if dwCallbackReason = CALLBACK_CHUNK_FINISHED then
  begin
   if CanContinue then
    begin
     Inc(BytesCopied, StreamBytesTransferred - BytesCopiedTmp);
     BytesCopiedTmp := StreamBytesTransferred;
    end;
  end;
end;

procedure Kopiere;
begin
 BytesCopiedTmp := 0;
 Winapi.Windows.CopyFileEx(quelle, ziel), @CopyCallback, nil, @Cancel, 0);
end;