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

[koji kimura <ZVB05454@xxxxxxxxx>]

KAMEI Tetsuyaさん、こんにちは．

	2002年1月24日(木)[22:47:48]の、
	[xyzzy:08015] Re: ポインタから構造体へのキャスト
	への返事です。

ありがとうございます．
早速試そうと思ったんですが，GetPicture の呼び出しで xyzzy が致命
的エラーのメッセージをはいて，お亡くなりになってしまいました…

int _export PASCAL GetPicture (LPSTR buf, long len, unsigned int flag, HANDLE *pHBInfo, HANDLE *pHBm, FARPROC lpPrgressCallback, long lData); 

これを以下のように定義しました．

(c:define-dll-entry winapi:INT GetPicture
    (winapi:LPCSTR
     winapi:LONG
     winapi:UINT
     (winapi:HANDLE *)
     (winapi:HANDLE *)
     winapi:FARPROC
     winapi:LONG)
  "IFJPEG.spi" "GetPicture")

そして，このように使ってみると…

(let ((in (si:make-string-chunk "e:\\hogehoge.jpg"))
      (pHBInfo 0) (pHBm 0) (callback 0) (ldata 0))
  (GetPicture in 0 0 pHBInfo pHBm callback ldata))

xyzzy がお亡くなりに…
（もちろん IFJPEG.spi は e:\hogehoge.jpg に対応しているものです）

Lisp での定義が間違ってるんでしょうか？

必要なら xyzzy.bug を送ります．

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