| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

CGI+POST [D6]

Leran2002 ©   (2003-02-28 10:40:00) 

Как у TWebActionItem в onAction получить данные отправленные методом POST???

При GET делаю следующее, все работает, а при POST непроходит:

procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
with AdoQuery.Parameters do begin
ParamValues["[Сумма]"]:=Request.QueryFields.Values["newsum"];
ParamValues["[ТабНомер]"]:=Request.QueryFields.Values["tabnum"];
end;

NumCex:=StrToInt(Request.QueryFields.Values["numcex"]);
NumOtd:=StrToInt(Request.QueryFields.Values["numotd"]);
...

---

Leran2002   (2003-03-05 08:00:00) [1]

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
LoginS,PasswS:string;
begin
//*******************************************************
if Request.Method = "POST" then begin // если данные были переданы методом "POST"
LoginS:=Request.ContentFields.Values["Login"];
PasswS:=Request.ContentFields.Values["Passw"];
end
else begin // если данные были переданы методом "GET"
LoginS:=Request.QueryFields.Values["Login"];
PasswS:=Request.QueryFields.Values["Passw"];
end;
//*******************************************************

Отвечаю сам на свой вопрос. Однакос...

---

Наверх