Datei von Netzlaufwerk kopieren mit Progressbar

hipfzwirgel

Hallo Gemeinde,

ich möchte regelmäßig eine größere Datei(ca. 600MB) von einem Netzlaufwerk auf die Festplatte kopieren.
Dies hatte ich mit folgendem Code versucht:

AutoIt

#RequireAdmin

#include <FileConstants.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIEx.au3>
#include <WinAPIDiag.au3>
#include <WinAPIFiles.au3>
#include <APIFilesConstants.au3>
Global $sSourceD = "\\Netzlaufwerk\Test.iso" ; Pfad zur Quell-ISO-Datei
Global $sDestinationP = "C:\Daten\Test.iso" ; Zielordner für das Entpacken

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

 ProgressOn('Kopieren', 'Copying...', '0%', -1, -1, BitOR("", $DLG_MOVEABLE))

 If Not _WinAPI_MoveFileEx($sSourceD, $sDestinationD, 5, DllCallbackGetPtr($hProgressProc)) Then
	_WinAPI_ShowLastError('Error copying ' & $sSourceD)
EndIf

DllCallbackFree($hProgressProc)

ProgressOff()


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')
		Sleep(1500)
	Else
		ProgressSet($iPercent, $iPercent & '%')
	EndIf

	Sleep(10) ; to slow down to see the progress bar

	If _IsPressed('1B') Then ;Abbruch wenn EXC-Taste gedrückt wird
		Return $PROGRESS_CANCEL
	Else
		Return $PROGRESS_CONTINUE
	EndIf

EndFunc   ;==>_ProgressProc

Alles anzeigen

Leider wird immer eine Fehlermeldung ausgegeben die aussagt: Zugriff verweigert. Zugriff auf das Share existiert. Mit Filecopy würde es funktionieren, da habe ich aber keine Progressbar.

Könnte mir bitte jemand auf die Sprünge helfen was ich da übersehe

**water**

Hast Du den Code selbst entwickelt oder ist dies eines der vielen ProgressBar Beispiele aus dem engl. Forum?

**Musashi**

Ich nutze gerne die UDF von Oscar : _FileCopyEx

Velted

Moin,

die Routine entstammt offenbar den Beispielen für _WinAPI_MoveFileEx(). Leider hast Du Dir für den Parameter $iFlags einen 'unglücklichen' Wert ausgesucht.

5 entspricht $MOVE_FILE_REPLACE_EXISTING (0x0001) + $MOVE_FILE_DELAY_UNTIL_REBOOT (0x0004).

$MOVE_FILE_DELAY_UNTIL_REBOOT ist laut Doku für Dateien auf Netzlaufwerken nicht zulässig. Außerdem soll, wenn eine Datei auf ein anderes Laufwerk kopiert werden soll, das Flag MOVE_FILE_COPY_ALLOWED (0x0002) gesetzt werden.

Ein 'glücklicherer' Wert für $iFlags wäre meiner Meinung nach deshalb 3.

hipfzwirgel

Hallo Water,

ich habe den Code tatsächlich aus dem Forum und nutze ihn schon lange im Rahmen einer kleinen Datensicherung.
Dort aber erstelle ich ein ca. 15GB großes zip-Archiv und kopiere es auf ein Netzlaufwerk. Funkioniert auch super.

@ Musashi: vielen lieben Dank für den Tipp. Schau ich mir an...

hipfzwirgel

Hallo Velted,

vielen lieben Dank für dein Input.

Ich hatte ursprünglich die 3 als Flag drinstehen aber nachdem diese Fehlermeldung erschien habe ich die Flags durchgetestet. Leider
ohne Erfolg. Bin dann bei 5 "stehen" geblieben. Also auch mit der 3 kommt "Kein Zugriff". Die Datei führe ich als lokaler Admin aus
und Zugriff auf das Share besteht.

Weiß jemand wie ich feststellen kann, welcher Zugriff da gemeint sein könnte?

Velted

Ok, nach der Doku ist die 5 für Netzlaufwerke immer falsch.

Was passiert, wenn Du das Skript als normaler Benutzer laufen lässt?

hipfzwirgel

Hallo Velted,

es scheint als das die Fehlermeldung doch am Share liegt. Ich habe in der Zwischenzeit nämlich den Vorgang mit meiner "Datensicherung" getestet(die Datei vom dortigen Share auf den lokalen Rechner kopieren)
und der Vorgang hat funktioniert. Ich suche jetzt zuerst mal warum es beim anderen Share nicht geht... Am Code liegt es wie es aussieht eher nicht.

