在websnap技术中,delphi也有一个自带的,可以从网页上提取数据的例子,我看不明白,请高手帮忙解答。

84175971 2003-11-24 05:52:57
我在DELPHI自己带的websnap例子中(D:\Delphi6\Demos\WebSnap\SimpleAdapter)
发现他的程序代码写法和我们平时用的Request.ContentFields.Values['T1'],有很
大的不同,他可以跨表单提取网页上的数据,我一直未能看明白这段代码的意思。
procedure TCounter.PageProducerModuleActivate(Sender: TObject);
begin
// 初始值
FCount := 0;
end;


procedure TCounter.GetParams(Sender: TObject;
Params: TStrings);
begin
//获取网页上的数据
Params.Add(Format('Count=%d', [FCount]));(就是这段代码看不明白)
end;

procedure TCounter.IncrementExecute(Sender: TObject;
Params: TStrings);
begin
// Retrieve last value,对所获得的数据进行加“1”操作
FCount := StrToInt(Params.Values['Count']);(就是这段代码看不明白)
Inc(FCount);

procedure TCounter.CountGetValue(Sender: TObject;
var Value: Variant);
begin
//得到最终的结果
Value := FCount;
end;

请高手帮忙看看以上这两段代码的代表的何意思
...全文
41 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
hiflower 2003-11-24
  • 打赏
  • 举报
回复
Params 的内容,其实就是 ?xxx=aaa ... 中?后的内容。
procedure TCounter.GetParams(Sender: TObject;
Params: TStrings);
begin
//获取网页上的数据
Params.Add(Format('Count=%d', [FCount])); ]);(就是这段代码看不明白)
//网页的 Server-side script可能如这样: <a href="<%=IncrementAction.AsHREF%>">...</a>
// 得到的实际HTML 就象这样:<a href="http://....?xxx=aaa&yyy=bbb">...</a>
//这个事件,就是把 ? 后面的东东交给 Server-side script 生成网页
end;

procedure TCounter.IncrementExecute(Sender: TObject;
Params: TStrings);
begin
// Retrieve last value,对所获得的数据进行加“1”操作
FCount := StrToInt(Params.Values['Count']);(就是这段代码看不明白)
// 点击 Increment 按钮时,执行这个 Action,Params 中就是网页上传过来的 ? 后面的东东,你如果用 WebContext.Request.QueryFields 取也能得到。
Inc(FCount);
end;

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