Итак Вам надоели статические страницы на Вашем сайте и Вы решили написать свой первый скрипт. На первый план выходит проблема выбора подходящих инструментов для этого действия. В этой статье мы остановимся на Inprise Delphi. На самом деле, все написанное здесь с легкостью переносится на любой (или почти любой) язык или платформу.

Кое-кто может мне возразить, что описанный в статье способ создания CGI скриптов не самый удобный из тех что предоставляет Delphi, что можно просто создать Web Server Application. Но в описаным способом создаются гиганские приложения размером около 400 килобайт, а выгода от простоты написания черезвучайно иллюзорны.

1. Необходимые приспособления
Для отладки CGI скриптов нам нужен www сервер, поддерживающий CGI скрипты. Например Personal Web Server от Microsoft или Apache Web Server. Если у Вас на компьютере на установлен ни один из подходящих серверов, а Вам не хочется захломлять свой компьютер огромными программами, то можно воспользоваться крохотным www сервером TinyWeb. Эта программа вполне удовлетворяет требованиям к www серверу, необходимому для отладки CGI приложений. Найти ее можно например на ftp://ftp.imc.da.ru/pub/developer/TinyWeb.zip или на сайте производителя: http://www.ritlabs.com/tinyweb

Установка сервера предельно проста: нужно разорхивировать все файлы из архива в какую-либо директорию и запустить модуль TinyWeb.exe, указав в качестве параметра коммандной строки полный путь к корневому каталогу сервера. Нужно помнить, что в этом каталоге должен распологаться файл с именем index.html. Надо так же создать подкаталог с именем CGI-BIN в который мы будем помещать скомпилированные CGI скрипты.

2. Статический CGI скрипт
В случае Windows CGI скрипт представляет собой обычное консольное Win32 приложение. Для создания такого приложения в Delphi проще всего воспользоваться следующим шаблоном:

// ******************************
// файл: CGI.dpr
// ******************************
program CGI;{$APPTYPE CONSOLE}
uses
Windows,
CGIUN in 'CGIUN.pas';
begin
Main;
end.// ******************************
// файл: CGIUN.pas
// ******************************
unit CGIUN;
interface
procedure Main;
implementation
procedure Main;
begin
end;
end.

Запишем эти файлы в какую-либо папку и откроем проект CGI.dpr в Delphi. В модуле CGIUN в процедуре Main напишем:

procedure Main;
begin
WriteLn('Content-Type: text/html');
WriteLn;
WriteLn('< html>');
WriteLn('< head>');
WriteLn('< title>CGI скрипт< /title>');
WriteLn('< /head>');
WriteLn('< body>');
WriteLn;
WriteLn('< h1>Пример HTML страницы сгенерированной CGI скриптом< /h1>');
WriteLn('< /body>');
WriteLn('< /html>');
end;

Откомпилируем проект и поместим выполняемый модуль в директорию для скриптов (обычно это CGI-BIN или SCRIPTS) www сервера. Затем запустим браузер и наберем путь до нашего примера.
Таким образом написан простой CGI скрипт, выдающий статическую html страницу. Заметим, к слову, что получившийся выполняемый модуль имеет размер всего 17 килобайт, что совсем не характерно для программ, написанных на Delphi.