ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / получение ответа в сервера в формате JSON
15 сообщений из 15, страница 1 из 1
получение ответа в сервера в формате JSON
    #39946804
WНаталья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WНаталья
Гость
Прошу не судить строго, я только учусь.
Посылаю на сервер запрос, прописав все параметры вручную.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
RESTClient1.BaseURL:= 'https://www.songsterr.com/a/ra/';
RESTRequest1.Params.Clear;
RESTRequest1.Params.Add;
RESTRequest1.Params[0].Kind:=TRESTRequestParameterKind.pkGETorPOST;
RESTRequest1.Params[0].name:= 'pattern';
RESTRequest1.Params[0].Options := [poDoNotEncode]; 
RESTRequest1.Params[0].Value:= 'Madonna';
RESTRequest1.Resource:='song.json';  
RESTRequest1.Method:= rmGET;
RESTRequest1.Execute;
Memo1.Lines.Add(RESTRequest1.Response.Content);
RESTRequest1.Free;
RESTRequest1.Params.Clear;



В Memo1 хочу получить результат запроса в формате JSON
Типа так
Код: html
1.
2.
3.
4.
[{"id":2747,"type":"Song","title":"Lady Madonna","artist":
{"id":19,"type":"Artist","nameWithoutThePrefix":"Beatles","useThePrefix":true,"name":"The Beatles"},
"chordsPresent":true,"tabTypes":["PLAYER","TEXT_GUITAR_TAB","CHORDS","TEXT_BASS_TAB"]},
{"id":22865,"type":"Song","title":"Who's That Girl","artist":



Получаю ошибку "access violation at address 010Aea84 in module 'название'. Read of address 000000A0"

Пример беру из вот этого тутореала
http://docwiki.embarcadero.com/RADStudio/Rio/en/Tutorial:_Using_the_REST_Client_Library_to_Access_REST-based_Web_Services

если делать как сказано на docwiki, все работает.
Но я хочу прописать все ручками, и тоже чтобы все работало.

В чем может быть проблема?
...
Рейтинг: 0 / 0
14.04.2020, 00:26
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946805
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
WНатальяВ чем может быть проблема?

Судя по ошибке - забыли создать какой-то объект.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
14.04.2020, 00:32
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946809
asutp2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asutp2
Участник
WНаталья,

вот эта последовательность кода точно вызывает ошибку:
Код: pascal
1.
2.
RESTRequest1.Free;
RESTRequest1.Params.Clear;


уберите последнюю строку
...
Рейтинг: 0 / 0
14.04.2020, 01:09
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946853
WНаталья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WНаталья
Гость
asutp2, убрала, но ошибка никуда не делась.
...
Рейтинг: 0 / 0
14.04.2020, 09:34
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946867
goldmi45
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
goldmi45
Участник
WНаталья, а RESTRequest1 создан к тому моменту, когда вы его используете?
А вообще-то, пошаговая отладка сомнительного кода всегда спасает.
...
Рейтинг: 0 / 0
14.04.2020, 10:10
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946875
WНаталья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WНаталья
Гость
goldmi45,

час от часу не легче...

добавила

RestRequest.Create(Self)... ошибка "Component named BindSource already exists"
...
Рейтинг: 0 / 0
14.04.2020, 10:32
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946885
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
WНаталья,

если объект RESTRequest1 создается вместе с формой, то ему не надо делать RESTRequest1.Free;

... потому что форма (или дата-модуль, не важно) позже тоже попробуют освободить объект
...
Рейтинг: 0 / 0
14.04.2020, 10:52
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946890
WНаталья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WНаталья
Гость
Кроик Семён,

оке, этот момент понятен, спасибо.
Но
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
begin
RESTClient1.BaseURL:= 'https://www.songsterr.com/a/ra/';
RESTRequest1.Resource:='song.json'; 
RESTRequest1.Method:= rmGET; 
RESTRequest1.Params.Add;
RESTRequest1.Params[0].Kind:=TRESTRequestParameterKind.pkGETorPOST;
RESTRequest1.Params[0].name:= 'pattern';
RESTRequest1.Params[0].Options := [poDoNotEncode];  
RESTRequest1.Params[0].Value:= 'Madonna';
RESTRequest1.Execute;

 
Memo1.Lines.Add(RESTRequest1.Response.Content);
RESTRequest1.Params.Clear;

end;



вообще никакой теперь ошибки не выдает, но и мемо не заполняется...

вроде все просто, но я что-то не учитываю, похоже
...
Рейтинг: 0 / 0
14.04.2020, 11:06
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946929
Dimitry Sibiryakov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dimitry Sibiryakov
Участник
WНатальявроде все просто, но я что-то не учитываю, похоже

Пошаговая отладка поможет выяснить что именно.
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
14.04.2020, 12:22
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946966
Фотография Кроик Семён
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кроик Семён
Участник
WНаталья,

вот этот ваш код:
Код: pascal
1.
2.
3.
...
RESTRequest1.Execute;
Memo1.Lines.Add(RESTRequest1.Response.Content);



и код из примера , на который вы ссылались сами в первом посте, как то немного по-разному выглядят (смотрите на выделенные розовым куски):

Код: pascal
1.
2.
3.
4.
5.
6.
var
  jValue:TJSONValue;
begin
  RESTRequest1.Execute;
  jValue:=RESTResponse1.JSONValue;
  MemoContent.Text:= jValue.ToString;
...
Рейтинг: 0 / 0
14.04.2020, 14:20
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39946987
WНаталья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WНаталья
Гость
Кроик Семён,

Я и так, и так пробовала.

в первом случае я в мемо добавляю ответ с сервер в строковом формате,
а во втором - этот ответ передаю в JSON объект, а потом его привожу с стинг и записываю в мемо.
(возможно, я ошибаюсь)
Ошибка не в этом, скорее всего-то то с памятью, или как-то объект не создала... пример, что по ссылке, у меня работает.

но хотелось бы вручную все прописывать
...
Рейтинг: 0 / 0
14.04.2020, 15:03
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39947010
ъъъъъ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ъъъъъ
Гость
WНаталья
Я и так, и так пробовала.

ПОШАГОВАЯ ОТЛАДКА!
...
Рейтинг: 0 / 0
14.04.2020, 15:22
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39947030
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
s62
Участник
WНаталья,
опечатка вот тут:
Код: pascal
1.
RESTRequest1.Resource:='song.json';


Должно быть songs.

Вот так вот работает:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure TForm1.Button1Click(Sender: TObject);
begin
  RESTClient.BaseURL:= 'https://www.songsterr.com/a/ra/';
  RESTRequest.Params.Clear;
  RESTRequest.Params.Add;
  RESTRequest.Resource:='songs.json';
  ////RESTRequest.Params[0].Kind:=TRESTRequestParameterKind.pkGETorPOST;
  RESTRequest.Params[0].name:= 'pattern';
  ////RESTRequest.Params[0].Options := [poDoNotEncode];
  RESTRequest.Params[0].Value:= 'Madonna';

  //RESTRequest.Method:= rmGET;
  RESTRequest.Execute;
  Memo.Lines.Add(RESTRequest.Response.Content);
end;
...
Рейтинг: 0 / 0
14.04.2020, 16:00
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39947039
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
s62
Участник
А вот и по результату запроса:
[youtube=
YouTube Video
YouTube Video
...
Рейтинг: 0 / 0
14.04.2020, 16:11
| Ответить | Цитировать | Написать  
получение ответа в сервера в формате JSON
    #39947307
WНаталья
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WНаталья
Гость
s62, спасибище =) Заработало! Я бываю невнимательной
...
Рейтинг: 0 / 0
15.04.2020, 00:15
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / получение ответа в сервера в формате JSON
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39946987&tid=2038405]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 259ms
total:  389ms
созд. / загр.: 389ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]