Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Проблемка с https://

Автор: Janger 24.3.2014, 13:56

В общем, я бросил на форму компонент (IdHTTP1: TIdHTTP) . Но потом я узнал что для httpS нужен ещё один компонент, (IdSSLIOHandlerSocket1: TIdSSLIOHandlerSocket). И хотел зайти на сайт под своим логином и паролем...
Но у меня выходила постоянно ошибка, погуглил, мне сказали что нужны 2-е библиотеки: ssleay32 + libeay32
И всё равно, программа выдаёт ошибку....

Код


procedure TForm1.FormCreate(Sender: TObject);
var
a: TStringList; 
b: string;
begin
Button1.Hint:='Для изменения'+#10#13+'ЛОГИНА и ПАРОЛЯ';

a:= TStringList.Create; 
a.Add('username='+Edit1.Text);
a.Add('password='+Edit2.Text);
b:=IdHTTP1.Post('https://login.skype.com/login',a);
if Pos('logout',b) <> 0 then
ShowMessage('Yes')
else
ShowMessage('NO');

end;

IdHTTP1--> IOHandler:=IdSSLIOHandlerSocket1

_________________________________________
При компиляции ругается именно на строку: if Pos('logout',b) <> 0 then
==========================
http://s2.ipicture.ru/uploads/20140324/UoRRjRzw.jpg

Автор: Poseidon 25.3.2014, 19:05

На скрине написано же "Could not load SSL library". SSL library - это и есть ssleay32 и libeay32.

Автор: Janger 25.3.2014, 20:15

Цитата(Poseidon @ 25.3.2014, 19:05)

На скрине написано же "Could not load SSL library". SSL library - это и есть ssleay32 и libeay32.

ты меня поражаешь своей сообразительностью.
Чем мне этот сайт всегда нравился, так это тем, что тут всегда можно найти очень "дельные" советы

Добавлено через 39 секунд
Я решил проблему.

Автор: Poseidon 26.3.2014, 07:46

Если человек не может положить dll в определенную папку и прибегает на форум с криком "памагитя, некомпилиццо", то приходится давать ему такие вот советы.