Вниз
Скачать: CL | DM;

CGI+POST   Найти похожие ветки 

 
Leran2002 ©   (2003-02-28 10:40) [0]

Как у 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) [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;
//*******************************************************

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c
3-91146
yong
2003-04-09 07:09
2003.04.28
Filter + TStringList


7-91566
Demon
2003-03-11 18:11
2003.04.28
Указатель на 16-разрядный процесс


6-91437
Makatuka
2003-03-06 14:57
2003.04.28
TWebBrowser и поиск фрагмента текста


6-91436
Dona
2003-03-06 12:45
2003.04.28
ServerSock - как отправить сообщ. клиенту


3-91230
mikl2002
2003-04-10 13:31
2003.04.28
InterBase + Linux + FIBPlus




   Наверх