delphi RM格式的播放器的技巧
随着网络的日益普及，RM（Real Media）格式的多媒体文件由于压缩比高而受到世界范围的认同和欢迎。安装完RealPlayer之后，系统中将会被加入一个播放RM格式的ActiveX控件，我们就是利用这个控件来实现RM格式文件的播放。
1、安装ActiveX控件
点击Component菜单下的Import ActiveX Control选项，就会出现一个现在可安装的控件列表，如果你已经安装了RealPlayer的话，选中RealPlayer ActiveX Control Librarry然后按Install键即可 。在出现了许多确认信息之后，一个名为RealAudio的ActiveX控件就装入了你的Delphi之中。
2、学习控件的使用
打开目录\Delphi5\Imports\，找到RealAudioObjects_TLB.pas文件并打开，这里面包含了控件全部的操作函数、过程及属性。以下是对几个常用的函数和过程的简要介绍：
SetSource（文件路径）：设置索要播放的文件的完整路径；
DoPlay：播放；
DoPlayPause：暂停；
DoStop：停止；
SetControls（）：设置播放面板显示情况，具体的使用方法后面介绍；
SetFullScreen：设置全屏播放；
SetMute（True\False）：设置静音；
其他功能详见RealAudioObjects_TLB.pas。
3、播放器的制作
点击File\New Application，创建一个新的窗体；
在窗体上加载RealAudio控件，设置属性Visable为False；
在窗体上再分别加上OpenDialog控件和5个Button控件，并设置Button控件的Caption属性分别为“打开”、“播放”、“暂停”、“停止”、“全屏”；（见附图1）
输入如下代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, RealAudioObjects_TLB;
type
TForm1 = class(TForm)
RealAudio1: TRealAudio;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
OpenDialog1: TOpenDialog;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Send
相关文档：
首先用Notepad或Resource workshop 4.5建立RC文件。 结构如下 /****************************************************************************
rcdemo.rc
produced by Borland Resource Workshop
*****************************************************************************/
# ......
公司的餐饮系统出品的助记码，还没实现自动从出品名称获取汉字拼音首字母。
所以在网上找了三种解决方法，
一种是kaguo 的使用常用汉字拼音查找方法，这种代码十分简单，实现方便，但是这种代码仅仅是一级字库，只支持三千零几个字的。
//获取中文字串的声母� ......
确实很有用，但是这个怎么把空格也默认为分割符了呢，谁知道怎样把空格不认为是分割符的？？ TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。 常规的用法大家都知道，现在来讨论它的一些高级的用法。 先把要讨论的几个属性列出来： 1
确实很有用，但是这个怎么把空格也默认为分割符了呢，谁知道怎� ......
有时候我们需要可以高速检索的列表，自然会想到哈希表，平时我们可能想到用IniFiles单元里的THashedStringList，但 THashedStringList每次新增一个Item后都需要刷新一遍，数据多了可能会有点慢，感觉不太好，而TStringHash则只能存 Integer型的(虽然我们可以把别的东西强制转成整型存进去，但感觉不太好)。TStringHash已经� ......
在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。
一、三种方法的简单介绍
1）TTtimer控件
TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事
件和Inte ......
