dcsimg
September 23, 2018
Hot Topics:

Persist ActiveX Controls At Runtime

  • February 14, 2000
  • By Lee Marmara
  • Send Email »
  • More Articles »

I was writing a piece of code to store and load user preferences and wanted to persist the properties of some ActiveX controls on my dialog. The following procedure seems to do the job rather nicely.

BOOL PersistActiveX(CArchive& ar, CWnd* pActiveX)
{
 ASSERT(pActiveX);

 HRESULT hr = E_FAIL;

 // Create an archive stream
 CArchiveStream stm(&ar);
 LPPERSISTSTREAMINIT pPersStm = NULL;
 LPUNKNOWN lpUnk = pActiveX->GetControlUnknown();

 if(lpUnk)
 {
  // We have the IUnknown interface, so 
  // get the IPersistStreamInit
  lpUnk->QueryInterface(IID_IPersistStreamInit, 
                        (LPVOID*)&pPersStm);

  if(pPersStm)
  {
   // We have the relevant interface so load or save the data
   // based on the type of archive we have.
   if(ar.IsLoading())
   {
    hr = pPersStm->Load(&stm);
   }
   else
   {
    hr = pPersStm->Save(&stm, FALSE);
   }
  }

  // Must release the interface
  pPersStm->Release();
 }

 return SUCCEEDED(hr);
}
This can then be called simply by doing the following:
PersistActiveX(ar, GetDlgItem(IDC_SOMEACTIVEX));






Comment and Contribute

 


(Maximum characters: 1200). You have characters left.

 

 


Enterprise Development Update

Don't miss an article. Subscribe to our newsletter below.

By submitting your information, you agree that developer.com may send you developer offers via email, phone and text message, as well as email offers about other products and services that developer believes may be of interest to you. developer will process your information in accordance with the Quinstreet Privacy Policy.

Sitemap

Thanks for your registration, follow us on our social networks to keep up-to-date