ruby-list

artonです。

On Thu, 12 Feb 2004 17:56:03 +0900
Shin-ichiro HARA <sinara@blade.nagaokaut.ac.jp>さん wrote:

> といったエラーが出ますね。attacEvent はあるのだけど、第２引数
> がわかりません。これは出来てもいい気がするんだけど、、、。
できるようにすることは可能なので、パッチを作ってテストしてみました。
問題なさそうだったので助田さんに取り込んでいただけるようお願いました。
原さんが試されるのでしたら添付のパッチをwin32ole.cに適用してみてください。
リリース版のruby-1.8.1/ext/win32ole/win32ole.c 用です。

-- 
arton <artonx@yahoo.co.jp>

Attachments (1)

patch.txt (4.44 KB, text/x-diff)

diff -u -C1 win32ole.c.old win32ole.c
*** win32ole.c.old	Thu Sep 25 08:54:22 2003
--- win32ole.c	Thu Feb 12 14:16:47 2004
***************
*** 194,195 ****
--- 194,323 ----
  static HRESULT ole_docinfo_from_type _((ITypeInfo *, BSTR *, BSTR *, DWORD *, BSTR *));
+ static char *ole_wc2mb(LPWSTR);
+ static VALUE ole_variant2val(VARIANT*);
+ static void ole_val2variant(VALUE, VARIANT*);
+ 
+ typedef struct _Win32OLEIDispatch
+ {
+     IDispatch dispatch;
+     ULONG refcount;
+     VALUE obj;
+ } Win32OLEIDispatch;
+ 
+ static HRESULT ( STDMETHODCALLTYPE QueryInterface )( 
+             IDispatch __RPC_FAR * This,
+             /* [in] */ REFIID riid,
+             /* [iid_is][out] */ void __RPC_FAR *__RPC_FAR *ppvObject)
+ {
+     if (MEMCMP(riid, &IID_IUnknown, GUID, 1) == 0
+ 	|| MEMCMP(riid, &IID_IDispatch, GUID, 1) == 0)
+     {
+ 	Win32OLEIDispatch* p = (Win32OLEIDispatch*)This;
+ 	p->refcount++;
+ 	*ppvObject = This;
+ 	return S_OK;
+     }
+     return E_NOINTERFACE;
+ }
+         
+ static ULONG ( STDMETHODCALLTYPE AddRef )( 
+             IDispatch __RPC_FAR * This)
+ {
+     Win32OLEIDispatch* p = (Win32OLEIDispatch*)This;
+     return ++(p->refcount);
+ }
+         
+ static ULONG ( STDMETHODCALLTYPE Release )( 
+             IDispatch __RPC_FAR * This)
+ {
+     Win32OLEIDispatch* p = (Win32OLEIDispatch*)This;
+     ULONG u = --(p->refcount);
+     if (u == 0) {
+ 	free(p->dispatch.lpVtbl);
+ 	free(p);
+     }
+     return u;
+ }
+         
+ static HRESULT ( STDMETHODCALLTYPE GetTypeInfoCount )( 
+             IDispatch __RPC_FAR * This,
+             /* [out] */ UINT __RPC_FAR *pctinfo)
+ {
+     return E_NOTIMPL;
+ }
+         
+ static HRESULT ( STDMETHODCALLTYPE GetTypeInfo )( 
+             IDispatch __RPC_FAR * This,
+             /* [in] */ UINT iTInfo,
+             /* [in] */ LCID lcid,
+             /* [out] */ ITypeInfo __RPC_FAR *__RPC_FAR *ppTInfo)
+ {
+     return E_NOTIMPL;
+ }
+ 
+         
+ static HRESULT ( STDMETHODCALLTYPE GetIDsOfNames )( 
+             IDispatch __RPC_FAR * This,
+             /* [in] */ REFIID riid,
+             /* [size_is][in] */ LPOLESTR __RPC_FAR *rgszNames,
+             /* [in] */ UINT cNames,
+             /* [in] */ LCID lcid,
+             /* [size_is][out] */ DISPID __RPC_FAR *rgDispId)
+ {
+     Win32OLEIDispatch* p = (Win32OLEIDispatch*)This;
+     char* psz = ole_wc2mb(*rgszNames); // support only one method
+     *rgDispId = rb_intern(psz);
+     free(psz);
+     return S_OK;
+ }
+         
+ static /* [local] */ HRESULT ( STDMETHODCALLTYPE Invoke )( 
+             IDispatch __RPC_FAR * This,
+             /* [in] */ DISPID dispIdMember,
+             /* [in] */ REFIID riid,
+             /* [in] */ LCID lcid,
+             /* [in] */ WORD wFlags,
+             /* [out][in] */ DISPPARAMS __RPC_FAR *pDispParams,
+             /* [out] */ VARIANT __RPC_FAR *pVarResult,
+             /* [out] */ EXCEPINFO __RPC_FAR *pExcepInfo,
+             /* [out] */ UINT __RPC_FAR *puArgErr)
+ {
+     VALUE v;
+     int i;
+     int args = pDispParams->cArgs;
+     Win32OLEIDispatch* p = (Win32OLEIDispatch*)This;
+     VALUE* parg = ALLOC_N(VALUE, args);
+     for (i = 0; i < args; i++) {
+ 	*(parg + i) = ole_variant2val(&pDispParams->rgvarg[args - i - 1]);
+     }
+     if (dispIdMember == DISPID_VALUE) {
+ 	if (wFlags == DISPATCH_METHOD) {
+ 	    dispIdMember = rb_intern("call");
+ 	} else if (wFlags & DISPATCH_PROPERTYGET) {
+ 	    dispIdMember = rb_intern("value");
+ 	}
+     }
+     v = rb_funcall2(p->obj, dispIdMember, args, parg);
+     ole_val2variant(v, pVarResult);
+     return S_OK;
+ }
+ 
+ static IDispatch*
+ val2dispatch(val)
+     VALUE val;
+ {
+     Win32OLEIDispatch* pdisp;
+     IDispatchVtbl* p = ALLOC(IDispatchVtbl);
+     p->QueryInterface = QueryInterface;
+     p->AddRef = AddRef;
+     p->Release = Release;
+     p->GetTypeInfoCount = GetTypeInfoCount;
+     p->GetTypeInfo = GetTypeInfo;
+     p->GetIDsOfNames = GetIDsOfNames;
+     p->Invoke = Invoke;
+     pdisp = ALLOC(Win32OLEIDispatch);
+     pdisp->dispatch.lpVtbl = p;
+     pdisp->refcount = 1;
+     pdisp->obj = val;
+     return &pdisp->dispatch;
+ }
  
