Delphi TWebBrowser[2]-屬性、方法、事件示例詳解

//如果該屬性值為True，則在開始一個新的操作前，可用Stop方法中止當前操作，然後再導航到其他的頁面，程式碼如下：
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   if WebBrowser1.Busy then WebBrowser1.Stop;
   WebBrowser1.Navigate('www.mingrisoft.com');
end;
 

//如果Web瀏覽器沒有一個具有Automation介面的容器，則該屬性的值為空。否則可以通過返回的介面，訪問Web瀏覽器父類或容器，程式碼如下：
if WebBrowser1.Container <> nil then
begin
   WebBrowser1.Stop;
end
else
   ShowMessage('Web瀏覽器沒有一個具有Automation介面的容器');

//顯示WebBrowser1元件的名稱，程式碼如下：
Showmessage(WebBrowser1.ControlInterface.Name);

//顯示Web瀏覽器元件所在的可執行檔案的名稱，並且包含路徑，程式碼如下：
ShowMessage('Web元件所在的可執行檔案為：'+WebBrowser1.FullName);

//顯示網頁標題的名稱，程式碼如下：
ShowMessage('網頁標題名：'+WebBrowser1.LocationName);

//顯示地址的完整路徑，程式碼如下：
ShowMessage('Web瀏覽器元件連線的URL為：'+WebBrowser1.LocationURL);

Str := WebBrowser1.Path;

//該屬性為True時，允許使用者拖放HTML文件到當前Web瀏覽器；否則拖放操作無效，程式碼如下：
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
   if not WebBrowser1.RegisterAsDropTarget then
     WebBrowser1.RegisterAsDropTarget:=true;
end;

//顯示檔案的型別，程式碼如下：
ShowMessage('Automation物件的型別為:'+WebBrowser1.Type_);

//呼叫ExecWB方法能夠完成許多功能，例如停止網頁瀏覽，程式碼如下：
WebBrowser1.ExecWB(OLECMDID_STOP,OLECMDEXECOPT_PROMPTUSER);

//返回當前頁的上一頁，程式碼如下：
WebBrowser1.GoBack();

//返回當前頁的下一頁，但是如果歷史列表中沒有下一個文件，則產生異常，程式碼如下：
try
   WebBrowser1.GoForward();
except
   exit;
end;

//返回主頁，程式碼如下：
if WebBrowser1.Busy then
   WebBrowser1.Stop;
WebBrowser1.GoHome;

//開啟已註冊的搜尋網頁，程式碼如下：
if WebBrowser1.Busy then
   WebBrowser1.Stop;
WebBrowser1.GoSearch();

//Navigate方法是TWebBrowser元件中最重要的方法之一，使用該方法能夠將當前TWebBrowser元件導航到任何存在的連結上，程式碼如下：
if WebBrowser1.Busy then
   WebBrowser1.Stop;
WebBrowser1.Navigate(URL);     //URL為網址

//Navigate2方法與Navegate方法類似，能夠將當前TWebBrowser元件導航到指定的資源，程式碼如下：
procedure TForm1.GoUrl2(URL: String);    //URL為指定的資源的網址
var
   oUrl:Olevariant;
   oPost,oFram,oflag:Olevariant;
begin
   oUrl:=Url;
   oFram:=0;
   oFlag:=navOpenInNewWindow;     //在新視窗中開啟資源
   oPost:='';
   if WebBrowser1.Busy then
     WebBrowser1.Stop;
   WebBrowser1.Navigate2(oUrl,oFlag,oFram,oPost);
end;

//該方法完成了IE瀏覽器的重新整理功能，可以使用該方法來重新載入當前頁面，如果當前TWebBrowser元件沒有載入任何的網頁，則會產生異常，程式碼如下：
if WebBrowser1.LocationURL<>'' then
   WebBrowser1.Refresh;

//Refresh2方法提供了更加複雜的重新整理方式，提供了多種重新整理方法，通過該方法同樣能夠實現Refresh方法完成的任務，程式碼如下：
procedure TForm1.ToolButton7Click(Sender: TObject);
var
   Level:Olevariant;
begin
   Level:=REFRESH_IFEXPIRED;
   if WebBrowser1.LocationURL<>'' then
     WebBrowser1.Refresh2(Level);
end;

//該方法實現了IE中的停止功能，即停止了一切載入工作，程式碼如下：
WebBrowser1.Stop;

//OnCommandStateChange事件提供了一個命令狀態改變後的處理功能，通過該事件能夠判斷執行某個命令後的當前瀏覽器狀態，例如控制“後退”、“前進”或“停止”按鈕是否可用，程式碼如下：
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject;
   Command: Integer; Enable: WordBool);
begin
   case Command of
     CSC_NAVIGATEBACK: ToolButton5.Enabled := Enable;     //“後退”按鈕
     CSC_NAVIGATEFORWARD: ToolButton4.Enabled := Enable;     //“前進”按鈕
     CSC_UPDATECOMMANDS: ToolButton2.Enabled := TWebBrowser(Sender).Busy;   //“停止”按鈕
   end;
end;

//當TWebBrowser元件成功地導航到一個新的位置後觸發該事件，利用該事件能夠獲得當前狀態或URL地址，程式碼如下：
if WebBrowser1.Offline then
   Statusbar1.Panels[Statusbar1.Panels.Count-1].Text:='離線';
else
   Statusbar1.Panels[Statusbar1.Panels.Count-1].Text:='線上';
ComboBox1.Text:=WebBrowser1.LocationURL;

//利用該事件能夠設計一個準確的網頁載入進度條，該進度條表示了當前網頁的載入進度，程式碼如下：
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
   ProgressMax: Integer);
begin
   ProgressBar1.Max:=ProgressMax;
   if Progress = -1 then
     ProgressBar1.Visible:=false
   else
   begin
     ProgressBar1.Position := Progress;
     ProgressBar1.Visible := True;
   end;
   if   ProgressBar1.Position = ProgressMax then
     ProgressBar1.Visible:=False;
end;