为什么Indy返回的数据无法读取，而Chrome可以正常加载？

Question

为什么Indy返回的数据无法读取，而Chrome可以正常加载？

restdelphigetfiremonkeyindy

9

我正在尝试对我的游戏服务器RESTAPI进行GET请求。当我在chrome中加载它时，它会带有正确的json响应，但是当我尝试使用indy进行请求时，它只会给我一堆不可读的文本。

请求的URL：http://129.232.180.125:28019/deaths.json

Chrome响应：

Indy响应：

Y;9[ÿÍZË7¼ç3öìDQ%ÿJÃÚØ,Öw   òï§IµzvXÓö{Ab¿ÿöÏÝ»÷Ä!¾»ûûîýBó»»÷ßOwïï><¼îþ}§ På¢&È÷ÇÇÓË
gP¤@¹(¬Dv&©ÙEµ¸®D"`»@ëJ¥E\¦£??Þ?Ù@%¤3¨µ òrÿaCHZÝÀÕ
¯[%ö1cÓÔB)QV¡÷àõ=¢oÅt¥þóR§Ó§§Ï®Ô¶â*ëEu<wKÜôiýUØ^VµcÓ@vêâ»ÈR©hPædÛ=û±ô~¡;±8¢¢ÒtÇ/§û
Si¿·Õ
Zô1-W¥²¾KdP¡tÇXýc--[ÛàÔ-Go¼aI4]ñôãÏÇ¯Ï_& h¶@5Gá0Ú#!`u.éöæà¿i³ÇhFÜ]Q´µjÁ
d¼Ê%½|ÔRØ\¡Ókbê;Â$`¹^ìX»Ó`Ï¢Ñ¤ù»   i2S$Ýûöõ¯ÉÑ2    D(,öæÛý§ûÙ¯j\-AOÙ^&Gä£WK¥2\ÙW[%a»a\Ò' U½4ßß+¯>bV«ÏêUçq¡õÏIÜ
,1×çiJ¾¸¸^Ðh}_æéê{²Ú°pp¼²KÖ÷ÞNÄIß¼D÷W+K3ËûÔz:}ÚÞ5
SB^"ÕKªGè¸+¾ß^~$Õâ³6Tõ]2Õßr9¸%eàYYUrsJÏ`Êä³ë'£t8#®AB¨KÏ¹ëOAe9V ×Ís-£¬Óé¬ºùÜ\)µµ©±¢xÜj« ½ê(JRâÜ>\<M´@6Xd°ý~®i ÄCõBe;&©l³"¦}.uUè5(ÝE®V;BìðùôtúöðqÆÅ8~cÜ¡}{\h9Í©¡0²]Cèl¯s%qeÅô{Ø]zOöÞ|W-ÆöÎ%åª«¦@çÎÐ»[jÑ¶ÊÞÒÙq¤¸qZÛ/îÕ=KTÓ³ÿÒ=Go@Îì6*Z¯\W7¡ê!rM´'£¸ÇR»[G%ëp"?+²q?!ÔU{n,QâsðÚ9÷Þòì³H¡#f<Î.ÛÂÑ²Ät$u\9KoËGpE9b+ NsQÏ>ÉIiÒQs8ôòVÖMó.Þ÷ex ½½îx!RNÇZH?×b@ Ó$v¥_SfçF«Q®n`|à`«T®Ð¦©¸×5*<?qC´/ø©¿ÑJ¬ªï´´+ýÑHjiK( ;¤øÓA#mýHß¬5v ¡µR
´RI{ÊPAn,&æF ,&Õ/ônÓÚ¨oÄÀùYó}DUÿêà}C$e õ^LYæªYßÍX«Z2»ËeOæVqWvrW1ÚP«¿_kÆ-¢¢2Ar«ö©]x¢|4Ñ¿¯Y[¹">´¸(lÉÆÓÌå/BÙ!ìPGr£`¶Ê
[!ªóèsfÄt+.v.5_jÎê'Ô8Õ
Ö1ÒøMÜÑõâ[®ÇÄ)ãZYàÜ;Q!Ëa2Û^Zìçsá¹Ø^´QZbKnk9&ÄKºý¼ý®Úú11pÀ¦Eç°¿9r¾«ÿ®yýÆà"ø×
 (ù ?Ko¼Þ!Î¤¸ò¿^/ºo¼½åzãß*A9aãÔ°¥Ù8umÁàËuni(
    '-®®DÕêüý¸o¢zäÝ²é/lßþËÁi-ö:IhÙ8£i?|Û×RÐØï/ÐÀ,I
°Ù¥xXIRê0¹\x9séU=ªajä ^Æ£À±b¼$ÞP6<fF!µ¡Àßù!ûí7t¨¬XRÀJï\VãØsþð»b¨´7B` FýÀJÕ´F 
6Ë

èög»&·ã«¶ÛýAuR®ÝåL¬.YÌÄÿ£0æÀ%dÅ)²dhs´k¯.Ûg%ÅÂ.sâ¬Úé
zµ½ ;¸Z}»ÕUH«;ébÿ£j£%³S÷ú~X´@ýgý:¹½ 0w@ºØHâ³·,`!«G(]íä,Q¡NØm¢Î°,ÔY`Ùi;Ò¦×b¤×?BûMd¡Çdª <ï"QÕýWÏ®µ±× "6'3ý¹¦wþGSCt7Ùäk Ne¾ªÑ¿Ò(múS Ô$DifA{ª*ö¥(-gg¶a³~v(dê©=Om+á½üí±6®yf°1²ÐNi(y`B»ò¦¹ÃàuS!kµ¡¡i÷6¦   hÖ½;r"¢R»yÆ&OªoE·VU´¹)_Q9Ç¥2lÑÀâîUhñ~¼4óß4"\µnøæèî½5Ç00fúiPàýLØ~¯é§?_HÙ&Í÷;Ynnw¯8àoü¬¼^+2

我的代码：

mmo1.Lines.Text := idhtp1.Get('http://129.232.180.125:28019/deaths.json');

这段代码是通过HTTP GET请求从指定的URL获取JSON格式数据，并将其存储在名为mmo1的组件的文本属性中。其中，idhtp1是用于发起HTTP请求的组件。

- Adriaan

我无法访问那段代码。我正在使用这份文档：http://playrust.io/manual/#!api.md - Adriaan

Delphi 版本是多少？ - whosrdaddy

3

答案很简单，内容已被压缩，所以你需要进行解压缩才能阅读。 - whosrdaddy

1

确认，我在头部看到了 Content-Encoding: gzip。Chrome会自动检测并处理它，但在Indy中，您必须手动处理。 - Jerry Dodge

哇，这是我第一次听说gzip。感谢您提供的所有信息和帮助！ - Adriaan

显示剩余7条评论

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- whosrdaddy · Accepted Answer

如果服务器在标头中具有Content-Encoding: gzip，则必须解压缩数据。以下是完整且可运行的示例（省略了检查gzip内容的步骤）：

program SO51126032;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  IdHttp,
  IdZLib,
  Classes,
  System.SysUtils;

function GetServerData(Url : String) : String;
var
  Http : TIdHttp;
  Strm : TMemoryStream;
  OutStrm : TStringStream;
begin
  Http := TIdHttp.Create(nil);
  try
    Http.HandleRedirects := True;
    Http.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
    Http.Request.AcceptEncoding := 'gzip';
    Strm := TMemoryStream.Create;
    try
      OutStrm := TStringStream.Create(TEncoding.UTF8);
      try
        Http.Get(URL, Strm);
        Strm.Position := 0;
        if TextIsSame(Http.Response.ContentEncoding, 'gzip') then
          DecompressStream(Strm, OutStrm)
        else
          OutStrm.CopyFrom(Strm, 0);
        end;
        Result := OutStrm.DataString;
      finally
        OutStrm.Free;
      end;
    finally
      Strm.Free;
    end;
  finally
    Http.Free;
  end;
end;

begin
  try
    Writeln(GetServerData('http://129.232.180.125:28019/deaths.json')); 
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

* 推荐的方法 *

如果您将TIdCompressorZlib分配给TIdHTTP，Indy可以为您完成繁重的工作，它会自动检测经过gzip压缩的内容并实时解压缩：

uses
  IdHttp,
  IdCompressorZLib,
  System.SysUtils;

function GetServerData(const URL : String) : String;
var
  Http : TIdHttp;
begin
  Http := TIdHttp.Create(nil);
  try
    Http.HandleRedirects := True;
    Http.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
    Http.Compressor := TIdCompressorZLib.Create(Http);
    Result := Http.Get(URL);
  finally
    Http.Free;
  end;
end;