delphi 通过doscommand组件和ffmpeg转换mjpg，并压缩mp4文件

// 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;  // 执行脚本