Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2018, 14:09   #1
niockasd
Пользователь
 
Регистрация: 01.12.2015
Сообщений: 82
По умолчанию GET запрос по https

Парни, что то после обновления делфей до 10.2 перестали работать https запросы, возвращает ошибку 500.

запрос примитивный, код получает текст возвращаемый скриптом
Код:
function GetJSONCode(url: String): String;
var
  http:THttpSend;
  list:TStringList;
begin
HTTP:=THTTPSend.Create;
list:=TStringList.Create;

  if HTTP.HTTPMethod('GET',url) then
     begin
     list.LoadFromStream(http.Document);
     result:=list.Text;
     end;

  form1.Caption:=inttostr(http.ResultCode) ;

http.Free;
list.Free;
end;
Synapse тоже качал новый...
я подозреваю что у меня теперь версии библиотек не подходят?
ssleay32.dll \ libeay32.dll?
niockasd вне форума Ответить с цитированием
Старый 12.11.2018, 14:10   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

http://docwiki.embarcadero.com/RADSt...kyo/en/OpenSSL
p51x вне форума Ответить с цитированием
Старый 12.11.2018, 14:29   #3
niockasd
Пользователь
 
Регистрация: 01.12.2015
Сообщений: 82
По умолчанию

Да я уже был там
качал openssl-1.0.2p-x64_86-win64.zip отсюда
https://indy.fulgan.com/SSL/

не помогло...

в ssl_openssl написано
Код:
You need OpenSSL libraries version 0.9.7. It can work with 0.9.6 too, but
application mysteriously crashing when you are using freePascal on Linux.
Use Kylix on Linux is OK! If you have version 0.9.7 on Linux, then I not see
any problems with FreePascal.
на сайте такой старой версии уже нету


http://synapse.ararat.cz/files/crypt/
тут 0,9,7 нашел) тоже толку нету...

Последний раз редактировалось niockasd; 12.11.2018 в 14:45.
niockasd вне форума Ответить с цитированием
Старый 12.11.2018, 14:37   #4
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

А ваше приложение 64битное?
p51x вне форума Ответить с цитированием
Старый 12.11.2018, 14:52   #5
niockasd
Пользователь
 
Регистрация: 01.12.2015
Сообщений: 82
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
А ваше приложение 64битное?
32 битное.. я там уже все перекачал, и openssl-1.0.2p-i386-win32.zip
niockasd вне форума Ответить с цитированием
Старый 12.11.2018, 15:00   #6
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Соберите exe и либы, которые вы к нему кладете в архив и выложите куда-нибудь посмотреть.
p51x вне форума Ответить с цитированием
Старый 12.11.2018, 15:55   #7
niockasd
Пользователь
 
Регистрация: 01.12.2015
Сообщений: 82
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Соберите exe и либы, которые вы к нему кладете в архив и выложите куда-нибудь посмотреть.
Исходный код + скомпилированный ехе
https://dropmefiles.com/T4Xej

Библиотеки там тоже есть, но с ними как то html код с некоторых сайтов с HTTPS запрашивается (яндекс например) а с некоторые нет, например как сайт в исходном коде и еще ряд других с которыми ранее проблем небыло.

проблему решил, использовал стайбл версию синапса.
Скачал текущую с репозитрия https://sourceforge.net/p/synalist/c...AD/tree/trunk/ и все закрутилось.

Последний раз редактировалось Вадим Мошев; 28.11.2018 в 20:34.
niockasd вне форума Ответить с цитированием
Старый 12.11.2018, 17:40   #8
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Очень хорошо. А я нашел причину почему у вас не получалось - вы просто не использовали SSL. Это хорошо видно по отсутствию импорта из либ. Вы забыли прописать TIdSSLIOHandlerSocketOpenSSL.
p51x вне форума Ответить с цитированием
Старый 12.11.2018, 22:24   #9
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Очень хорошо. А я нашел причину почему у вас не получалось - вы просто не использовали SSL. Это хорошо видно по отсутствию импорта из либ. Вы забыли прописать TIdSSLIOHandlerSocketOpenSSL.
ппц, при чем тут индя, если человек синапс использует? Ну да, бросал на форму компаневы, помучился, и вернулся к синапсу.
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно
Mifody вне форума Ответить с цитированием
Старый 12.11.2018, 22:48   #10
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

При том, что он использует и то, и то. Даже вы признаете, что он "вернулся". К чему ваш пост?
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Принять Https запрос ArtGrek Работа с сетью в Delphi 2 21.12.2016 12:36
Https запрос YuryD C/C++ Сетевое программирование 3 14.07.2015 20:02
https запрос Gdasar C++ Builder 4 17.09.2013 16:55
Https и GET запрос xakkkkker Работа с сетью в Delphi 1 30.10.2011 10:05
POST запрос на HTTPS Arsenx777 Работа с сетью в Delphi 3 12.10.2011 09:36