Delphi и CGI

В последнее время в связи с растущей популярностью сети Интернет все чаше становится необходимость разработки приложений, которые бы могли работать непосредственно в www среде. Т.е. такие, которые бы полностью бы интегрировались в уже привычные нам веб-странички. По сути дела работа с таким приложением происходит полностью через любимый браузер пользователя и ничем не отличается от серфинга по страничкам. Ввод данных равно как и выдача обработанных результатов происходит через html-формы веб-страничек. Обработка же данных происходит на веб-сервере. Таким образом, мы получим самое что ни есть клиент-серверное приложение в его самом классическом понимании.
Необходимо отметить, что CGI-приложения разрабатываемые в средах разработки ориентированных на Win32 системы, в том числе и в Дельфи, а вернее серверная часть такого приложения может работать только под Win32 сервером, например IIS из NT или Personal Web Server из Windows98. Что касается клиентской части, то здесь никаких проблем совместимости не должно быть в принципе, т.к. клиентская часть представляет собой сгенерированный HTML код, который поддерживается любым браузером, не важно какую платформу использует пользователь, будь то Win32, OS/2, Unix и др.
Таким образом, программисту пишущему CGI-приложения придется столкнуться с двумя основными задачами - это разработка веб-интерфейса и разработка непосредственно математической части приложения.
Что касается веб-интерфейсов, то здесь желательно знать хотя бы основы языка HTML. Здесь мы не будем уделять этому особое внимание, хотя знание HTML для программиста CGI-приложений очень желательно. Сейчас же для нас будет вполне достаточным знание таких основополагающих тэгов как <HTML>, <BODY> и конструкции <FORM>.
Ну а теперь будем разбираться непосредственно с телом CGI-приложения. Во-первых, что такое CGI-приложение разрабатываемое в Win32 среде разработки? Это приложение типа Win32 CONSOLE, т.е. консольное приложение Win32. Только вот для такого приложения в отличии от классической Win32 консоли стандартным устройством ввода является либо поля ввода HTML формы либо строка адреса браузера, а в качестве стандартного устройства вывода используется окно браузера. Активизация приложения происходит непосредственно из какой-либо HTML странички, например так <A HREF="http://myhost/myapp.exe">My Application</A> Как мы уже выяснили такое CGI-приложение будет представлять собой исполняемую Win32 программу (exe), таким веб-приложениям принято давать расширение CGI, хотя это и непринципиально.
Для начала рассмотрим пример самой простой CGI-программки выдающей в окно пользовательского браузера текст "HELLO WORLD".
program MyApp
{$APPTYPE CONSOLE} // тип приложения Win32 консоль
{$E cgi} // Расширение приложения cgi
begin
 WriteLn('Content-Type: text/html');
 WriteLn;
 WriteLn;
 WriteLn('<HTML>');
 WriteLn('<HEAD>');
 WriteLn('<TITLE>Простейшее CGI приложение</TITLE>');
 WriteLn('<META http-equiv="Content-Type" content="text/html;' +
 ' charset=windows-1251">');
 WriteLn('</HEAD>');
 WriteLn('<BODY>');
 WrОтiteLn('<H1>HELLO WORLD</H1>');
 WriteLn('</BODY>');
 WriteLn('</HTML>');
end.
Откомпилируйте этот исходный код в среде Delphi, поместите скомпонованный исполняемый код в ваш CGI-BIN каталог (в каталог, где разрешено исполнение скриптов), напишите небольшую веб страничку для активизации нашего CGI-приложения, например, такую:
<HTML>
<HEAD>
<TITLE>Форма для активизации CGI-приложения</TITLE>
</HEAD>
<BODY>
<A HREF="http://localhost/cgi-bin/myapp.cgi">
Нажми сюда для запуска приложения</A>
</BODY>
</HTML>
Теперь откройте нашу веб-страничку и перейдите по ссылке "Нажми сюда для запуска приложения". Если вы все сделали правильно, то на экране в окне вашего любимого браузера появиться текст "HELLO WORLD".
Как видите все достаточно просто! Однако, для полноценной работы приложения, оно должно уметь не только выводить некие данные, но получать данные от пользователя, т.е. обеспечивать ввод информации. Ввод данных в случае CGI-приложения, как мы уже говорили, будет осуществляться по средствам интерфейса организованного веб-формой. Такая форма может передавать данные двумя способами, в зависимости от значения атрибута "METHOD".
В случае <FORM METHOD="GET" ...>... данные передаются через строку адреса браузера и записываются в переменную системного окружения QUERY_STRING, а размер строки данных в переменную CONTENT_LENGTH.
В случае <FORM METHOD="POST" ...>... передаваемые данные в строке адреса не отображаются, передаются через стандартный поток ввода консольной программы.
Таким образом задача получения данных CGI-приложением сводится к чтению определенной переменной окружения. Надо отметить, что передаваемые веб-формой данные имеют следующий формат: 
 <имя_атрибута1>=<значение_атрибута1>&<имя_атрибута2>=<значение_атрибута2>...
