[R] API Windows CopyFileEx & MoveFileWithProgress

[GaRydelaMer]

Bonjour

Voila je me lance dans l'utilisation des API Windows pour faire un fenêtre avec des barres de progression lors de la copie de fichier. J'utilise une Fonction de callbak avec les fonction Windows du Kernel32.dll.

Ca fonctionne très bien avec "CopyFileEx", et j'ai voulu allé plus loin avec le déplacement "MoveFileWithProgress" et la la fonction Callback ne semple pas être appelé par Windows, bien que le déplacement du fichier soit éfectuer.

Je suis sous Win7 64, et je voudrez savoir si vous pouvez tester ce bout de code avec d'autre version de Windows et me dire si ca marche.

Ref:
CopyFileEx:
http://msdn.microsoft.com/en-us/library ... 85%29.aspx

MoveFileWithProgress:
http://msdn.microsoft.com/en-us/library ... 85%29.aspx

CopyProgressRoutine Callback Function
http://msdn.microsoft.com/en-us/library ... 85%29.aspx

► Afficher le texte

Code : Tout sélectionner

$Source = "Test.1Mo"
$Dest1 = "Test.Copy.5Mo"
$Dest2 = "_Save\Test.5Mo"
DirCreate("_Save")
FileDelete($Source)
FileDelete($Dest1)
FileDelete($Dest2)

; Création d'un fichier de 5Mo
$hFile = FileOpen($Source, 2)
FileSetPos($hFile, 5 * 1024 * 1024, 0)
FileWrite($hFile, 0)
FileClose($hFile)

;;; DLL
Global Const $MOVE_FILE_REPLACE_EXISTSING = 0x00000001
Global Const $MOVE_FILE_COPY_ALLOWED = 0x00000002
Global Const $MOVE_FILE_WRITE_THROUGH = 0x00000008

$Dll = DllOpen("kernel32.dll")
$CallBack = DllCallbackRegister("_CallBack", "int", "uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;str")
; Copy
#comments-start
    BOOL WINAPI CopyFileEx(
    __in      LPCTSTR lpExistingFileName,
    __in      LPCTSTR lpNewFileName,
    __in_opt  LPPROGRESS_ROUTINE lpProgressRoutine,
    __in_opt  LPVOID lpData,
    __in_opt  LPBOOL pbCancel,
    __in      DWORD dwCopyFlags
    );
#comments-end
ConsoleWrite("Copy" & @LF)
$aDllReturn = DllCall($Dll, "int", "CopyFileExA", _
        "str", $Source, "str", $Dest1, _
        "ptr", DllCallbackGetPtr($CallBack), _
        "str", "CallBack Args", _
        "int", 0, "int", 0)

; Move
#comments-start
    BOOL WINAPI MoveFileWithProgress(
    __in      LPCTSTR lpExistingFileName,
    __in_opt  LPCTSTR lpNewFileName,
    __in_opt  LPPROGRESS_ROUTINE lpProgressRoutine,
    __in_opt  LPVOID lpData,
    __in      DWORD dwFlags
    );
#comments-end
ConsoleWrite("Move" & @LF)
$aDllReturn = DllCall($Dll, "int", "MoveFileWithProgressA", _
        "str", $Source, "str", $Dest2, _
        "ptr", DllCallbackGetPtr($CallBack), _
        "str", "CallBack Args", _
        "int", $MOVE_FILE_COPY_ALLOWED + $MOVE_FILE_WRITE_THROUGH + $MOVE_FILE_REPLACE_EXISTSING)

DllCallbackFree($CallBack)
DllClose($Dll)

#comments-start
    DWORD CALLBACK CopyProgressRoutine(
    __in      LARGE_INTEGER TotalFileSize,
    __in      LARGE_INTEGER TotalBytesTransferred,
    __in      LARGE_INTEGER StreamSize,
    __in      LARGE_INTEGER StreamBytesTransferred,
    __in      DWORD dwStreamNumber,
    __in      DWORD dwCallbackReason,
    __in      HANDLE hSourceFile,
    __in      HANDLE hDestinationFile,
    __in_opt  LPVOID lpData
    );
#comments-end
Func _CallBack($FileSize, $BytesTransferred, _
        $StreamSize, $StreamBytesTransferred, _
        $dwStreamNumber, $dwCallbackReason, _
        $hSourceFile, $hDestinationFile, $lpData)
    If $dwCallbackReason = 1 Then ConsoleWrite(@TAB & $lpData & @LF)
    ConsoleWrite(@TAB & Round($BytesTransferred / $FileSize * 100, 0) & "%" &  @LF)
EndFunc   ;==>_CallBack

[ani]

d'près la documentation de microsoft sur callback(CopyProgressRoutine)
il doit y avoir un retour comme par exemple Return $PROGRESS_CONTINUE

et pour le reste normalement lors de l'appel a la dll copy & move çà doit retourner ret[0].

j'ai pas testé le code, je relis chez microsoft manque des trucs

[GaRydelaMer]

Oui je sais tout ca, la j'ai donné un code pour tester, dans ma fonction je traite le traitement des dossiers, le nom des fichiers, pour des copies multiples. D'après un code que j'ai trouvé sur le site allemand et auquel j'ai ajouté plusieurs modifications.

Si tu teste le code tu verras dans la console:

Code : Tout sélectionner

Copy:
    CallBack Arg
    0%
    10%
    20%
    30%
    40%
    50%
    60%
    70%
    80%
    90%
    100%
Move:
 

Donc la fonction CallBack est appelée dans lors de la copie mais pas le déplacement.
Et je peux pas mettre à jour la GUI lors des déplacement.

Je joint le fichier complet.

[GaRydelaMer]

Bon, j'ai du nouveau, le fait de déplacer le fichier sur un autre disque la fonction callback est appellé.

Donc on va penser que ca marche et que le déplacement d'un fichier d'un dossier ver un autre dossier du même disque et juste une réécriture de la table d'allocation des fichier sans écrire à nouveau le fichier.

Je passe en Résolu.