hipfzwirgel

Hallo,

es steht fest: es liegt tatsächlich an den Dateiberechtigungen. Ich wollte eine andere Testdatei auf dem Share ablegen, das ging ebenfalls nicht.
Offenbar habe ich nur Zugriff ohne Schreibberechtigung. Daher kommt dort die Fehlermeldung "Kein Zugriff", während sie auf meinem Home-LW nicht kommt.

Projekt eingestampft - Thema Erledigt!!!

hipfzwirgel

Eine Frage Noch:

ist es richtig das Der Code nur verschiebt?

Der Flag 2 und oder 3 hat keine Auswirkung darauf. Meine Testdatei wird immer nur verschoben...
Weiss jemand wie ich damit kopiere könnte?

Habe gerade in der Hilfe gesehen das es auch ein _WinAPI_CopyFileEx gibt. Das wird die Lösung sein...

hipfzwirgel

So, mit _WinAPI_CopyFileEx funktioniert das kopieren...

eine Frage noch an die Gemeinde:

Warum wird die Progressbar gestoppt sowie i-eine andere Fenster-Aktion durchgeführt wird?

**Kanashius**

Kommt darauf an, wie genau dein Code aussieht.

Aber das Grundproblem liegt darin, dass AutoIt Single-Threaded ist. Es kann also immer nur ein Code gleichzeitig ausgeführt werden.
Man kann mit bestimmten (Interrupt-) Methoden (wie Adlibregister, dein _ProgressProc,...) Code "nebenbei" ausführen, aber das sorgt auch nur dafür, dass der Hauptcode angehalten wird, die Funktion durchläuft und dann der Hauptcode weiter ausgeführt wird.
Sleep-Befehle in solchen "Interrupt" Methoden sind also sehr schlecht, weil dadurch die Hauptschleife angehalten wird und ähnlich sollte man aufpassen, dass man den Hauptcode nicht zu lange blockiert.
Wenn du deinen Code postest, können wir dir da bei der Optimierung helfen.

In anderen Programmiersprachen kann man asynchron programmieren (was der Art von AutoIt am ähnlichesten ist), wobei auf einem Kern abwechselnd verschiedener Code ausgeführt wird.
Dann gibt es multithreading, was meist genutzt wird, um Dinge parallel auszuführen und auch mehrere unterschiedliche CPU-Kerne zu nutzen, aber gleichzeitig den Arbeitsspeicher zu teilen.
Zum Schluss gibt es noch multiprocessing, wo man mehrere Programme nebeneinander laufen lässt, die miteinander kommunizieren (Networking (TCP)/Files/...). Das könntest du hier auch gut verwenden, wenn das "asynchrone" in AutoIt nicht so gut klappt. Dann würdest du deine Anwendung mit Parametern nochmal aufrufen, die dann den Download durchführen und mit deinem Tool (Mit TCPAccept/TCPSend/TCPReceive/...) die Prozentzahl kommunizieren, abbrechen, pausieren,... . Da du dafür aber einen kleinen Server/Client programmieren müsstest, wäre das aufwendiger.

Racer

Progessbar mit Robocopy

Wie so viele vor mir, habe auch ich das Rad neu erfunden und eine Progressbar für den Kopiervorgang "erfunden"....

In meinen Fall seht ein Robocopy dahinter (ist ja inzwischen Standard unter Windows):
Die Funktion ist nur C&P und muss auf die jeweiligen Bedürfnisse angepasst werden!

Code

;*************************************************************
; Image mit Robocopy kopieren
; Übergabe: Dateiname mit Pfad vom lokalen Image
; Übergabe: Dateiname mit Pfad von ZielImage
; Übergabe: Flag ob es sich um ein USB-Device handelt
; Rückgabe: ProzessID
; Rückgabe: -1 nicht genügend Platz auf Ziellaufwerk
; Rückgabe: -2 Zielsystem ist nicht NTFS formatiert
;*************************************************************
func rcopy ($lokalimage, $zielimage, $usb)

;local: i:\images\pc30199.wim
;ziel: w:\pc30199.wim

local $von_pfad						;Nur den Pfad woher kopiert wird
local $nach_pfad					;Nur den Pfad wohin kopiert wird
local $von_name						;Dateiname der zu kopierenden Datei
local $nach_name					;Endname der Datei (muss umbenannt werden - geht nicht anders bei Robocopy)
local $tmp, $ret					;Hilfsvariablen

