マルチTIFFに含まれるすべてのイメージが表示できない
- 題名: マルチTIFFに含まれるすべてのイメージが表示できない
- 著者: ken
- 日時: 2006/12/12 12:01:18
- ID: 18513
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: マルチTIFFに含まれるすべてのイメージが表示できない
- 著者: 管理人
- URL: http://dobon.net/
- 日時: 2006/12/17 3:47:48
- ID: 18564
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: マルチTIFFに含まれるすべてのイメージが表示できない
- 著者: ken
- 日時: 2006/12/18 10:58:15
- ID: 18570
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[3]: マルチTIFFに含まれるすべてのイメージが表示できない
- 著者: 管理人
- URL: http://dobon.net/
- 日時: 2006/12/19 3:47:33
- ID: 18576
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[4]: マルチTIFFに含まれるすべてのイメージが表示できない
- 著者: ken
- 日時: 2006/12/20 8:45:58
- ID: 18595
- この記事の返信元:
- この記事への返信:
- ツリーを表示
マルチドキュメントTIFFの内容を取得したいのですが、
tipsにあるコードを実行したところ、
img.SelectActiveFrame(fd, i)の行で
「GDI+ で汎用エラーが発生しました。」
というエラーが発生してしまいます。
fd_countは2が入っていて、一枚目のTIFFは表示されるのですが、
2枚目をActiveにしようとしたときにエラーになるようです。
どうすればよいでしょうか
環境:VB2005
***参考ソース
'画像ファイルのパス
Dim filePath As String = Me.TextBox1.Text
Dim g As Graphics = PictureBox1.CreateGraphics()
'画像を読み込む
Dim img As Image = Image.FromFile(filePath)
'FrameDimensionを取得
Dim fd As New Imaging.FrameDimension(img.FrameDimensionsList(0))
'フレーム数を取得
Dim fd_count As Integer = img.GetFrameCount(fd)
Dim y As Integer = 0
Dim i As Integer
For i = 0 To fd_count - 1
'フレームを選択
img.SelectActiveFrame(fd, i)
'画像を表示
g.DrawImage(img, 0, y, img.Width, img.Height)
y += img.Height
Next i
img.Dispose()
g.Dispose()