**************如何读XML文件

Question

把里面有2.xsl那一行删除，然后双击即可在ie中打开。

Answer 1

显示是显示了，不过不是在csdn上所看到的样子了

Answer 2

http://www.csdn.net/help/help.asp?bigclass=论坛帮助&smallclass=论坛使用#CSDN论坛的XML文件保存及离线查看方法

Answer 3

用MSXML.DLL库来做服务器端XML解析。你需要import这个Microsoft库到Delphi中。在OnAction事件中加入代码：procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean(;
var
  doc : IXMLDOMDocument;
  ElemList: IXMLDOMNodeList;
  x, y:integer;
  begin
    Doc:= CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
    Doc.loadXML (Request.ContentFields.Text );
    ElemList:= Doc.getElementsByTagName ('varX'):
    x:= StrtoIntDef(ElemList.item[0].text,0);
    ElemList:= Doc.getElementsByTagName ('varY);
    y:= StrtoIntDef(ElemList.item[0].text,0);
    Response.content:= #10+#13+InttoStr(x+y) ;
  end;
以下网页有完整的讲解：
http://community.borland.com/article/0,1410,27106,00.html

Answer 4

用MSXML.DLL库来做服务器端XML解析。你需要import这个Microsoft库到Delphi中。在OnAction事件中加入代码：procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean(;
var
  doc : IXMLDOMDocument;
  ElemList: IXMLDOMNodeList;
  x, y:integer;
  begin
    Doc:= CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
    Doc.loadXML (Request.ContentFields.Text );
    ElemList:= Doc.getElementsByTagName ('varX'):
    x:= StrtoIntDef(ElemList.item[0].text,0);
    ElemList:= Doc.getElementsByTagName ('varY);
    y:= StrtoIntDef(ElemList.item[0].text,0);
    Response.content:= #10+#13+InttoStr(x+y) ;
  end;
以下网页有完整的讲解：
http://community.borland.com/article/0,1410,27106,00.html

Answer 5

用MSXML.DLL库来做服务器端XML解析。你需要import这个Microsoft库到Delphi中。在OnAction事件中加入代码：procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean(;
var
  doc : IXMLDOMDocument;
  ElemList: IXMLDOMNodeList;
  x, y:integer;
  begin
    Doc:= CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
    Doc.loadXML (Request.ContentFields.Text );
    ElemList:= Doc.getElementsByTagName ('varX'):
    x:= StrtoIntDef(ElemList.item[0].text,0);
    ElemList:= Doc.getElementsByTagName ('varY);
    y:= StrtoIntDef(ElemList.item[0].text,0);
    Response.content:= #10+#13+InttoStr(x+y) ;
  end;
以下网页有完整的讲解：
http://community.borland.com/article/0,1410,27106,00.html

Answer 6

用MSXML.DLL库来做服务器端XML解析。你需要import这个Microsoft库到Delphi中。在OnAction事件中加入代码：procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean(;
var
  doc : IXMLDOMDocument;
  ElemList: IXMLDOMNodeList;
  x, y:integer;
  begin
    Doc:= CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
    Doc.loadXML (Request.ContentFields.Text );
    ElemList:= Doc.getElementsByTagName ('varX'):
    x:= StrtoIntDef(ElemList.item[0].text,0);
    ElemList:= Doc.getElementsByTagName ('varY);
    y:= StrtoIntDef(ElemList.item[0].text,0);
    Response.content:= #10+#13+InttoStr(x+y) ;
  end;
以下网页有完整的讲解：
http://community.borland.com/article/0,1410,27106,00.html

Answer 7

如果想显示成csdn的样子，可以把那个2.xsl下载下来，
xml里的路径信息改改，再在ie里打开即可。
(不过我个人更喜欢未格式化过的文档)