Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
COM: Uninitalizing COM objects 3 2004-01-18 -- Andy Ireland Newsgroups: softvelocity.public.clarion6
Hi Carl,
> > When I looked an the CComInitter Destruct method it does not appear to call
> > CoUNinit if S_False was returned for the CoInit.
>
> It's a bug then.
My current code is correct so it's a left over bug from a long time ago.
There are quite a few bugs in the old code that were fixed years ago. My
current code is....
PWCOMIniter.Construct procedure
code
compile('_PWU_', _PWUtil_)
CoUninitialize()
CoFreeAllLibraries()
self.hr = CoInitializeEx(0, COINIT_MULTITHREADED)
_PWU_
omit('_PWU_', _PWUtil_)
self.hr = CoInitialize(0)
_PWU_
if self.hr = S_FALSE or self.hr = S_OK
self.hr = S_OK
self.fInitialised = true
end
PWCOMIniter.Destruct procedure
code
if self.fInitialised
CoUninitialize()
self.fInitialised = false
end
Regards
Andy
Today is April 25, 2024, 6:39 pm This article has been viewed 35115 times. Google search has resulted in 5 hits on this article since January 25, 2004.
|
|