delphi开发修改并提交Web表单内容
来源:互联网 发布:米思米销售面试知乎 编辑:程序博客网 时间:2024/05/17 00:13
程序代码主要是通过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;
- delphi开发修改并提交Web表单内容
- delphi开发修改并提交Web表单内容
- javascript创建并提交表单
- 动态创建表单并提交
- jQuery修改form的action值并提交表单的方法
- 怎样用js创建表单并提交
- javascript获得表单对象,并提交
- 怎样用js创建Form表单并提交
- js 文件获取表单并提交
- JavaScript 创建一个 form 表单并提交
- JQuery动态创建表单并提交
- js创建Form表单并提交
- js动态创建Form表单并提交
- JQuery动态创建表单并提交
- jQuery动态创建表单并提交
- jquery动态创建form表单并提交
- JQuery动态创建表单并提交
- HtmlUnit自动填写表单并提交
- 星球学院(1)
- 给我留言
- The dream to be a program master
- 如何设置系统与正确删除软件和升级系统
- SQL SELECT语法
- delphi开发修改并提交Web表单内容
- 何为真实的世界
- VIM笔记
- 泡吧别过火
- 6.8日股市
- Win2000系统进程简介
- SWF文件格式详解(1)
- 老板要给员公分红,偶不在名单之列,郁闷ing!!!
- 股票入门基本知识