Поиск сообщества

Привет, Я пытаюсь создать клиент для повторного получения данных в реальном времени из "twelvedata.com " это возвращается с сервера websocket. Вот строка JSON 2022-12-13T22:43:30.142Z <== {"event":"subscribe-status","status":"ok","success":[{"symbol":"USD/JPY","exchange":"PHYSICAL CURRENCY","mic_code":"PHYSICAL CURRENCY","country":"","type":"Physical Currency"},{"symbol":"BTC/USD","exchange":"Coinbase Pro","mic_code":"Coinbase Pro","country":"","type":"Digital Currency"},{"symbol":"ETH/BTC","exchange":"Huobi","mic_code":"Huobi","country":"","type":"Digital Currency"}],"fails":null} 2022-12-13T22:43:30.541Z <== {"event":"price","symbol":"BTC/USD","currency_base":"Bitcoin","currency_quote":"US Dollar","exchange":"Coinbase Pro","type":"Digital Currency","timestamp":1670971410,"price":17722.7,"bid":17722.7,"ask":17722.7,"day_volume":38419} Я написал клиентский код Delphi, как показано ниже, чтобы получить объект Json, но он вернул статическое значение, и программа зависла. ПРИМЕЧАНИЕ: Я использую эту бесплатную библиотеку websocket bird-socket-client я хочу, чтобы данные отображались следующим образом: 12dataClient.zip

TJSONObject *o = (TJSONObject*) TJSONObject::ParseJSONValue(TEncoding::UTF8->GetBytes(result),0); TJSONArray *a = (TJSONArray*) o->Get("posts")->JsonValue; for (int idx = 0; idx < a->Size(); idx++) { TJSONObject *post = (TJSONObject*) a->Get(idx); Title = post->Pairs[5]->JsonValue->ToString(); Title = Title.SubString(1, Title.Length() - 2); TJSONObject *author = (TJSONObject*) post->Get("author")->JsonValue; Jurnalist = author->Pairs[2]->JsonValue->ToString(); TJSONArray *categoryarr = (TJSONArray*) post->Get("categories")->JsonValue; TJSONObject *category = (TJSONObject*) categoryarr->Get(0); Category = category->Pairs[2]->JsonValue->ToString(); Category = Category.SubString(1, Category.Length() - 2); Content = post->Pairs[8]->JsonValue->ToString(); Date = post->Pairs[9]->JsonValue->ToString(); ContentFull = post->Pairs[7]->JsonValue->ToString(); } Написал вот такой код на Embarcadero RX 10 Seatle. Компилятор меня оповещает вот такими предупреждениями: Accessing deprecated entity '_fastcall TJSONArray::Size()' Accessing deprecated entity '_fastcall TJSONArray::Get(const int)' и т.д. (Я прекрасно понимаю что эти сообщения значит). Хотелось бы узнать что сейчас используется вместо этих функций? И куда надо посмотреть в таких случаях?