マルチページTIFFの編集について (ID:147601)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > 上記だと、保存後のTIFF画像は、3ページの内の1ページ目の画像が3回転され、 RotateFlip すると、他のページが破棄されるためです。 回転前後で、GetFrameCount の戻り値を比較してみましょう。 (なお、SelectActiveFrame は存在しないページを指定してもエラーになりません) > 2、3ページ目がなくなって保存されてしまいます。 後続ページを保存するためには、Save メソッドではなく SaveAdd メソッドを使います。 先頭ページを Save する際には、EncoderValue.MultiFrame を指定し、 後続ページの SaveAdd では、EncoderValue.FrameDimensionPage を指定します。 以下サンプル。Win7 で検証しています。 'Option Strict On 'Imports System.IO 'Imports System.Drawing.Imaging '【回転後の結果を保存するファイル名】 Dim sFolder As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments Dim newFile As String = Path.Combine(sFolder, "new.tif") '【回転させる前の元画像ファイル名】 Dim oldFile As String = Path.Combine(sFolder, "old.tif") 'Dim url As String = "http://www.nifty.com/keibabook/image/kbnet_sample.tif" 'If File.Exists(oldFile) Then ' File.Delete(oldFile) 'End If 'My.Computer.Network.DownloadFile(url, oldFile) '【以下が本題の処理】 Dim tiffEncoder As ImageCodecInfo = ImageCodecInfo.GetImageEncoders().Where( _ Function(codec) codec.MimeType = "image/tiff").First() '[Creating and Saving a Multiple-Frame Image] 'http://msdn.microsoft.com/en-us/library/ms533839(VS.85).aspx '色深度や圧縮方法などは、適宜調整してください。 Dim encParams As New EncoderParameters(3) encParams.Param(0) = New EncoderParameter(Encoder.SaveFlag, CLng(EncoderValue.MultiFrame)) encParams.Param(1) = New EncoderParameter(Encoder.ColorDepth, 1L) encParams.Param(2) = New EncoderParameter(Encoder.Compression, CLng(EncoderValue.CompressionCCITT3)) Dim page As New FrameDimension(FrameDimension.Page.Guid) Using oldStream As New MemoryStream(File.ReadAllBytes(oldFile)), _ newStream As New MemoryStream(), _ baseImage As Image = Image.FromStream(oldStream) Dim frameCount As Integer = baseImage.GetFrameCount(page) baseImage.RotateFlip(RotateFlipType.Rotate90FlipXY) baseImage.Save(newStream, tiffEncoder, encParams) encParams.Param(0) = New EncoderParameter(Encoder.SaveFlag, CLng(EncoderValue.FrameDimensionPage)) For p As Integer = 1 To frameCount - 1 Using oldImage As New Bitmap(oldFile) oldImage.SelectActiveFrame(page, p) oldImage.RotateFlip(RotateFlipType.Rotate90FlipXY) baseImage.SaveAdd(oldImage, encParams) End Using Next 'newStream の内容をファイルに保存する File.WriteAllBytes(newFile, newStream.ToArray()) End Using