How to read response from Indy IdHTTP get

Question

I have written code to use get with indy IdHTTP component

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);

This url http://localhost/salesapp/is_run.php?ser=v return JSON response but I dont know how to read it from Delphi.

You mean the PHP response ? I used `fetchAll(PDO::FETCH_ASSOC)` — zac, Feb 11 '15 at 19:36
The thing is that you need a parser on your Delphi client side, and I doubt that there's one for the raw PHP resultset. You should exchange data with the client in some known format, like e.g. XML, or JSON. — TLama, Feb 11 '15 at 19:46
In case I returned JSON how I can read it from indy components ? — zac, Feb 11 '15 at 20:15
There are plenty of JSON examples. Where have you looked so far? — Rob Kennedy, Feb 11 '15 at 20:43
I am looking to read JSON using Indy, I can not find any yet. — zac, Feb 11 '15 at 20:45
You don't *read* JSON using Indy. You *retrieve* or *get* JSON using Indy, and then *read* that JSON from your Delphi code. — Ken White, Feb 11 '15 at 21:46

score 15 · Accepted Answer · answered Feb 11 '15 at 21:36

When Get() exits, the stream's Position is at the end of the stream. You need to reset the Position back to 0 before calling LoadFromStream(), or else it will not have anything to load:

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;

The alternative is to remove the TMemoryStream and let Get() return the JSON as a String instead:

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

How to read response from Indy IdHTTP get

1 Answers1

Linked