tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルTIFFファイルのタグ情報
記事No5404
投稿日: 2007/04/24(Tue) 12:44
投稿者フウセンウナギ
WindowsXP SP2
VB2005

モノクロのビットマップ画像を読み込み、
FAX送信できる形式(CCITT Group3)のTIFFファイルに変換します。
以下のようにしました。


'ビットマップオブジェクト
Dim bmp As New Bitmap("C:\test.bmp")
'パラメータ
'→CCITT Group3
Dim Para As System.Drawing.Imaging.EncoderParameters = _
                        New System.Drawing.Imaging.EncoderParameters(2)
Para.Param(0) = New System.Drawing.Imaging.EncoderParameter( _
                        System.Drawing.Imaging.Encoder.ColorDepth, 1)
Para.Param(1) = New System.Drawing.Imaging.EncoderParameter( _
                        System.Drawing.Imaging.Encoder.Compression, _
                        Imaging.EncoderValue.CompressionCCITT3)
'コーデック   
Dim Codec As System.Drawing.Imaging.ImageCodecInfo
Codec = GetEncoderInfo("image/tiff")

'ファイル出力    
bmp.Save("C:\test.tif", Codec, Para))


これで一応作成はできたのですが、うまくFAX通信できませんでした。
それでTIFFファイルを解析したところ、
タグID:259
タグ名:Compression
タグ値:3(T4Options参照)



タグID:292
タグ名:T4Options
タグ値:設定なし

となっていました。

Compressioタグが3の場合、T4Optionsタグが0,1,4,5のいずれかでないとFAX側で正常なファイル
とみなされないようです。

なにかパラメータなどの設定が不足しているのでしょうか?


ちなみにVB6単体でのTIFFファイル出力は分かりませんが、VB6のアクティブレポート
でプレビュー画面からFaxExportCITTメソッドでエクスポートした場合、
T4Optionsタグに"4"がセットされており、正常にFAX送信できました。


TIFFのタグ情報閲覧はフリーソフトのTiffAnalyzerを使用しました。
そのときのタグ情報を画像掲示板に貼り付けます。
よろしくお願いします。

[ツリー表示へ]