這兩個(gè)問(wèn)題的實(shí)現(xiàn)原理其實(shí)是差不多的，所以放在一起介紹，單元MSHtml封裝了我們需要的功能。

首先，新建一個(gè)DELPHI工程，在USES部分添加MSHtml單元的引用。

然后，在窗體上放置一個(gè)TWebBrowser控件和四個(gè)按鈕。

最后，編寫四個(gè)按鈕的響應(yīng)代碼：

1. 自動(dòng)提交網(wǎng)頁(yè)表單

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;
??//網(wǎng)頁(yè)有一個(gè)名為“wd”的文本框：<input type="text" name="wd" id="kw" maxlength="100">
? oleObj.Value := 'Delphi';?//為文本框賦值
? oleObj := doc.all.item('su', 0)?as?IHTMLElement2;
??//網(wǎng)頁(yè)有一個(gè)ID為“su”的按鈕：<input type="submit" value="百度一下" id="su">
? oleObj.Click;??//點(diǎn)擊按鈕，提交表單
end;?

2. 獲取框架網(wǎng)頁(yè)源碼

?procedure?TForm1.Button3Click(Sender: TObject);
begin
? WebBrowser1.Navigate('http://含有框架的網(wǎng)頁(yè)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. 獲取網(wǎng)頁(yè)所有鏈接

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?//?? 循環(huán)取出每個(gè)鏈接
????? elem := (coll.item(i, 0) as IHTMLElement);
????? url := Trim(string(elem.getAttribute(WideString('href'), 0)));
????? title := elem.innerText;
????? ShowMessage(Format('鏈接標(biāo)題：%s，鏈接網(wǎng)址：%s', [title, url]));
???? end;
end;

總結(jié)

以上是生活随笔為你收集整理的Delphi自动提交网页表单和获取框架网页源码的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。