在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  sXML