带进度的文件复制（不使用额外进程）

zcbenz · 发表于 2009-1-26 21:02:21

记得坛子里有人发过类似的东西,是通过命令行命令实现的,但那样需要开启额外的进程.
这个例子直接使用API实现,并且利用了回调函数,实现了类似多线程的效果.

再多说几句吧,理论上程序在执行这个函数时能够接受GUI消息,比如按钮点击.但AU3好像使用了奇怪的消息循环,在复制文件时程序便会完全失去响应.

Global Const $PROGRESS_CONTINUE = 0
Global Const $PROGRESS_CANCEL   = 1
Global Const $PROGRESS_STOP     = 2
Global Const $PROGRESS_QUIET    = 3

_FileCopyEx("d:\Video\Clips\New\02.avi", "c:\02.avi")

Func _FileCopyEx($Source, $Dest)
    If Not FileExists($Source) Then Return SetError(1, 0, 0);检查文件是否存在
    
    ProgressOn("_FileCopyEx() Demo", "Copy, please wait...") ;开启进度条，此处可以换成其他控件
    
    $pCopyProgressRoutine = DllCallbackRegister("_CopyProgressRoutine", "int", "uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr");注册callback函数
    
    DllCall("kernel32.dll", "int", "CopyFileEx", _
        "str", $Source, _
        "str", $Dest, _
        "ptr", DllCallbackGetPtr($pCopyProgressRoutine), _
        "ptr", 0, _
        "int", 0, _
        "int", 0);调用API,第三个参数是callback函数的指针,文件每复制一段时间就调用这个callback函数
    
    DllCallbackFree($pCopyProgressRoutine);释放

EndFunc

Func _CopyProgressRoutine($TotalFileSize, $TotalBytesTransferred, $StreamSize, $StreamBytesTransferred, $dwStreamNumber, $dwCallbackReason, $hSourceFile, $hDestinationFile, $lpData)
    
    ;TotalFileSize:文件大小
    ;TotalBytesTransferred:已传输文件大小

    $Percent = $TotalBytesTransferred / $TotalFileSize * 100
    
    ProgressSet($Percent, "Percent: " & Round($Percent, 1) & "%") ;设置进度
    
    Return $PROGRESS_CONTINUE ;通过返回这个值来告诉系统继续复制,返回返回 PROGRESS_CANCEL终止

EndFunc   ;==>_CopyProgressRoutine

xrbenbeba · 发表于 2009-2-13 20:24:54

大侠的API很强哦
你的贴都不错
顶~~~~~~~~~

make2855 · 发表于 2009-2-15 09:44:14

猫大师总是在恰当的时候出现，给众人无限的惊喜。
回味大师的贴，真可谓字字是金啊！

虾子丙 · 发表于 2009-2-17 11:10:55

看到了！！
很强大！

windows0xp1 · 发表于 2009-3-7 13:54:03

谢谢分享。。。

xulihang · 发表于 2009-3-7 14:36:59

谢谢分享!!

seeking · 发表于 2009-3-7 16:37:42

很强
API...

anyliz · 发表于 2009-3-10 09:36:40

这个函数可以复制文件夹么？

[ 本帖最后由 anyliz 于 2009-3-10 15:36 编辑 ]

YoDe · 发表于 2009-3-14 04:09:38

学习乐.

feelsky · 发表于 2009-3-19 11:20:40

希望可以复制文件夹和增加FileCopy 的标志

我很菜，这个代码挺深奥的，研究不透

boyhong · 发表于 2009-3-19 16:25:56

假死~~~~期待完美实现一下~~~要是完美实现~~~可以解决N多问题~~

wodechongwu · 发表于 2009-3-20 00:54:34

说实话，我还是有大部分看不懂。

xinnetchina · 发表于 2009-6-15 23:50:54

luke · 发表于 2009-6-16 08:59:09

值得学习！
值得借鉴！

hpdeskjet · 发表于 2009-7-21 13:46:32

谢谢分享！找了很久终于知道怎么搞了！

		自动登录	找回密码
密码			加入

[原创] 带进度的文件复制（不使用额外进程）

评分