使用BCB巧建WEB瀏覽器
發表時間:2023-08-19 來源:明輝站整理相關軟件相關文章人氣:
[摘要]THTML控件是個現成的Web瀏覽器,只要將這些控件放在窗體上并調用Request Doc()方法,也許這有些過份簡化,但顯示Internet上的Web文檔也就這么簡單。因此,下面顯示了如何迅速編寫...
THTML控件是個現成的Web瀏覽器,只要將這些控件放在窗體上并調用Request Doc()方法,也許這有些過份簡化,但顯示Internet上的Web文檔也就這么簡單。因此,下面顯示了如何迅速編寫Web瀏覽器應用程序。
第一步如下:
1.開始新的主應用程序,將窗體的Name屬性變成Web Main,將Caption屬性變成EZ Web Browser。
2.將Panel構件放在窗體上,將其Align屬性變為al Top,Height屬性變為60,清除Caption屬性。
3.將Combo Box構件放在面板上,移到面板頂部并讓它象面板一樣寬,將Name屬性變成URL Combo Box,將Text屬性變為所選URL(如http://www.microsoft.com)
4.將Status Bar構件放在窗體上,它自動放在窗體底部,將其Name屬性變成Status Bar,Simple Panel 屬性變為true。
5.將HTML控件放在窗體中央,將Align屬性變為a Client。HTML控件即填滿屏幕。將Name屬性變成HTML。 這時窗體如果還不美觀則可以稍作調整,也可以保持原樣(有點個性也不是壞事)。 這時應保存項目,將窗體存為Web BrwsU.cpp,項目成為Web Brows.cpp。然后要加進讓瀏覽器工作的功能。
6.單擊URL組合框,產生On Click事件的處理器,在這個事件處理器中輸入如下代碼:
if (URL Combo Box > Text! ="") HTML > Request Doc (URL Combo Box > Text);
7.產生On Key Press事件的事件處理器在這個事件處理器中輸入如下代碼:
if (Key = = VK_RETURN){
Key =0;
if (URL Combo Box > Text = = "")return;
URL Combo Box > Items > Insert(0,URL Combo Box > Text);
URL Combo Box Click(Sender);
}
8.然后編譯和運行程序。在組合框中輸入URL并按Enter。如果輸入有效URL,則頁面裝人HTML控件中。15分鐘就建成了Web瀏覽器,這個瀏覽器已經很有樣子了。只是還要加進不少功能。注意每次按Enter鍵時,輸入的URL都會加進組合框的清單中。
第二步:最后修飾
首先在URL組合框下面加幾個按鈕。步驟如下:
1.在URL組合框下面加一個按鈕,按Name屬性為Go Btn,Caption變為GO!
2.產生新按鈕的On Click事件處理器,在事件處理器中輸入下列代碼:
URL Combo Box Click(0)*
3.在URL組合框下面加另一個按鈕,放在第一個按鈕右邊,將Name屬性變為Stop Btn,Caption變為Stop。
4.產生新按鈕的On Click事件處理器,在事件處理器中輸入下列代碼:
HTML > Cancel(0); Status Bar > Simple Text ="Done";
5.在前面兩個按鈕右邊放第三個按鈕,將Name屬性變為Reload Btn,Caption變為Reload。
6.產生新按鈕的On Click事件處理器,在事件處理器中輸入下列代碼:
URL Combo Box Click(0);
7.在面板上放最后一個按鈕。將Name屬性變為Source Btn,Caption變為View Source。
8.產生新按鈕的On Click事件處理器,在事件處理器中輸入下列代碼:
HTML > View Source =!HTML
> View Source; if
(HTML > View Source) Source Btn > Caption= "
View Document"; else Source Btn > Caption= "View
Source"。