千
千中元
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
ParamsList: TParamsList;
begin
begin
ParamsList := TParamsList.Create;
try try
ParamsList.AddParameters(Request.ContentFields);
GLTable.Open;
GLTable.Insert;
GLTable.FieldByName('HomeUrl').Value := ParamsList['HomeUrl'];
GLTable.FieldByName('Content').Value := ParamsList['Content'];
GLTable.FieldByName('Posttime').Value := Now;
GLTable.Post;
except
....................
其中，TParamsList类的AddParameters方法如下：
var
i: Integer;
begin
for i := 0 to Strings.Count - 1 do
begin
with Add do
try
AssignParameter(Strings);
except
Free ;
raise ;
end ;
end;
问题：
如下网页提交数据的时候，TEXTAREA 中的数据不能被提交（input的可以）
<form method="post" action="../myWebServer.exe/form" >
<P>
<LABLE for "HomePage" > 资源共享网站首页地址：</LABLE>
<INPUT type= "text" name="HomeUrl" id= "HomePage"><BR>
<Lable > 共享内容简介</LABLE>
<TEXTAREA wrap=logical name="content" ROWS=6 COLS=60 value="This is a test"Swansea, IL></TEXTAREA><BR>
<tr>
<th><input type="submit" name="pushbutton" value="Submit"></th>
<th><input type="reset" name="resetButton" value=" Clear "></th>
</P>
</form>
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
ParamsList: TParamsList;
begin
begin
ParamsList := TParamsList.Create;
try try
ParamsList.AddParameters(Request.ContentFields);
GLTable.Open;
GLTable.Insert;
GLTable.FieldByName('HomeUrl').Value := ParamsList['HomeUrl'];
GLTable.FieldByName('Content').Value := ParamsList['Content'];
GLTable.FieldByName('Posttime').Value := Now;
GLTable.Post;
except
....................
其中，TParamsList类的AddParameters方法如下：
var
i: Integer;
begin
for i := 0 to Strings.Count - 1 do
begin
with Add do
try
AssignParameter(Strings);
except
Free ;
raise ;
end ;
end;
问题：
如下网页提交数据的时候，TEXTAREA 中的数据不能被提交（input的可以）
<form method="post" action="../myWebServer.exe/form" >
<P>
<LABLE for "HomePage" > 资源共享网站首页地址：</LABLE>
<INPUT type= "text" name="HomeUrl" id= "HomePage"><BR>
<Lable > 共享内容简介</LABLE>
<TEXTAREA wrap=logical name="content" ROWS=6 COLS=60 value="This is a test"Swansea, IL></TEXTAREA><BR>
<tr>
<th><input type="submit" name="pushbutton" value="Submit"></th>
<th><input type="reset" name="resetButton" value=" Clear "></th>
</P>
</form>
]）