BMPから画像データを抽出するには？ (ID:141000)

名前

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

本文

いつもお世話になっています。
VB6を使用しています。

前回の質問でGetPixelを用いたピクセルごとのRGB値を取得することはできました。今は↓のサイトの
http://imagingsolution.blog107.fc2.com/blog-category-1.html#pagetop
ＶＢ６．０でビットマップファイルを開くのプログラムを参考にしてフォーマット解析を試みています。

BMPファイルの全体の構造も理解したつもりなのですが、画像データの所でつまづいています。
lpBits() As Byte
にデータが入っていると思われるのですが、どうすると各ピクセルの値が返ってくるのでしょうか？

'//----------------------------------------------------------------------------------------------------------
'//【関数名  】：LoadBitmapData
'//【処理概要】：ピットマップファイルデータの読込
'//【引数    】：strBitmapFileName  = ビットマップのファイルネーム
'//            ：lpFileFeader       = ビットマップファイルのBITMAPFILEHEADER（戻り）
'//            ：lpBitsInfo         = ビットマップファイルのBITMAPINFO（戻り）
'//            ：lpBits()           = ビットマップファイルの画像データ配列（戻り）
'//【戻り値  】：0  ＝  正常終了
'//            ：-1 ＝  ファイル読込失敗
'//【備考    】：
'//            ：
'//----------------------------------------------------------------------------------------------------------
Public Function LoadBitmapData(strBitmapFileName As String, lpFileHeader As BITMAPFILEHEADER, lpBitsInfo As BITMAPINFO, lpBits() As Byte) As Long

Dim i   As Integer
    Dim ret As Long
    Dim No  As Integer
    
    '戻り値の初期値
    LoadBitmapData = -1

'ファイル名が指定されなかった場合
    If (strBitmapFileName = "") Then Exit Function
    
    If LCase(Right(strBitmapFileName, 3)) = "bmp" Then
        'ファイルがビットマップファイルのとき

'ビットマップファイルをバイナリで開く
        No = FreeFile()
        Open strBitmapFileName For Binary As #No
        
            Get #No, , lpFileHeader
            If lpFileHeader.bfType <> &H4D42 Then    ' BM
                'ビットマップではない
                MsgBox "ビットマップファイル形式ではありません。"
                Close
                Exit Function
            End If
            Get #No, , lpBitsInfo.bmiHeader
            With lpBitsInfo.bmiHeader
                If lpFileHeader.bfOffBits <> Len(lpFileHeader) + Len(lpBitsInfo.bmiHeader) Then 'カラーテーブルにデータがあるとき
                    '8Bit以下の場合カラーテーブルを読み込む
                    Get #No, , lpBitsInfo.bmiColors
                End If
                'ReDim lpBits(((.biWidth * .biBitCount + 31) \ 32) * 4 - 1, Abs(.biHeight) - 1) As Byte ' バイト数を計算（４バイト単位幅）
                ReDim lpBits(100, 100) As Byte
            End With
            Seek #No, lpFileHeader.bfOffBits + 1  ' ピクセルビットのポインタへ移動
            Get #No, , lpBits
        Close #No
'確認の為付け足し'''''''''''''''''''''''''''''''''''''''''''''''''''
        For j = 0 To Abs(.biHeight) - 1
        For i = 0 To ((.biWidth * .biBitCount + 31) \ 32) * 4 - 1
        Form1.Text1.SelText = lpBits(i, j) & " "
        Next i
        Form1.Text1.SelText = vbCrLf
        Next j
        End With
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    End If

'正常終了
    LoadBitmapData = 0
    
    Exit Function
        
LoadFileError:
    'エラー処理
    MsgBox "ファイル " & strBitmapFileName & " を読み込めません。"
    Exit Function
End Function

text1に表示されるのは
248 0 0 0 
80 0 0 0 
168 0 0 0 
80 0 0 0 
168 0 0 0 
このようになっています。

←解決時は質問者本人がここをチェックしてください。

戻る