使用 Indy 的 IDTCPClient 从响应流中获取 XML 字符串

Question

我作为新员工接手的组件需要帮助，任务是向组件添加新方法。该组件使用 idTCPClient 而不是 idHTTP。原因请参见下面两个问题的回答。

Getting XML from response stream using Indy's IDTCPClient

Getting HTML from response stream using Indy's IDTCPClient

是的 Remy & Jerry，我已经开始重写组件以使用 tidHTTP 而不是 idTCPClient，但我是在自己的空闲时间而不是公司时间做的。所以，我需要今晚完成它。好的，回到这篇文章。

调用下面的get函数，得到如下响应

HTTP/1.0 200 OK 
Content-Length: 2069
Date: Wed, 20 Nov 2013 15:00:11 GMT
Content-Type: text/xml; charset=UTF-8


function TMyConnector.GET(aRawHeader: String): String;
begin

 if Not Connected then Connected := True;
if Connected then
  begin
  FRawRequest :=  'GET /'+ EncodeUrl(aRawHeader) + ' HTTP/'+HTTPVerText+#13#10+
                  'Host: '+FHost+#13#10+

                  'Cookie: UserHPos=IOGLO00003000090000C000BS; '+
                  'LOSID=qsBiy/wEDCq6tOXFzGbOlTD1lmo5AXdFnCkbzzPn6+qCeheYVyTcumRrjsqh+Hds4Fr2gZDazfDzGN1RA+nnHuQQeBy78ZUgctrZyyy9MnGl2qI/ulkV6EPxAfmmLg/lopRq99f5gAcG/dgtytAJjS+aD5DqtHGrAqjiqgtkwuA=; '+
                  'LoginHPos=IOGLO00003000090000C000BS; '+
                  'UIHPos=IOGLO00003000020000500003; '+
                  'LOSG=61939308-7C83-47ED-B909-2D2D10AD7026; '+
                  'fControllingBusiness=IOGLO000030000900001000050000200001'+#13#10+

                  'Connection: Close'+#13#10+
                  #13#10;

   FSock.Socket.Write(FRawRequest);
   FRawResponse := FSock.Socket.ReadLn(#13#10#13#10,nil);

  Result := FRawResponse;

  if ResponseStream = nil then ResponseStream := TMemoryStream.Create
   else ResponseStream.SetSize(0);

   FSock.Socket.ReadStream(ResponseStream,-1,True);

  if Connected and (Not KeepAlive) then Connected := False;
  end;
end;

我现在如何从 responseStream 中获取 XML 字符串？

现有的 JSON 方法已经存在

Procedure TMyConnector.GenerateJSON;
begin
if ResponseStream <> nil then
  Begin
   ResponseJSON_V := TJSONObject.ParseJSONValue(StreamToArray(ResponseStream),0) as TJSONValue;
  End;
end;

我想为 XML 创建一个方法，我尝试了以下方法：

Procedure TMyConnector.GenerateXML;
var
 S: String;
begin
if ResponseStream <> nil then
   // code here to convert ResponseStream to XML
    ResponseXML_v:= S;
end;

Answer 1

我现在如何从 responseStream 中获取 XML 字符串？

好吧，至少你必须从 responseStream 中读取一些数据。 但是您没有在 GenerateXML 代码中阅读它。

• http://docwiki.embarcadero.com/Libraries/XE5/en/System.Classes.TStringStream
• http://docwiki.embarcadero.com/RADStudio/XE5/en/Using_TEncoding_for_Unicode_Files

.

Procedure TMyConnector.GenerateXML;
var
 S: String; SS: TStringStream;
begin
 if ResponseStream <> nil then begin
   S := '';
   SS := TStringStream.Create(S, TEncoding.UTF8, False);
   try
     SS.LoadFromStream(ResponseStream);
     // original: ResponseXML_v := S;   - so ResponseXML_v is jsut a string....
     ResponseXML_v:= SS.DataString; 
   finally
     SS.Destroy;
   end;
 end;
end;

但这里 UTF8 纯粹是猜测，如果 ResponseStream 是例如 zip 存档或 base64 编码文本或其他内容，它将失败。

获得字符串后，您必须对其进行解析。但是解析字符串并通过网络传输是不同的问题。 您可以在此处获取 XML 解析器列表：What is the fastest XML Parser available for Delphi?

我还建议您尝试使用 SuperObject 库。我不确定它是否支持所有 XML 功能，但它具有 JSON 和 XML 的通用 API，这应该是件好事。

不管怎样，你可以通过 StackOverflow 谷歌一下，看看 Delphi 库存的 DB-Express JSON 解析器有许多错误和限制。

https://code.google.com/p/superobject/source/browse/superxmlparser.pas

Procedure TMyConnector.GenerateXML;
begin
 Response_v := nil;
 if ResponseStream <> nil then begin
    ResponseStream.Position := 0;
    Response_v:= XMLParseStream(ResponseStream)
 end;
end;

Procedure TMyConnector.GenerateJSON;
begin
 Response_v := nil;
 if ResponseStream <> nil then begin
    ResponseStream.Position := 0;
    Response_v:= TSuperObject.ParseStream(ResponseStream);
 end;
end;

https://superobject.googlecode.com/git/readme.html

但是，在解析之前，字符集检测和转换可能仍然是您的责任。

---

因此，“分离关注点”并使用“DRY 原则”（其中的“代码重用”部分），我们将函数统一为类似的东西：

{$ScopedEnums On}
type ResponseFormat = (XML, JSON)

function ParseResponse(const ResponseStream: TStream; 
           const Format: ResponseFormat): iSuperObject;
begin
 Result := nil;
 if ResponseStream = nil then exit;
 if ResponseStream.Size <= 0 then exit;

 ResponseStream.Position := 0;
 case Format of
   ResponseFormat.XML:  Result := XMLParseStream(ResponseStream);
   ResponseFormat.JSON: Result := TSuperObject.ParseStream(ResponseStream);
   else raise Exception.CreateFmt(
          'Unknown response format #%d, cannot parse it.',  [ Ord(ResponseFormat) ] );
 end;
end;

现在您的责任是为 JSON 或 XML 响应统一调用该函数，并始终为其提供正确的输入数据流。

---

总的来说，你有两个问题摆在你面前：

1. 如何从 HTTP 服务器获取文本文件并将其字符集转换为原生 Delphi 字符串字符集
2. 如何将包含 XML 或 JSON 的 Delphi 字符串解析为易于使用的 OO-API。

这些是不同的问题，您应该将您的情境和程序解构为这些部分。否则，你会把这些东西纠缠到没人能理解（包括你）和调试的狂野混合物中。你应该解耦和解开，而不是相反。

您告诉服务器您收到了相同的请求，但是 GenerateJSON 函数获得了流而 GenerateXML 没有？应该是什么意思？只是代码中存在一些您没有显示的关键差异。这意味着您不了解您的代码的哪些部分在做什么、何时以及为什么。你应该“分而治之”。将您的程序分成几部分。一件将从服务器获取数据流 - 仅此而已。另一部分将解析流-仅此而已。然后你应该单独调试它们（并提出单独的问题）。当您有 nil 流时，没有必要调试和重做解析。所以......单独的关注点。制作函数，获取流，并确保它确实有效。例如，通过将流保存到文本文件并使用 Text+Hex 编辑器检查其内容。完成第一项任务后 - 转到下一项，解析接收到的流。但只有在你确保你总是能得到信息流之后。