{"id":196,"date":"2007-05-12T16:54:54","date_gmt":"2007-05-12T14:54:54","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/activex-ms-testcontainer-doesnt-close-delphi-activex\/"},"modified":"2007-05-12T16:54:55","modified_gmt":"2007-05-12T14:54:55","slug":"activex-ms-testcontainer-doesnt-close-delphi-activex","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/activex-ms-testcontainer-doesnt-close-delphi-activex\/","title":{"rendered":"ActiveX: MS Testcontainer doesn&#8217;t close Delphi ActiveX"},"content":{"rendered":"<p>MS Testcontainer doesn&#8217;t close whith Delphi ActiveX.<br \/>\nSame problem in MS C++<\/p>\n<p>Solution:<br \/>\n&#8211; look in the source AxCtrls.pas<br \/>\n&#8211; look at the &#8220;function TActiveXControl.ObjQueryInterface(&#8221;<br \/>\n&#8211; there&#8217;s a work-a-round for a bug in MS Access 97 included.<br \/>\n  if you comment this part out the delphi ActiveX works like it should with C++<\/p>\n<p>[code lang=&#8221;delphi&#8221;]      if IsEqualGuid(IID, IOleLink) then<br \/>\n      begin<br \/>\n        \/\/ Work around for an MS Access 97 bug that requires IOleLink<br \/>\n        \/\/ to be stubbed.<br \/>\n        { comment out for work with c++ \/ testcontainer<br \/>\n        Pointer(Obj) := nil;<br \/>\n        IOleLink(Obj) := TOleLinkStub.Create(Self);<br \/>\n        }<br \/>\n      end<br \/>\n[\/code]<\/p>\n<p>[tags]Delphi, Misc, ActiveX[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"<p>MS Testcontainer doesn&#8217;t close whith Delphi ActiveX. Same problem in MS C++ Solution: &#8211; look in the source AxCtrls.pas &#8211; look at the&hellip;<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[115,75,107],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-3a","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/196"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=196"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/196\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=196"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=196"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=196"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}