从 idhttp 获取字符串

Question

目前我能够运行命令，但我不知道如何将结果转换为字符串。

我就是这样

idhttp1.get('http://codeelf.com/games/the-grid-2/grid/',TStream(nil));

一切似乎运行正常，在wireshark 中我可以看到该命令的结果。现在如果我这样做了

HTML := idhttp1.get('http://codeelf.com/games/the-grid-2/grid/');

它会冻结应用程序，在wireshark中我可以看到它发送了GET并得到了响应，但不知道它为什么会冻结。 HTML 只是一个字符串变量。

编辑完整代码

按钮点击 login(EUserName.Text,EPassWord.Text);

    procedure TForm5.Login(name: string; Pass: string);
var
 Params: TStringList;
 html : string;
begin
  Params := TStringList.Create;
  try
    Params.Add('user='+name);
    Params.Add('pass='+pass);
    Params.Add('sublogin=Login');


    //post password/username
     IdHTTP1.Post('http://codeelf.com/games/the-grid-2/grid/', Params);
    //get the grid source
     HTML := idhttp1.Get('http://codeelf.com/games/the-grid-2/grid/');

  finally
    Params.Free;
  end;
llogin.Caption := 'Logged In';
end;

响应 我得到的回复说Transfer-Encoding: chunked\r\n 和Content-Type: text/html\r\n 不知道这是否重要。 谢谢

Answer 1

Indy 支持某些类型的流式 HTTP 响应（请参阅 New TIdHTTP hoNoReadMultipartMIME flag），但这只有在服务器使用 multipart/* 响应时才有帮助。链接的博客文章进一步解释了细节，还展示了 Indy HTTP 组件如何为 MIME 解码器提供连续响应流。

如果这不适用于您的情况，解决方法是深入到“原始”TCP 层，这意味着使用 TIdTCPClient 组件发送 HTTP 请求，然后逐行（或逐字节）读取响应) 来自 IOHandler。这可以完全控制响应处理。请求和响应应该在一个线程中处理，以将其与主线程解耦。

Answer 2

TIdHTTP.Post()返回响应数据，你不应该调用TIdHTTP.Get()单独检索它：

procedure TForm5.Login(name: string; Pass: string);
var
  Params: TStringList;
  html : string;
begin
  Params := TStringList.Create;
  try
    Params.Add('user='+name);
    Params.Add('pass='+pass);
    Params.Add('sublogin=Login');

    //post password/username
    HTML := IdHTTP1.Post('http://codeelf.com/games/the-grid-2/grid/', Params);
  finally
    Params.Free;
  end;
  llogin.Caption := 'Logged In';
end;