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;