* ext/win32ole/win32ole.c: add WIN32OLE#ole_respond_to?
* test/win32ole/test_win32ole.rb: ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@17885 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
1a32af4e7a
commit
1890ae7aa9
@ -1,3 +1,9 @@
|
|||||||
|
Sat Jul 5 09:55:44 2008 Masaki Suketa <masaki.suketa@nifty.ne.jp>
|
||||||
|
|
||||||
|
* ext/win32ole/win32ole.c: add WIN32OLE#ole_respond_to?
|
||||||
|
|
||||||
|
* test/win32ole/test_win32ole.rb: ditto.
|
||||||
|
|
||||||
Sat Jul 5 08:48:05 2008 Tanaka Akira <akr@fsij.org>
|
Sat Jul 5 08:48:05 2008 Tanaka Akira <akr@fsij.org>
|
||||||
|
|
||||||
* re.c (unescape_nonascii): add has_property argument not to
|
* re.c (unescape_nonascii): add has_property argument not to
|
||||||
|
@ -118,7 +118,7 @@
|
|||||||
|
|
||||||
#define WC2VSTR(x) ole_wc2vstr((x), TRUE)
|
#define WC2VSTR(x) ole_wc2vstr((x), TRUE)
|
||||||
|
|
||||||
#define WIN32OLE_VERSION "1.1.9"
|
#define WIN32OLE_VERSION "1.2.0"
|
||||||
|
|
||||||
typedef HRESULT (STDAPICALLTYPE FNCOCREATEINSTANCEEX)
|
typedef HRESULT (STDAPICALLTYPE FNCOCREATEINSTANCEEX)
|
||||||
(REFCLSID, IUnknown*, DWORD, COSERVERINFO*, DWORD, MULTI_QI*);
|
(REFCLSID, IUnknown*, DWORD, COSERVERINFO*, DWORD, MULTI_QI*);
|
||||||
@ -368,6 +368,7 @@ static VALUE ole_typelib_from_itypelib(ITypeLib *pTypeLib);
|
|||||||
static VALUE ole_typelib_from_itypeinfo(ITypeInfo *pTypeInfo);
|
static VALUE ole_typelib_from_itypeinfo(ITypeInfo *pTypeInfo);
|
||||||
static VALUE fole_typelib(VALUE self);
|
static VALUE fole_typelib(VALUE self);
|
||||||
static VALUE fole_query_interface(VALUE self, VALUE str_iid);
|
static VALUE fole_query_interface(VALUE self, VALUE str_iid);
|
||||||
|
static VALUE fole_respond_to(VALUE self, VALUE method);
|
||||||
static HRESULT ole_docinfo_from_type(ITypeInfo *pTypeInfo, BSTR *name, BSTR *helpstr, DWORD *helpcontext, BSTR *helpfile);
|
static HRESULT ole_docinfo_from_type(ITypeInfo *pTypeInfo, BSTR *name, BSTR *helpstr, DWORD *helpcontext, BSTR *helpfile);
|
||||||
static VALUE ole_usertype2val(ITypeInfo *pTypeInfo, TYPEDESC *pTypeDesc, VALUE typedetails);
|
static VALUE ole_usertype2val(ITypeInfo *pTypeInfo, TYPEDESC *pTypeDesc, VALUE typedetails);
|
||||||
static VALUE ole_ptrtype2val(ITypeInfo *pTypeInfo, TYPEDESC *pTypeDesc, VALUE typedetails);
|
static VALUE ole_ptrtype2val(ITypeInfo *pTypeInfo, TYPEDESC *pTypeDesc, VALUE typedetails);
|
||||||
@ -4374,6 +4375,32 @@ fole_query_interface(VALUE self, VALUE str_iid)
|
|||||||
return create_win32ole_object(cWIN32OLE, pDispatch, 0, 0);
|
return create_win32ole_object(cWIN32OLE, pDispatch, 0, 0);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/*
|
||||||
|
* call-seq:
|
||||||
|
* WIN32OLE#ole_respond_to?(method) -> true or false
|
||||||
|
*
|
||||||
|
* Returns true when OLE object has OLE method, otherwise returns false.
|
||||||
|
*
|
||||||
|
* ie = WIN32OLE.new('InternetExplorer.Application')
|
||||||
|
* ie.ole_respond_to?("gohome") => true
|
||||||
|
*/
|
||||||
|
static VALUE
|
||||||
|
fole_respond_to(VALUE self, VALUE method)
|
||||||
|
{
|
||||||
|
struct oledata *pole;
|
||||||
|
BSTR wcmdname;
|
||||||
|
DISPID DispID;
|
||||||
|
HRESULT hr;
|
||||||
|
rb_secure(4);
|
||||||
|
Check_SafeStr(method);
|
||||||
|
OLEData_Get_Struct(self, pole);
|
||||||
|
wcmdname = ole_vstr2wc(method);
|
||||||
|
hr = pole->pDispatch->lpVtbl->GetIDsOfNames( pole->pDispatch, &IID_NULL,
|
||||||
|
&wcmdname, 1, cWIN32OLE_lcid, &DispID);
|
||||||
|
SysFreeString(wcmdname);
|
||||||
|
return SUCCEEDED(hr) ? Qtrue : Qfalse;
|
||||||
|
}
|
||||||
|
|
||||||
static HRESULT
|
static HRESULT
|
||||||
ole_docinfo_from_type(ITypeInfo *pTypeInfo, BSTR *name, BSTR *helpstr, DWORD *helpcontext, BSTR *helpfile)
|
ole_docinfo_from_type(ITypeInfo *pTypeInfo, BSTR *name, BSTR *helpstr, DWORD *helpcontext, BSTR *helpfile)
|
||||||
{
|
{
|
||||||
@ -8331,6 +8358,7 @@ Init_win32ole()
|
|||||||
rb_define_alias(cWIN32OLE, "ole_obj_help", "ole_type");
|
rb_define_alias(cWIN32OLE, "ole_obj_help", "ole_type");
|
||||||
rb_define_method(cWIN32OLE, "ole_typelib", fole_typelib, 0);
|
rb_define_method(cWIN32OLE, "ole_typelib", fole_typelib, 0);
|
||||||
rb_define_method(cWIN32OLE, "ole_query_interface", fole_query_interface, 1);
|
rb_define_method(cWIN32OLE, "ole_query_interface", fole_query_interface, 1);
|
||||||
|
rb_define_method(cWIN32OLE, "ole_respond_to?", fole_respond_to, 1);
|
||||||
|
|
||||||
rb_define_const(cWIN32OLE, "VERSION", rb_str_new2(WIN32OLE_VERSION));
|
rb_define_const(cWIN32OLE, "VERSION", rb_str_new2(WIN32OLE_VERSION));
|
||||||
rb_define_const(cWIN32OLE, "ARGV", rb_ary_new());
|
rb_define_const(cWIN32OLE, "ARGV", rb_ary_new());
|
||||||
|
@ -246,6 +246,16 @@ if defined?(WIN32OLE)
|
|||||||
assert_instance_of(WIN32OLE, shell2)
|
assert_instance_of(WIN32OLE, shell2)
|
||||||
end
|
end
|
||||||
|
|
||||||
|
def test_ole_respond_to
|
||||||
|
fso = WIN32OLE.new('Scripting.FileSystemObject')
|
||||||
|
assert(fso.ole_respond_to?('getFolder'))
|
||||||
|
assert(fso.ole_respond_to?('GETFOLDER'))
|
||||||
|
assert(!fso.ole_respond_to?('XXXXX'))
|
||||||
|
assert_raise(TypeError) {
|
||||||
|
assert_raise(fso.ole_respond_to?(1))
|
||||||
|
}
|
||||||
|
end
|
||||||
|
|
||||||
def test_s_const_load
|
def test_s_const_load
|
||||||
assert(!defined?(CONST1::SsfWINDOWS))
|
assert(!defined?(CONST1::SsfWINDOWS))
|
||||||
shell=WIN32OLE.new('Shell.Application')
|
shell=WIN32OLE.new('Shell.Application')
|
||||||
|
Loading…
x
Reference in New Issue
Block a user