为什么不能正确收到提交的参数?急急急!!!(50分)

  • 主题发起人 主题发起人 yeahsite
  • 开始时间 开始时间
Y

yeahsite

Unregistered / Unconfirmed
GUEST, unregistred user!
我用Delphi做web服务器,定义了webmodule控件

源代码如下

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var retvalue:TStrings;
var shtml:string;
var i:integer;
begin
retvalue:=NIL;
case request.MethodType of
mtGet:retvalue:=request.QueryFields;
mtPost:retvalue:=request.ContentFields;
end;
shtml:='<html>';
shtml:=shtml+'<head>';
shtml:=shtml+'<title>添加数据</title>';
shtml:=shtml+'</head>';
shtml:=shtml+'<body>';
shtml:=shtml+'<h1>你输入了下面的数据</h1>';
for i:=1 to retvalue.Count do shtml:=shtml+IntToStr(i)+':'+retvalue.Names
+'='+retvalue.Strings+'<br>';
shtml:=shtml+'</body>';
shtml:=shtml+'</html>';
response.content:=shtml;
end;

每次打开浏览器浏览时,总是只看到"你输入了下面的数据",下面就没有了

察看retvalue.count,原来等于0,显然是没有收到请求的字符串

请高手指教

 
我以前碰到这样的问题是因为在调用的时候
把request和post搞错了。
你也看看是不是换过来就行了。
 
注意提交方式POST/GET,分别利用queryfields,
ContentFields来获得提交数据
 
不知你用的是"post",方式还是"get"
方式?它们的获取方式也不同用request.contentfields.values['name']
和request.queryfields.values['name'];
你可看看你的HTML文件的提交方式是哪种?再用上面的相应的方法。
 
get用QueryFields, post用ContentFields,原来的就已经是对的,

seastar说的说反了
 
多人接受答案了。
 

Similar threads

I
回复
0
查看
799
import
I
I
回复
0
查看
746
import
I
I
回复
0
查看
775
import
I
后退
顶部