107 !

   108 

   109 test03_CreateInstance

   110     |guid iDispatch iWebBrowser iWebBrowserApp iWebBrowser2|

   111 

   112     guid := (GUID clsidFromProgID:'InternetExplorer.Application'). 

   113     self assert:(guid notNil).

   114     self assert:(guid printString = '{0002DF01-0000-0000-C000-000000000046}').

   115 

   116     iDispatch := IClassFactory 

   117                 createInstance:guid

   118                 iid: (OLEInterface oleConstantAt:'IID_IDispatch')

   119                 controllingUnknown:nil

   120                 context:(OLEInterface oleConstantAt:'CLSCTX_ALL').

   121     self assert:(iDispatch notNil).

   122 

   123     self assert:(iDispatch hasTypeInfo).

   124     iWebBrowser := iDispatch queryInterface: IWebBrowser iid.

   125     self assert:(iWebBrowser notNil).

   126     iDispatch release.

   127 

   128     iWebBrowserApp := iWebBrowser queryInterface: IWebBrowserApp iid.

   129     self assert:(iWebBrowserApp notNil).

   130     iWebBrowser release.

   131 

   132     iWebBrowser2 := iWebBrowserApp queryInterface: IWebBrowser2 iid.

   133     self assert:(iWebBrowser2 notNil).

   134     iWebBrowserApp release.

   135 

   136 self halt.

   137     iWebBrowser2 release.

   138 

   139     "

   140      self new test03_CreateInstance

   141     "

   142 

   143     "Created: / 30-03-2016 / 02:29:19 / cg"