ruby-list

ノーマンです。始めまして。私の日本語はあまり得意ではありませんが、よろしくお願い
します。

どなたかWin32APIのGetDIBitsの機能を利用したことがありませんか? GetDIBitsで、デス
クトップのScreenShotを撮りたいんです。ウェッブで調べると、
http://www.fortunecity.com/skyscraper/windows/364/scrncapt.html(参照してくださ
い)のページにScreenShotを撮るコードがあって、そのコードをRubyに変換しようとしま
したが、なかなかうまく動かせません。

BitBltの呼びまで、正しいと思いますが、その後、どのようにしてGetDIBitsを
lpvpxldataにデスクトップのピクセルを書き込ませるのを分かりません。このプログラム
を実行し、lpvpxldataは""(空白String)の状態です。

hpxldata = GlobalAlloc.call(GMEM_FIXED, screenWidth * screenHeight * 3)
lpvpxldata  = GlobalLockI.call(hpxldata)
bmInfo = [40, screenWidth, screenHeight, 1, 24, 0, 0, 0, 0, 0,
          0].pack('LLLIILLLLLL')
bmFileHeader = [19778, (screenWidth * screenHeight * 3) + 40 + 14, 0, 0,
                54].pack('ILIIL')

GetDIBits.call(hmemDC, hmemBM, 0, screenHeight, lpvpxldata, bmInfo,
               DIB_RGB_COLORS)
File::open(filename, "w") { |bitmap|
    bitmap.print(bmFileHeader)
    bitmap.print(bmInfo)
    bitmap.print(lpvpxldata)
}

以下に全てのコードを貼り付けておきました。Win32APIが詳しい人を手伝ったら嬉しいで
す。では、

--
Norman Su

--------code--------
SelectObject = Win32API.new('gdi32', 'SelectObject', ['L', 'L'], 'L')
BitBlt = Win32API.new('gdi32', 'BitBlt', ['L'] * 9, 'L')
GlobalAlloc = Win32API.new('kernel32', 'GlobalAlloc', ['L', 'L'], 'L')
GlobalLock = Win32API.new('kernel32', 'GlobalLock', ['I'], 'P');
GlobalLockI = Win32API.new('kernel32', 'GlobalLock', ['I'], 'I');
GetDIBits = Win32API.new('gdi32', 'GetDIBits', 'LLLLPPL', 'L')
GlobalUnlock = Win32API.new('kernel32', 'GlobalUnlock', ['L'], 'L');
GlobalFree = Win32API.new('kernel32', 'GlobalFree', ['L'], 'L');
DeleteObject = Win32API.new('gdi32', 'DeleteObject', ['L'], 'L');
DeleteDC = Win32API.new('gdi32', 'DeleteDC', ['L'], 'L');
ReleaseDC = Win32API.new('user32', 'ReleaseDC', ['L', 'L'], 'L');

HORZRES = 8
VERTRES = 10
SRCCOPY = 0xCC0020
GMEM_FIXED = 0
GMEM_MOVEABLE = 0x0002
DIB_RGB_COLORS = 0
GHND = 0x40
GPTR = 0x42

def screenshot(filename='test.bmp')
  hScreenDC = GetWindowDC.call(0)
  hmemDC = CreateCompatibleDC.call(hScreenDC)
  screenWidth = GetDeviceCaps.call(hScreenDC, HORZRES)
  screenHeight = GetDeviceCaps.call(hScreenDC, VERTRES)
  hmemBM = CreateCompatibleBitmap.call(hScreenDC, screenWidth, screenHeight)
  SelectObject.call(hmemDC, hmemBM)

  BitBlt.call(hmemDC, 0, 0, screenWidth, screenHeight, hScreenDC, 0, 0,
              SRCCOPY)

  hpxldata = GlobalAlloc.call(GMEM_FIXED, screenWidth * screenHeight * 3)
  lpvpxldata  = GlobalLockI.call(hpxldata)
  bmInfo = [40, screenWidth, screenHeight, 1, 24, 0, 0, 0, 0, 0,
            0].pack('LLLIILLLLLL')
  bmFileHeader = [19778, (screenWidth * screenHeight * 3) + 40 + 14, 0, 0,
                  54].pack('ILIIL')

  GetDIBits.call(hmemDC, hmemBM, 0, screenHeight, lpvpxldata, bmInfo,
                 DIB_RGB_COLORS)
  File::open(filename, "w") { |bitmap|
    bitmap.print(bmFileHeader)
    bitmap.print(bmInfo)
    bitmap.print(lpvpxldata)
  }

  GlobalUnlock.call(hpxldata)
  GlobalFree.call(hpxldata)
  DeleteObject.call(hmemBM)
  DeleteDC.call(hmemDC)
  ReleaseDC.call(0, hScreenDC)
end