易语言调用ffmpeg下载m3u8格式转mp4，有进度条和回显

hxq2015 · 发表于 2020-6-13 18:35:51

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
命令	文本型		ffmpeg命令行

子程序名	返回值类型	公开	备注
_按钮1_被单击

命令＝ “cmd/c” ＋ “ ” ＋取运行目录 () ＋ “\ffmpeg.exe” ＋ “ -i ” ＋编辑框1.内容＋ “ ” ＋ “-c copy” ＋ “ ” ＋时间_取现行时间戳 () ＋ “.mp4”
运行 (命令, 假, )
延迟 (2000)
_时钟1_周期事件 ()
编辑框2.内容＝取DOS返回文本1 (命令, &信息回调) ' 让cmd运行窗口内容实时回显到编辑框内

如果真 (标签1.标题＝ “当前下载转换100%”)

信息框 (“下载完成”, 0, , )

子程序名	返回值类型	公开	备注
_时钟1_周期事件

变量名	类型	静态	数组	备注
t	整数型			总时间化整数
t1	整数型			当前时间化整数

时钟1.时钟周期＝ 100
编辑框3.内容＝取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “Duration:”, , 假) ＋ 10, 8)  ' 取到ffmpeg总时长
编辑框4.内容＝取文本中间 (编辑框2.内容, 倒找文本 (编辑框2.内容, “time=”, , 假) ＋ 5, 8)  ' 取ffmpeg当前时长
处理事件 ()
t ＝到整数 (取文本左边 (编辑框3.内容, 2)) × 60 × 60 ＋到整数 (取文本中间 (编辑框3.内容, 4, 2)) × 60 ＋到整数 (取文本右边 (编辑框3.内容, 2))  ' 总时长化整数
t1 ＝到整数 (取文本左边 (编辑框4.内容, 2)) × 60 × 60 ＋到整数 (取文本中间 (编辑框4.内容, 4, 2)) × 60 ＋到整数 (取文本右边 (编辑框4.内容, 2))  ' 当前时长化整数

如果 (进程_是否存在 (“ffmpeg.exe”))

标签1.标题＝ “当前下载转换” ＋到文本 (四舍五入 (t1 ÷ t, 2) × 100) ＋ “%”

标签1.标题＝ “连接不成功，请再试一下或者输入其他链接”

进度条1.位置＝ t1
进度条1.最大位置＝ t

子程序名	返回值类型	公开	备注
信息回调			在编辑框里加入ffmpeg运行内容
参数名	类型	参考	可空	数组	备注
文本	文本型

编辑框2.加入文本 (文本)

子程序名	返回值类型	公开	备注
__启动窗口_将被销毁

进程_结束1 (“ffmpeg.exe”) ' 释放内存
结束 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 命令, 文本型, , , ffmpeg命令行<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
命令 ＝ “cmd/c” ＋ “ ” ＋ 取运行目录 () ＋ “\ffmpeg.exe” ＋ “ -i ” ＋ 编辑框1.内容 ＋ “ ” ＋ “-c copy” ＋ “ ” ＋ 时间_取现行时间戳 () ＋ “.mp4”<br />
运行 (命令, 假, )<br />
延迟 (2000)<br />
_时钟1_周期事件 ()<br />
编辑框2.内容 ＝ 取DOS返回文本1 (命令, &信息回调)  ' 让cmd运行窗口内容实时回显到编辑框内<br />
.如果真 (标签1.标题 ＝ “当前下载转换100%”)<br />
    信息框 (“下载完成”, 0, , )<br />
.如果真结束<br />
<br />
<br />
.子程序 _时钟1_周期事件<br />
.局部变量 t, 整数型, , , 总时间化整数<br />
.局部变量 t1, 整数型, , , 当前时间化整数<br />
<br />
时钟1.时钟周期 ＝ 100<br />
<br />
编辑框3.内容 ＝ 取文本中间 (编辑框2.内容, 寻找文本 (编辑框2.内容, “Duration:”, , 假) ＋ 10, 8)  ' 取到ffmpeg总时长<br />
编辑框4.内容 ＝ 取文本中间 (编辑框2.内容, 倒找文本 (编辑框2.内容, “time=”, , 假) ＋ 5, 8)  ' 取ffmpeg当前时长<br />
处理事件 ()<br />
t ＝ 到整数 (取文本左边 (编辑框3.内容, 2)) × 60 × 60 ＋ 到整数 (取文本中间 (编辑框3.内容, 4, 2)) × 60 ＋ 到整数 (取文本右边 (编辑框3.内容, 2))  ' 总时长化整数<br />
t1 ＝ 到整数 (取文本左边 (编辑框4.内容, 2)) × 60 × 60 ＋ 到整数 (取文本中间 (编辑框4.内容, 4, 2)) × 60 ＋ 到整数 (取文本右边 (编辑框4.内容, 2))  ' 当前时长化整数<br />
.如果 (进程_是否存在 (“ffmpeg.exe”))<br />
    标签1.标题 ＝ “当前下载转换” ＋ 到文本 (四舍五入 (t1 ÷ t, 2) × 100) ＋ “%”<br />
.否则<br />
    标签1.标题 ＝ “连接不成功，请再试一下或者输入其他链接”<br />
.如果结束<br />
<br />
进度条1.位置 ＝ t1<br />
进度条1.最大位置 ＝ t<br />
<br />
.子程序 信息回调, , , 在编辑框里加入ffmpeg运行内容<br />
.参数 文本, 文本型<br />
<br />
编辑框2.加入文本 (文本)<br />
<br />
.子程序 __启动窗口_将被销毁<br />
<br />
进程_结束1 (“ffmpeg.exe”)  ' 释放内存<br />
结束 ()