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

     inherited Destroy

   end {Destroy};

   procedure TBDosEnvironment.DoNothing(const Value: StringList);

   begin

   end {DoNothing};

   function TBDosEnvironment.GetDosEnvCount: Word;

   begin

     if Assigned(FDosEnvList) then

       Result := FDosEnvList.Count

     else

       Result := 0;

   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.

Здесь список переменных среды (предоставленный Deepak Shenoy), которые доступны для CGI программ. Даже ISAPI программы могут использовать эти переменные:

Environment Variable Purpose/Meaning/Value GATEWAY_INTERFACE  Версия CGI для которой скомпилирован web сервер SERVER_NAME IP адрес сервера или имя. SERVER_PORT Порт на сервере, которые принимает HTTP запросы. SERVER_PROTOCOL Имя и версия протокола, используемая для обработки запросов. SERVER_SOFTWARE Имя (и обычно версия) программного обеспечения сервера. AUTH_TYPE Схема проверки прав используемая сервером (NULL, BASIC) CONTENT_FILE Файл используемый для передачи данных CGI программе (только Windows HTTPd/WinCGI). CONTENT_LENGTH Количество байтов переданное на стандартный вход (STDIN) как содержимое POST запроса. CONTENT_TYPE Тип данных переданных на сервер. OUTPUT_FILE Имя файла для результата (только Windows HTTPd/WinCGI). PATH_INFO Дополнительный, относительный путь переданный на сервер после имени скрипта, но до данных запроса. PATH_TRANSLATED Та же самая информация, но преобразованная из относительного пути в абсолютный. QUERY_STRING Данные переданные как часть URL, все после символа ? в URL. REMOTE_ADDR Адрес IP или имя сервера конечного пользователя. REMOTE_USER Имя пользователя, если используется схема проверки прав. REQUEST_LINE Полный HTTP запрос представляемый сервером (зависит от сервера). REQUEST_METHOD Указывает метод передачи данных, как часть URL (GET) или через стандартный ввод STDIN (POST). SCRIPT_NAME Имя запущенного скрипта.

Немного еще дополнительной, но важной информации. Немного об переменных среды, которые особо важны для обработки запроса, и небольшое описание по обработке стандартных CGI приложений:

REQUEST_METHOD – указывает, как посланы данные, как POST или как GET метод.

QUERY_STRING – если используется GET

CONTENT_LENGTH – если мы используем POST, то мы должны прочитать "CONTENT_LENGTH" символов со стандартного ввода (которые оканчиваются "Query", подобно QUERY_STRING при использовании метода GET).

Во всех случаях стандартное CGI приложение должно писать свой вывод на стандартный выход, если мы используем консольное приложение.

Теперь с помощью компонента TBDosEnvironment мы создадим приложение, которое примет все три переменных среды, описанных выше и получит необходимые данные. После этого мы напишем код генерирующий вывод.

Правда просто? Для другого очень маленького (39 Кб) стандартного CGI приложения, проверьте Search Engine на моем web сайте. Краткий исходный код будет опубликован в одной из статей в The Delphi Magazine, но я могу сказать, что базовый протокол CGI связи не более сложный, чем представленный здесь.

1.3.6. 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>

Результатом этой фразы будет нарисован editbox в котором можно ввести до восьми символов, и которое будет послано нашему CGI приложению как "login=xxxxxxxx", где xxxxxxxx данные введенные на форме в окошке подобному этому

Стандартное 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;