begin

　　

timer2.Enabled :=false;

　　

end;

　　

end.

用

Delphi 5．0 编写在线播放器 

--------------------------------------------------------------------------------
　　对于

RealPlayer 网络播放软件大家一定不会陌生。其强大的网络视频、音频等媒体播放

功能让人很是羡慕。如果自己也能做一个，心里肯定感觉不错。
　　

RealPlayer 软件本身有一个 RealPlayer 插件。由于它采用的是 Active 技术，这就为我们

创建自己的

RealPlayer 播放器创造了条件。因为应用 ActiveX 技术做成的插件，可以很方便

地应用到任何支持

ActiveX 技术的开发语言中，并作为一个普通组件加以使用。我们在下面 

就以

Delphi 5.0 为例，制作一个属于自己的 RealPlayer 网络影视播放器。

　　添加

RealPlayerActive 插件到组件栏 ActiveX 项中，以备使用。选择主菜单

Component→Import ActiveX Control 项，将出现一个 Import ActiveX 窗口，该窗口的上部选
择列表中存放了本计算机系统中已经拥有的各种

Active 插件。如果你安装了 RealPlayer 软件，

就从中找到

RealPlayer ActiveX Control Library 一项并选定，然后选择窗口下部的 Install...按

钮，出现

Install 窗口，保持默认值，选择 OK，即可添加完成。回到组件栏 ActiveX 项中，

你会发现

RealPlayer 软件的图标。这样，RealPlayer 就可当作一个普通组件使用。

图

1 RealPlayer Active

　　新建一个

Delphi 应用程序，然后在窗口中把组件栏 ActiveX 项中的 RealPlayer 组件拉

入窗口中，命名为

RealAudio1，出现一个简化的 RealPlayer 界面。但它只有控制界面，没有

视频图像界面。这不要紧，在

RealPlayer 组件的 Controls 属性中加入“ImageWindow”，然后

点击下面的窗口，视频图像开始出现，在

“ImageWindow”后接着添加“ControlPanel”属性值

(用逗号分开)。这样控制界面出现，还可以在后面继续添加“Statuabar”值，出现状态条。
　　将

RealPlayer 组件拉动到适当大小，在窗口中添加一命令按钮并命名为 Play。然后在按

钮的单击事件中添加以下代码：
　　

procedure TForm1.Button1Click(Sender: TObject);

　　

begin

　　

RealAudio1.source=' c:A.rm' ; //播放的电影源。

　　

RealAudio1.doplay; //开始播放电影

　　

end;

　　一个

RealPlayer 播放器就做完了，简单吧！不过本文只是简单介绍 RealPlayer 组件，

它还拥有许多属性和方法，诸君可以自由发挥想像力，设计一个更加完善的播放器。

用

Delphi 再现 Windows 纸牌游戏 

--------------------------------------------------------------------------------
　　使用过

Windows 98 的用户对其自带的纸牌游戏一定不会陌生，在您的鼠标点击、拖动

等操作之下，扑克牌上下翻飞、腾挪组合；在您不经意的操作中，其实您已经触发了一系列
预设事件，这些事件过程的响应最终让您体会到成功的喜悦和失败的痛苦。但您想不想体会
一下借助于某种开发工具自己去编程实现的感觉呢，充分体会

Delphi 的事件驱动机制，这

将是另外一番享受，并且理解了事件驱动机制后，再作其他更深层次的开发，这样您会变
得更加得心应手。