Delphi 7でMSXML 6.0を使用してTXMLドキュメントを作成するには？

Question

Delphi 7がリリースされたときにMSXML 6.0が存在しませんでした。古いバージョンではなく、MSXML 6.0を使用するようにDelphiのTXMLドキュメントを設定することは可能ですか？

Answer 1

ユニット名uMSXMLVersionまたはお好みの名前に以下のコードを追加し、プロジェクトに追加するには

{----------------------------------------------------------------------------  
    Set Delphi's XMLDocument to use MSXML v6.0 

    Usage: Include unit in project "uses"-list and Delphi will automatically use 
      MSXML v6.0 for TXmlDocument. 
-----------------------------------------------------------------------------} 
unit uMSXMLVersion; 

interface 

implementation 

uses ActiveX, MSXML, MSXMLDOM; 

function CreateDOMDocumentEx: IXMLDOMDocument; 
const 
    CLASS_DOMDocument60: TGUID = '{88D96A05-F192-11D4-A65F-0040963251E5}'; 
begin 
    Result := nil; 
    if CoCreateInstance(CLASS_DOMDocument60, nil, CLSCTX_INPROC_SERVER or 
    CLSCTX_LOCAL_SERVER, IXMLDOMDocument, Result) <> S_OK then 
    Result := CreateDOMDocument; //call the default implementation 
end; 

initialization 
    MSXMLDOMDocumentCreate := CreateDOMDocumentEx; 

end. 

Answer 2

を使用していますmsxmldom.pasユニットを使用すると、例えば、にカスタムハンドラを割り当てることができます公共MSXMLDOMDocumentCreateフックを公開します：

uses 
    ..., msxmldom; 

const 
    CLASS_DOMDocument60: TGUID = '{88D96A05-F192-11D4-A65F-0040963251E5}'; 

function CreateMSXML6Document: IXMLDOMDocument; 
var 
    Disp: IDispatch; 
begin 
    OleCheck(CoCreateInstance(CLASS_DOMDocument60, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IDispatch, Disp)); 
    Result := Disp as IXMLDOMDocument; 
    if not Assigned(Result) then 
    raise DOMException.Create('MSXML 6.0 Not Installed'); 
end; 

initialization 
    msxmldom.MSXMLDOMDocumentCreate := CreateMSXML6Document;