Feature #13828 » licensed_com.patch
ext/win32ole/win32ole.c | ||
---|---|---|
return Qnil;
|
||
}
|
||
#define OPTHASH_GIVEN_P(opts) \
|
||
(argc > 0 && !NIL_P((opts) = rb_check_hash_type(argv[argc-1])) && (--argc, 1))
|
||
/*
|
||
* Document-class: WIN32OLE
|
||
*
|
||
... | ... | |
/*
|
||
* call-seq:
|
||
* WIN32OLE.new(server, [host]) -> WIN32OLE object
|
||
* WIN32OLE.new(server, nil, license: 'key') -> WIN32OLE object
|
||
*
|
||
* Returns a new WIN32OLE object(OLE Automation object).
|
||
* The first argument server specifies OLE Automation server.
|
||
... | ... | |
* If second argument host specified, then returns OLE Automation
|
||
* object on host.
|
||
*
|
||
* If :license keyword argument is provided,
|
||
* IClassFactory2::CreateInstanceLic is used to create instance of
|
||
* licensed server.
|
||
*
|
||
* WIN32OLE.new('Excel.Application') # => Excel OLE Automation WIN32OLE object.
|
||
* WIN32OLE.new('{00024500-0000-0000-C000-000000000046}') # => Excel OLE Automation WIN32OLE object.
|
||
*/
|
||
... | ... | |
StringValuePtr(svr_name));
|
||
}
|
||
/* get IDispatch interface */
|
||
hr = CoCreateInstance(&clsid, NULL, CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER,
|
||
&IID_IDispatch, &p);
|
||
VALUE license_key = Qnil;
|
||
if (OPTHASH_GIVEN_P(others)) {
|
||
license_key = rb_hash_lookup(others, ID2SYM(rb_intern("license")));
|
||
}
|
||
if (license_key == Qnil) {
|
||
/* get IDispatch interface */
|
||
hr = CoCreateInstance(
|
||
&clsid,
|
||
NULL,
|
||
CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER,
|
||
&IID_IDispatch,
|
||
&p
|
||
);
|
||
} else {
|
||
IClassFactory2 * class_factory;
|
||
hr = CoGetClassObject(
|
||
&clsid,
|
||
CLSCTX_INPROC_SERVER | CLSCTX_LOCAL_SERVER,
|
||
NULL,
|
||
&IID_IClassFactory2,
|
||
(LPVOID)&class_factory
|
||
);
|
||
if (hr == S_OK) {
|
||
OLECHAR * key_buf = ole_vstr2wc(license_key);
|
||
hr = class_factory->lpVtbl->CreateInstanceLic(class_factory, NULL, NULL, &IID_IDispatch, key_buf, &p);
|
||
SysFreeString(key_buf);
|
||
class_factory->lpVtbl->Release(class_factory);
|
||
}
|
||
}
|
||
pDispatch = p;
|
||
if(FAILED(hr)) {
|
||
ole_raise(hr, eWIN32OLERuntimeError,
|
||
... | ... | |
ole_init_cp();
|
||
}
|
||
/* vim: set ts=8 sw=4 noexpandtab */
|