Delphi中利用网页打造程序界面

威化浮世绘

威化浮世绘

2016-01-29 14:24

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.htmPlay_”这行字符串当点击“停止”按钮时,URL则返回“D播放器WebFrm.htmStop_”这行字符串。Cancel这个参数的用途是:当点击“播放”按钮时,Web想要跳转到“D播放器WebFrm.htmPlay_”这个页面,但根本没这个页面,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编译通过。)

展开更多 50%)
分享

猜你喜欢

Delphi中利用网页打造程序界面

Delphi
Delphi中利用网页打造程序界面

利用Delphi编写Socket通信程序

Delphi
利用Delphi编写Socket通信程序

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

利用Delphi中的画布画树

编程语言 网络编程
利用Delphi中的画布画树

利用Delphi 2005 编写C#应用程序

编程语言 网络编程
利用Delphi 2005 编写C#应用程序

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Delphi中实现界面与业务逻辑的分离

编程语言 网络编程
Delphi中实现界面与业务逻辑的分离

在Delphi中利用CreateRemoteThread远程注入例子

编程语言 网络编程
在Delphi中利用CreateRemoteThread远程注入例子

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

《完美神话》新手必读 指引解析攻略

《完美神话》新手必读 指引解析攻略

一个简易需要注册的留言版程序

一个简易需要注册的留言版程序
下拉加载更多内容 ↓