delphi开发修改并提交Web表单内容

程序代码主要是通过WebBrowser控件来实现修改并提网页表单内容，FillSelectForm函数是实现修改选择框的内容，以下是实现函数程序代码：

function TForm1.FillSelectForm(WebBrowser: TWebBrowser; FieldName: string; Value: integer): Boolean;

var

  i, j: Integer;

  FormItem: Variant;

  hform:IHTMLFormelement;

  hdoc:ihtmldocument2;

  hall:ihtmlelementcollection;

  Hinput:IHTMLinputelement;

  Hselect:IHTMLSelectElement;

  hlen,tmploop:integer;

  vk:oleVariant;

  dispatch:IDispatch;

begin

  Result := False;

  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then

  begin

    Exit;

  end;

 

 

   if Assigned(WebBrowser) then

   begin

    hdoc:=WebBrowser.document as ihtmldocument2;

    hall :=hdoc.get_all;

    hlen := hall.get_length;

    for tmploop:=0 to hlen-1 do

    begin

      vk := tmploop;

      dispatch := hall.item(vk,0);

      if succeeded(Dispatch.QueryInterface(IHTMLSelectElement,Hselect)) then

      begin

        if (lowercase(Hselect.name)='xingzuo') then

        begin

            Hselect.selectedIndex := Value;

            Result := True;

        end;

      end;

    end;

   end;

end;

SubmitForm函数是实现提交表单处理,以下是实现函数程序代码：

SubmitForm函数是实现提交表单处理,以下是实现函数程序代码：

function TForm1.SubmitForm(WebBrowser: TWebBrowser;

  FormName: string): Boolean;

var

  i, j,k: Integer;

  FormItem: Variant;

  hform:IHTMLFormelement;

  hdoc:ihtmldocument2;

  hall:ihtmlelementcollection;

  Hinput:IHTMLinputelement;

  Hselect:IHTMLSelectElement;

  hlen,tmploop:integer;

  vk:oleVariant;

  dispatch:IDispatch;

  iw:IWebbrowser2;

begin

  Result := False;

  k:=0;

  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then

  begin

    Exit;

  end;

   if Assigned(WebBrowser) then 

   begin

    hdoc:=WebBrowser.document as ihtmldocument2;

    hall :=hdoc.get_all;

    hlen := hall.get_length;

    for tmploop:=0 to hlen-1 do

    begin

      vk := tmploop;

      dispatch := hall.item(vk,0);

      if succeeded(Dispatch.QueryInterface(IHTMLFormelement,hform)) and (lowercase(hform.name)='xingzuoday') then

      begin

        hform.target :='';

        hform.submit;

        Result := True;

        Break;

      end;

    end;

   end;

end;