使用BCB巧建WEB瀏覽器
發(fā)表時(shí)間:2023-08-19 來(lái)源:明輝站整理相關(guān)軟件相關(guān)文章人氣:
[摘要]THTML控件是個(gè)現(xiàn)成的Web瀏覽器,只要將這些控件放在窗體上并調(diào)用Request Doc()方法,也許這有些過(guò)份簡(jiǎn)化,但顯示Internet上的Web文檔也就這么簡(jiǎn)單。因此,下面顯示了如何迅速編寫...
THTML控件是個(gè)現(xiàn)成的Web瀏覽器,只要將這些控件放在窗體上并調(diào)用Request Doc()方法,也許這有些過(guò)份簡(jiǎn)化,但顯示Internet上的Web文檔也就這么簡(jiǎn)單。因此,下面顯示了如何迅速編寫Web瀏覽器應(yīng)用程序。
第一步如下:
1.開始新的主應(yīng)用程序,將窗體的Name屬性變成Web Main,將Caption屬性變成EZ Web Browser。
2.將Panel構(gòu)件放在窗體上,將其Align屬性變?yōu)閍l Top,Height屬性變?yōu)?0,清除Caption屬性。
3.將Combo Box構(gòu)件放在面板上,移到面板頂部并讓它象面板一樣寬,將Name屬性變成URL Combo Box,將Text屬性變?yōu)樗xURL(如http://www.microsoft.com)
4.將Status Bar構(gòu)件放在窗體上,它自動(dòng)放在窗體底部,將其Name屬性變成Status Bar,Simple Panel 屬性變?yōu)閠rue。
5.將HTML控件放在窗體中央,將Align屬性變?yōu)閍 Client。HTML控件即填滿屏幕。將Name屬性變成HTML。 這時(shí)窗體如果還不美觀則可以稍作調(diào)整,也可以保持原樣(有點(diǎn)個(gè)性也不是壞事)。 這時(shí)應(yīng)保存項(xiàng)目,將窗體存為Web BrwsU.cpp,項(xiàng)目成為Web Brows.cpp。然后要加進(jìn)讓瀏覽器工作的功能。
6.單擊URL組合框,產(chǎn)生On Click事件的處理器,在這個(gè)事件處理器中輸入如下代碼:
if (URL Combo Box > Text! ="") HTML > Request Doc (URL Combo Box > Text);
7.產(chǎn)生On Key Press事件的事件處理器在這個(gè)事件處理器中輸入如下代碼:
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.然后編譯和運(yùn)行程序。在組合框中輸入U(xiǎn)RL并按Enter。如果輸入有效URL,則頁(yè)面裝人HTML控件中。15分鐘就建成了Web瀏覽器,這個(gè)瀏覽器已經(jīng)很有樣子了。只是還要加進(jìn)不少功能。注意每次按Enter鍵時(shí),輸入的URL都會(huì)加進(jìn)組合框的清單中。
第二步:最后修飾
首先在URL組合框下面加幾個(gè)按鈕。步驟如下:
1.在URL組合框下面加一個(gè)按鈕,按Name屬性為Go Btn,Caption變?yōu)镚O!
2.產(chǎn)生新按鈕的On Click事件處理器,在事件處理器中輸入下列代碼:
URL Combo Box Click(0)*
3.在URL組合框下面加另一個(gè)按鈕,放在第一個(gè)按鈕右邊,將Name屬性變?yōu)镾top Btn,Caption變?yōu)镾top。
4.產(chǎn)生新按鈕的On Click事件處理器,在事件處理器中輸入下列代碼:
HTML > Cancel(0); Status Bar > Simple Text ="Done";
5.在前面兩個(gè)按鈕右邊放第三個(gè)按鈕,將Name屬性變?yōu)镽eload Btn,Caption變?yōu)镽eload。
6.產(chǎn)生新按鈕的On Click事件處理器,在事件處理器中輸入下列代碼:
URL Combo Box Click(0);
7.在面板上放最后一個(gè)按鈕。將Name屬性變?yōu)镾ource Btn,Caption變?yōu)閂iew Source。
8.產(chǎn)生新按鈕的On Click事件處理器,在事件處理器中輸入下列代碼:
HTML > View Source =!HTML
> View Source; if
(HTML > View Source) Source Btn > Caption= "
View Document"; else Source Btn > Caption= "View
Source"。