***************
*** 700,702 ****
      default:
!         rb_raise(rb_eTypeError, "not valid value");
          break;
--- 828,831 ----
      default:
! 	V_VT(var) = VT_DISPATCH;
! 	V_DISPATCH(var) = val2dispatch(val);
          break;

Thread

Prev Next

In This Thread

Prev Next

[#39102] pstoreのバックアップファイルについて — 堀川 久 <vzw00011@...>

[#39104] Internet Explorer で印刷 — Shin-ichiro HARA <sinara@...>

[#39106] What processor do you run ruby on? — "K.Sasada" <ko1@...>

[#39111] *a=aの挙動の違い — Tamiyasu Murakami <tamiyasu_m@...>

[#39118] YAML without Syck — IWATSUKI Hiroyuki <don@...>

[#39129] InternetExplorer ってインターフェースとして使える？ — Shin-ichiro HARA <sinara@...>

[#39142] WORD Graphのデータシートにデータを貼り付けようとしています — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39148] [BUG] ruby-mode indentation bug — Kenta MURATA <muraken2@...>

[#39154] Re: WORD Graphのデータシートにデータを貼り付けようとしています — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39158] setup.rb on mswin32 — KUBO Takehiro <kubo@...>

[#39170] [ANN] Kwartz -- a template system, available in Ruby, PHP and Java — "maco@..." <kwa@...>

[#39188] debugger on RubyUnit — URA Takefumi <hage@...>

[#39189] MinGW — EMOTO Masahiko <emo@...>

[#39192] Re: WORD Graph のデータシートにデータを貼り付けようとしています — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39197] [ANN] Nora 0.0.20040216 released — MoonWolf <moonwolf@...>

[#39198] RHG 全章公開 — Minero Aoki <aamine@...>

[#39201] undefined reference to `__imp__ruby_safe_level' — EMOTO Masahiko <emo@...>

[#39202] Re: WORD Graph のデータシートにデータを貼り付けようとしています — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39204] Re: WORD Graph のデータシートにデータを貼り付けようとしています — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39212] 特異メソッドでのクラス変数 — "eclipse" <eclipse@...>

[#39213] IconvでUTF-16を変換 — Takashi & Kayoko Sano <tksano@...3.kcn.ne.jp>

[#39232] クラス変数をモジュールのメソッドから参照したい — ruby@...

[#39233] MinGW / socket.so — EMOTO Masahiko <emo@...>

[#39235] Zlib memory leak — sheepman <sheepman@...>

[#39236] uriってどう使うんでしょうか？ — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39237] erb コマンドが compile error になる — Kouhei Yanagita <sugi@...>

[#39239] Re: uriってどう使うんでしょうか？ — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39243] How about 'irb -I path'? — IKEGAMI Daisuke <ikegami@...>

[#39245] Re: uriってどう使うんでしょうか — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39248] Re: uriってどう使うんでしょうか — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39250] 気象庁の．．． Re: uriってどう使うんでしょうか — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39251] ipv6 patch for native win32 — "U.Nakamura" <usa@...>

[#39252] ruby-mode.el のインデントの問題 — Kouhei Yanagita <sugi@...>

[#39254] [ANN] Nora 0.0.20040222 released — MoonWolf <moonwolf@...>

[#39255] 気象庁の．．． Re: uriってどう使うんでしょうか — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39257] Re: 気象庁の．．． Re: uriってどう使うんでしょうか — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39260] File#path.tainted? — 堀川 久 <vzw00011@...>

[#39265] 1.8.1 の File.basename — FUJIMOTO Hisakuni <hisa@...>

[#39269] Ruby 0.95 — Masayoshi Takahashi <maki@...>

[#39270] OSX + REXML — Mitsuru Koyama <mit@...>

[#39273] Re: 気象庁の．．． Re: uriってどう使うんでしょうか — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39275] DnD on win32 — Shinichiro HIDA <shinichiro@...>

[#39286] Re: [ruby-dev:16312] Re: ライブラリ拡大計画 — "NAKAMURA, Hiroshi" <nakahiro@...>

[#39288] 固有値、固有ベクトルの計算 — Masahiro Sato <msato@...>

[ruby-list:39145] Re: InternetExplorer ってインターフェースとして使える？

Attachments (1)

Thread

In This Thread

[#39102] pstoreのバックアップファイルについて — 堀川久 <vzw00011@...>

[#39142] WORD　Graphのデータシートにデータを貼り付けようとしています — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39154] Re: WORD　Graphのデータシートにデータを貼り付けようとしています — Hideyuki Oya <h_oya@...7.dion.ne.jp>

[#39201] undefined reference to `impruby_safe_level' — EMOTO Masahiko <emo@...>

[#39260] File#path.tainted? — 堀川久 <vzw00011@...>