【PowerShell】Cwebpで圧縮したJPGだとiTextSharpでPDFに変換出来ない

1
function Optimize-ImageWithCompressing(){
2
  param (
3
    [array]$pathList,
4
    [string]$suffix,
5
    [int]$quality
6
  )
7

8
  Add-Type -AssemblyName System.Drawing
9
  foreach ($file in $pathList) {
10
    $extension = (Get-Item $file.FullName).Extension;
11
    $outputImg = "{0}_{1:D2}{2}" -f $file.FullName.Substring(0, $file.FullName.Length-$extension.Length), $suffix, ".jpg";
12
    Write-Output "<Source File Name: $file>";
13
    cwebp -preset photo -metadata icc -sharp_yuv -q $quality -o $outputImg -progress -short $file.FullName; $updatedCount++;
14
    Write-Output "----------------";
15
  };
16
  Write-Output("{0} .jpg images converted." -f $updatedCount);
17
  Write-Output "----------------";
18
}

1
function Merge-ImagesIntoPdfWithITextSharp([array]$imgPathList, [string]$iTextSharpPath) {
2
  Unblock-File -Path $iTextSharpPath;
3

4
  # [System.Reflection.Assembly]::LoadFrom($iTextSharpPath);
5
  # Add-Type -Path $iTextSharpPath
6
  Add-Type -LiteralPath $iTextSharpPath
7
  # $error[0].Exception.GetBaseException().LoaderExceptions
8

9
  $ext = ".pdf";
10
  $pdfName = "{0}\{1}{2}" -f $imgPathList[0].DirectoryName, $imgPathList[0].BaseName, $ext;
11

12
  Write-Output $imgPathList;
13
  Write-Host ("{0}: decided PDF file name`n" -f $MyInvocation.MyCommand.Name);
14
  Write-Output $pdfName;
15

16
  $doc = New-Object iTextSharp.text.Document;
17
  $pdfWriter = [iTextSharp.text.pdf.PdfWriter]::GetInstance($doc, [System.IO.File]::Create($pdfName))
18
  $doc.Open()
19

20
  # Get image files to add into PDF.
21
  foreach ($path in $imgPathList) {
22
    Write-Output $path;
23
    Write-Output $path.GetType().FullName;
24
    Write-Output $path.FullName.GetType().FullName;
25
    Write-Host ("{0}: adding an image into a PDF...`n" -f $MyInvocation.MyCommand.Name);
26
    $image = [iTextSharp.text.Image]::GetInstance($path.FullName);
27

28
    # Scale images to each page size.
29
    $doc.SetPageSize($image);
30
    $doc.NewPage();
31
    $image.SetAbsolutePosition(0, 0);
32
    # $image.ScaleToFit($doc.PageSize.Width, $doc.PageSize.Height);
33
    $image.Alignment = [iTextSharp.text.Image]::ALIGN_CENTER;
34

35
    $doc.Add($image);
36
  }
37

38
  $doc.Close();
39
  $pdfWriter.Close();
40
  Write-Host ("{0}: completed adding images into a PDF`n" -f $MyInvocation.MyCommand.Name);
41
}

1
function Optimize-ImageWithCompressing {
2
  param (
3
    [string]$ImagePath,
4
    [string]$OutputPath,
5
    [int]$Quality  # 0-100, 100 is highest quality (least compression)
6
  )
7

8
  # Load System.Drawing assembly
9
  Add-Type -AssemblyName System.Drawing
10
  try {
11
    # Load the image
12
    $image = [System.Drawing.Image]::FromFile($ImagePath)
13

14
    # Create an EncoderParameter object for quality
15
    $qualityParam = New-Object System.Drawing.Imaging.EncoderParameter(
16
      [System.Drawing.Imaging.Encoder]::Quality, $Quality
17
    )
18

19
    # Get the JPEG codec
20
    $jpegCodec = [System.Drawing.Imaging.ImageCodecInfo]::GetImageDecoders() | Where-Object { $_.FormatID -eq [System.Drawing.Imaging.ImageFormat]::Jpeg.Guid }
21

22
    # Create an EncoderParameters object
23
    $encoderParams = New-Object System.Drawing.Imaging.EncoderParameters(1)
24
    $encoderParams.Param[0] = $qualityParam
25

26
    # Save the image with the specified quality
27
    $image.Save($OutputPath, $jpegCodec[0], $encoderParams)
28

29
    Write-Host "Image compressed and saved to: $OutputPath"
30
  }
31
  catch {
32
    Write-Error "An error occurred: $_"
33
  }
34
  finally {
35
    if ($image) {
36
      $image.Dispose()
37
    }
38
  }
39
}