Категории
Самые читаемые
Лучшие книги » Компьютеры и Интернет » Программирование » Интернет решения от доктора Боба - Bob Swart

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

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

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 2 3 4 5 6 7 8 9 10 ... 16
Перейти на страницу:

HTML страница всегда начинается тегом <HTML> и заканчивается тегом </HTML>.

Содержимое страницы размещается между тегами <BODY> и </BODY>. Множественные разрывы строк и пробелы/табуляции игнорируются и заменяются на один пробел, это причина, по которой требуется специальный тег разрыва строки <BR> и <P>. Простая HTML страница с одним заголовком и ссылкой выглядит так.

<HTML>

<BODY>

<H1>Hello, world!</H1>

<P>

<HR

<ADDRESS>

<A HREF=http://www.drbob42.com>Dr.Bob's Delphi Clinic</A>

</ADDRESS>

</BODY>

</HTML>

Примечание: тег <ADDRESS>, который мы можем использовать для помещения адресной информации и ссылки на домашнюю страницу или e-mail адрес. Эта информация будет отображена наклонным шрифтом. Тег <A> часть основы HTML; данная форма используется для указания гипер-ссылки, в данном случае на другую страницу (мою домашнюю страницу) по адресу http://www.drbob42.com. Для данной простой HTML страницы, браузер (такой как Netscape Navigator) покажет одну страницу с заголовком и с ссылкой.

Для освоения HTML я могу рекомендовать хорошую книгу "Netscape & HTML Explorer".

1.3. CGI

Аббревиатура CGI означает Common Gateway Interface, и является связевым протоколом между формой в Web браузере (клиент) и приложением запущенным на Web сервере (сервер). Приложение обычно называется CGI скрипт, но мы можем использовать Дельфи для написания CGI приложений без скриптов.

Имеется два типа CGI: стандартное или консольное CGI приложение и позже появилась версия для Windows называемая WinCGI.

1.3.1. Консольное CGI приложение

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

1.3.2. WinCGI

Приложение WinCGI взаимодействует с формой на клиенте с помощью Windows.INI файла вместо переменных среды. Windows.INI файл содержит управляющую информацию, иногда данные формы и имена входного, данных и выходного файлов.

1.3.3. Delphi и CGI

В данной главе я расскажу, как написать простое Дельфи CGI приложение, без использования Web Modules или других Client/Server модулей.

Во первых аббревиатура CGI означает Common Gateway Interface, и это только имя для передачи информации от клиента серверу. На клиентской стороне это реализуется с помощью формы, содержащей только теги. На серверной стороне

На сервере запускается CGI приложение, которое иногда называется CGI скрипт (для примера на Unix машинах, где Perl используется для исполнения CGI скриптов).

В данной главе я сконцентрирую внимание на написание CGI приложения для Windows NT web сервера, и использовании 32-битной Дельфи (например Delphi 2.x или 3.x) для данной задачи, данный код может быть также без проблем откомпилирован в C++Builder.

Стандартное CGI приложение получает данные через стандартный вход и должно выдать ответ через стандартный вывод. (например сгенерированную HTML страницу). Это означает необходимость написания консольного приложения. Если даже нет входных данных мы все равно можем использовать CGI приложение для генерации динамических HTML страниц (например для выдачи данных их таблицы).

1.3.4. Динамический вывод

Для начала посмотрим на стандартное "hello world" CGI приложение. Единственное, что оно должно сделать, это вернуть HTML страницу со строкой "hello, world". Перед тем как мы начнем делать это – обратим внимание на следующее: CGI приложение должно сообщить миру какой (MIME) формат оно выдает. В нашем случае это "text/html", которое мы должны указать как: content-type: text/html , и затем одну пустую строку.

Вот код нашего первого "Hello, world!" CGI приложения:

 program CGI1;

 {$APPTYPE CONSOLE}

 begin

   writeln('content-type: text/html');

   writeln;

   writeln('<HTML');

   writeln('<BODY');

   writeln('Hello, world!');

   writeln('</BODY');

   writeln('</HTML')

 end.

Если вы откомпилируете данную программу в Дельфи 2 или 3 и затем запустите ее из web браузера подключенного к web серверу, где оно записано в исполнимом виде в исполняемом каталоге таком как cgi-bin, то вы увидите текст "Hello, world!" на странице.

1.3.5. CGI ввод

Теперь, мы знаем как создавать CGI приложение, которое может генерировать динамическую HTML страницу (или в действительности почти статическую). Но как насчет ввода? Здесь более чем одно действие: мы должны проверять переменную DOS 'CONTENT LENGTH' что бы знать как много символов мы можем прочитать со стандартного ввода (если мы попытаемся читать больше чем есть, то мы повиснем навсегда). Конечно, это широко известный факт. Я написал компонент TBDosEnvironment чтобы вы могли иметь доступ до переменных среды DOS:

 unit DrBobDOS;

 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;

     procedure DoNothing(const Value: TStringList);

   protected

   { Protected method declarations }

     Dummy: Word;

     function GetDosEnvCount: Word;

   public

   { Public interface declarations }

     function GetDosEnvStr(const Name: String): String;

     { This function is a modified version of the GetEnvVar function thatappears in the WinDos unit that comes with Delphi. This function's interface uses Pascal strings instead of null-terminated strings.

     }

   published

   { Published design declarations }

     property DosEnvCount: Word read GetDosEnvCount write Dummy;

     property DosEnvList: TStringList read FDosEnvList write DoNothing;

   end;

 implementation

   constructor TBDosEnvironment.Create(AOwner: TComponent);

   var

     P: PChar;

   begin

     inherited Create(AOwner);

     FDosEnvList := TStringList.Create;

   {$IFDEF WIN32}

     P := GetEnvironmentStrings;

   {$ELSE}

     P := GetDosEnvironment;

   {$ENDIF}

     while P^ <> #0 do

     begin

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

   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 программы могут использовать эти переменные:

1 2 3 4 5 6 7 8 9 10 ... 16
Перейти на страницу:
На этой странице вы можете бесплатно скачать Интернет решения от доктора Боба - Bob Swart торрент бесплатно.
Комментарии