Разбор JSON и Synapse

[CraZZZy-GameRRR]

Нужно сделать запрос через Synapse и разобрать json в ответе. Вот код:

procedure TForm1.checkBtnClick(Sender: TObject);
var
  client: THTTPSend;
  data: TStringStream;
  i: integer;
  json: TJSONObject;
  json_arr: TJSONArray;
begin
  client := THTTPSend.Create;
  data := TStringStream.Create('');
  json := TJSONObject.Create;
  json_arr := TJSONArray.Create;

  outputMemo.Clear;
  resultList.Clear;

  try
    data := TStringStream.Create('');
    data.WriteString('username=test');
    data.WriteString('&password=test');
    data.WriteString('&input_format=json');
    for i := 0 to domainsMemo.Lines.Count - 1 do
      json_arr.AddElement(TJSONObject.Create(TJSONPair.Create('dname', domainsMemo.Lines[i])));
    json.AddPair('domains', json_arr);
    //outputMemo.Text := json.ToString;
    data.WriteString('&input_data=' + EncodeURLElement(json.ToString));
    data.Position := 0;
    client.MimeType := 'application/x-www-form-urlencoded';
    client.Document.LoadFromStream(data);
    if client.HTTPMethod('POST', 'https://api.reg.ru/api/regru2/domain/check') then
    begin
      outputMemo.Lines.LoadFromStream(client.Document);
      json := TJSONObject.ParseJSONValue(MemoryStreamToString(client.Document)) as TJSONObject;
      //..

    end
    else
      MessageDlg(Format('Ошибка: %s (Код: %d)', [client.ResultString, client.ResultCode]), mtError, [mbOk], 0);
  finally
    client.Free;
    data.Free;
    json.Destroy;
  end;
end;

function TForm1.MemoryStreamToString(M: TMemoryStream): string;
begin
  SetString(Result, PChar(M.Memory), M.Size div SizeOf(Char));
end;

Пишет ошибку:

[DCC Error] Unit1.pas(73): E2250 There is no overloaded version of 'ParseJSONValue' that can be called with these arguments

Delphi 2010.

[Alex11223]

Ну дык посмотрите какие параметры этой функции надо.

[CraZZZy-GameRRR]

class function TJSONObject.ParseJSONValue(const Data: TBytes; const Offset: Integer): TJSONValue;
class function TJSONObject.ParseJSONValue(const Data: TBytes; const Offset: Integer; const Count: Integer): TJSONValue;

И как тогда TMemoryStream в TBytes перевести?

[p51x]

И как тогда TMemoryStream в TBytes перевести?

Вы не поверите, но ПРОЧИТАТЬ из него...

[Serge_Bliznykov]

я бы так попробовал:

function TForm1.MemoryStreamToTBytes(somestream: TMemoryStream): TBytes;
begin
  SetLength(Result,somestream.size);
  somestream.Read(Result,somestream.size);
end;