Delphi自动提交网页表单和获取框架网页源码


本文整理自网络,侵删。

 这两个问题的实现原理其实是差不多的,所以放在一起介绍,单元MSHtml封装了我们需要的功能。

首先,新建一个DELPHI工程,在USES部分添加MSHtml单元的引用。

然后,在窗体上放置一个TWebBrowser控件和四个按钮。

最后,编写四个按钮的响应代码:

1. 自动提交网页表单

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.baidu.com');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  oleObj: OleVariant;
begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  if doc = nil then Exit;
  oleObj := doc.all.item('wd', 0) as IHTMLElement2;
  //网页有一个名为“wd”的文本框:<input type="text" name="wd" id="kw" maxlength="100">
  oleObj.Value := 'Delphi'; //为文本框赋值
  oleObj := doc.all.item('su', 0) as IHTMLElement2;
  //网页有一个ID为“su”的按钮:<input type="submit" value="百度一下" id="su">
  oleObj.Click;  //点击按钮,提交表单
end; 

2. 获取框架网页源码




 procedure TForm1.Button3Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://含有框架的网页URL');
end;


procedure TForm1.Button4Click(Sender: TObject);
var
  doc, framedoc: IHTMLDocument2;
  frame_dispatch: IDispatch;
  ole_index: OleVariant;
  i: Integer;
begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  if doc = nil then Exit;
  for i := 0 to doc.frames.length - 1 do
  begin
    ole_index := i;
    frame_dispatch := doc.frames.item(ole_index);
    if frame_dispatch = nil then Continue;
    framedoc := (frame_dispatch as IHTMLWindow2).document;
    if framedoc = nil then Continue;
    ShowMessage(framedoc.body.innerHTML);
  end;
end; 



3. 获取网页所有链接




procedure TForm1.Button1Click(Sender: TObject);
var
  elem: IHTMLElement;
  coll: IHTMLElementCollection;
  i: integer;
  url, title: string;
begin
  coll := (WebBrowser1.Document as IHTMLDocument2).all;
  coll := (coll.tags('a') as IHTMLElementCollection);
  for i := 0 to coll.Length - 1 do
     begin //   循环取出每个链接
      elem := (coll.item(i, 0) as IHTMLElement);
      url := Trim(string(elem.getAttribute(WideString('href'), 0)));
      title := elem.innerText;
      ShowMessage(Format('链接标题:%s,链接网址:%s', [title, url]));
     end;
end;

相关阅读 >>

Delphi memo 滚动条 自动滚到最后一行

Delphi 不可移动的窗体

Delphi mediaplayer1 播放avi 视频

Delphi self-delete程序

Delphi的字符串与16进制的相互转换函数的汇编代码

Delphi如何删除数据库重复记录(4种方法)

Delphi编程启动服务停止服务新建服务的方法

Delphi xe10 fdmemtable 数据保存本地和从本地加载

Delphi 保证当前程序显示在最前

Delphi格式化wmi中的datetime

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...