else ShowMessage('File not saved!'); {если пользователь отказался сохранять файл}
end;
end.
⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter_18.
Глава 19
Написание CGI-приложений
Постановка задачи
Разработать CGI-сценарий на Delphi. В качестве примера, при активации через форму сценарий будет выводить определенную фразу.
Разработка проекта
К удивлению некоторых программистов, в Delphi можно разрабатывать CGI-сценарии. Для примера, разработаем сценарий, при обращении к которому будет создаваться HTML-страница с текстом "Это мой первый CGI-сценарий".
Поскольку это будет не обычная выполняемая программа, то стандартный проект, который по умолчанию предлагает нам Delphi, не подходит. Выполните команду меню File→New→Other, в результате чего откроется диалоговое окно New Items (рис. 19.1).
Рис. 19.1. Диалоговое окно New Items
Выберите тип программы Console Application и нажмите кнопку OK. В появившемся окне сотрите весь текст и введите следующий код:
program cgi_test;//название сценария
{$APPTYPE CONSOLE}
{$Е cgi}//расширение приложения будет .cgi
begin
//способ отображения – text/html
WriteLn('Content-Type: text/html');
WriteLn;
WriteLn;
WriteLn('<HTML>'); //начало страницы
WriteLn('<HEAD>');
//заголовок
WriteLn('<TITLE>Первый cgi-сценарий на Delphi</TITLE>');
//кодировка и тип содержимого
WriteLn('<МЕТА http-equiv="Content-Type" ' +
'content="text/html; charset=windows-1251">');
WriteLn('</HEAD>');
WriteLn('<BODY>');
WriteLn('<H1><CENTER>Это мой первый CGI-сценарий</CENTER>'
+'</Н1>'); //выводим текст большими жирными буквами