如何从Indy IdHTTP获取响应

Question

我已经编写了与Indy IdHTTP组件一起使用的代码

var
get_url: string;
resp: TMemoryStream;
begin
  get_url := 'http://localhost/salesapp/is_run.php?ser=';
  resp := TMemoryStream.Create;

  IdHTTP1.Get(get_url+'v', resp);
  memo1.Lines.LoadFromStream(resp);

该URL http://localhost/salesapp/is_run.php?ser=v返回JSON响应，但我不知道如何从Delphi读取它。

Answer 1

当Get()退出时，流的Position位于流的末尾。 您需要在调用LoadFromStream()之前将Position重置为0，否则将没有任何加载：

var
  get_url: string;
  resp: TMemoryStream;
begin
  get_url := 'http://localhost/salesapp/is_run.php?ser=';
  resp := TMemoryStream.Create;
  try
    IdHTTP1.Get(get_url+'v', resp);
    resp.Position := 0; // <-- add this!!
    memo1.Lines.LoadFromStream(resp);
  finally
    resp.Free;
  end;
end;

另一种方法是删除TMemoryStream然后让Get()返回JSON作为String ：

memo1.Text := IdHTTP1.Get(get_url+'v');