Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.11.2023, 11:18
_omega772_ _omega772_ вне форума
Прохожий
 
Регистрация: 02.11.2023
Сообщения: 5
Версия Delphi: Delphi 2007
Репутация: 10
По умолчанию не могу решить ошибку "error connecting with ssl"

Всем привет, уже несколько дней бьюсь с попытками получить ответ https запроса. Из доступных средств Delphi 2007 и Indy 9 и 10. Могу разве что библиотеки подгружать...
В итоге сварганил такую штуку
Код:
uses
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, IdIOHandler, IdIOHandlerSocket, IdSSLOpenSSL;

var
  IdHTTP1: TIdHTTP;
  IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocketOpenSSL;
  response: WideString;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHTTP1:=TIdHTTP.Create(nil);
  IdSSLIOHandlerSocket1:=TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP1);
  IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv2;
  IdHTTP1.IOHandler:=IdSSLIOHandlerSocket1;
  IdHTTP1.ProtocolVersion := pv1_1;
  IdHTTP1.Request.BasicAuthentication := false;
  IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';

  response:=IdHTTP1.Get('https://github.com/');

  memo1.Lines.add(response);
end;
но упорно выдаёт ошибку упомянутую в заголовке. Про то что нужны ssleay32.dll и libeay32 я знаю, вот только я уже куда только не пытался класть, у меня уже в каждой папочке проекта лежат их копии на всякий случай, даже сделал папку SSL с их копиями т.к. видел такую штук у кого то в реализации. Обращался с этой ситуацией к людям на других форумах, но мне просто посоветовали обновиться и использовать "THttpClient", в обоих случаях. Вот только я не могу обновиться! Меня попросил знакомый из государственной конторы а у них только его лицензионный диск и по этому ни на какую более новую версию перейти им ну вообще нельзя. Но библиотеку вроде Synapse поставить вроде как можно, но он просто не работает! Ни ошибок ни ответов на запрос... Кода к сожалению не осталось... Помогите пожалуйста найти хоть какое то решение!
Ответить с цитированием
 


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 14:25.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter