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;
 

相关阅读 >>

Delphi中组件panel、splitter、groupbox、按钮组件（checkbox...）、计时器、滚动条、多选卡

Delphi中dbgrid控件数据库点击某列按序排列

Delphi 锁定系统解锁系统

Delphi 如何快速读写文件中的字符串

Delphi base64加解密

删除Delphi组件tstringlist中的重复项目

Delphi xe 控件字体加粗变色居中等

Delphi 用Delphi提升进程权限为debug权限

Delphi 关于xe10下indy发送字符串编码的问题

Delphi窗口显示和关闭的时候出现动画效果

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

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