Форум: "Сети";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
ВнизКак получать в CGI данные, переданные методом Post??? Найти похожие ветки
← →
panov (2001-12-20 16:46) [1]Если чего-то здесь не хватает - пиши. Вытаскивал из рабочего проекта.
В теле программы функции используются так:
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;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c