Интернет решения от доктора Боба - Bob Swart

Для начала мы должны определить, что хочет клиент, как выглядит клиентская сторона. Как можно послать серверу информацию для выполнения? Для этого мы должны использовать специальное расширение HTML, называемое FORMS. Подобно Дельфи формам, форма это место на котором располагаются органы управления, такие как edit box, listbox, combobox, button или multi-line text field. В отличии от Дельфи мы имеем не визуальную среду разработки формы с использованием HTML кодов. Для примера приведу часть файла DELBOOKS.HTM. Полный файл можно взять на http://members.aol.com/drbobnl/delbooks.htm.

<FORM ACTION="http://www.drbob42.com/cgi-bin/delbooks.exe" METHOD="POST">

<UL>

<INPUT TYPE="radio" NAME="DELPHI" VALUE="0" CHECKED>Delphi 1.0x or 2.0x<BR>

<INPUT TYPE="radio" NAME="DELPHI" VALUE="1">Delphi 1.0x only<BR>

<INPUT TYPE="radio" NAME="DELPHI" VALUE="2">Delphi 2.0x only

<P>

<LI>Level:

<BR><SELECT NAME="Level">

    <OPTION VALUE=""> don't care

    <OPTION VALUE="1"> Beginning

    <OPTION VALUE="2"> Intermediate

    <OPTION VALUE="3"> Advanced

    </SELECT>

<P>

</UL>

<HR>

<P>

<INPUT TYPE="RESET" VALUE="Reset Query">

<INPUT TYPE="SUBMIT" VALUE="Get Results">

</FORM>

Данный код показывает на форме два типа органов управления: три радио кнопки (выбор между "Delphi 1.0x or 2.0x", "Delphi 1.0x only" и "Delphi 2.0x only"), и combobox с четырьмя значениями ("don't care", "Beginning", "Intermediate" и "Advanced"). Так же имеется две обычные кнопки, одна типа "RESET", для сброса введенной информации и одна типа "SUBMIT", для отправки введенной информации. Для выполнения запроса из Web браузера на Web сервер необходимо нажать кнопку типа SUBMIT (в нашем случае кнопку с текстом "Get Results"). Но как сервер узнает, какое CGI приложение запускать для обработки запроса? Для этого мы должны обратить внимание на параметр ACTION в теге FORM (первая строка кода). Параметр ACTION указывает точное местонахождение CGI приложения, в нашем случае это http://www.drbob42.com/cgi-bin/delbooks.exe (но ребята не пытайтесь запускать это у себя дома, так как это ссылка внутри моей Интрасети, а не Интернета).

В действительности "официальная" DELBOOKS.HTM содержит гораздо больше органов управления. Она также доступна на http://members.aol.com/drbobnl/delbooks.htm. В Netscape Navigator :

Нажатие на клавишу "Get Result" посылает информацию на Web сервер, котрый запускает delbooks.exe приложение с информацией введенной на форме. В нашем случае это может быть DELPHI="2", LEVEL="3", TITLE="", AUTHOR="Bob_Swart", PUBLISHER="" и ISBN="" (символ подчеркивания здесь означает пробел). Delphi 2 CGI приложение delbooks.exe обрабатывает полученную информацию, выполняет запрос и генерирует динамическую HTML страницу, которую отправляет на стандартный вывод. Web затем отправляет ее клиенту в его Webбраузеру который отображает ее на экране.

2.2.3. Переменные среды

Стандартное CGI приложение должно анализировать переменные среды для определения метода передачи и размера посылаемой информации через стандартный ввод. Для получения списка переменных среды я всегда использую простой компонент, который я написал очень давно и компилирую его с помощью директив условной компиляции, как в Дельфи 1, так и в Дельфи 2.

 unit TBDosEnv;

 interface

 uses

   SysUtils, WinTypes, WinProcs, Classes;

 type

   TBDosEnvironment = class(TComponent)

   public

   { Public class declarations (override) }

     constructor Create(AOwner: TComponent); override;

     destructor Destroy; override;

   private

   { Private field declarations }

     FDosEnvList: TStringList;

   protected

   { Protected method declarations }

     function GetDosEnvCount: Word;

   public

   { Public interface declarations }

     function GetDosEnvStr(Const Name: String): String;

     { This function is a modified version of the GetEnvVar function that

       appears in the WinDos unit that comes with Delphi. This function's

       interface uses Pascal strings instead of null-terminated strings.

     }

     property DosEnvCount: Word read GetDosEnvCount;

     property DosEnvList: TStringList read FDosEnvList;

   end;

 implementation

   constructor TBDosEnvironment.Create(AOwner: TComponent);

   var P: PChar;

       i: Integer;

   begin

     inherited Create(AOwner);

     FDosEnvList := TStringList.Create;

     {$IFDEF WIN32}

     P := GetEnvironmentStrings;

     {$ELSE}

     P := GetDosEnvironment; { Win API }

     {$ENDIF}

     i := 0;

     while P^ <> #0 do

     begin

       Inc(i);

       FDosEnvList.Add(StrPas(P));

       Inc(P, StrLen(P)+1) { Fast Jump to Next Var }

     end;

   end {Create};

   destructor TBDosEnvironment.Destroy;

   begin

     FDosEnvList.Free;

     FDosEnvList := nil;

     inherited Destroy

   end {Destroy};

   function TBDosEnvironment.GetDosEnvCount: Word;

   begin

     Result := 0;

     if Assigned(FDosEnvList) then Result := FDosEnvList.Count

   end {GetDosEnvCount};

   function TBDosEnvironment.GetDosEnvStr(Const Name: String): String;

   var i: Integer;

       Tmp: String;

   begin

     i := 0;

     Result := '';

     if Assigned(FDosEnvList) then while i <FDosEnvList.Count >do

     begin

       Tmp := FDosEnvList[i];

       Inc(i);

       if Pos(Name,Tmp) = 1 then

       begin

         Delete(Tmp,1,Length(Name));

         if Tmp[1] = '=' then

         begin

           Delete(Tmp,1,1);

           Result := Tmp;

           i := FDosEnvList.Count { end while-loop }

         end

       end

     end

   end {GetDosEnvStr};

 end.

Данный компонент получает список переменных среды во время своего создания. Свойство DosEnvCount и DosEnvList является свойством только для чтения и поэтому лучше его создавать его в на ходу, а не бросать на форму, так как берется только 'свежий' список переменных среды, а не загружается из .DFM файла).

2.2.4. Анализ

Среди переменных среды есть переменная с именем REQUEST_METHOD. Она должна иметь значение POST для нашего примера (Я не люблю другие методы). Затем мы должны найти размер информации, которая передана нам. Для этого мы должны получить переменную CONTENT_LENGTH. Сама информация поступает к нам через стандартный ввод (без маркера конца файла, поэтому наша задача не пытаться читать больше, чем нам передано). Данные поступающие через стандартный ввод имеют следующую форму FIELD=VALUE и разделяется с помощью символа '&'. Например: AUTHOR="Bob_Swart"&. Поскольку мы имеем весь входной поток, как одну длинную строку, то мы можем быстро найти параметр AUTHOR с помощью следующей функции:

 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};

Следующий шаблон кода показывает как динамически создать переменную TBDosEnvironment, прочитать информацию со стандартного ввода и получить строку готовую для анализа переменных формы.

 {$APPTYPE CONSOLE}

 var

   Data: String;

   ContentLength,i,j: Integer;

 begin

   writeln('HTTP/1.0 200 OK');

   writeln('SERVER: Dr.Bob''s Intranet WebServer 1.0');

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

   writeln;

   writeln('<HTML>');

   writeln('<BODY>');

   writeln('<I>Generated by Dr.Bob''s CGI-Expert on </I>',DateTimeToStr(Now));

   with TBDosEnvironment.Create(nil) do