IXMLDOMImplementation

Example

var xmlDoc = new ActiveXObject("Msxml2.DOMDocument.4.0");
var oImplementation;
xmlDoc.async = false;
xmlDoc.load("books.xml");
oImplementation = xmlDoc.implementation;
alert(oImplementation.hasFeature("DOM", "1.0"));

Example

Dim xmlDoc As New Msxml2.DOMDocument40
Dim oImplementation As IXMLDOMImplementation
xmlDoc.async = False
xmlDoc.Load "books.xml"
Set oImplementation = xmlDoc.implementation
MsgBox oImplementation.hasFeature("DOM", "1.0")

Example

IXMLDOMImplementation *pIXMLDOMImplementation = NULL;
VARIANT_BOOL varbFlag ;
BSTR bstrOutput = NULL;
BSTR bstrFeature = ::SysAllocString(_T("MS-DOM"));
HRESULT hr;
IXMLDOMDocument *pIXMLDOMDocument = NULL;
   
try
{
   // Create an instance of DOMDocument and initialize pIXMLDOMDocument.
   // Load/create an XML fragment.
   hr = pIXMLDOMDocument->get_implementation(&pIXMLDOMImplementation);

   if(SUCCEEDED(hr) && pIXMLDOMImplementation)
   {
      hr = pIXMLDOMImplementation->hasFeature(bstrFeature, _T("1.0"), &varbFlag);
      if(varbFlag == VARIANT_TRUE )
         bstrOutput = ::SysAllocString(_T("Feature Supported"));
      else
         bstrOutput = ::SysAllocString(_T("Feature not Supported"));

      ::MessageBox(NULL, bstrOutput, bstrFeature, MB_OK);
      ::SysFreeString(bstrOutput);
      bstrOutput = NULL;
      ::SysFreeString(bstrFeature);
      bstrFeature = NULL;
      pIXMLDOMImplementation->Release();
   }
}
catch(...)
{
   if(bstrOutput)
      ::SysFreeString(bstrOutput);
   if(bstrFeature)
      ::SysFreeString(bstrFeature);
   if(pIXMLDOMImplementation)
      pIXMLDOMImplementation->Release();
   DisplayErrorToUser();
}
// Release pIXMLDOMDocument when finished using it.

Header and IDL files: msxml2.h, msxml2.idl