Всем привет, уже несколько дней бьюсь с попытками получить ответ 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 поставить вроде как можно, но он просто не работает! Ни ошибок ни ответов на запрос... Кода к сожалению не осталось... Помогите пожалуйста найти хоть какое то решение!