Как мы уже выяснили такое CGI-приложение будет представлять собой исполняемую Win32 программу (exe), таким веб-приложениям принято давать расширение CGI, хотя это и непринципиально. Для начала рассмотрим пример самой простой CGI-программки выдающей в окно пользовательского браузера текст "HELLO WORLD".
===cut===
program MyApp {$APPTYPE CONSOLE} // тип приложения Win32 консоль {$E cgi}
// Расширение приложения cgi
begin
WriteLn('Content-Type: text/html');
WriteLn; WriteLn; WriteLn('');
WriteLn('');
WriteLn('Простейшее CGI приложение');
WriteLn('');
WriteLn('');
WriteLn('');
WrОтiteLn('HELLO WORLD');
WriteLn('');
WriteLn(''); end. ===cut===
Откомпиллируйте этот исходный код в среде Дельфи, поместите скомпонованный исполняемый код в ваш CGI-BIN каталог ( в каталог, где разрешено исполнение скриптов), напишите небольшую веб страничку для активизации нашего CGI-приложения, например, такую:
===cut==
Форма для активизации CGI-приложения
Теперь откройте нашу веб-страничку и перейдите по ссылке "Нажми сюда для запуска приложения". Если вы все сделали правильно, то на экране в окне вашего любимого браузера появиться текст "HELLO WORLD". Как видите все достаточно просто! Однако, для полноценной работы приложения, оно должно уметь не только выводить некие данные, но получать данные от пользователя, т.е. обеспечивать ввод информации. Ввод данных в случае CGI-приложения, как мы уже говорили, будет осуществляться по средствам интерфейса организованного веб-формой. Такая форма может передавать данные двумя способами, в зависимости от значения атрибута "METHOD". В случае ... данные передаются через строку адреса браузера и записываются в переменную системного окружения QUERY_STRING, а размер строки данных в переменную CONTENT_LENGTH. В случае ... передаваемые данные в строке адреса не отображаются, передаются через стандартный поток ввода консольной программы. Таким образом задача получения данных CGI-приложением сводится к чтению определенной переменной окружения. Надо отметить, что передаваемые веб-формой данные имеют следующий формат:= & =... Задача программиста сводится к извлечению значений нужных атрибутов из полученной от браузера строки и преобразования этих значений из вида URLencoded в обычные текстовые данные. Суть URLencoded формата заключается в том, что некоторые символы, содержащиеся в значении поля, заменяются на % и следующим за ним шестнадцатиричным кодом символа, а пробел заменяется на +. А сейчас давайте рассмотрим пример CGI приложения, которое бы производило подобие некоторой идентификации пользователя системы.
Авторизация доступа
Введите пароль:
===cut==
Далее идет пример непосредственно CGI приложения. Следует отметить, что приведенный в этом примере способ получения данных от веб формы (непосредственное чтение устройства стандартного ввода STD_INPUT) является наиболее наглядным, но не самым удобным, в Дельфи предусмотренны более удобные механизмы, которых мы коснемся позже.
{Файл проекта 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('');
WriteLn('');
WriteLn('Идентификация пользователя');
WriteLn('');
WriteLn(''); WriteLn(''); if APasswd = UserPassword then
WriteLn('Успешная идентификация!')
else
WriteLn('Пароль введен неверно!')
WriteLn('');
WriteLn(''); end; ===cut==