Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (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
15th
Июл
Работа по протоколу https, как указать версию протокола?
Прога общается с сервером по api по https.
Она была написана около 3-х лет назад. Работала исправно до сегодняшнего дня.
Писалась на Delphi 10.2.
Используется компонент IdHTTP.
При выполнении idhttp1.Post возвращает ошибку:
Error connecting with SSL.
error:1409442E:SSL routines:ssl3_read_bytes:tlsv1 alert protocol version.
Так понимаю, что сервер теперь использует протокол другой версии…
Качаю более свежие библиотеки libeay32.dll и ssleay32.dll, не помогает
30th
Мар
Кодировка в INDY 10 (как бороться с «???»)
Передаю параметры в 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 не помогаю.
Как бороться с этими ВОПРОСИКАМИ , есть знатоки ???
25th
Фев
как бороться со знаками вопросов при проблеме с кодировкой в INDY 10 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 и вертать старую (хотя очень не хочется да и будут думаю те еще траблы с возвратом) или есть способ побороть проблему?
20th
Сен
Скачать картинку из интернета
Как скачать картинку из интернета на комп?
Нужно это сделать через инди IdHTTP.
(читать всё…)
1st
Сен
Get запрос обработка ошибки подключения
Сегодня утром столкнулся с проблемой!Очень не приятной для меня)В общем моя программа берет данные с тхт файла. Так вот сегодня у моего хостера возникли проблемы и мой хостинг откл.
И сразу при запуске выходит сообщение «socket error 11001» — не возможно подключится к хосту!Вопрос как сделать «Если http://blabla/1.txt’ не доступен то берем данные с http://blabla2/1.txt» и еще одно как заглушить все сообщения об ошибках. (читать всё…)
11th
Июл
При отсутствии коннекта IdHttp должен быть выключен
Dj_DeVaIs
Добрый день.
Ситуация такая. Есть прога которая отправляет смс через интернет.
Но бывает так что инет выключен (по не понятным причинам) а в проге надо работать. но в ней нельзя работать так как вылазит ошибка Socket error #10060. Ну это понятно так как нет интернета он и не может соединиться с сервером.
Запрос делаю через get.
(читать всё…)
27th
Фев
Не удается отправить русские символы в POST запросе через IdHttp
Второй день мучаюсь. Формирую список параметров TStringList и отправляю его. На сервер вместо русских букв приходят знаки вопроса. В БД, так же записываются «?». (читать всё…)
26th
Июл
Проверить сайт на доступность
В memo список url-ов. Нужно с помощью idhttp зайти по очереди — сначала на первый url, если соединение есть, то останавливаемся, если не соединило — берем второй url и так до конца. Как реализовать?
саша40
var
i: integer;
url: string;
begin
for i:=0 To Memo1.Lines.Count-1 Do
begin
url:=memo1.lines.strings;
idhttp1.host:=url;
idhttp1.connect;
if idHTTP1.Connected=false then
ListBox1.Items.Add(inttostr(i) + '-недоступен')
else
ListBox1.Items.Add(inttostr(i) + '-доступен');
idHttp1.Disconnect;
end;
ShowMessage('Готово');
end;
Пост написан при поддержке портала All4os.ru — универсальный портал об Операционных системах. Он создан для всех пользователей персональных компьютеров и других электронных устройств нуждающихся в качественном программном обеспечении, доступным по этой ссылке, а также в хорошем совете по его использованию.
29th
Сен
Как передать параметры на сервер
Sniper
Есть некий сервер, на котором лежит скрипт CGI. Как мне програмно передать на этот скрипт параметры. Например как мне предать два параметра user=root и pass=YouPass?
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)