RE3:VB5でmag画像を読み込むには？ (後藤あきら) 1997/10/17 01:22
こんな感じでいかがでしょう？
ちなみにエラー処理や、画像の高さの取得もろもろは省いています。
でも掲示板にソースのせて良いのでしょうか(^^;。たけちんさまスミマセン、もうしません(^^;。

【標準モジュール部】
'Susie Plug-in API
Declare Function GetPicture Lib "IFMAG.SPI" (ByVal buf As String, ByVal offset As Long, ByVal flag As Long, ByRef pHBInfo As Long, ByRef pHBm As Long, ByRef lpProgressCallback As Long, ByVal lData As Long) As Long

'Win32 API
Declare Function LocalFree Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function LocalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function LocalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function SetDIBits Lib "gdi32" (ByVal hdc As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As Any, ByVal wUsage As Long) As Long

【フォームモジュール部】
'メモリのハンドル
Dim HBInfo As Long
Dim HBm As Long

'データへのポインタ
Dim lpHBInfo As Long
Dim lpHBm As Long

'画像の展開
Call GetPicture("TEST.MAG", 0, 0, HBInfo, HBm, ByVal 0&, 0)

'メモリのロック
lpHBInfo = LocalLock(HBInfo)
lpHBm = LocalLock(HBm)

'画像の表示
Call SetDIBits(Form1.hdc, Form1.Image, 0, 400, ByVal lpHBm, ByVal lpHBInfo, 0)
Form1.Picture = Form1.Image

'メモリのロック解除
Call LocalUnlock(HBInfo)
Call LocalUnlock(HBm)

'メモリハンドルの解放
Call LocalFree(HBInfo)
Call LocalFree(HBm)





--「RE3:VB5でmag画像を読み込むには？」に対するコメント--
タイトル(Subject):
お名前(Your name):
Mail address:
Password: :入力しておくとあとで削除できます
Your message:



7thBridge P ver0.26 (c)Takechin