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

[84175971]

我在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;

请高手帮忙看看以上这两段代码的代表的何意思

[hiflower]

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;