如何用易语言的进度条显示文件复制进度？

2025-02-21 18:55:15

推荐回答（2个）

回答1：

注意所需控件有一个通用对话框dll命令dll命令：---------------.版本 2.DLL命令 CopyFileExA, 整数型, , "CopyFileExA"
.参数 lpExistingFileName, 文本型
.参数 lpNewFileName, 文本型
.参数 lpProgressRoutine, 子程序指针
.参数 lpData, , 传址
.参数 pbCancel
.参数 dwCopyFlags.DLL命令 PathFindFileNameA, 文本型, "Shlwapi.dll", "PathFindFileNameA"
.参数 pPath, 文本型--------------------------------代码：--------------------------------
代码：----------------------.版本 2
.支持库 shell.程序集窗口程序集1.子程序 _按钮1_被单击
.局部变量文件名, 文本型文件名＝编辑框1.内容
文件名＝ PathFindFileNameA (文件名)
' 详细信息请查阅MSDN
' winnt only
.如果真 (编辑框1.内容 ≠ “” 且编辑框2.内容 ≠ “”)
CopyFileExA (编辑框1.内容, 选择 (取文本右边 (编辑框2.内容, 1) ＝ “\”, 编辑框2.内容, 编辑框2.内容＋ “\”) ＋文件名, &CopyProgressRoutine, 0, 0, 1)
.如果真结束
.子程序 CopyProgressRoutine, 整数型
.参数 TotalFileSize, 长整数型
.参数 TotalBytesTransferred, 长整数型
.参数 StreamSize, 长整数型
.参数 StreamBytesTransferred, 长整数型
.参数 dwStreamNumber, 整数型
.参数 dwCallbackReason, 整数型
.参数 hSourceFile, 整数型
.参数 hDestinationFile, 整数型
.参数 lpData, 整数型进度条1.位置＝ TotalBytesTransferred ÷ TotalFileSize × 100 ' 若想百分比更精确，请转换成小数再除
标签1.标题＝到文本 (进度条1.位置) ＋ “%”
处理事件 ()
返回 (0) ' 返回0则继续复制
.子程序 _按钮2_被单击.如果真 (通用对话框1.打开 ())
编辑框1.内容＝通用对话框1.文件名
.如果真结束
.子程序 _按钮3_被单击
.局部变量目录, 文本型目录＝浏览文件夹 (“选择文件夹”, )
.如果真 (目录 ≠ “”)
编辑框2.内容＝目录
.如果真结束你可以直接复制代码到易语言调试。

回答2：

我给你提供思路，自己去实现。
1、你用的是SSH框架，spring有一个MultipartFile技术，支持单文件和多文件上传
2、下载直接用BufferedInputStream+BufferedOutputStream去实现就可以了。
这两个都是很好学的。挺简单的

最新问答

北海到苏州火车怎么走？

跨度6米楼板的配筋怎么配?共放几根最安全?

受精卵发育成个体体现全能性吗? 如果是的话为什么基因工程常用的载体是受精卵？

很纠结，苹果7和华为P10Plus到底买哪个好

一个好点的婚礼需要多少钱

红米6和红米6A到底哪个值得买