[xyzzy:08018] Re: ポインタから構造体へのキャスト

[koji kimura <ZVB05454@xxxxxxxxx>]

koji kimuraさん、こんにちは．

	2002年1月25日(金)[19:28:18]の、
	[xyzzy:08016] Re: ポインタから構造体へのキャスト
	への自己レスです。

(winapi:HANDLE *) に nil が渡されていて，そこで引っかかっていた
ようです． 

(c:define-c-struct Handle
  (winapi:HANDLE handle))
(c:define-c-type (Handle *) pHandle)

これを (winapi:HANDLE *) に置き換えると，きっちり動作してくれま
した．また，構造体のキャスト？もうまくいきました．

(let ((in (si:make-string-chunk "e:\\hogehoge.jpg"))
      (pHBInfo (make-pHandle)) (pHBm (make-pHandle)) 
      (callback 0) (ldata 0)）
  (when (= 0 (GetPictureTest in 0 0 pHBInfo pHBm callback ldata))
    (let* ((info (make-BITMAPINFO nil (LocalLock (pHandle-handle pHBInfo))))
	    (header (BITMAPINFO-bmiHeader info)))
      )
    )
  )

お騒がせしましたm(_ _)m

---------------
木村浩司 <ZVB05454@xxxxxxxxx>