Задача программиста сводится к извлечению значений нужных атрибутов из полученной от браузера строки и преобразования этих значений из вида URLencoded в обычные текстовые данные. Суть URLencoded формата заключается в том, что некоторые символы, содержащиеся в значении поля, заменяются на % и следующим за ним шестнадцатиричным кодом символа, а пробел заменяется на +.
А сейчас давайте рассмотрим пример CGI приложения, которое бы производило подобие некоторой идентификации пользователя системы.
<!-- HTML форма ввода пароля -->
<HTML>
<HEAD>
<TITLE>Авторизация доступа</TITLE>
</HEAD>
<BODY>
<FORM method="POST" action="http://localhost/cgi-bin/chkpaswd.cgi">
 Введите пароль:
 <input type="text" name="paswd" size=20>
 <input type="submit" value="Найти">
 <input type="reset" value="Очистить">
</FORM>
</BODY>
</HTML>
Далее идет пример непосредственно CGI приложения. Следует отметить, что приведенный в этом примере способ получения данных от веб формы (непосредственное чтение устройства стандартного ввода STD_INPUT) является наиболее наглядным, но не самым удобным, в Delphi предусмотрены более удобные механизмы, которых мы коснемся позже.
{Файл проекта CGIApp2}
program CGIApp2;
{$APPTYPE CONSOLE}
uses
 MainUn in 'MAinUn.pas';
{$E cgi}
begin
 Main;
end.
program MainUn;
interface
uses
 SysUtils, Windows, Classes;
implementation
// Функция перевода шестнадцетиричного символа в число
function HexToInt(CH: Char): Integer;
begin
 Result := 0;
 case CH of
 '0'..'9': Result := Ord(CH) - Ord('0');
 'A'..'F': Result := Ord(CH) - Ord('A') + 10;
 'a'..'f': Result := Ord(CH) - Ord('a') + 10;
 end;
end;
// Преобразует символы, записанные в виде URLencoded
function Decode(Value: string): string;
var
 i, L: Integer;
begin
 Result := ;
 L := 0;
 for i := 1 to Length(Value) do
 begin
 if (Value[i] <> '%') and (Value[i] <> '+') and (L < 1) then
 begin
 Result := Result + Value[i];
 end
 else
 begin
 if (Value[i] = '+') then
 Result := Result + ' '
 else if (Value[i] = '%') then
 begin
 L := 2;
 if (i < Length(Value) - 1) then
 begin
 Result := Result + Chr(HexToInt(Value[i+1]) * 16 +
 HexToInt(Value[i+2]));
 end;
 end
 else
 Dec(L);
 end;
 end;
end;
// Функция возвращает значение атрибута заданного
// в качестве параметра функции из строки данных
// считанной из устройства стандартного ввода.
function ParamByName(Name: string): string;
var
 SS, ST: string;
 K: Integer;
begin
 Result := ;
 SS := InParams;
 while Length(SS) <> 0 do
 begin
 K := Pos('&', SS);
 if (K <> 0) then
 begin
 ST := Copy(SS, 1, K-1);
 SS := Copy(SS, K+1, 10000);
 end
 else
 begin
 ST := SS;
 SS := ;
 end;
 K := Pos('=', ST);
 if (K <> 0) then
 begin
 if (Name = Copy(ST, 1, K-1)) then
 begin
 Result := Decode(Copy(ST, K+1, 6000));
 end;
 end;
 end;
end;
procedure Main;
var
 STR: string;
 StdIn, Size, Actual: Cardinal;
 InParams: string;
const
 UserPassword: String = 'MyPass';
begin
 StdIn := GetStdHandle(STD_INPUT_HANDLE);
 Size := SetFilePointer(StdIn, 0, nil, FILE_END);
 SetFilePointer(StdIn, 0, nil, FILE_BEGIN);
 SetLength(STR, Size+1);
 if (Size <= 0) then
 Exit;
 // Читаем данные из стандартного устройства ввода
 ReadFile(StdIn, STR[1], Size, Actual, nil);
 STR[Size+1] := #0;
 InParams := PChar(@STR[1]);
 APasswd := ParamByName('paswd');
 WriteLn('Content-Type: text/html');
 WriteLn;
 WriteLn;
 WriteLn('<HTML>');
 WriteLn('<HEAD>');
 WriteLn('<TITLE>Идентификация пользователя</TITLE>');
 WriteLn('<META http-equiv="Content-Type" content="text/html;'+
 ' charset=windows-1251">');
 WriteLn('</HEAD>');
 WriteLn('<BODY>');
 if APasswd = UserPassword then
 WriteLn('<H1>Успешная идентификация!</H1>')
 else
 WriteLn('<H1>Пароль введен неверно!</H1>')
 WriteLn('</BODY>');
 WriteLn('</HTML>');
end;
Ну, вот пока что все. Но это совсем не значит, что мы полностью охватили всё, что касается разработки CGI приложений на Delphi. В самое ближайшее время я обязательно продолжу это повествование, ведь впереди еще столько интересной и полезной информации. Так что, до скорого!
Source: http://forum.sources.ru
ID: 03419
Category:Связь
Category:Web