Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi JSON idHTTP PUT / 5 сообщений из 5, страница 1 из 1
21.01.2019, 23:05
    #39762559
Vershik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi JSON idHTTP PUT
Может кому пригодится, ломал голову 3 дня.
Не забудьте в idHTTP1 прикрепить IdSSLIOHandlerSocketOpenSSL1.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
procedure TForm1.Button1Click(Sender: TObject);
var
  RequestBody: TStringStream;
begin

  idHTTP1.Request.ContentType := 'application/json';
  idHTTP1.Request.ContentEncoding := 'utf-8';
  RequestBody:=TStringStream.Create('{"value1":"some_data1", "values" : {"value2":"some_data2", "value3":"some_data3"}}', TEncoding.UTF8);
  Memo1.Text:=idHTTP1.Put('https ://...........json', RequestBody);
  RequestBody.Free;

end;


Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
22.01.2019, 09:25
    #39762651
krapotkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi JSON idHTTP PUT
Vershikприкрепить IdSSLIOHandlerSocketOpenSSL1.
или просто использовать THttpClient ))

а на что тут три дня ушло, простите?
...
Рейтинг: 0 / 0
22.01.2019, 15:29
    #39762912
X11
X11
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi JSON idHTTP PUT
Правильней - создать объект json, и получить результат, а потом уже передавать.
...
Рейтинг: 0 / 0
23.01.2019, 12:51
    #39763364
Гирлионайльдо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi JSON idHTTP PUT
Не все умеют пользоваться гуглом
...
Рейтинг: 0 / 0
31.05.2019, 11:52
    #39820664
Mironico
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Delphi JSON idHTTP PUT
Спасибо автору.
Мне пригодилось.
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Delphi JSON idHTTP PUT / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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