Web-программирование на Delphi. Урок 2. Передача параметров (Денвер, CGI, script)

Автор megabax

24.08.2010 г.

New Page 1

Web-программирование на Delphi. Урок 2. Передача параметров (Денвер, CGI, script)

На прошлом уроке мы написали на Delphi простейшую программу, которая выводил в окно браузера "Hello, world!". Сегодня пойдем дальше и научимся анализировать входные параметры. И так, вот текст нашего примера:

program CgiDate;

{$APPTYPE CONSOLE}

uses SysUtils;

begin

writeln ('CONTENT-TYPE: TEXT/HTML');

writeln;

writeln ('<HTML><HEAD>');

writeln ('<TITLE>Cgidate</TITLE>');

writeln ('</HEAD><BODY>');

writeln ('<H1>Пример передачи параметров</H1>');

writeln ('<HR>');

writeln ('<H4>');

if ParamCount >0 then

begin

if ParamStr (1) = 'date' then

writeln (FormatDateTime('"Сегодня " dddd, mmmm d, yyyy', Now))

else

if ParamStr (1) = 'time' then

writeln (FormatDateTime('"Время" hh:mm:ss AM/PM', Now))

else

if ParamStr (1) = 'both' then

writeln (FormatDateTime('"Сегодня " dddd, mmmm d, yyyy,'

+ '"<p> и время" hh:mm:ss AM/PM', Now))

else

writeln ('Ошибка! Неверный параметр: ' + ParamStr (1) + '.')

end

else

writeln ('Параметр отсутствует.');

writeln ('</BODY></HTML>');

end.

Что же он делает? В зависимости от входным параметров выдает дату, время или и то и другое. И так, допустим, вы скомпилировали эту программу в файл ex1.exe. копируем его в каталог локального web-сервера. Запускаем с параметром date, набрав в командной строке браузера "http://localhost/ex1.exe?date". Вот что он выдаст*:

Наберем вместо date слово time, программа выдаст нам время*:

Если хотим и то и другое, то в качестве параметра укажем both*:

Возможно, у вас не будет работать данный пример. В этом случае надо настроить локальный web-сервер. Как это делается, я уже писал на прошлом уроке на примере сервера apach. Если у вас Денвер, то настроить его будет гораздо проще. Достаточно в файл .htacces добавить вот такие строки:

Options +ExecCGI +FollowSymLinks
AddHandler cgi-script .exe

Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями программного продукта "Internet Explorer", авторское право на который принадлежит "Microsoft".

Последнее обновление ( 17.07.2012 г. )

« След.		Пред. »

Вернуться