Http将json变成字符串

Question

我试图通过HTTP GET方法将json响应转换为字符串,但我得到的是:

我正在使用这样的代码:

memo1.Text:= idhttp1.Get('http://blabla.com/bla.php');

它返回json数据.我需要得到对memo1的json响应.

我怎样才能做到这一点？

Answer 1

我找到了解决方案.该代码非常完美.

function GetURLAsString(aURL: string): string;
var
  lHTTP: TIdHTTP;
  lStream: TStringStream;
begin
  lHTTP := TIdHTTP.Create(nil);
  lStream := TStringStream.Create(Result);
  try
    lHTTP.Get(aURL, lStream);
    lStream.Position := 0;
    Result := lStream.ReadString(lStream.Size);
  finally
    FreeAndNil(lHTTP);
    FreeAndNil(lStream);
  end;
end;