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

mak · 01.08.2024, 21:38

Привет,

Мало кто знает, что 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, 05:13

Знаю о таком

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

**eriko** · 31.08.2024, 21:11

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

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

alojz · 01.12.2024, 11:52

Цитата:

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

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

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

01.08.2024, 21:38	#1
mak Олд Регистрация: 05.07.2024 Адрес: проживаю за границей Сообщений: 155 Вес репутации: 0 Репутация: пока не определён (0)	Веб сервер на 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. А обработчики уже придумаете по ходу дела. Если кому интересно, могу развивать эту тему Последний раз редактировалось mak, 01.08.2024 в 21:43.*

31.08.2024, 21:11	#3
eriko Администратор Регистрация: 29.06.2024 Адрес: Живу в своем мирке, который строю для себя. Сообщений: 1,448 Вес репутации: 100	Использую XAMPP и Laragon на Windows ПК. У XAMPP есть много старых версий, со старыми версиями Apache, PHP и MySQL. Ставится быстро, использовать интуитивно понятно. На VPS всегда пользовался ISPManager для управления сервером и не парился. P.S. Я просто люблю идти по пути наименьшего сопративления к своей цели, созданию и тестированию web-страниц, но кому то может быть важно создать нестандартный софт для web-сервера, например если создаешь сервис. __________________ Мой блог http://erikoblog.ru.

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