Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
25th
Фев
как бороться со знаками вопросов при проблеме с кодировкой в INDY 10 Delphi ?
Posted by obzor under Delphi, Архив
… Где то я не догоняю — как с этим бороться , передаю параметры в Post …
Авторизация уже прошла и страничка БЕЗ ПАРАМЕТРОВ загружается,
на ней есть несколько полей и кнопка [Применить фильтр]
в запросе ей соответствует поле Filter.
Поля заполняю точно так же как это вижу сниффером в момент ручного заполнения полей и нажатия кнопки [Применить фильтр]
вот часть кода:
код delphi:
...
ADDR := 'http://' + Edit1.Text;
mpfd := TIdMultiPartFormDataStream.Create;
...
mpfd.AddFormField('ENaklDateF', '');
mpfd.AddFormField('ZStatusList', '(все)');
mpfd.AddFormField('Filter', 'Применить фильтр');
...
stream := TMemoryStream.Create;
...
idhttp1.Post(ADDR,mpfd,stream);
...
Сниффер показывает, что я передаю (сниффер: HTTPAnalyzer Stand-alone)
...
mpfd.AddFormField('ENaklDateF', '');
mpfd.AddFormField('ZStatusList', '(???)');
mpfd.AddFormField('Filter', '????????? ??????');
...
HTTPEncode, AnsiToUtf8, UTF8Encode не помогают
Как бороться с этими ВОПРОСИКАМИ , есть знатоки ?
… Некоторые наблюдения …
Запускаю проект и смотрю, что в итоге ушло в Post Data в соответствующей переменной
Точно так же просматриваю, что отсылает на сервер http://…/OrderList.aspx
при нажатии на кнопку [Применить фильтр]
Так вот:
если я отправляю из программы — то переменная ZStatusList = ‘(???)’,
если запрос отправить со странички ручками — то переменная ZStatusList = ‘(все)’ и остальные поля тоже с русскими буковками а не с вопросиками.
Вот такая неувязочка.
( ЗЫ: Причем если получать данные со странички простым GET сразу в MEMO будет таже проблема с ВОПРОСИКАМИ а если через ПОТОК то все ок. И еще — если скомпилировать проект не на 10 INDY а на старой что идет в комплекте с дистрибутивом Delphi 7 то все ОК — вижу русский и при приеме и при отправки. )
Естественно Post отрабатывается без параметров, как будто я просто первый раз зашел на страничку.
( там данный просто за последнюю неделю отображаются ).
Что посоветуете — сносить INDY 10 и вертать старую (хотя очень не хочется да и будут думаю те еще траблы с возвратом) или есть способ побороть проблему?
читаем через потоки.
вот пример.
procedure Tmain_form.httpClick(Sender: TObject);
var
stream: tStream;
strings: tStringList;
begin
stream := tMemoryStream.Create;
try
idHTTP1.Get('http://programmersforum.ru/showthread.php?t=60677', stream);
stream.Position := 0;
strings := tStringList.Create;
strings.LoadFromStream(stream);
memo1.Lines.Assign(strings);
strings.Free;
finally
stream.Free;
end;
end;
Все решается просто:
txt:=IdHTTP1.Get(IdHTTP1.URL.URLEncode(‘какой то адрес с русскими буквами в параметрах’)):
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)