UWSC｜BMP画像の幅と高さを得る自作関数

どんな並び方（フォーマット）で情報が記録されてるかはそれぞれの画像形式で規定。（それぞれの設計者がそれぞれ決めた。）

自分は何モンですよという情報が大抵はファイルの先頭（ヘッダ）に記録→それを読み取ることで幅や高さ、カラー／モノクロの判別が付きます。当てにならない形式もありますが。

ビットマップ画像のフォーマットも仕様として公開→関数内2行目～9行目にメモ。7行目を例にすると“ファイル先頭から数えて18バイト目から4バイト分が幅を記録する部分”という意味。

今回は画像の幅と高さを取得するのが目的ですので、以下がするべき仕事になります。

　幅：ファイル先頭18バイト目から4バイト分読み取り10進数に変換。
　高：ファイル先頭22バイト目から4バイト分読み取り10進数に変換。

FUNCTION bmp(path)//path:ビットマップファイルのパス
//ビットマップ画像のフォーマット
// 0,2:"BM"(ビットマップという意味)
// 2,4:ファイルサイズ
//10,4:画像データへのオフセット(色テーブル分)
//14,4:情報ヘッダーサイズ(Windows用:40,OS/2用:12)
//18,4:幅
//22,4:高さ
//28,2:色数(24bitフルカラー:24)
            DIM get_wh[1]
            bin=CREATEOLEOBJ("ADODB.Stream")
            bin.Open()
            bin.Type=1
            bin.LoadFromFile(path)
            tmp_info=bin.Read(26)
            bin.Close()
      FOR i=18 TO LENGTH(tmp_info)-1
         IF (i<22)
            get_wh[0]=get_wh[0]+tmp_info[i]*POWER(256,i-18)
         ELSEIF (i<26)
            get_wh[1]=get_wh[1]+tmp_info[i]*POWER(256,i-22)
         ENDIF
      NEXT
            RESULT=SLICE(get_wh,0,LENGTH(get_wh)-1)
FEND

ここでは幅と高さだけ取得しましたが、for～next間のif文に条件を付け加え他のヘッダ情報も同様に返すことで取得できるようになります。

   wh=bmp("C:\poku\ポク太郎アイコン.bmp")
   width=wh[0]//幅が入る
   height=wh[1]//高さが入る