Kopieren großer Dateien mit Fortschrittsanzeige

Murty

Hallo Zusammen,

Ich möchte eine große Datei kopieren und dabei eine Fortschrittsbalken angezeigt bekommen.
Ich habe es bereits mit der _WinAPI_CopyFileEx versucht, jedoch zeigt die GUI nur kurz die Progressbar richtig an.
Nach ca 10 Sekunden graut das Fenster aus, und die Progressbar wird nicht mehr weiter gefüllt. Der Kopiervorgang läuft jedoch noch im Hintergrund weiter.
Habt Ihr vielleicht eine Idee wie ich das Problem umgehen kann?
Vielen Dank im Voraus

Spoiler anzeigen

AutoIt

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include <APIFilesConstants.au3>
#include <Misc.au3>
#include <WinAPIDiag.au3>
#include <WinAPIFiles.au3>


Opt('TrayAutoPause', 0)


Local $hProgressProc = DllCallbackRegister('_ProgressProc', 'bool', 'uint64;uint64;uint64;uint64;dword;dword;handle;handle;ptr')




Local $sFile = "C:\Users\Testuser\Testdir1\Test.File"
Local $dFile = "C:\Users\Testuser\Testdir2\Test.File"


ProgressOn('_WinAPI_CopyFileEx()', 'Copying...', '0%')


If Not _WinAPI_CopyFileEx($sFile, $dFile, 0, DllCallbackGetPtr($hProgressProc)) Then
_WinAPI_ShowLastError('Error copying ' & $sFile)
EndIf


DllCallbackFree($hProgressProc)


ProgressOff()


FileDelete(@TempDir & '\Test*.tmp')


Func _ProgressProc($iTotalFileSize, $iTotalBytesTransferred, $iStreamSize, $iStreamBytesTransferred, $iStreamNumber, $iCallbackReason, $hSourceFile, $hDestinationFile, $pData)
#forceref $iStreamSize, $iStreamBytesTransferred, $iStreamNumber, $iCallbackReason, $hSourceFile, $hDestinationFile, $pData


Local $iPercent = Round($iTotalBytesTransferred / $iTotalFileSize * 100)
If $iPercent = 100 Then
ProgressSet($iPercent, '', 'Complete')
Else
ProgressSet($iPercent, $iPercent & '%')
EndIf
EndFunc

Alles anzeigen

Cape-City

Hi,

die hast ja folgenden Part weggelassen:

AutoIt

If _IsPressed('1B') Then
        Return $PROGRESS_CANCEL
    Else
        Return $PROGRESS_CONTINUE
    EndIf

Welcher vor dem EndFunc in der _ProgressProc Funktion stand (laut Hilfe). Deine Funktion wird einmal aufgerufen, es wird aber kein Wert zurück gegeben, in diesem Fall wenn '1B' = ESC nicht
gedrückt wurde immer noch der Wert $PROGRESS_CONTINUE.

Wobei es dann selbst dann mit dem Beispiel funktioniert....also auch Dein Beispiel funktioniert bei mir. Ich habe eine 3GB grosse Datei kopiert, alles super.

Welche AutoIt Version setzt Du ein?

Murty

Hallo Cape-City,

Danke für deine Antwort.

Ich hatte den Teil weggelassen, da ich kein Abbruch benötige. Laut Dokumentation auf der MSDN Seite für die Funktion CopyProgressRoutine ist der Rückgabe Wert für Progress_Continue = 0.

Ich hatte es auch bereits direkt über das ansprechen der Kernel32.dll probiert, jedoch mit gleichem Ergebnis.

Ich verwende die Autoit Version 3.3.14.2. Auf einem Windows 10 Rechner 1607, meine Datei ist 4,4 GB groß.

**alpines**

@Cape-City kennst du ternäre Operatoren? Die lassen sich in deinem Beispiel hervorragend anwenden und man spart dadurch 4 Zeilen.
Statt zwei If-Zweige hinzuschreiben kann man das ganze auch so hinschreiben (verfügbar ab 3.3.10.2 glaube ich):

AutoIt

Return _IsPressed("1B") ? $PROGRESS_CANCEL : $PROGRESS_CONTINUE

**Oscar**

Ich hatte mal vor geraumer Zeit eine UDF geschrieben, mit der man große Dateien (einzeln oder mehrere) kopieren kann.
Natürlich mit Progressbar, Kopiergeschwindigkeit, etc.
Hier mal ein Beispiel:

AutoIt

#include '_FileCopyEx.au3'


Global $aSourceFiles[1] = [@ScriptDir & '\NaturNah - Wintervögel.mp4'], $aDestDir[1] = [@ScriptDir & '\test\']
Global $sLog = _FileCopyEx($aSourceFiles, $aDestDir, 16 + 8 + 4 + 2 + 1, 'Dateien kopieren...')
ConsoleWrite('Fehler: ' & @error & @CR)
ConsoleWrite($sLog & @CR)

Murty

@Oscar Vielen Dank für deine Hilfe
Das Skript funktioniert einwandfrei, da hast du mir sehr weitergeholfen

Cape-City

Zitat von alpines
@Cape-City kennst du ternäre Operatoren? Die lassen sich in deinem Beispiel hervorragend anwenden und man spart dadurch 4 Zeilen.
Statt zwei If-Zweige hinzuschreiben kann man das ganze auch so hinschreiben (verfügbar ab 3.3.10.2 glaube ich):
AutoIt
Return _IsPressed("1B") ? $PROGRESS_CANCEL : $PROGRESS_CONTINUE

Werde ich mir mal anschauen, ich denke das ich das auch in einigen meiner Scripte unterbringen kann