我正在从 a government web-site 获取一些 XML :

http://www.bankofcanada.ca/stats/assets/rates_rss/noon/en_all.xml

我正在使用以下相当简单的代码:

var
   szUrl: string;
   http: IXMLHTTPRequest;
begin
   szUrl := 'http://www.bankofcanada.ca/stats/assets/rates_rss/noon/en_all.xml';

   http := CoXMLHTTP60.Create;
   http.open('GET', szUrl, False, '', '');
   http.send(EmptyParam);

   Assert(http.Status = 200);

   Memo1.Lines.Add('HTTP/1.1 '+IntToStr(http.status)+' '+http.statusText);
   Memo1.Lines.Add(http.getAllResponseHeaders);
   Memo1.Lines.Add(http.responseText);

我不会显示所有返回的正文，但它会在 responseText 中返回有效的 xml:

HTTP/1.1 200 OK
Cache-Control: max-age=5
Connection: keep-alive
Connection: Transfer-Encoding
Date: Fri, 30 Mar 2012 14:50:50 GMT
Transfer-Encoding: chunked
Content-Type: text/html; charset=UTF-8
Expires: Fri, 30 Mar 2012 14:50:55 GMT
Server: Apache/2.2.16 (Unix) PHP/5.3.3 mod_ssl/2.2.16 OpenSSL/1.0.0d mod_perl/2.0.4 Perl/v5.12.0
X-Powered-By: PHP/5.3.3


<?xml version="1.0" encoding="ISO-8859-1"?>
<rdf:RDF
    xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
    xmlns="http://purl.org/rss/1.0/"
    xmlns:cb="http://www.cbwiki.net/wiki/index.php/Specification_1.1"
    xmlns:dc="http://purl.org/dc/elements/1.1/"
    xmlns:dcterms="http://purl.org/dc/terms/"
    xmlns:xsi="http://www.w3c.org/2001/XMLSchema-instance"
    xsi:schemaLocation="http://www.w3c.org/1999/02/22-rdf-syntax-ns#rdf.xsd">
    <channel rdf:about="http://www.bankofcanada.ca/stats/assets/rates_rss/noon/en_ALL.xml">
        <title xml:lang="en">Bank of Canada: Noon Foreign Exchange Rates</title>
        <link>http://www.bankofcanada.ca/rates/exchange/noon-rates-5-day/</link>

好的，很好，里面有有效的 xml。我知道它是有效的，因为...好吧，看看它。但我也知道通过解析它是有效的:

var
   ...
   szXml: WideString;
   doc: DOMDocument60;
begin
   ...
   szXml := http.responseText;
  
   doc.loadXML(szXml);
   Assert(doc.parseError.errorCode = 0);

   Memo1.Lines.Add('============parsed xml');
   Memo1.Lines.Add(doc.xml);

原文IXmlHttpRequest包含 responseXml属性(property)。来自 MSDN:

Represents the parsed response entity body.

If the response entity body is not valid XML, this property returns DOMDocument that was parsed so that you can access the error. This property does not return IXMLDOMParseError itself, but it is accessible from DOMDocument.

在我的例子中，responseXml 属性存在，它应该存在:

Assert(http.responseXml <> nil);

并且没有responseText解析错误:

doc := http.responseXml as DOMDocument60;
Assert(doc.parseError.errorCode = 0);

应该有，因为 xml 是有效的。

除了当我查看 http.responseXml 文档对象时，它是空的:

   Memo1.Lines.Add('============responseXml');
   Memo1.Lines.Add(doc.xml);

IXMLHttpRequest(和 IXMLServerHttpRequest)返回一个空的 XML 文档，当:

• 有xml
• xml 有效
• 没有解析错误

长格式:

uses
    msxml2_tlb;

procedure TForm1.Button1Click(Sender: TObject);
var
    szUrl: string;
    http: IXMLHTTPRequest;
    doc: DOMDocument60;
begin
    szUrl := 'http://www.bankofcanada.ca/stats/assets/rates_rss/noon/en_all.xml';

    http := CoXMLHTTP60.Create; //or CoServerXmlHttpRequest.Create
    http.open('GET', szUrl, False, '', '');
    http.send(EmptyParam);

    Assert(http.Status = 200);

    doc := http.responseXml as DOMDocument60;
    Assert(doc.parseError.errorCode = 0);

    ShowMessage('"'+doc.xml+'"');
end;

我如何制作 XmlHttpRequest (更重要的是 ServerXMLHTTP60 )表现得像记录的那样？

最佳答案

我我发现了问题

我用过Fiddler将 http 响应保存到文本文件。之后，我可以修改响应文件，并指示 fiddler 提供我手工制作的替代方案，而不是转到原始网站。

经过 3 个小时的摆弄，我设法在原始 http 响应 header 中找到了问题:

HTTP/1.1 200 OK
Cache-Control: max-age=5
Connection: keep-alive
Connection: Transfer-Encoding
Date: Fri, 30 Mar 2012 14:50:50 GMT
Transfer-Encoding: chunked
Content-Type: text/html; charset=UTF-8
Expires: Fri, 30 Mar 2012 14:50:55 GMT
Server: Apache/2.2.16 (Unix) PHP/5.3.3 mod_ssl/2.2.16 OpenSSL/1.0.0d mod_perl/2.0.4 Perl/v5.12.0
X-Powered-By: PHP/5.3.3

应该是:

HTTP/1.1 200 OK
Cache-Control: max-age=5
Connection: keep-alive
Connection: Transfer-Encoding
Date: Fri, 30 Mar 2012 14:50:50 GMT
Transfer-Encoding: chunked
Content-Type: text/xml; charset=UTF-8
Expires: Fri, 30 Mar 2012 14:50:55 GMT
Server: Apache/2.2.16 (Unix) PHP/5.3.3 mod_ssl/2.2.16 OpenSSL/1.0.0d mod_perl/2.0.4 Perl/v5.12.0
X-Powered-By: PHP/5.3.3

一旦我发现了问题，我就能够回头找到 the documentation that explain the behavior :

The supported MIME types for MSXML 6.0 are:

• "text/xml"
• "application/xml"
• or anything that ends with "+xml", for example "application/rss+xml"

我正在获取的 RSS 提要实际上是一个 Resource Definition Format (RDF) feed ，内容类型应该是:

application/rdf+xml

他们的用途:

text/html

在很多层面上都是错误的。

所以我遇到的行为是设计使然；虽然令人沮丧 - 因为没有简单的方法可以知道 responseXml 是否“有效”。

• 将分配 responseXml 对象
• 将分配parseError 对象
• parseError.ErrorCode 为零
• responseXml.documentElement 将为零

关于xml - 当 responseText 包含有效的 Xml 时，IXMLHttpRequest.responseXml 为空，没有解析错误，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/9945670/