程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi中利用網頁打造程序界面

Delphi中利用網頁打造程序界面

編輯:Delphi
  第一步:根據需要,用FrontPage或者Dreamweaver做一個界面,界面加上圖片,還可加上漂亮的動態Flash。Web界面與程序事件聯系在一起的地方就是“超鏈接”,我們以一個簡單的播放器程序為例。
比如:要做一個播放器,有“播放”按鈕和“停止”按鈕,分別設置“播放”按鈕的鏈接為“Play_”;“停止”按鈕的超鏈接為“Stop_”。並保存這個網頁文件為“WebFrm.htm”。

  第二步:在Delphi中新建一個Project,設置Form1的長寬和剛才設計網頁一樣大小,在Form1上放置一個WebBrowser1控件,設置WebBrowser1的Align屬性為alClIEnt,我們是利用TWebBrowser來顯示網頁界面的。代碼如下:

procedure TForm1.FormCrea
teSender TObject
begin
WebBrowser1.NavigateD\播放器\WebFrm.htm//把“D\播放器”換成你保存WebFrm.htm的目錄
end
  第三步:關鍵就在這步了。在響應Web界面上“播放”和“停止”的點擊事件時,就要用到TWebBrowser的OnBeforeNavigate2事件,它的代碼如下:

procedure TForm1.WebBrowser1BeforeNa
vigate2Sender TObject
const pDisp IDispatch var URL Flags TargetFrameName PostData
Headers OleVariant var Cancel WordB ool
  在它的七個參數中,我們會用到URL和Cancel這兩個參數,在本例中,當你點擊“播放”按鈕時,URL就會返回“D\播放器\WebFrm.htm\Play_”這行字符串當點擊“停止”按鈕時,URL則返回“D\播放器\WebFrm.htm\Stop_”這行字符串。Cancel這個參數的用途是:當點擊“播放”按鈕時,Web想要跳轉到“D\播放器\WebFrm.htm\Play_”這個頁面,但根本沒這個頁面,WebBrowser1就會出現我們上網經常看到的“該頁無法顯示”這個頁面,這時把Cancel設為TrueWebBrowser1會斷開鏈接,就不會出現以上情況了。

  具體代碼如下:

procedure TForm1.WebBrowser1BeforeNa
vigate2Sender TObject
const pDisp IDispatch var URL Flags TargetFrameName PostData
Headers OleVariant var Cancel WordB
ool
begin
if PosPlay_ URL > 0 then begin //當返回的URL含有“Play_”,就執行播放的代碼
ShowMessage播放//為簡單起見,用來代替播放的代碼。
Cancel = True
end
else
if PosStop_ URL > 0 then begin
ShowMessage停止//為簡單起見,用來代替播放的代碼。
Cancel = True
end
end
  (以上代碼Delphi6+Win2000編譯通過。)
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved