turenko/blog

Данная заметка к вопросу создания приложений-клиентов и приложений серверов HTTP (и, главное, HTTPS) на Delphi.
Читая случайно статью про набор компонентов Synapse, скептически относился к описанию, однако вот этот абзац заставил задуматься, т.к. он совпал с той картиной бытия, которая сформировалась у меня некоторое время назад при работе с Delphi (и, в частности, с компонентами Indy).
http://www.delphi.int.ru/articles/49/:

"Предположим, надо скачать файл/страницу с ресурса, использующего SSL. В случае с Indy это сделать очень сложно. Точнее, написать приложение-то просто, но вот чтобы оно работало... Оно или требует библиотеки OpenSSL, или говорит, что найденные библиотеки не подходят. Решается проблема скачиванием "правильных версий библиотек". Но даже имея их, всё равно проблемы. Если какое-то приложение использовало "неверные библиотеки", то до перезагрузки компьютера работать ничего не будет. Или то грузится, то нет. Почему так – предположения есть, но не хочется разбираться."

Ряд тезисов были проверены мной лично. И даже когда всё вроде бы работало, стабильности позавидовать было нельзя, так что решил попробовать новый для себя способ.

Клиент HTTPS на Delphi

С клиентом получилось действительно всё просто, как
1. Распаковал дистрибутив Synapse;
2. Скопировал Файлы из папки Lib в папку Source\Synapse;
3. Добавил папку Source\Synapse в списки путей Library и Browse в настройках Delphi;
4. Сделал доступными две DLL от OpenSSL (положил в папку с приложением);
5. use HttpSend, SSL_OpenSSL.
И правда, заработало. Само. Скачало страничку по HTTPS.

Сервер HTTPS на Delphi

Тут всё проще. Взял и открыл пример httpserv, который в комплекте. Работает.
Однако, этот пример без доработок, естественно, по протоколу HTTPS работать не захотел.
Возможно, есть более простой или правильный способ

Благодаря найденному через Google Code Search исходнику HTTPServ с применением Synapse, обнаружил, что чтобы пример httpserv, идущий в комплекте с Synapse, заработал по протоколу HTTPS с использованием OpenSSL, нужно в файле http.pas (реализация веб-сервера):
1) в процедуре TTCPHttpThrd.Execute добавить в начало после begin:
sock.SSLAcceptConnection;
2) в процедуре TTCPHttpDaemon.Execute заменить:
bind('0.0.0.0','80');
на
bind('0.0.0.0','443');
(443 - стандартный порт HTTPS).

И ура, https://localhost/ - открывается! Без Apache и прочих всех-всех-всех.

Респект автору Synapse и автору статьи.

Что делать с этим дальше, создавать или нет сертификаты, это вопрос отдельной песни. Главное, что работает в таком виде и без сертификатов (Synapse создает self-signed сертификат на время сеанса).

PS: оказалось нужные изменения в демо httpserv, были описаны здесь, надо было просто правильно искать