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 屏幕截屏

Delphi windows 根据进程名结束进程的代码

Delphi 根据扩展名的文件搜索

Delphi xe5实现的一个阳历转换成阴历的代码

Delphi 新版内存表 fdmemtable

Delphi ansicontainstext 是否包含子串

Delphi 如何在tmemo，tedit或trichedit中获得插入符的位置

Delphi真正实现延时暂停功能

Delphi webbrowser1 网页提交按钮执行点击事件

Delphi获取uri的查询参数

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

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