Local $imagesize					;Wie groß ist das Image
local $freespace					;Wieviel Platz ist am Ziellaufwerk
local $only_ntfs					;Ist das Zieldateisystem NTFS
local $pid							;ProzessID des Robocopy


$ret = StringInStr ($lokalimage, "\", 2, -1)	;Das erste "\" von Rechts
$von_pfad = StringLeft ($lokalimage, $ret -1)
$von_name = Stringmid ($lokalimage, $ret +1)

$ret = StringInStr ($zielimage, "\", 2, -1)
$nach_pfad = StringLeft ($zielimage, $ret -1)
$nach_name = Stringmid ($zielimage, $ret +1)


$freespace = round (DriveSpaceFree (StringLeft ($zielimage, StringInStr ($zielimage, "\", 2, 1))))
$imagesize = round (FileGetSize ($lokalimage) / 1048576)
if $test = True Then
	print ("Freer Speicher: " & $freespace & " MB")
	print ("Imagegröße: " & $imagesize & " MB")
	print ("Zieldateisystem: " & DriveGetFileSystem (gettok ($nach_pfad, "\" , 1)))
EndIf

if DriveGetFileSystem (gettok ($nach_pfad, "\" , 1)) <> "NTFS" and $usb = True Then				;NTFS formatiert ?
	Return -2
EndIf


if $freespace < $imagesize Then													;Genügend Platz auf dem Zielsystem?
	Return -1
EndIf


local $parameter = $von_pfad & ' ' & $nach_pfad & ' "'  & $von_name & '"'
If $test = true Then
	print ("Parameter an Robocopy: " & @TAB & $parameter)
EndIf


$pid = run(@ComSpec & " /c robocopy  /NDL /NJH /NJS /NS /NC /w:5 /r:5 " & $parameter , "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

Return $pid


EndFunc
;*************************************************************

Alles anzeigen

Im Hauptprogramm wird jetzt die PID "überwacht" und der Output Dos Fenster ausgelesen, in eine Zahl umgewandelt und mittels Progressbar dargestellt.

Robocopy gibt im Grunde nur mehr den Prozent-Fortschritt aus....und der geht immer von 0% bis 100% ...
Noch ein Vorteil ist dass es als Prozess läuft und damit das eigentliche AutoIT-Programm nicht "warten" muss...

Der Code ist schon etwas älter und naja, nicht so gut dokumentiert, dieht also eher als Idee als copy & paste Lösung.

lg
Racer

hipfzwirgel

Hallo Kanashius und Racer,

zunächst möchte ich mich bei euch für eure Beiträge bedanken.

Ich glaube fast, das meine Frage etwas missverstanden wurde. ich will noch mal erklären:

Der Kopiervorgang läuft und die Progressbar wird auch angezeigt. Sobald ich aber i-ein anderes Fenster, manuell bewege, öffne, schließe oder das Progressbar-Fenster selber mit der Maus
anfasse, wird die Progressbar gestoppt (FehlerMeldung beim Anklicken des PB-Fensters: Not Responding). Der Kopiervorgang indes geht weiter.

Code

		If FileExists($sSourceD) Then

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

				ProgressOn('Kopieren', 'Copying' & @CRLF & "..." , '0%', -1, -1, $DLG_MOVEABLE)

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

				DllCallbackFree($hProgressProc)

				ProgressOff()



		Else
			MsgBox($MB_ICONERROR, "Fehler", "Die Quelldatei wurde nicht gefunden.")
			Exit
		EndIf

		; Schritt 2: Entpacke die ISO-Datei
		$sValue1 = ShellExecuteWait("C:\Program Files\7-Zip\7z.exe", "x -aoa -y" & $sDestinationD & " -o" & $sDestinationExD)
		If @error Then
			MsgBox($MB_ICONERROR, "Fehler", "Fehler beim Entpacken der Datei. - " & $sValue1 & " - " & @error)
			Exit
		EndIf

		MsgBox($MB_ICONINFORMATION, "Erfolg", "Die ISO-Datei wurde erfolgreich kopiert und entpackt. - " & $sValue1 & " - " & @error)
		
		;##############################################################################################################################
		
		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')
		Sleep(1500)
	Else
		ProgressSet($iPercent, $iPercent & '%')
	EndIf

	Sleep(10) ; to slow down to see the progress bar

	If _IsPressed('1B') Then ;Abbruch wenn EXC-Taste gedrückt wird
		Return $PROGRESS_CANCEL
	Else
		Return $PROGRESS_CONTINUE
	EndIf

EndFunc   ;==>_ProgressProc

Alles anzeigen