DELPHI/Часто задаваемые вопросы и ответы на них/Win Api



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / CGI. Переменные окружения - как до них добраться?

CGI. Переменные окружения - как до них добраться?

»»» Laberta - labert@mail.ru (28.11.00 22:15)
Как получить значения переменных окружения в Delphi 3 ? (Нужно для выяснения параметров HTTP запроса в CGI-приложении)

»»» bob (29.11.00 09:03)
Если я правильно понял вопрос, то (взято из книги Marco Cantu 1998, Mastering Delphi 4)
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('Contenttype: text/html');
  writeln;
  writeln('<HTML><HEAD>');
  writeln('<TITLE>CGI Variables</TITLE>');
  writeln('</HEAD><BODY>');
  writeln('<H1>CGI Variables</H1>');
  writeln('<HR><PRE>');

  // show the variables listed in the array
  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></BODY></HTML>');
end.
-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

Copyright © "Мастера DELPHI" E-mail: delphi@mastak.com http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru