// ffmpeg.exe 在http://ffmpeg.org/download.html 可以下载对应版本,我下的是MS版本。
//简单示例,tdoscommand组件需另外安装,可以到github下载
DosCommand1.CurrentDir := ExtractFilePath(Application.ExeName); // 执行程序路径
DosCommand1.CommandLine := \'ffmpeg.exe -r 15 -i 1111.mjpeg -c:v copy 2222.mp4\'; // 转换
DosCommand1.Execute; //执行脚本 DosCommand1.CommandLine := \'ffmpeg.exe -i 2222.mp4 -r 10 -b:a 32k 33333.mp4\'; // 再压缩,否则2222.mp4文件相当大,再压缩的话,100M mp4可以压缩到 6M-8M左右MP4格式文件
DosCommand1.Execute; // 执行脚本
请发表评论