Input Queries
Сейчас мы попробуем прочитать запрос в стандартном CGI приложении с помощью 32-битной версии Дельфи (Delphi 2.x или 3.x).
Обычно это двух ступенчатый процесс. Первый шаг создание HTML и специальный CGI Form-тегов, второй шаг получение данных внутри CGI приложения на сервере.
HTML CGI форма определяется с помощью тегов <FORM>...</FORM>. Открывающий тег также содержит имя метода (GET or POST) и действие, которое является URLом CGI приложения на web сервере. Например:
<FORM ACTION=http://www.drbob42.com/cgi-bin/debug.exe METHOD=POST
...
</FORM
Данная HTML CGI форма посылает свои данные методом POST на мой web сервер, и выполняет программу debug.exe (из каталога cgi-bin). В данный момент мы пока не знакомы с концепцией различий между методами POST и GET (Я всегда использую метод POST). Мы заметим, что здесь пока нет ничего что бы посылать на сервер методом POST, это позже. Мы должны указать поля ввода внутри CGI формы. Для этого мы поместим некоторое количество наиболее стандартных Windows органов управления, все они предопределены, подобно editbox, memo, listbox, drop-down combobox, radiobuttons, checkboxes и конечно клавиши "action" (reset или submit).
Простой editbox это поля ввода типа "text", которое обязано иметь имя и необязательно размер и ширину в пикселях, и может иметь значение:
<INPUT TYPE=text NAME=login SIZE=8
Стандартное CGI приложение обязано проверить переменную среды REQUEST-METHOD для определения метода передачи данных. В случае POST, мы должны проверить CONTENT-LENGTH для определения количества символов, которые необходимо прочесть со стандартного ввода. Стандартный ввод содержит данные (такие как "login-xxxxxxxx") для нашего CGI приложения.
Вместо написания сложного стартового кода для каждого CGI приложения, я написал модуль DrBobCGI для выполнения всех необходимых стартовых процедур и извлечения входных данных и доступных затем через вызов единственной функции, называемой "Value". Так для выше приведенного примера мы можем вызвать "Value('login')" для получения строки 'xxxxxxxx'.
unit DrBobCGI;
{$I-}
interface
var
ContentLength: Integer = 0;
function Value(const Field: ShortString): ShortString;
{ use this function to get the CGI inputquery values }
implementation
uses
SysUtils, Windows;
var
Data: String = '';
function Value(const Field: ShortString): ShortString;
var
i: Integer;
begin
Result := '';
i := Pos(Field+'=',Data);
if i > 0 then
begin
Inc(i,Length(Field)+1);
while Data[i] <> '&' do
begin
Result := Result + Data[i];
Inc(i)
end
end
end {Value};
var
P: PChar;
i: Integer;
Str: ShortString;
type
TRequestMethod = (Unknown,Get,Post);
var
RequestMethod: TRequestMethod = Unknown;
initialization
P := GetEnvironmentStrings;
while P^ <> #0 do
begin
Str := StrPas(P);
if Pos('REQUEST_METHOD=',Str) > 0 then
begin
Delete(Str,1,Pos('=',Str));
if Str = 'POST' then RequestMethod := Post
else
if Str = 'GET' then RequestMethod := Get
end;
if Pos('CONTENT_LENGTH=',Str) = 1 then
begin
Delete(Str,1,Pos('=',Str));
ContentLength := StrToInt(Str)
end;
if Pos('QUERY_STRING=',Str) > 0 then
begin
Delete(Str,1,Pos('=',Str));
SetLength(Data,Length(Str)+1);
Data := Str
end;
Inc(P, StrLen(P)+1)
end;
if RequestMethod = Post then
begin
SetLength(Data,ContentLength+1);
for i:=1 to ContentLength do read(Data[i]);
Data[ContentLength+1] := '&';
{ if IOResult <> 0 then { skip }
end;
i := 0;
while i < Length(Data) do
begin
Inc(i);
if Data[i] = '+' then Data[i] := ' ';
if (Data[i] = '%') then { special code }
begin
Str := '$00';
Str[2] := Data[i+1];
Str[3] := Data[i+2];
Delete(Data,i+1,2);
Data[i] := Chr(StrToInt(Str))
end
end;
if i > 0 then Data[i+1] := '&'
else Data := '&'
finalization
Data := ''
end.
Я написал кучу CGI приложений за последний год и все они используют модуль DrBobCGIю Теперь реальное пример: стандартное CGI приложение - гостевая книга (guestbook), в которой запрашивается ваше имя и небольшой комментарий, написанное с помощью всего нескольких строк на Дельфи.
Вначале CGI форма:
<HTML>
<BODY>
<H2>Dr.Bob's Guestbook</H2>
<FORM ACTION=http://www.drbob42.com/cgi-bin/guest.exe
METHOD=POST>
Name: <INPUT TYPE=text NAME=name><BR>
Comments: <TEXTAREA COLS=42 LINES=4 NAME=comments>
<P>
<INPUT TYPE=SUBMIT VALUE="Send Comments to
Dr.Bob">
</FORM>
</BODY>
</HTML>
Теперь консольное приложение:
program CGI;
{$I-}
{$APPTYPE CONSOLE}
uses
DrBobCGI;
var
guest: Text;
Str: String;
begin
Assign(guest,'book.htm'); // assuming that's the guestbook
Append(guest);
if IOResult <> 0 then // open new guestbook
begin
Rewrite(guest);
writeln(guest,'<HTML>');
writeln(guest,'<BODY>')
end;
writeln(guest,'Date: ',DateTimeToStr(Now),'<BR>');
writeln(guest,'Name: ',Value('name'),'<BR>');
writeln(guest,'Comments: ',Value('comments'),'<HR>');
reset(guest);
while not eof(guest) do // now output guestbook itself
begin
readln(guest,Str);
writeln(Str)
end;
close(guest);
writeln('</BODY>');
writeln('</HTML>')
 |
Вопрос:
У меня на форме две "submit" клавиши, одна на переход на предыдущую страницу, другая переход на следующую страницу. Как определить какая из них была нажата, чтобы я мог выполнить соответствующее действие.
Доктор Боб отвечает:
Вы должны назначить уникальное значение для каждой кнопки "type=submit", ниже приведен соответствующий код:
<HTML>
<BODY>
Edit the information and press the SAVE button<BR>
To Delete information, press the DELETE button<BR>
<P>
<FORM METHOD=POST ACTION=http://www.drbob42.com/cgi-bin/debug.exe>
<HR>
<input type=text name=name>
<P>
<input type=reset value="RESET">
<input type=submit name=action value="SAVE">
<input type=submit name=action value="DELETE">
</FORM>
</BODY>
</HTML>
Вы должны получить "Action=SAVE" или "Action=DELETE" после нажатия одной из этих кнопок.
