Веб сервер на Delphi

mak · 01.08.2024

Привет,

Мало кто знает, что Delphi (да-да, ту самую Borland Delphi, даже старую версию Delphi 6 или Delphi 7, в которой перетягиваешь кнопочки на форму), можно использовать для создания веб сервера.

Например напишем простейший веб-сервер:

Код:

program WebApp;
{$APPTYPE CONSOLE}

uses
  IdHTTPServer,
  IdTCPServer,
  IdCustomHTTPServer,
  IdContext;

Type
  TCommandHandler= class
  protected
    procedure DoCommandGet(AThread: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

end;

{$R *.res}
var Server:TIdHTTPServer ;
CH:TCommandHandler;


procedure TCommandHandler.DoCommandGet(AThread: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  AResponseInfo.ContentText := '<html><head><title>Delphi WebApp</title></head><body><h1>It works!</h1><hr><p>Hello, world!</p></body></html>';
  AResponseInfo.ContentType := 'text/plain';
end;

begin
  Server := TIdHTTPServer.Create(nil);
  CH := TCommandHandler.Create;
  Server.OnCommandGet := CH.DoCommandGet;
  Server.DefaultPort := 80;
  Server.Active := True;
  Readln;
end.

А обработчики уже придумаете по ходу дела. Если кому интересно, могу развивать эту тему

prow3r05 · 06.08.2024

Знаю о таком

Помню один раз делал DLL-ку внутри которой был HTML, и она подгружалась через iis, и все это дело конечно же работало)))

danil · 31.08.2024

Использую XAMPP и Laragon на Windows ПК. У XAMPP есть много старых версий, со старыми версиями Apache, PHP и MySQL. Ставится быстро, использовать интуитивно понятно. На VPS всегда пользовался ISPManager для управления сервером и не парился.

P.S. Я просто люблю идти по пути наименьшего сопративления к своей цели, созданию и тестированию web-страниц, но кому то может быть важно создать нестандартный софт для web-сервера, например если создаешь сервис.

alojz · 01.12.2024

Цитата:

Сообщение от mak

Если кому интересно, могу развивать эту тему

Да. Тема интересная (была для меня вначале столетия). В те времена интернет стоил очень дорого. Мне встретилась программа где можно было выуживать данные телефонных карт и выходить в сеть. Так вот в виде исходного кода приложенного, был и http-сервер. В дальнейшем я переделал его. Точнее говоря сделал для него интерфейс : кнопки выбора директории, установка ip-адреса, еще кое-чего. Одним словом если нужен могу выложить, хотя я его уже выкладывал на сайте олд-дос в программах под Windows называется тема Http-Сервер - так кажется.

01.08.2024	#1
mak автор Web1.0 Hosting Регистрация: 05.07.2024 Адрес: проживаю за границей Сообщений: 155	Веб сервер на Delphi Привет, Мало кто знает, что Delphi (да-да, ту самую Borland Delphi, даже старую версию Delphi 6 или Delphi 7, в которой перетягиваешь кнопочки на форму), можно использовать для создания веб сервера. Например напишем простейший веб-сервер: Код: program WebApp; {$APPTYPE CONSOLE} uses IdHTTPServer, IdTCPServer, IdCustomHTTPServer, IdContext; Type TCommandHandler= class protected procedure DoCommandGet(AThread: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); end; {$R .res} var Server:TIdHTTPServer ; CH:TCommandHandler; procedure TCommandHandler.DoCommandGet(AThread: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo); begin AResponseInfo.ContentText := '<html><head><title>Delphi WebApp</title></head><body><h1>It works!</h1><hr><p>Hello, world!</p></body></html>'; AResponseInfo.ContentType := 'text/plain'; end; begin Server := TIdHTTPServer.Create(nil); CH := TCommandHandler.Create; Server.OnCommandGet := CH.DoCommandGet; Server.DefaultPort := 80; Server.Active := True; Readln; end. А обработчики уже придумаете по ходу дела. Если кому интересно, могу развивать эту тему __________________ Web1.0 Hosting* - продвинутый статический хостинг для ваших домашних страниц Последний раз редактировалось mak, 01.08.2024 в 18:43.

31.08.2024	#3
danil Администратор Регистрация: 29.06.2024 Адрес: Живу в своем мирке, который сам и строю. Сообщений: 536	Использую XAMPP и Laragon на Windows ПК. У XAMPP есть много старых версий, со старыми версиями Apache, PHP и MySQL. Ставится быстро, использовать интуитивно понятно. На VPS всегда пользовался ISPManager для управления сервером и не парился. P.S. Я просто люблю идти по пути наименьшего сопративления к своей цели, созданию и тестированию web-страниц, но кому то может быть важно создать нестандартный софт для web-сервера, например если создаешь сервис. __________________ Я вернул двухтысячные!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

06.08.2024	#2
prow3r05 Новичок Регистрация: 24.07.2024 Адрес: Kostromskaya obl. Сообщений: 3	Знаю о таком Помню один раз делал DLL-ку внутри которой был HTML, и она подгружалась через iis, и все это дело конечно же работало)))

Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)