Задать вопрос
@cicec

Как связать вместе данные полученные на двух страницах?

Доброго дня!

Есть такая задача:

Я делаю GET запрос на страницу, она мне отдаёт результат в JSON, я выдираю от туда id, и записываю их в одну строку:

if JSON.TryGetValue<TJSONArray>('response.items', JSONArr) then
      begin 
        for I := 0 to JSONArr.GetValue<TJSONArray>.Count - 1 do
        begin
          if I > 0 then
            user_id_list := user_id_list + ',' + JSONArr.GetValue<string>('[' + IntToStr(i) + '].message.user_id')
          else
            user_id_list := JSONArr.GetValue<string>('[' + IntToStr(i) + '].message.user_id');
        end;
      end;

{
  "response": {
    "count": 3,
    "items": [
      {
        "message": {
          "user_id": 1,
          "body": "Текст body"
        }
      },
      {
        "message": {
          "user_id": 2,
          "body": "Текст body"
        }
      },
      {
        "message": {
          "user_id": 3,
          "body": "Текст body"
        }
      }
    ]
  }
}

(и ещё мне от туда по мимо id нужно выдрать body)

теперь мне нужно со списком id (user_id_list) (1,2,3) сделать запрос на другую страницу, там я получаю еще 3 текстовых поля для каждого id:
{
  "response": [
    {
      "id": 1,
      "first_name": "Текст1",
      "last_name": "Текст1",
      "photo_50": "http"
    },
    {
      "id": 2,
      "first_name": "Текст2",
      "last_name": "Текст2",
      "photo_50": "http"
    },
    {
      "id": 3,
      "first_name": "Текст3",
      "last_name": "Текст3",
      "photo_50": "http"
    }
  ]
}

и теперь мне нужно связать все эти данные полученные на 2-х страницах вывести в memo, т.е. чтобы получилось:
id:1, Текст body, Текст1 Текст1, http
id:2, Текст body, Текст2 Текст2, http
id:3, Текст body, Текст33 Текст3, http

Как это лучше и правильней сделать? Надеюсь понятно объяснил.
  • Вопрос задан
  • 93 просмотра
Подписаться 1 Оценить Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы