Web-программирование на Delphi. Урок 3. Вывод переменных окружения

Автор megabax

10.11.2010 г.

New Page 1

Web-программирование на Delphi. Урок 3. Вывод переменных окружения

Сегодня мы научимся работать с переменными окружения. Вот наиболее часто встречающиеся из них:

GATEWAY_INTERFACE

Поддерживаемая версия CGI.

REQUEST_METHOD

Метод запроса, может быть как GET так и POST.

HTTP_REFERER

Адрес страницы (url), активирующей текущее приложение на web-сервере.

PATH_INFO

Путь переданный приложению расположенный между именем приложения и строкой запроса.

QUERY_STRING

Строка запроса, если метод - GET, добавляеться к url.

REMOTE_HOST

Имя хоста удаленного пользователя.

REMOTE_USER

Имя удаленного пользователя.

REMOTE_IDENT

IP-адрес удаленного пользователя.

HTTP_USER_AGENT

Имя и версия броузера удаленного пользователя.

А вот пример файла, читающий переменные окружения:

program CgiVars;

{$APPTYPE CONSOLE}

uses

Windows;

const

VarList: array [1..17] of string [30] =

('SERVER_NAME', 'SERVER_PROTOCOL',

'SERVER_PORT', 'SERVER_SOFTWARE',

'GATEWAY_INTERFACE', 'REQUEST_METHOD',

'PATH_TRANSLATED', 'HTTP_REFERER',

'SCRIPT_NAME', 'PATH_INFO',

'QUERY_STRING', 'HTTP_ACCEPT',

'REMOTE_HOST', 'REMOTE_USER',

'REMOTE_ADDR', 'REMOTE_IDENT',

'HTTP_USER_AGENT');

var

I: Integer;

ReqVar: string;

VarValue: array [0..200] of Char;

begin

writeln('Content type: text/html');

writeln;

writeln('<HTML><HEAD>');

writeln('<TITLE>CGI Variables</TITLE>');

writeln('</HEAD><BODY>');

writeln('<H1>CGI Variables</H1>');

writeln('<HR><pre><p>');

for I := Low (VarList) to High (VarList) do

begin

ReqVar := VarList[I];

if (GetEnvironmentVariable (PChar(ReqVar), VarValue, 200) > 0) then

else VarValue := '';

writeln (VarList[I] + ' = ' + VarValue);

end;

writeln('</pre><p></BODY></HTML>');

end.

Вот что он выдаст*:

Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями программного продукта "Internet Explorer", авторское право на который принадлежит "Microsoft".

Последнее обновление ( 15.07.2012 г. )

« След.		Пред. »

Вернуться