Прога общается с сервером по 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, не помогает

(читать всё…)

Передаю параметры в 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 …

Авторизация уже прошла и страничка БЕЗ ПАРАМЕТРОВ загружается,
на ней есть несколько полей и кнопка [Применить фильтр]
в запросе ей соответствует поле 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 и вертать старую (хотя очень не хочется да и будут думаю те еще траблы с возвратом) или есть способ побороть проблему?

(читать всё…)

Как скачать картинку из интернета на комп?

Нужно это сделать через инди IdHTTP.
(читать всё…)

Сегодня утром столкнулся с проблемой!Очень не приятной для меня)В общем моя программа берет данные с тхт файла. Так вот сегодня у моего хостера возникли проблемы и мой хостинг откл.
И сразу при запуске выходит сообщение «socket error 11001» — не возможно подключится к хосту!Вопрос как сделать «Если http://blabla/1.txt’ не доступен то берем данные с http://blabla2/1.txt» и еще одно как заглушить все сообщения об ошибках. (читать всё…)

Dj_DeVaIs

Добрый день.
Ситуация такая. Есть прога которая отправляет смс через интернет.
Но бывает так что инет выключен (по не понятным причинам) а в проге надо работать. но в ней нельзя работать так как вылазит ошибка Socket error #10060. Ну это понятно так как нет интернета он и не может соединиться с сервером.
Запрос делаю через get.
(читать всё…)

Второй день мучаюсь. Формирую список параметров TStringList и отправляю его. На сервер вместо русских букв приходят знаки вопроса. В БД, так же записываются «?». (читать всё…)

В 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 — универсальный портал об Операционных системах. Он создан для всех пользователей персональных компьютеров и других электронных устройств нуждающихся в качественном программном обеспечении, доступным по этой ссылке, а также в хорошем совете по его использованию.

тема на форуме

blackstersl

Как можно вытянуть картинку альбома из аудио файла? Спасибо.

(читать всё…)

Sniper

Есть некий сервер, на котором лежит скрипт CGI. Как мне програмно передать на этот скрипт параметры. Например как мне предать два параметра user=root и pass=YouPass?

(читать всё…)