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

Swart Bob

<OPTION VALUE=""> don't care

<OPTION VALUE="1"> Beginning

<OPTION VALUE="2"> Intermediate

<OPTION VALUE="3"> Advanced

</SELECT>

</UL>

<HR>

<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 приложения, в нашем случае это(но ребята не пытайтесь запускать это у себя дома, так как это ссылка внутри моей Интрасети, а не Интернета).

В действительности "официальная" 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;