equal
deleted
inserted
replaced
105 |
105 |
106 "Modified: / 30-03-2016 / 02:28:15 / cg" |
106 "Modified: / 30-03-2016 / 02:28:15 / cg" |
107 ! |
107 ! |
108 |
108 |
109 test03_CreateInstance |
109 test03_CreateInstance |
110 |guid iDispatch iWebBrowser iWebBrowserApp iWebBrowser2| |
110 |guid iDispatch iWebBrowser iWebBrowserApp iWebBrowser2 |
|
111 ids visibleID params result| |
111 |
112 |
112 guid := (GUID clsidFromProgID:'InternetExplorer.Application'). |
113 guid := (GUID clsidFromProgID:'InternetExplorer.Application'). |
113 self assert:(guid notNil). |
114 self assert:(guid notNil). |
114 self assert:(guid printString = '{0002DF01-0000-0000-C000-000000000046}'). |
115 self assert:(guid printString = '{0002DF01-0000-0000-C000-000000000046}'). |
115 |
116 |
131 |
132 |
132 iWebBrowser2 := iWebBrowserApp queryInterface: IWebBrowser2 iid. |
133 iWebBrowser2 := iWebBrowserApp queryInterface: IWebBrowser2 iid. |
133 self assert:(iWebBrowser2 notNil). |
134 self assert:(iWebBrowser2 notNil). |
134 iWebBrowserApp release. |
135 iWebBrowserApp release. |
135 |
136 |
|
137 "/ iWebBrowser2 setProperty:'Visible' value:true. |
136 self halt. |
138 self halt. |
137 iWebBrowser2 setProperty:'Visible' value:true. |
139 ids := iWebBrowser2 getIDsOfNames:(Array with:'Visible'). |
|
140 visibleID := ids first. |
|
141 |
|
142 params := OLE_DISPPARAMS new. |
|
143 params cArgs: 0. |
|
144 result := iDispatch invokePropertyGet: visibleID with:params. |
138 self halt. |
145 self halt. |
139 |
146 |
140 iWebBrowser2 release. |
147 iWebBrowser2 release. |
141 |
148 |
142 |
149 |
143 " |
150 " |
144 self new test03_CreateInstance |
151 self new test03_CreateInstance |
145 " |
152 " |
146 |
153 |
147 "Created: / 30-03-2016 / 02:29:19 / cg" |
154 "Created: / 30-03-2016 / 02:29:19 / cg" |
148 "Modified: / 30-03-2016 / 03:33:51 / cg" |
155 "Modified: / 30-03-2016 / 03:43:46 / cg" |
149 ! ! |
156 ! ! |
150 |
157 |
151 !Win32OLETests class methodsFor:'documentation'! |
158 !Win32OLETests class methodsFor:'documentation'! |
152 |
159 |
153 version |
160 version |