怎样保存xmlhttp.responseXML返回的信息

Question

怎样保存xmlhttp.responseXML返回的信息 

Answer 1

保存是什么意思？存成文件？用TStringList不就行了？

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ComObj,ActiveX, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
result2:TStringList;
xmlobj:OleVariant;
Result:olevariant;
begin
  try
//      result2.Create('');
      xmlobj:=CreateOleObject('Microsoft.XMLHTTP');
      xmlobj.open( 'Get', 'http://www.baidu.com/', False);
      xmlobj.send();
  //    xmlobj.Response.ContentType := 'text/xml';
       Result2:=xmlobj.ResponseXML;
//代码在这里出错了。我想从网站抓取网页信息，并且以XML文档的形式返回       
  result2.savetofile('C:\abc.xml')
   showmessage(result)  //    memo1.Text :=Result;
except
     showmessage('失败')
   end;
end;

Answer 3

Result2.Text := xmlobj.ResponseText;

Answer 4

这个我知道啊。我是想返回的信息以XML文档保存。用mlobj.ResponseText返回的信息其实就是网页的源码

Answer 5

XML的格式是严谨的,你认为网站返回的HTML都符合XML标准吗?

Answer 6

我不知道，我以为xmlobj.ResponseXML用他去抓取网页，返回的就是XML