【PowerShell】ffmpegでmp4をgifに変換する

1
@echo off
2
setlocal enabledelayedexpansion
3

4
echo "%1"
5

6
:: Check if space is contained.
7
set "filePath=%~1"
8
echo "Check if the source file name contains SPACE characters. That causes a bug."
9
set /p tmp="The process is starting. Input any key."
10

11
Start /WAIT Powershell -Windowstyle Normal -NoProfile -ExecutionPolicy Unrestricted -File ".\Z5-5_convert_mp4_to_gif.ps1" %1 10 1080
12

13
:FINISH
14
set /p tmp="The process is terminated. Input any key."
15

16
endlocal

1
function Convert-Mp4ToGif([string]$srcMovieAbsName, [Int32]$loop, [Int32]$fps, [Int32]$imgWidth) {
2
  <#
3
    .Synopsis
4
      Converts an input video into an animated GIF
5
    .Description
6
      Converts an input video into a high-quality animated GIF.
7
      Supported extensions are mp4, mkv.
8
    .INPUTS
9
      System.String # Path to the source MP4 file.
10
      System.Int32 # 0: output GIF with loops forever. -1: output GIF with no loops.
11
      System.Int32 # FPS of the output GIF.
12
      System.Int32 # Width of the output GIF. 0: Outputs with higher quality with default width.
13
    .Example
14
      Convert-Mp4ToGif -srcMovieAbsName "C:\path\to\video.mp4" -fps 30
15
      Get-ChildItem -Path "C:\path\to\videos" -Filter "*.mp4" | ForEach-Object { Convert-Mp4ToGif -srcMovieAbsName $_.FullName -loop 0 -fps 15 -imgWidth 0 }
16
      Get-ChildItem -Path "C:\path\to\videos" -Filter "*.mkv" | ForEach-Object { Convert-Mp4ToGif -srcMovieAbsName $_.FullName -loop 0 -fps 15 -imgWidth 0 }
17
    .Link
18
      Nothing.
19
    .Notes
20
      Enjoy.
21
  #>
22
  Write-Host ("{0}: converting mp4 to gif.`n" -f $MyInvocation.MyCommand.Name);
23
  Write-Output "Input: $srcMovieAbsName";
24
  $srcFile = Get-Item -Path $srcMovieAbsName;
25
  Write-Output "{0}" -f $srcFile.BaseName;
26

27
  $dstExt = ".gif";
28
  $srcFileDirectory = Split-Path $srcFile.FullName
29
  $dstMovieAbsName = "{0}\{1}{2}" -f $srcFile.Directory, $srcFile.BaseName, $dstExt;
30
  Write-Host ("{0}: destination decided.`n" -f $MyInvocation.MyCommand.Name);
31
  Write-Output "directory: $srcFileDirectory"
32
  Write-Output "destination to output: $dstMovieAbsName"
33

34
  $vfStr = "split[s0][s1];[s0]palettegen[p];[s1][p]paletteuse";
35
  if ($imgWidth -ne 0){
36
    $vfStr = "scale={0}:-1" -f $imgWidth;
37
  }
38
  ffmpeg -i "$srcMovieAbsName" -vf $vfStr -r $fps -loop $loop $dstMovieAbsName;
39
  Write-Host ("{0}: finished converting mp4 to gif.`n" -f $MyInvocation.MyCommand.Name);
40

41
  return $dstMovieAbsName;
42
}
43

44

45
$targetFolder = (Get-Location).Path;
46
$srcMovieAbsName = $Args[0];
47
$dstFps = $Args[1];
48
$dstImgWidth = $Args[2];
49
Write-Host ("{0}: destination decided.`n" -f $MyInvocation.MyCommand.Name);
50
Write-Output "srcMovieAbsName: $srcMovieAbsName"
51
if ($srcMovieAbsName.Contains(" ")) {
52
  $tmp = Read-Host "Source file name contains space characters. Input 'y' to cancel this process.";
53
  return;
54
}
55
if (-not $srcMovieAbsName.Contains(".")) {
56
  $tmp = Read-Host "Source file name does not contain a dot as extension. Input 'y' to cancel this process.";
57
  return;
58
}
59

60
Convert-Mp4ToGif $srcMovieAbsName 0 $dstFps $dstImgWidth;
61

62
$tmp = Read-Host "Input 'y' to move source files and terminate this process......";
63
If ($tmp -eq "y") {
64
  $folderName = ".\5_original_files";
65
  If (!(Test-path $targetFolder\$folderName)) {
66
    New-Item -Name $folderName -ItemType Directory;
67
  }
68
  # Move-Item -Path .\*.mp4 -Destination $folderName -Exclude *$suffix*;
69
}