在delphi中使用xml文档有两种方法
　　使用xml broker, 是delphi 内置的。例:
　　unit ShowXML;
　　interface
　　uses Classes  HTTPApp  Db  DbClient  Midas 
　　  XMLBrokr  WebComp  MidItems;
　　type
　　  TCustomShowXMLButton = class(TXMLButton  IScriptComponent)
　　  protected
　　    XMLMethodName: string;
　　    { IScriptComponent }
　　    procedure AddElements(AddIntf: IAddScriptElements);
　　    function GetSubComponents: TObject;
　　    { IWebContent implementation }
　　    function ImplContent(Options: TWebContentOptions;
　　      ParentLayout: TLayout): string; override;
　　  end;
　　  TShowXMLButton = class(TCustomShowXMLButton)
　　  public
　　    constructor Create(AOwner: TComponent); override;
　　  published
　　    property Custom;
　　    property Style;
　　    property StyleRule;
　　    property Caption;
　　    property XMLBroker;
　　    property XMLUseParent;
　　  end;
　　  TShowDeltaButton = class(TCustomShowXMLButton)
　　  public
　　    constructor Create(AOwner: TComponent); override;
　　  published
　　    property Custom;
　　    property Style;
　　    property StyleRule;
　　    property Caption;
　　    property XMLBroker;
　　    property XMLUseParent;
　　  end;
　　implementation
　　uses sysutils  MidProd;
　　resourcestring 
　　  sShowXML = 'Show XML';
　　  sShowDelta = 'Show Delta';
　　procedure TCustomShowXMLButton.AddElements(
　　  AddIntf: IAddScriptElements);
　　begin
　　  AddIntf.AddIncludeFile('xmlshow.js');
　　end;
　　function TCustomShowXMLButton.GetSubComponents: TObject;
　　begin
　　  Result := nil;
　　end;
　　function TCustomShowXMLButton.ImplContent(Options: TWebContentOptions;
　　  ParentLayout: TLayout): string;
　　var
　　  Attrs: string;
　　  Intf: ILayoutWebContent;
　　  FormVarName: string;
　　  RowSetVarName: string;
　　begin
　　  AddQuotedAttrib(Attrs  'NAME'  Name);
　　  AddQuotedAttrib(Attrs  'STYLE'  Style);
　　  AddQuotedAttrib(Attrs  'CLASS'  StyleRule);
　　  AddQuotedAttrib(Attrs  'VALUE'  Self.Caption);
　　  AddCustomAttrib(Attrs  Custom);
　　  if Assigned(XMLData.XMLBroker) then
　　  begin
　　    FormVarName := XMLData.XMLBroker.SubmitFormVarName;
　　    RowSetVarName := XMLData.XMLBroker.RowSetVarName(nil);  // Row row set var name
　　  end;
　　  if not (coNoScript in Options.Flags) then
　　    Result :=
　　      Format(''#13#10 
　　        [Attrs  RowSetVarName  XMLMethodName  sXMLReadyVar])
　　  else
　　    Result :=
　　      Format(''#13#10 
　　        [Attrs]);
　　  if Assigned(ParentLayout) and ParentLayout.GetInterface(ILayoutWebContent  Intf) then
　　    Result := Intf.LayoutButton(Result  GetLayoutAttributes);
　　end;
　　{ TShowXMLButton }
　　constructor TShowXMLButton.Create(AOwner: TComponent);
　　begin
　　  inherited;
　　  DefaultCaption := sShowXML;
　　  XMLMethodName := 'root';
　　end;
　　{ TShowDeltaButton }
　　constructor TShowDeltaButton.Create(AOwner: TComponent);
　　begin
　　  inherited;
　　  DefaultCaption := sShowDelta;
　　  XMLMethodName := 'getDelta()';
　　end;
　　另一种方法使用msxml.dll 如下:
　　....
　　....
　　procedure TDHEDForm.OpenBtnClick(Sender: TObject);
　　var
　　 pVIn : OleVariant;
　　 Prompt : OleVariant;
　　begin
　　  pVIn := '';
　　  Prompt := True;
　　  DHtmlEdit1.LoadDocument(pVIn  Prompt);
　　end;
　　procedure TDHEDForm.SaveBtnClick(Sender: TObject);
　　var
　　  vo  vb : OleVariant;
　　begin
　　  vo := DHTMLEdit1.CurrentDocumentPath;
　　  if (vo '') then 
　　  begin
　　     vb := false;
　　  end 
　　  else 
　　  begin
　　     vo := '';
　　     vb := true;
　　  end;                                          
　　  DHTMLEdit1.SaveDocument(vo  vb);
　　end;
　　procedure TDHEDForm.SaveAsClick(Sender: TObject);
　　var
　　  vo  vb : OleVariant;
　　begin
　　  vo := '';
　　  vb := true;   
　　  DHTMLEdit1.SaveDocument(vo  vb);
　　end;
　　...