Delphi 2010 中的 Indy IdHttp Post 问题

Question

我对 Indy IdHttp Post 方法有问题。 使用 Delphi 2007 编译的函数 CallRpc() 工作正常，但使用 Delphi 2010 编译的相同代码会引发异常。

当我将 Delphi 2007 Indy TIdHttp 更改为 Delphi 2010 Indy TIdHttp 时，需要考虑什么？

function CallRpc(const sURL, sXML: string): string;
var
  SendStream : TStream;
  IdHttp     : TIdHttp;
begin
  SendStream := TMemoryStream.Create;
  IdHttp := TIdHttp.Create(nil);
  try
      IdHttp.Request.Accept        := '*/*';
      IdHttp.Request.ContentType   := 'text/sXML';
      IdHttp.Request.Connection    := 'Keep-Alive';
      IdHttp.Request.ContentLength := Length(sXML);

      StringToStream(sXML, SendStream);  
      SendStream.Position := 0;

      Result := IdHttp.Post(sURL, SendStream);
  finally
    IdHttp.Free;
    SendStream.Free;
  end;
end;

添加 25.1.2009：

异常是这样的：EIdConnClosedGraceively

响应是这样的：

<?xml version='1.0' encoding='us-ascii'?>
<!DOCTYPE Error [ <!ELEMENT Error (ErrorMessage,DebuggingInfo*)> <!ATTLIST Error Date CDATA #REQUIRED Time CDATA #REQUIRED> <!ELEMENT ErrorMessage (#PCDATA )>  <!ELEMENT DebuggingInfo (#PCDATA )> ] >
<Error Date='01/25/2010' Time='08:57:12'>
<ErrorMessage>
    XML SERVER ERROR: There was a SYSTEM ERROR error in the Incoming XML Response: $ZE=&lt;UNDEFINED&gt;lexan+196^%eXMLLexAnalyzer
</ErrorMessage>

解决方案 26.1.2009：

function CallRpc(const sURL, sXML: string): string; 
var 
  SendStream : TStream; 
  IdHttp     : TIdHttp; 
  sAnsiXML: Ansistring;   // <-- new
begin 
  sAnsiXML := sXML;  // <-- new: Implicit string cast

  SendStream := TMemoryStream.Create; 
  IdHttp := TIdHttp.Create(nil); 
  try 
     IdHttp.Request.Accept        := '*/*'; 
     IdHttp.Request.ContentType   := 'text/sXML'; 
     IdHttp.Request.Connection    := 'Keep-Alive'; 
     IdHttp.Request.ContentLength := Length(sAnsiXML); // <-- new

     SendStream.Write(sAnsiXML[1], Length(sAnsiXML));  // <-- new
     SendStream.Position := 0; 

     Result := IdHttp.Post(sURL, SendStream); 
  finally 
   IdHttp.Free; 
   SendStream.Free; 
  end; 

结束；

Answer 1

contentLength 以八位字节为单位，字符串长度以字符为单位。由于 Delphi 2009+ 中 sizeof( Char ) = 2，这是不匹配的！

也许最好将 XML 与 UTF8 字符串相互转换。某些应用程序不支持 USC2 Unicode 格式。

您应该提供结果流的大小作为 ContentLength。

更好的是：不要提供 ContentLength，让 Indy 为您做。

Answer 2

看看使用 sXML ansisstring 是否会有所不同。

也许该字符串以 UTF-16 左右的格式进行流式传输。