delphi WebBrowser中获取Input表单值

本文整理自网络，侵删。

 
delphi WebBrowser中获取Input表单值

单元文件：
MSHTML

var
    i:Integer;
    myole:oleVariant;
begin
    myole :=WebBrowser1.OleObject.document;
    for i := 0 to myole.all.length - 1 do
    begin
        if myole.all.item(i).tagName = 'INPUT' then // 一定要大写  小写无效。
        begin

            mmo1.Lines.Add(myole.all.item(i).name);

            mmo1.Lines.Add(myole.all.item(i).value);
        end;
    end;

end;
 

相关阅读 >>

isleapyear：返回给定的年份是否是闰年

Delphi firedac与ado读写数据的性能测试

Delphi运行时拖拉、改变元件大小

Delphi隐藏指定程序的托盘图标

Delphi idsmtp控件发送邮件

Delphi 判断当前程序是否是活动窗口

Delphi windows 底下根据一个进程的名字杀死一个进程的代码

Delphi编程之桌面图标设置

Delphi package 把函数单元做成bpl调用

Delphi 检测应用程序是否已停止响应

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi WebBrowser中获取Input表单值