delphi webbrowser 常用方法示例

本文轉載自查看原文 2015-01-12 20:12 6935 delphi win

var   Form   :     IHTMLFormElement     ;
        D:IHTMLDocument2     ;
begin
    with   WebBrowser1   do   begin
          D   :=   Document   as   IHTMLDocument2;
          Form   :=   D.Forms.item( 'form1 ',0)   as   IHTMLFormElement;   //form1為表單名
          //title為表單中的文本框
        (form.item( 'title ',0)   as   IHTMLElement).setAttribute( 'value ',s_title,0);  
        (form.item( 'content ',0)   as   IHTMLElement).setAttribute( 'value ',edit1.text,0);
        (form.item( 'add ',0)   as   IHTMLElement).click;//add為按鈕名稱
    end;

在delphi的WebBrowser中獲取和設置Input表單值

var
    i:Integer;
    myole:oleVariant;
begin
    myole := wb1.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;

WebBrowser1.GoHome; //到瀏覽器默認主頁
WebBrowser1.Refresh; //刷新
WebBrowser1.GoBack; //后退
WebBrowser1.GoForward; //前進
WebBrowser1.Navigate('...'); //打開指定頁面
WebBrowser1.Navigate('about:blank'); //打開空頁面
--------------------------------------------------------------------------------
//打開空頁面, 並寫入...

WebBrowser1.Navigate('about:<head><title>標題></title><body>頁面內容</body>');
--------------------------------------------------------------------------------
//讀取網頁腳本中的變量:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: Integer;
begin
s := WebBrowser1.OleObject.document.Script.str;
i := WebBrowser1.OleObject.document.Script.num;
ShowMessage(s); //Hello
ShowMessage(IntToStr(i)); //99

//也可以這樣讀:
s := WebBrowser1.OleObject.document.parentWindow.str;
i := WebBrowser1.OleObject.document.parentWindow.num;
ShowMessage(s); //Hello
ShowMessage(IntToStr(i)); //99
end;
假如網頁中有這樣的語句:
<script>
var
str = "Hello";
i = 99;
</script>

--------------------------------------------------------------------------------

//調用網頁腳本中的函數:

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.OleObject.document.parentWindow.MB(); //HTML-Js

//如需指定腳本語言, 需要:
WebBrowser1.OleObject.document.parentWindow.execScript('MB()','JavaScript'); //HTML-Js
end;
假如有這樣的腳本:
<script>
function MB(){
alert('HTML-Js');
}
</script>

--------------------------------------------------------------------------------

//判斷網頁及內部框架網頁是否全部下載完畢

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if WebBrowser1.Application = pDisp then
begin
Text := '網頁下載完畢！';
end;
end;

--------------------------------------------------------------------------------

//改變背景色或背景圖片:
WebBrowser1.OleObject.document.body.bgcolor := '#FF0000';
WebBrowser1.OleObject.document.body.background := '...圖片地址';
--------------------------------------------------------------------------------
//操作有 ID 標簽的對象:
var
s: string;
begin
s := WebBrowser1.OleObject.document.getElementByID('span1').innerText;
ShowMessage(s); //這是 span1 標簽中的內容

//或者:
s := WebBrowser1.OleObject.document.parentWindow.span1.innerText;
ShowMessage(s); //這是 span1 標簽中的內容

//隱藏它:
WebBrowser1.OleObject.document.parentWindow.span1.style.display := 'none';
end;
假如網頁中有這樣的內容:
<span id=span1>這是 span1 標簽中的內容</span>


--------------------------------------------------------------------------------

//獲取網頁源代碼
var
s: string;
begin
s := WebBrowser1.OleObject.document.body.innerHTML; //body內的所有代碼
s := WebBrowser1.OleObject.document.body.outerHTML; //body內的所有代碼, 包含body標簽
s := WebBrowser1.OleObject.document.documentElement.innerHTML; //html內的所有代碼
end;
--------------------------------------------------------------------------------
//WebBrowser 中的右鍵菜單

//先要添加ApplicationEvents1,指定其Message事件

//屏蔽右鍵菜單
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
with Msg do
begin
if not IsChild(WebBrowser1.Handle, hWnd) then Exit;
Handled := (message = WM_RBUTTONDOWN) or (message = WM_RBUTTONUP) or (message = WM_CONTEXTMENU);
end;
end;

//替換右鍵菜單
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var mPoint: TPoint;
begin
if IsChild(WebBrowser1.Handle, Msg.Hwnd) and
((Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP)) then
begin
GetCursorPos(mPoint); //得到光標位置
PopupMenu1.Popup(mPoint.X, mPoint.Y); //彈出popupmenu1的菜單
Handled:=True;
end;
end;
--------------------------------------------------------------------------------
//新頁面寫入
begin
WebBrowser1.Navigate('about:blank');
WebBrowser1.OleObject.Document.Writeln('ok');
end;

自動登錄

單個frames的輸入
var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0);    //找到登錄用戶名的輸入框
o.value := 'TEST';
o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //找到登錄密碼的輸入框
o.value := 'TEST'
WebBrowser.oleobject.document.Forms.Item(0, 0).submit;           //第一個表單提交
{
o :=WebBrowser.oleobject.document.all.item('Login',0);           //或者用指定表單名稱提交
o.Click;   //點擊操作，對其它對象也可同樣操作
}
end;
多個frames的輸入，FrameIndex為Frame的序號
var
o : Olevariant;
begin
//找到登錄用戶名的輸入框
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FrameIndex).document.all.item('LoginUserID',0);
o.value := 'TEST';
//找到登錄密碼的輸入框
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item('LoginPassword',0);
o.value := 'TEST'
//第一個表單提交
WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0, 0).submit;
{
//或者用指定表單名稱提交
o :=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex)..document.all.item('Login',0);
o.Click;    //點擊操作，對其它對象也可同樣操作
}
end;

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。

猜您在找 Delphi 打印對象 Tprinter 常用屬性、方法、函數、打印示例 Delphi Webbrowser使用方法詳解 delphi webbrowser與delphi互動 delphi WebBrowser的使用方法詳解（五）-難點釋疑 WebBrowser控件的常用方法、屬性和事件 Delphi WebBrowser控件的使用 Mockito常用方法及示例 C# Webbrowser 常用方法及多線程調用 JavaWeb——HttpSession常用方法示例 C# 調用 Delphi Dll鏈接庫方法及示例