Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785714 Mon, 17 Dec 2018 07:25:09 +0000 Пример http клиент-сервера с поддержкой кирилицы https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785714 Fr0sT Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785633 Sat, 15 Dec 2018 08:43:16 +0000 Пример http клиент-сервера с поддержкой кирилицы https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785633 Кому нужно через IDHTTP отправлять запрос и принимать его с помощью IDHTTPserver и при этом использовать русский
IDHTTP перед отправкой запроса
    IDHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
    IDHTTP.Request.Charset := 'utf-8';
    ...


IDHTTPserver перед отправкой ответа
    AResponseInfo.ContentType:='application/x-www-form-urlencoded';
    AResponseInfo.CharSet:='utf-8';
    ...


Только так нормально отправляет русский запрос и ответ]]> dreyqq Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785614 Fri, 14 Dec 2018 21:11:31 +0000 Пример http клиент-сервера с поддержкой кирилицы https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785614
    IDHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
    IDHTTP.Request.Charset := 'utf-8';
    ... далее отправляю запрос


но появилась проблема в ответе. Если ранее я ставил в настройках сервера
    AResponseInfo.ContentType := 'text/html; charset=windows-1251'; // для русских ответов

и клиент нормально принимал русский, то сейчас сервер принимает всё нормально, а вот клиент принимает ????? вместо
    AResponseInfo.ContentText :='ответ';

Как это решить?]]> dreyqq Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785606 Fri, 14 Dec 2018 18:55:30 +0000 Пример http клиент-сервера с поддержкой кирилицы https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785606
    var
    zap:tstringlist;
    ...
    begin  
    zap.Add('p1=параметр');
    IDHTTP1.Post(adr, zap);
    ...

смотрю HTTP analizer V7
Там видно P1 и значение параметр

Принимаю
    procedure TForm1.IDHTTPserverCommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
    begin
    ARequestInfo.ContentEncoding:='text/html; charset=windows-1251'; // это чтобы на руссок отвечало. Работает
    memo1.Text:=ARequestInfo.Params.Text;


... и полученый текст в мемо... p1=параметÑ
Как ЭТО победить?]]> dreyqq Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785520 Fri, 14 Dec 2018 09:19:32 +0000 Пример http клиент-сервера с поддержкой кирилицы https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785520 Цитата Fr0sT @
Более того, значение атрибута encoding документа xml не означает, что сам документ в этой кодировке.

Вот как раз это бывает, если собирать контент руками. Тогда парсеры XML спотыкаются.]]> Mr.Delphist Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785510 Fri, 14 Dec 2018 07:46:19 +0000 Пример http клиент-сервера с поддержкой кирилицы https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785510 Во-вторых, content-type в заголовке http ответа и кодировка xml - это две абсолютно разные и совершенно независимые штуки. Более того, значение атрибута encoding документа xml не означает, что сам документ в этой кодировке. Поэтому сниффер в руки и смотреть, что отправляется и получается]]> Fr0sT Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785485 Thu, 13 Dec 2018 20:58:38 +0000 Пример http клиент-сервера с поддержкой кирилицы https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785485
Например, так неправильно:
    var xml: string;
    …
    xml = '<?xml version="1.0" encoding="windows-1251"?>' // руками указали processing instruction
        + '<tag-content>Тут русский текст</tag-content>'; // руками напихали контент, безотносительно processing instruction


Дело в том, что XML - это не текст. Это байтовый поток, который для большинства случаев выглядит как текст. Но чуть шаг в сторону - надо руками энкодить в правильный байтовый формат или же использовать готовые энкодеры, как TXMLDocument (который, в свою очередь, лишь обёртка вокруг системного компонента MS XML).

Вот ещё на эту тему:
http://okitgo.ru/xml/kodirovka-xml.html]]> Mr.Delphist Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785383 Thu, 13 Dec 2018 07:57:56 +0000 Пример http клиент-сервера с поддержкой кирилицы https://forum.sources.ru/index.php?showtopic=413886&view=findpost&p=3785383 В чём нужна подсказка:
Нужно на http обмениваться инфой между клиентом и сервером, желательно с использованием XML, так как его проще обрабатывать и через него я могу передать то количество параметров что мне нужно. Всё ничего, но возникла проблема с кирилицей... Ответ сервера в кирилице я нашел как сделать:
    procedure TForm1.hts1CommandGet(AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
    begin
      AResponseInfo.ContentType := 'text/html; charset=windows-1251'; // для русских ответов
      ...
    end;

и сервер клиенту отвечает правильно, но принять кирилицу не выходит...

1) Как правильно отправить с помощью POST кирилицу, чтобы сервер её принял?
2) Там ли я на сервере пытаюсь обработать POST запрос?

delphi RAD Studio 10.2
IDHTTP - клиент
IDHTTPServer - сервер]]> dreyqq Delphi: Сетевое программирование