用delphi打造属于自己的播放器
如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的，比如启动时间慢，占用空间大，留有历史记录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer播放器。下面我将向大家介绍如何利用Delphi来帮助你实现这一愿望。但前提是：你的机器中必须装有RealPlayer Plus播放器，因为我们要用到其自带的ActiveX控件。
首先，我们要在Delphi中导入所需的ActiveX控件。点击菜单“Component→Import ActiveX Control...”打开“Import ActiveX”对话框，在“Import ActiveX”列表框中，我们可以看到Windows中所有注册的AxctiveX控件。选择其中的“RealPlayer ActiveX Control Library(Version 1.0)”控件。然后单击“Install”按钮。
回到Delphi主界面，你会发现在VCL面板中的ActiveX标签中增加了一个名为RealAudio的组件。我们先把它放入窗体中。不过在默认情况中RealAudio组件没有视频播放窗口，也就是只能播放声音。这是我们不愿看到的，这时我们可以在RealAudio组件的Controls属性中添加如下代码：
IMAGEWINDOW,CONTROLPANEL,STATUSBAR
其中：IMAGEWINDOW、CONTROLPANEL、STATUSBAR分别表示显示视频播放窗口、控制条状态条。
添加代码后，我们可以发现控件外观已经改变成了视频播放窗口形状。然后设置Align属性为alClient，使播放窗口可以随窗体的变化而变化，方便大家在观看影视动画时可以随意拉动播放窗口大小。
然后，在窗中加入TMainMenu组件、TOpenDialog组件各一个。用于选择并打开播放影视文件。双击TMainMenu组件，进入菜单设计器。在这里，我们要设计一个菜单项File，及其2个子菜单Open、Exit。设计完毕后：
双击Open添加如下代码：
if OpenDialog1.Execute then
begin
RealAudio1.source:=OpenDialog1.FileName;
RealAudio1.doplay; //打开并启动播放器
End;
双击Open添加如下代码：
Application.terminate; //终止程序运行
为了在打开一个文件时，便于用户选择文件，要将OpenDialog组件的Filter属性设置如下：所有媒体文件(*.rm,*.ram,*.ra,*.swf,*.mp3)|*.rm;*.ram;*.ra;*.swf;*.mp3|*.*|*.*。
如果想要在看电
相关文档：
MSHTML是微软公司的一个COM组件，该组件封装了HTML语言中的所有元素及其属性，通过其提供的标准接口，可以访问指定网页的所有元素．
MSHTML对象模型是由一些对象和集合组成的．处于根部的是HTML，描述了打开页面的1个窗口，包括一系列集合和对象。如Frames集合，History，Location，Navigator，Document，Vi—sum ......
procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
name := edit2.Text ;
name := '%' + name ;
query1.Close ;
query1.SQL.Clear ;
query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
&nb ......
Delphi U盘插入拨出检测：
1、新建工程；
2、在form1上放一个Label；
3、定义一个私有过程
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
完整代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics ......
上一篇，介绍了组件开发的一般概述，以及组件类层次结构的各个类的大致信息！现在就开始通过实例进行来简单的讲述一下一般组件的开发过程！我这里先采用最
基本的方式来创建一个组件！也就是使用Delphi自己的组件开发向导来建立一个新的组件。在这里，我以扩充TEdit为例进行讲解。
那么首先，要介绍的就是 ......
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的
DLL或是Pas了。
在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元，再写如下代码即可以达到MD5的实现。
示例代码
procedure TForm1.Button1Click(Sen ......
