Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получать в CGI данные, переданные методом Post??? [D4, D5, D6, Win95/98, WinME, Win2k]

NetBreaker666 © (2001-12-20 14:38:00)
Пишу CGI как Console Application.
Как получить данные, переданные методом Post ????

Kapusto (2001-12-21 14:21:00) [1]
Согласен... Но у данного способа есть и преимущество: легкость конвертации в ISAPI-приложение, скорость разработки, легкость создания страниц "на лету", т.е. обработка страниц с определенными пользователем тегами. Подобное можно реализовать и на Perl, с его регулярными выражениями, а на чистом Object pascale придется повозиться... В общем, все зависит от задачи...

panov (2001-12-21 14:14:00) [2]
Согласен - можно.
Т.к. незнаком с этой технологией, то пока могу сказать единственное - пустая программа с WebServer Application после компиляции
имеет размер 330к.
--------
У меня пока не было CGI размером >90К.

Kapusto (2001-12-21 14:07:00) [3]
Если пишется с использованием WebServer Application, то тогда на любой action создается процедура обработки типа:
procedure wmMainNewUserAction(Sender: TObject; Request: TWebRequest;
Response: TWebResponse; var Handled: Boolean);

TWebRequest.ContentFields содержат искомые параметры.
Пример использования:
Request.ContentFields.Values["usr_login"];

panov (2001-12-21 13:33:00) [4]
... или попусту болтать надо?

panov (2001-12-21 13:29:00) [5]
>Kapusto © (21.12.01 10:31)

Поподробнее можно - по поводу вопроса NetBreaker666 © (20.12.01 14:38) ?

Kapusto (2001-12-21 10:31:00) [6]
Дурацкий вопрос: если пишется все это на Дельфи, то почему бы не использовать WebServer Application? И такого изврата не понадобится...

panov (2001-12-20 16:46:00) [7]
Если чего-то здесь не хватает - пиши. Вытаскивал из рабочего проекта.
В теле программы функции используются так:
var
str,p1,p2: String;
if GetMethod = "POST"
then Str := GetPostEnv
else Str := GetGetEnv;

p1 := ParamByName(Str,"dateselect");
p2 := ParamByName(Str,"paramdate");

модуль proc:

unit proc;
...
const
CR = CHR(13)+CHR(10);
BufSize = 4096;
...
//Определяем метод, которым запрошены данные.
//Возвращает "POST" или "GET"
function GetMethod: String;
var
buf: PChar;
begin
GetMem(buf,BufSize);
GetEnvironmentVariable(PChar("REQUEST_METHOD"),Buf,BufSize);
Result := String(buf);
FreeMem(buf);
end;
//Чтение переданной строки для метода POST
function GetPostEnv: String;
var
StdIn,Size,Actual: Cardinal;
begin
Result := "";
StdIn := GetStdHandle(STD_INPUT_HANDLE);
Size := SetFilePointer(StdIn,0,nil,FILE_END);
SetFilePointer(StdIn,0,nil,FILE_BEGIN);
SetLength(Result,Size);
if Size>0 then
begin
ReadFile(StdIn,Result[1],Size,Actual,nil);
end;
end;
//Чтение переданной строки для метода GET
function GetGetEnv: String;
var
buf: PChar;
begin
GetMem(buf,BufSize);
GetEnvironmentVariable(PChar("QUERY_STRING"),Buf,BufSize);
Result := String(buf);
FreeMem(buf);
end;
//Функция для декодирования переданной строки
function ParamByName(inParams: String;Name: String): String;
var
ss,st: String;
k: Integer;
begin
Result := "";
ss := InParams;
while Length(ss)>0 do
begin
k := Pos("&",ss);
if k>0 then
begin
st := Copy(ss,1,k-1);
ss := Copy(ss,k+1,10000);
end
else
begin
st := ss;
ss := "";
end;
k := Pos("=",st);
if K>0 then
begin
if Name=Copy(st,1,k-1) then
begin
Result := Decode(Copy(st,k+1,6000));
end;
end;
end;
end;
//Получение значения праметра из переданной строки по имени параметра
function ParamByName(inParams: String;Name: String): String;
var
ss,st: String;
k: Integer;
begin
Result := "";
ss := InParams;
while Length(ss)>0 do
begin
k := Pos("&",ss);
if k>0 then
begin
st := Copy(ss,1,k-1);
ss := Copy(ss,k+1,10000);
end
else
begin
st := ss;
ss := "";
end;
k := Pos("=",st);
if K>0 then
begin
if Name=Copy(st,1,k-1) then
begin
Result := Decode(Copy(st,k+1,6000));
end;
end;
end;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »