how to implement atl.dll's function AtlAxAttachControl in freepascal?

[zzsczz]

AtlAxAttachControl  can create an interface from a coclass and show it on an windows.









the atl's  code is :




ATLINLINE ATLAPI AtlAxAttachControl(IUnknown* pControl, HWND hWnd, IUnknown** ppUnkContainer)
{
   AtlAxWinInit();
   if (pControl == NULL)
      return E_INVALIDARG;
   CComPtr<IUnknown> spUnkContainer;


   HRESULT hr = CAxHostWindow::_CreatorClass::CreateInstance(NULL, __uuidof(IUnknown), (void**)&spUnkContainer);
   if (SUCCEEDED(hr))
   {
      CComPtr<IAxWinHostWindow> spAxWindow;
      hr = spUnkContainer->QueryInterface(&spAxWindow);
      if (SUCCEEDED(hr))
         hr = spAxWindow->AttachControl(pControl, hWnd);
   }
   if (ppUnkContainer != NULL)
   {
      *ppUnkContainer = SUCCEEDED(hr) ? spUnkContainer.Detach() : NULL;
   }
   return hr;
}

[ludob]

Are you looking for this http://lazarus.freepascal.org/index.php/topic,9311.15/topicseen.html? Drop a panel on the form, run the code and the ActiveX control will be displayed on the panel.
The original demo at http://lists.lazarus.freepascal.org/pipermail/lazarus/2011-May/063491.html shows also how to sink events coming from the ActiveX control.

[zzsczz]

Are you looking for this http://lazarus.freepascal.org/index.php/topic,9311.15/topicseen.html? Drop a panel on the form, run the code and the ActiveX control will be displayed on the panel.
The original demo at http://lists.lazarus.freepascal.org/pipermail/lazarus/2011-May/063491.html shows also how to sink events coming from the ActiveX control.

Function  AtlAxAttachControl  could be written by  freepascal to remove  the dependence of atl.dll 

input args :
1 an interface of FactoryClass ( the  coClass) of the activex control
2 handle of the  window  to which the  activex control was attached to
3 ??nil



 

[ludob]

Yes, please, do go ahead
 
A good starting point is here http://doxygen.reactos.org/da/de4/atl__ax_8c_source.html. Don't forget that the implementation of IOleControlSite, IOleClientSite and IOleInPlaceSite is also missing.

BTW. Have you found a windows version that doesn't come with atl.dll out of the box?