でかいピクセル数のtiff画像を縮小したい。

Question

実現したいこと

でかいピクセル数のtiff画像を縮小したい。
30000*20000 程度
どうすればできるでしょう。

前提

以下で作成したファイル「10000.tiff」と「28000.tiff」に対して
両方を変換できる必要があります。
※実際にはもっといろいろ絵があるファイルを変換する必要があるのですが
上記ファイルでも同じエラーとなる為、上記２ファイルを変換できれば良いと考えています。

Imports System.Drawing.Imaging
Imports System.IO

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim bmp As Bitmap
        Dim g As Graphics

        bmp = New Bitmap(10000, 10000)
        g = Graphics.FromImage(bmp)
        g.Clear(Color.FromArgb(255, 0, 0))
        g.Dispose()
        bmp.Save("C:\Temp\FromTiff\10000.tiff", System.Drawing.Imaging.ImageFormat.Tiff)
        bmp.Dispose()

        bmp = New Bitmap(28000, 20000, System.Drawing.Imaging.PixelFormat.Format1bppIndexed)
        bmp.Save("C:\Temp\FromTiff\28000.tiff", System.Drawing.Imaging.ImageFormat.Tiff)
        bmp.Dispose()
    End Sub

該当のソースコード

以下のプログラムで「10000.tiff」は変換できるが
「28000.tiff」はエラーが出て変換できない。

Imports System.Drawing.Imaging
Imports System.IO

Public Class Form1

    Private Shared Function GetEncoderInfo(mimeType As String) As ImageCodecInfo
        Dim j As Integer
        Dim encoders() As ImageCodecInfo
        encoders = ImageCodecInfo.GetImageEncoders()
        For j = 0 To encoders.Length
            If encoders(j).MimeType = mimeType Then
                Return encoders(j)
            End If
        Next
        Return Nothing
    End Function

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim myEncoder As Encoder
        Dim myEncoderParameter As EncoderParameter
        Dim myEncoderParameters As EncoderParameters
        Dim myImageCodecInfo As ImageCodecInfo
        myImageCodecInfo = GetEncoderInfo("image/jpeg")
        myEncoderParameters = New EncoderParameters(1)
        myEncoder = Encoder.Quality
        myEncoderParameter = New EncoderParameter(myEncoder, 100L)
        myEncoderParameters.Param(0) = myEncoderParameter



        For Each path In {"C:\Temp\FromTiff\10000.tiff", "C:\Temp\FromTiff\28000.tiff"}
            Using fs As FileStream = File.OpenRead(path)

                Dim tBmp As Image = Image.FromStream(fs, False, False)

                Dim newImg As New Bitmap(100, 100)
                newImg.SetResolution(72, 72)
                Dim g As Graphics = Graphics.FromImage(newImg)
                g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
                g.DrawImage(tBmp, 0, 0, 100, 100)
                g.Dispose()

                tBmp.Dispose()
                tBmp = Nothing
                newImg.Save(Replace(Replace(path, "FromTiff", "ToTiff"), ".tiff", ".jpg"), myImageCodecInfo, myEncoderParameters)

            End Using
        Next


    End Sub
End Class

発生している問題・エラーメッセージ

「28000.tiff」のファイル時、g.DrawImage(tBmp, 0, 0, 100, 100)のコードにおいて
以下のエラーが出ます。

System.OverflowException: 'オーバーフロー エラーです。'

試したこと

OpenCvSharpでならできるかなと思って、一旦以下で画像を小さくしてみようとしましたが
こちらもエラーが発生しました。「10000.tiff」の方は実行できています。

            Using srcImg As Mat = Cv2.ImRead(path)
                Using resizeImg As New Mat(size:=New OpenCvSharp.Size(), type:=srcImg.Type)
                    Cv2.Resize(srcImg, resizeImg, New OpenCvSharp.Size(), 0.5, 0.5, InterpolationFlags.Area)
                    Cv2.ImWrite(topath, resizeImg)
                End Using
            End Using

エラー発生個所は
Cv2.Resize(srcImg, resizeImg, New OpenCvSharp.Size(), 0.5, 0.5, InterpolationFlags.Area)
で、エラー内容は
OpenCvSharp.OpenCVException: '!ssize.empty()'
でした。

尚、現在はデカくてエラーになるファイルはPhotoshopで小さくしています。

補足情報（FW/ツールのバージョンなど）

.NetFramework 4.8
Windows10

Comments

[退会済みユーザー]

質問者さん、回答したのでそれに対するフィードバックを返してください。役に立った/立たなかったぐらいはすぐに返せるのでは？　 InterpolationMode は下げられないので私の回答ではダメということなら、その旨書いてください。

[xail2222]

すみません。お知らせ一覧に出てくるものだと思ってたので、それをチェックしていたのですが、お知らせ一覧に出なくなったのですね。反応遅くてすみませんでした。

Answer 1

ググるとヒットする ↓ こういうの見ましたか？

https://social.msdn.microsoft.com/Forums/windows/en-US/d6c0ef02-e3c9-4b7d-a053-fd64ecb06470/overflowexception-in-graphicsdrawimage-using-interpolationmode-highqualitybicubic?forum=winforms

https://www.codeproject.com/Messages/4709493/Re-How-to-resize-tiff-image.aspx

対症療法的ですが InterpolationMode を Bicubic, Bilinear ぐらいに下げれば OverflowException は回避できるようです。

下げられないということですと自分には解決策は分かりません。他の方の回答をお待ちください。

Comments

[xail2222]

回答で教えて頂いたググった結果のHPは私は未確認でした。情報ありがとうございます。

＞対症療法的ですが InterpolationMode を Bicubic, Bilinear ぐらいに下げれば OverflowException は回避できるようです。

とりあえず、HighQualityBicubicで処理できるくらいまで他のパラメータでサイズを小さくしてから
最後にHighQualityBicubicで処理すれば精度的にもいけそうな気はします。一旦試してみます。

反応遅くてすみませんでした。

[xail2222]

InterpolationMode を変えてサンプルのtiffは変換できることが確認できました。
実際のファイルは、今手元にないため実際のファイルで使用に足るか明日確認します。

[退会済みユーザー]

画像の質がかなり落ちるのでご注意を。こんな感じです ↓

http://surferonwww.info/Hobby/Computer/PcPage16.aspx

[xail2222]

一旦、20000ピクセルくらいにDefaultで縮小するくらいであれば画像的にあまり見た目は変わらず
そこから、HighQualityBicubicで変換することで、見た目的にはあまり問題ない感じに出来ました。

ありがとうございました。