Hallo,
ich habe jetzt mal versucht, eine Datei zu kopieren und den Fortschritt in einer ProgressBar anzeigen zu lassen.
Das funktioniert auch, aber nur mit kleinen Dateien
Wenn die Datei mehrere 100 MB groß ist, dann passiert gar nichts
Hier der Code:

zusammenfalten · markieren

Delphi-Quellcode:

function CopyFileProgress(TotalFileSize, TotalBytesTransferred, StreamSize,
  StreamBytesTransferred: LARGE_INTEGER; dwStreamNumber, dwCallbackReason,
  hSourceFile, hDestinationFile, lpData: DWORD): DWORD; stdcall;
begin
  Application.ProcessMessages;
  if CancelCopy = True then
  begin
    ShowMessage('Abbruch');
    result := PROGRESS_CANCEL;
    Form1.ProgressBar1.Position := 0;
    Exit;
  end
  else
  Application.ProcessMessages;
  case dwCallbackReason of
    CALLBACK_CHUNK_FINISHED:
      begin
        Form1.ProgressBar1.Position := TotalBytesTransferred.QuadPart;
        result := PROGRESS_CONTINUE;
      end;
    CALLBACK_STREAM_SWITCH:
      begin
        Form1.ProgressBar1.Max := TotalFileSize.QuadPart;
        result := PROGRESS_CONTINUE;
      end;
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Cancel: PBOOL;
begin
  CancelCopy := False;
  Cancel := nil;
  CopyFileEx('C:\aaa.exe', 'D:\aaa.exe',
    @CopyFileProgress, nil, Cancel, 0);
  Form1.ProgressBar1.Position := 0;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  CancelCopy := True;
end;

end.

Bin dankbar für Hilfe!

Paul

Hallo,

ich hab diesen (und GENAU diesen) Code gerade mit einer 1.5GB großen Datei ausprobiert. Er funktioniert ohne Probleme!

Hast du mal Breakpoints vor und hinter das Kopieren gesetzt?

Ciao,
Ralf

Zitat von Alfi001:

Hallo,

ich hab diesen (und GENAU diesen) Code gerade mit einer 1.5GB großen Datei ausprobiert. Er funktioniert ohne Probleme!

Hast du mal Breakpoints vor und hinter das Kopieren gesetzt?

Ciao,
Ralf

Dann mache ich was falsch

Ich setze mal Breakpoints und probiere nochmal eine andere Datei.

Es funktioniert immer noch nicht!

Und bei einer kleinen Datei habe ich gesehen durch die Breakpoints, dass er eine Weile auf CopyFileEx bleibt und dann weiter geht. Aber bei einer großen Datei, die nicht funktioniert, bleibt er nur ganz kurz auf CopyFileEx.

Aber woran liegt das, wenn der Code bei dir geht, Alfi001 ?

Es gibt so eine tolle Erfindung namens Rückgabewert. Lass dir den mal anzeigen und, falls er False ist, zusätzlich SysErrorMessage(GetLastError).

Zitat von Paul0703:

Aber woran liegt das, wenn der Code bei dir geht, Alfi001 ?

Das kann ich auch nicht sagen. Ich hab einfach nur eine neue Anwendung erzeugt, 2 Buttons und eine ProgressBar aufs Formular gelegt, deinen Code in die Eventhandler kopiert und die Dateinamen geändert sodass sie sich auf eine Datei auf meiner Platte beziehen. Dann hab ich das Programm gestartet und nach einem Klick auf "Button1" fing die Progressbar an hochzuzählen (dauerte eine Weile da die Quelldatei 1.5GB groß war)

An deinem Code habe ich nichts verändert.

Seltsam.

Ciao,
Ralf

Problem schon gelöst

Auf dem Ziellaufwerk war nicht genug Speicherplatz frei
*aufdenkopfhau*

Trotzdem danke für eure Hilfe!

Paul

Hier eine kleine Verbesserung: der Parameter lpData wird benützt um sich vom Formular unabhängig zu machen.

zusammenfalten · markieren

Delphi-Quellcode:

function CopyFileProgress(TotalFileSize, TotalBytesTransferred, StreamSize,
  StreamBytesTransferred: LARGE_INTEGER; dwStreamNumber, dwCallbackReason,
  hSourceFile, hDestinationFile, lpData: DWORD): DWORD; stdcall;
var
  pb : TProgressBar;
begin
  pb := TProgressBar(lpdata); // <===
  Application.ProcessMessages;
  if CancelCopy then
  begin
    ShowMessage('Abbruch');
    result := PROGRESS_CANCEL;
    pb.Position := 0;
    Exit;
  end
  else
  Application.ProcessMessages;
  case dwCallbackReason of
    CALLBACK_CHUNK_FINISHED:
      begin
        pb.Position := TotalBytesTransferred.QuadPart;
        result := PROGRESS_CONTINUE;
      end;
    CALLBACK_STREAM_SWITCH:
      begin
        pb.Max := TotalFileSize.QuadPart;
        result := PROGRESS_CONTINUE;
      end;
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Cancel: PBOOL;
begin
  CancelCopy := False;
  Cancel := nil;
  CopyFileEx('C:\aaa.exe', 'D:\aaa.exe',
    @CopyFileProgress, Pointer(ProgressBar1), Cancel, 0);
  ProgressBar1.Position := 0;
end;

Zitat von sx2008:

Hier eine kleine Verbesserung: der Parameter lpData wird benützt um sich vom Formular unabhängig zu machen.

zusammenfalten · markieren

Delphi-Quellcode:

function CopyFileProgress(TotalFileSize, TotalBytesTransferred, StreamSize,
  StreamBytesTransferred: LARGE_INTEGER; dwStreamNumber, dwCallbackReason,
  hSourceFile, hDestinationFile, lpData: DWORD): DWORD; stdcall;
var
  pb : TProgressBar;
begin
  pb := TProgressBar(lpdata); // <===
  Application.ProcessMessages;
  if CancelCopy then
  begin
    ShowMessage('Abbruch');
    result := PROGRESS_CANCEL;
    pb.Position := 0;
    Exit;
  end
  else
  Application.ProcessMessages;
  case dwCallbackReason of
    CALLBACK_CHUNK_FINISHED:
      begin
        pb.Position := TotalBytesTransferred.QuadPart;
        result := PROGRESS_CONTINUE;
      end;
    CALLBACK_STREAM_SWITCH:
      begin
        pb.Max := TotalFileSize.QuadPart;
        result := PROGRESS_CONTINUE;
      end;
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Cancel: PBOOL;
begin
  CancelCopy := False;
  Cancel := nil;
  CopyFileEx('C:\aaa.exe', 'D:\aaa.exe',
    @CopyFileProgress, Pointer(ProgressBar1), Cancel, 0);
  ProgressBar1.Position := 0;
end;

Danke für den Tip!

Zitat von Paul0703:

Problem schon gelöst

Auf dem Ziellaufwerk war nicht genug Speicherplatz frei
*aufdenkopfhau*

Trotzdem danke für eure Hilfe!

Paul

Und genau das hättest du erfahren, wenn du den Rückgabewert ausgewertet hättest.