delphi中的web form提交

问题:使用delphi +twebbrowser进行页面访问的时候.如何最后提交填写的表单.

一般应该是很简单的.

procedure websubmit(WB: TWebBrowser; FieldName: string);
var
   I: Integer;
   FormNr, ItemNr : integer;
   TheForm  : Variant;
   o : Olevariant;

begin
//判断是否存在form对象
   if WB.OleObject.Document.All.Tags('FORM').Length = 0 then
   begin
  ShowMessage('Error: no FORM found on page');
  Exit;
   end;

for FormNr := 0 to WB.OleObject.Document.Forms.Length - 1 do
   begin
//取得每一个form对象
  TheForm := WB.OleObject.Document.Forms.Item(FormNr);

for ItemNr := 0 to TheForm.Length - 1 do
begin
try
  //根据form对象中的的元素名确定是否是需要提交的那个按钮
//form对象包括input,select button等
//比如<input type=submit name='aaaa">
   //则name为  aaaa
   if TheForm.Item(ItemNr).Name = FieldName then
   begin
TheForm.Item(ItemNr).CLICK;  //模拟点击
   exit;  
   end;
except
  Break;
end;
  end;
   end;
end;

上面代码看起来很是正确,不过如果用户的按钮或者说button为:
这个样子的.你会发现永远都不会给提交.
为什么因为在msdn帮助中明确说明了上面的那个item不支持input type=image对象的.
那如何才能提交那样的其实很简单改用以下代码.可以简化整个的提交过程

procedure websubmit(WB: TWebBrowser; FieldName: string);
var
   I: Integer;
   FormNr, ItemNr : integer;
   TheForm  : Variant;
   o : Olevariant;

begin
   if WB.OleObject.Document.All.Tags('FORM').Length = 0 then
   begin
  ShowMessage('Error: no FORM found on page');
  Exit;
   end;

try
//提交指定名字的标签
Wb.oleobject.document.all.namedItem(FieldName).click;
except
exit;
end;

end;

如此极大简化了提交同时也满足了所有可能标签的提交动作.
一般而言使用twebbrowser来提交个人认为是一种比较好的方式.因为如果使用idhttp,可能出现用户页面需要通过调用script做一些处理后提交的问题.使用idhttp是无法捕获的.
而使用twebbrowser则完全模拟一个用户的操作过程.可以减少对页面的分析难度.做到准确提交.

不过在程序提交的时候还有一个问题必须要注意.如果程序本身还没有能运行完成也就是说twebbrowser的状态还没有complete的时候,千万不要通过程序提交那样会出现异常的.这点千万注意呀.