[送分]delphi中realplay编程.(100分)

要详细资料,分不够可加

如
读文件流的长度
大小
作者.

我用getlenth读不出总长度啊?
要能通过的源代码.最好

看REAL公司的SDK

我找不到.


另外,我想请问一下怎么设置像winamp那样的示波器?

关注

没人会啊?
我自己顶

帮你UP，关注

关注

（转贴） 打造自己的real播放器


一、问题的提出
Real文件（后缀为.ra、.rm、ram等）是一种很流行的网上影音格式。与MP3音乐格式和MPEG影音格式相比，
它具有体积更小巧、更适合网络传输的特点。因而许多的新闻和娱乐网站都使用Real文件格式存储新闻和
影音资料，供用户实时下载收听观看。
Delphi是Borland公司提供的一种全新的Windows编程开发工具。由于它采用了具有弹性的和可重用的面向
对象Pascal(Object-Oriented Pascal)语言，并有强大的数据库引擎(BDE)，快速的代码编译器，同时又
提供了众多出色的构件，受到广大编程人员的青睐.在众多的编程语言(如VB，PowerBuilder等)中脱颖而
出.
Delphi 4完全支持ActiveX，您可以很方便地创建、注册、安装、发布和使用ActiveX控件、ActiveForm和
OLE自动化对象，这应当归功于"对象接口" 技术和DAX技术。控件是Delphi应用程序的程序构件，Delphi
支持使用可视化部件所见即所得地建立应用程序。采用控件形式可以把对象严密封装，并加上一层直观外
壳，有利于软件调试和代码重用。开发群体以控件为功能单位分工协作，比较容易实现工程化管理，从软
件规划设计到测试修改都可以减少意外差错，大大提高工作效率。
那么，我们现在可以利用Delphi强大的控件功能在应用程序中直接打开Real文件，并控制它播放和停止，
还可以得到其它的相关信息，这将会为我们的应用程序增色不少。（哈哈：…）想知道怎么实现的吗？快
跟我来吧。
二、一个例子
下面，我们将利用Delphi4来开发一个简单的Real文件的播放程序，当然作为例程序，它只有简单的Real
文件的打开、播放、暂停、停止和关闭功能，但麻雀虽小，五脏俱全嘛。下边我们一步一步来实现这个
小型的Real播放器吧。不过,在您进行下面的工作之前,我们还要注意,要想在Delphi中使用Real控件,您的
计算机中必须安装有RealPlayer播放程序，否则，哈哈：那可是不行的。
在Delphi4的可视化编程环境中，选择File菜单下的"New Application"项，新建一个新的应用程序。然后
选择Component（组件）菜单下的"Import ActiveX Control..."（导入ActiveX控件）选项，选中其中的
"Real Player ActiveX Control Library(Vision1.0)"项，并单击Install,会出现一个install窗口。
★如果要把它添加到一个已经存在的包中，在"Into existing package"对话框中的"File name:"窗口中
选择你想安装的路径，并单击"OK"；会弹出一个确认的对话框，它问你"Package dclusr40.bpk will
be rebuilt. Continue?",单击"Yes"；在弹出的窗口中单击击"Install",该控件就安装完毕。
★如果要把它添加到一个新建的包中，在"Into new package"对话框中的 "File name:"窗口中选择你想
安装的路径，并新建一个包，假如命名为test，并单击"OK"；它问你"Package test.bpk will be built.
Continue?",单击"Yes"。 在弹出的窗口中单击击"Install",该控件就安装完毕。
这时，你会在控件条的ActiveX下发现一个新的控件，名字为RealAudio, 单击它把它放在form中，并在该
form中放一个OpenDialog控件和一个panel，在该panel上放六个button，他们的Caption属性分别命名为
"打开"、"播放"、"暂停"、"停止"、"静音"、"退出"，并依次设置这些按钮的名字属性（name）
"OpenRealFileButton"、"PlayButton"、"PauseButton"、"StopButton"、"MuteButton"
和"QuitButton";设置panel、RealAudio的Align 属性分别为Alleft 和AlClient。考虑到当歌曲可以播放
时，"播放"按钮才是可用的，所以，还应该在程序中对"播放"、"暂停"、"停止"按钮的可用属性（Enabled）
进行控制，即只有当歌曲是可以播放时该按钮才是可用的，并初始化这三个按钮的可用属性（Enabled）
分别为"true"、"false"和"false"。另外，对于，静音按钮，在大多数情况下，该按钮应该是个开关按钮，
所以，还要根据情况变化设置该按钮的标题（Caption）属性。其次，为了使增强程序的功能，还要设置
打开对话框（OpenDialog）的文件过滤属性（Filter），使其只能打开我们需要的文件。最以后分别在
这六个Button的OnClick事件中写下如下代码：
procedure TForm1.OpenFileButtonClick(Sender: TObject);
begin

if OpenRealFileDialog.Execute then

realaudio1.SetSource (OpenRealFileDialog.filename);
end;

procedure TForm1.PlayButtonClick(Sender: TObject);
var
pbCanPlay:wordbool;
begin

if RealAudio1.CanPlay (pbCanPlay) then
{当能够播放时再进行播放功能设置}
begin

RealAudio1.DoPlay {执行REAL控件的播放操作}
PlayButton.Enabled :=false;{设置播放按钮不可用}
PauseButton.Enabled :=true;{设置暂停按钮为可用}
StopButton.Enabled :=true;{设置停止按钮为可用}
end
end;

procedure TForm1.PauseButtonClick(Sender: TObject);
var
pbPlayPause:wordbool;
begin

if RealAudio1.CanPlayPause (pbPlayPause) then
{当可以进行暂停设置时再进行操作}
begin

RealAudio1.DoPlayPause {执行REAL控件的暂停功能}
PauseButton.Enabled :=false;{设置暂停按钮不可用}
PlayButton.Enabled :=true;{设置播放铵钮为可用}
end
end;

procedure TForm1.StopButtonClick(Sender: TObject);
var
pbCanStop:wordbool;
begin

if RealAudio1.CanStop (pbCanStop) then
{当能够进行停止操作时再进行程序设置}
begin

RealAudio1.DoStop {执行REAL控件的停止功能}
StopButton.Enabled :=false;{设置停止按钮为不可用}
PauseButton.Enabled :=false;{设置暂停按钮为不可用}
PlayButton.Enabled :=true;{设置播放按钮为可用}
end
end;

procedure TForm1.MuteButtonClick(Sender: TObject);
var
pbmute:wordbool;
begin

pbmute:=RealAudio1.GetMute (pbmute) {得到当前的静音状态}
RealAudio1.SetMute (not pbmute);{设置当前静音状态的相反操作}
if pbmute then
{根据情况判断并设置静音按钮的CAPTION属性}
MuteButton.Caption :='闭音(&M)'
else

MuteButton.Caption :='开音(&M)';
end;

procedure TForm1.QuitButtonClick(Sender: TObject);
begin

RealAudio1.FreeOnRelease
close;{释放资源并关闭程序}
end;

怎么样，运行一下这个程序，效果还不错吧。
当然，这个程序还可以进一步地改进，就可以成为你手中自己的Real播放器了，例如可以增加播放表的
功能及循环播放等等。另外，通过此例程，我们还可以掌握在Delphi中对其它控件的编程方法。好了，
有了好的东东不要忘记告诉我呀。

感谢
这是real的基本操作.
但并不是问题的主题
我实现realplay的基本全部功能
,播放rm文件的图像窗口设置?
用trackbar 的拖动事件.

SDK ：
http://forms.real.com/rnforms/resources/server/realsystemsdk/index.html

OICQ 23366711

1、如果使用mediaplayer ， OPENDIALOG.EXECUTED 后取得LENGTH 就可以REALPLAYER只有在播放状态下才能取得
LENGTH
2、TRACKBAR 的拖动问题，可以重新加入delphi.trackbar控件，然后编程。

设置图象窗口;把real控件的controls设置为imagewindow就只看的到视频窗,其他东东都不见
了!如果还想要状态栏,在imagewindow后面加个StatusBar,要用逗号隔开

设置图象窗口;把real控件的controls设置为imagewindow就只看的到视频窗,其他东东都不见
了!如果还想要状态栏,在imagewindow后面加个StatusBar,要用逗号隔开


这一段我还不明白。
我现在想看到.rm的图像都不知道怎么设置

real没有提供视频吧？

unit RealAudioObjects_TLB;

// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 03-5-2 15:18:44 from Type Library described below.

// ************************************************************************ //
// Type Lib: C:/WINDOWS/SYSTEM/RMOC3260.DLL (1)
// LIBID: {CFCDAA00-8BE4-11CF-B84B-0020AFBBCCFA}
// LCID: 0
// Helpfile:
// HelpString: Real Player ActiveX Control Library
// DepndLst:
// (1) v2.0 stdole, (C:/WINDOWS/SYSTEM/stdole2.tlb)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;



// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
RealAudioObjectsMajorVersion = 1;
RealAudioObjectsMinorVersion = 0;

LIBID_RealAudioObjects: TGUID = '{CFCDAA00-8BE4-11CF-B84B-0020AFBBCCFA}';

IID_IRealAudio: TGUID = '{CFCDAA01-8BE4-11CF-B84B-0020AFBBCCFA}';
DIID_DRealAudioEvents: TGUID = '{CFCDAA02-8BE4-11CF-B84B-0020AFBBCCFA}';
CLASS_RealAudio: TGUID = '{CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
IRealAudio = interface;
IRealAudioDisp = dispinterface;
DRealAudioEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
RealAudio = IRealAudio;


// *********************************************************************//
// Interface: IRealAudio
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {CFCDAA01-8BE4-11CF-B84B-0020AFBBCCFA}
// *********************************************************************//
IRealAudio = interface(IDispatch)
['{CFCDAA01-8BE4-11CF-B84B-0020AFBBCCFA}']
function Get_Source: WideString;
safecall;
procedure Set_Source(const path: WideString);
safecall;
function Get_Console: WideString;
safecall;
procedure Set_Console(const Console: WideString);
safecall;
function Get_Controls: WideString;
safecall;
procedure Set_Controls(const Controls: WideString);
safecall;
function Get_NoLabels: WordBool;
safecall;
procedure Set_NoLabels(NoLabels: WordBool);
safecall;
function Get_AutoStart: WordBool;
safecall;
procedure Set_AutoStart(AutoStart: WordBool);
safecall;
function Get_AutoGotoURL: WordBool;
safecall;
procedure Set_AutoGotoURL(AutoStart: WordBool);
safecall;
function Get_WindowName: WideString;
safecall;
procedure Set_WindowName(const WindowName: WideString);
safecall;
function GetSource: WideString;
safecall;
procedure SetSource(const lpszNewValue: WideString);
safecall;
function GetConsole: WideString;
safecall;
procedure SetConsole(const lpszNewValue: WideString);
safecall;
function GetControls: WideString;
safecall;
procedure SetControls(const lpszNewValue: WideString);
safecall;
function GetNoLabels: WordBool;
safecall;
procedure SetNoLabels(bNewValue: WordBool);
safecall;
function GetAutoStart: WordBool;
safecall;
procedure SetAutoStart(bNewValue: WordBool);
safecall;
function GetAutoGotoURL: WordBool;
safecall;
procedure SetAutoGotoURL(bNewValue: WordBool);
safecall;
function GetVolume: Smallint;
safecall;
procedure SetVolume(nVol: Smallint);
safecall;
function GetMute: WordBool;
safecall;
procedure SetMute(bMute: WordBool);
safecall;
function GetLoop: WordBool;
safecall;
procedure SetLoop(bVal: WordBool);
safecall;
function GetImageStatus: WordBool;
safecall;
procedure SetImageStatus(bEnable: WordBool);
safecall;
function GetPacketsTotal: Integer;
safecall;
function GetPacketsReceived: Integer;
safecall;
function GetPacketsOutOfOrder: Integer;
safecall;
function GetPacketsMissing: Integer;
safecall;
function GetPacketsEarly: Integer;
safecall;
function GetPacketsLate: Integer;
safecall;
function GetBandwidthAverage: Integer;
safecall;
function GetBandwidthCurrent: Integer;
safecall;
proceduredo
PlayPause;
safecall;
proceduredo
Stop;
safecall;
proceduredo
NextItem;
safecall;
proceduredo
PrevItem;
safecall;
function CanPlayPause: WordBool;
safecall;
function CanStop: WordBool;
safecall;
function HasNextItem: WordBool;
safecall;
function HasPrevItem: WordBool;
safecall;
function HasNextEntry: WordBool;
safecall;
function HasPrevEntry: WordBool;
safecall;
proceduredo
NextEntry;
safecall;
proceduredo
PrevEntry;
safecall;
procedure AboutBox;
safecall;
procedure EditPreferences;
safecall;
procedure HideShowStatistics;
safecall;
function IsStatisticsVisible: WordBool;
safecall;
proceduredo
GotoURL(const url: WideString;
const target: WideString);
safecall;
proceduredo
Play;
safecall;
proceduredo
Pause;
safecall;
function GetPosition: Integer;
safecall;
function GetPlayState: Integer;
safecall;
function GetLength: Integer;
safecall;
function GetTitle: WideString;
safecall;
function GetAuthor: WideString;
safecall;
function GetCopyright: WideString;
safecall;
function GetClipWidth: Integer;
safecall;
function GetClipHeight: Integer;
safecall;
function CanPlay: WordBool;
safecall;
function CanPause: WordBool;
safecall;
procedure SetPosition(lPosition: Integer);
safecall;
function GetNumLoop: Integer;
safecall;
procedure SetNumLoop(lVal: Integer);
safecall;
function GetCenter: WordBool;
safecall;
procedure SetCenter(bVal: WordBool);
safecall;
function GetNoLogo: WordBool;
safecall;
procedure SetNoLogo(bVal: WordBool);
safecall;
function GetMaintainAspect: WordBool;
safecall;
procedure SetMaintainAspect(bVal: WordBool);
safecall;
function GetBackgroundColor: WideString;
safecall;
procedure SetBackgroundColor(const pVal: WideString);
safecall;
function GetStereoState: WordBool;
safecall;
function GetLiveState: WordBool;
safecall;
function GetShowStatistics: WordBool;
safecall;
procedure SetShowStatistics(bVal: WordBool);
safecall;
function GetShowPreferences: WordBool;
safecall;
procedure SetShowPreferences(bVal: WordBool);
safecall;
function GetShowAbout: WordBool;
safecall;
procedure SetShowAbout(bVal: WordBool);
safecall;
function GetOriginalSize: WordBool;
safecall;
procedure SetOriginalSize;
safecall;
function GetDoubleSize: WordBool;
safecall;
procedure SetDoubleSize;
safecall;
function GetFullScreen: WordBool;
safecall;
procedure SetFullScreen;
safecall;
function GetEnableContextMenu: WordBool;
safecall;
procedure SetEnableContextMenu(bVal: WordBool);
safecall;
function GetEnableOriginalSize: WordBool;
safecall;
procedure SetEnableOriginalSize(bVal: WordBool);
safecall;
function GetEnableDoubleSize: WordBool;
safecall;
procedure SetEnableDoubleSize(bVal: WordBool);
safecall;
function GetEnableFullScreen: WordBool;
safecall;
procedure SetEnableFullScreen(bVal: WordBool);
safecall;
function GetEnableMessageBox: WordBool;
safecall;
procedure SetEnableMessageBox(bVal: WordBool);
safecall;
procedure SetTitle(const pVal: WideString);
safecall;
procedure SetAuthor(const pVal: WideString);
safecall;
procedure SetCopyright(const pVal: WideString);
safecall;
function GetWantKeyboardEvents: WordBool;
safecall;
procedure SetWantKeyboardEvents(bWantsEvents: WordBool);
safecall;
function GetWantMouseEvents: WordBool;
safecall;
procedure SetWantMouseEvents(bWantsEvents: WordBool);
safecall;
function GetNumEntries: Smallint;
safecall;
function GetCurrentEntry: Smallint;
safecall;
function GetEntryTitle(uEntryIndex: Smallint): WideString;
safecall;
function GetEntryAuthor(uEntryIndex: Smallint): WideString;
safecall;
function GetEntryCopyright(uEntryIndex: Smallint): WideString;
safecall;
function GetEntryAbstract(uEntryIndex: Smallint): WideString;
safecall;
procedure SetCanSeek(bCanSeek: WordBool);
safecall;
function GetCanSeek: WordBool;
safecall;
function GetBufferingTimeElapsed: Integer;
safecall;
function GetBufferingTimeRemaining: Integer;
safecall;
function GetConnectionBandwidth: Integer;
safecall;
function GetPreferedLanguageString: WideString;
safecall;
function GetPreferedLanguageID: Integer;
safecall;
function GetUserCountryID: Integer;
safecall;
function GetNumSources: Smallint;
safecall;
function GetSourceTransport(nSourceNum: Smallint): WideString;
safecall;
function GetWantErrors: WordBool;
safecall;
procedure SetWantErrors(bVal: WordBool);
safecall;
function GetShuffle: WordBool;
safecall;
procedure SetShuffle(bVal: WordBool);
safecall;
function GetVersionInfo: WideString;
safecall;
function GetLastMessage: WideString;
safecall;
function GetLastErrorSeverity: Integer;
safecall;
function GetLastErrorRMACode: Integer;
safecall;
function GetLastErrorUserCode: Integer;
safecall;
function GetLastErrorUserString: WideString;
safecall;
function GetLastErrorMoreInfoURL: WideString;
safecall;
procedure SetPreFetch(bVal: WordBool);
safecall;
function GetPreFetch: WordBool;
safecall;
procedure SetRegion(const pVal: WideString);
safecall;
function GetRegion: WideString;
safecall;
function GetIsPlus: WordBool;
safecall;
function GetConsoleEvents: WordBool;
safecall;
procedure SetConsoleEvents(bVal: WordBool);
safecall;
property Source: WideString read Get_Source write Set_Source;
property Console: WideString read Get_Console write Set_Console;
property Controls: WideString read Get_Controls write Set_Controls;
property NoLabels: WordBool read Get_NoLabels write Set_NoLabels;
property AutoStart: WordBool read Get_AutoStart write Set_AutoStart;
property AutoGotoURL: WordBool read Get_AutoGotoURL write Set_AutoGotoURL;
property WindowName: WideString read Get_WindowName write Set_WindowName;
end;


// *********************************************************************//
// DispIntf: IRealAudioDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {CFCDAA01-8BE4-11CF-B84B-0020AFBBCCFA}
// *********************************************************************//
IRealAudioDisp = dispinterface
['{CFCDAA01-8BE4-11CF-B84B-0020AFBBCCFA}']
property Source: WideString dispid 102;
property Console: WideString dispid 103;
property Controls: WideString dispid 104;
property NoLabels: WordBool dispid 105;
property AutoStart: WordBool dispid 106;
property AutoGotoURL: WordBool dispid 107;
property WindowName: WideString dispid 108;
function GetSource: WideString;
dispid 214;
procedure SetSource(const lpszNewValue: WideString);
dispid 215;
function GetConsole: WideString;
dispid 216;
procedure SetConsole(const lpszNewValue: WideString);
dispid 217;
function GetControls: WideString;
dispid 218;
procedure SetControls(const lpszNewValue: WideString);
dispid 219;
function GetNoLabels: WordBool;
dispid 220;
procedure SetNoLabels(bNewValue: WordBool);
dispid 221;
function GetAutoStart: WordBool;
dispid 222;
procedure SetAutoStart(bNewValue: WordBool);
dispid 223;
function GetAutoGotoURL: WordBool;
dispid 224;
procedure SetAutoGotoURL(bNewValue: WordBool);
dispid 225;
function GetVolume: Smallint;
dispid 226;
procedure SetVolume(nVol: Smallint);
dispid 227;
function GetMute: WordBool;
dispid 228;
procedure SetMute(bMute: WordBool);
dispid 229;
function GetLoop: WordBool;
dispid 230;
procedure SetLoop(bVal: WordBool);
dispid 231;
function GetImageStatus: WordBool;
dispid 234;
procedure SetImageStatus(bEnable: WordBool);
dispid 235;
function GetPacketsTotal: Integer;
dispid 236;
function GetPacketsReceived: Integer;
dispid 237;
function GetPacketsOutOfOrder: Integer;
dispid 238;
function GetPacketsMissing: Integer;
dispid 239;
function GetPacketsEarly: Integer;
dispid 240;
function GetPacketsLate: Integer;
dispid 241;
function GetBandwidthAverage: Integer;
dispid 242;
function GetBandwidthCurrent: Integer;
dispid 243;
proceduredo
PlayPause;
dispid 201;
proceduredo
Stop;
dispid 202;
proceduredo
NextItem;
dispid 203;
proceduredo
PrevItem;
dispid 204;
function CanPlayPause: WordBool;
dispid 205;
function CanStop: WordBool;
dispid 206;
function HasNextItem: WordBool;
dispid 207;
function HasPrevItem: WordBool;
dispid 208;
function HasNextEntry: WordBool;
dispid 339;
function HasPrevEntry: WordBool;
dispid 340;
proceduredo
NextEntry;
dispid 341;
proceduredo
PrevEntry;
dispid 342;
procedure AboutBox;
dispid -552;
procedure EditPreferences;
dispid 210;
procedure HideShowStatistics;
dispid 211;
function IsStatisticsVisible: WordBool;
dispid 212;
proceduredo
GotoURL(const url: WideString;
const target: WideString);
dispid 213;
proceduredo
Play;
dispid 257;
proceduredo
Pause;
dispid 258;
function GetPosition: Integer;
dispid 259;
function GetPlayState: Integer;
dispid 260;
function GetLength: Integer;
dispid 261;
function GetTitle: WideString;
dispid 262;
function GetAuthor: WideString;
dispid 263;
function GetCopyright: WideString;
dispid 264;
function GetClipWidth: Integer;
dispid 265;
function GetClipHeight: Integer;
dispid 266;
function CanPlay: WordBool;
dispid 267;
function CanPause: WordBool;
dispid 268;
procedure SetPosition(lPosition: Integer);
dispid 269;
function GetNumLoop: Integer;
dispid 270;
procedure SetNumLoop(lVal: Integer);
dispid 271;
function GetCenter: WordBool;
dispid 272;
procedure SetCenter(bVal: WordBool);
dispid 273;
function GetNoLogo: WordBool;
dispid 274;
procedure SetNoLogo(bVal: WordBool);
dispid 275;
function GetMaintainAspect: WordBool;
dispid 276;
procedure SetMaintainAspect(bVal: WordBool);
dispid 277;
function GetBackgroundColor: WideString;
dispid 278;
procedure SetBackgroundColor(const pVal: WideString);
dispid 279;
function GetStereoState: WordBool;
dispid 280;
function GetLiveState: WordBool;
dispid 281;
function GetShowStatistics: WordBool;
dispid 282;
procedure SetShowStatistics(bVal: WordBool);
dispid 283;
function GetShowPreferences: WordBool;
dispid 284;
procedure SetShowPreferences(bVal: WordBool);
dispid 285;
function GetShowAbout: WordBool;
dispid 286;
procedure SetShowAbout(bVal: WordBool);
dispid 287;
function GetOriginalSize: WordBool;
dispid 288;
procedure SetOriginalSize;
dispid 289;
function GetDoubleSize: WordBool;
dispid 290;
procedure SetDoubleSize;
dispid 291;
function GetFullScreen: WordBool;
dispid 292;
procedure SetFullScreen;
dispid 293;
function GetEnableContextMenu: WordBool;
dispid 294;
procedure SetEnableContextMenu(bVal: WordBool);
dispid 295;
function GetEnableOriginalSize: WordBool;
dispid 296;
procedure SetEnableOriginalSize(bVal: WordBool);
dispid 297;
function GetEnableDoubleSize: WordBool;
dispid 298;
procedure SetEnableDoubleSize(bVal: WordBool);
dispid 299;
function GetEnableFullScreen: WordBool;
dispid 244;
procedure SetEnableFullScreen(bVal: WordBool);
dispid 245;
function GetEnableMessageBox: WordBool;
dispid 337;
procedure SetEnableMessageBox(bVal: WordBool);
dispid 338;
procedure SetTitle(const pVal: WideString);
dispid 246;
procedure SetAuthor(const pVal: WideString);
dispid 247;
procedure SetCopyright(const pVal: WideString);
dispid 248;
function GetWantKeyboardEvents: WordBool;
dispid 306;
procedure SetWantKeyboardEvents(bWantsEvents: WordBool);
dispid 305;
function GetWantMouseEvents: WordBool;
dispid 308;
procedure SetWantMouseEvents(bWantsEvents: WordBool);
dispid 307;
function GetNumEntries: Smallint;
dispid 309;
function GetCurrentEntry: Smallint;
dispid 310;
function GetEntryTitle(uEntryIndex: Smallint): WideString;
dispid 311;
function GetEntryAuthor(uEntryIndex: Smallint): WideString;
dispid 312;
function GetEntryCopyright(uEntryIndex: Smallint): WideString;
dispid 313;
function GetEntryAbstract(uEntryIndex: Smallint): WideString;
dispid 314;
procedure SetCanSeek(bCanSeek: WordBool);
dispid 315;
function GetCanSeek: WordBool;
dispid 316;
function GetBufferingTimeElapsed: Integer;
dispid 317;
function GetBufferingTimeRemaining: Integer;
dispid 318;
function GetConnectionBandwidth: Integer;
dispid 319;
function GetPreferedLanguageString: WideString;
dispid 320;
function GetPreferedLanguageID: Integer;
dispid 321;
function GetUserCountryID: Integer;
dispid 322;
function GetNumSources: Smallint;
dispid 323;
function GetSourceTransport(nSourceNum: Smallint): WideString;
dispid 324;
function GetWantErrors: WordBool;
dispid 325;
procedure SetWantErrors(bVal: WordBool);
dispid 326;
function GetShuffle: WordBool;
dispid 327;
procedure SetShuffle(bVal: WordBool);
dispid 328;
function GetVersionInfo: WideString;
dispid 329;
function GetLastMessage: WideString;
dispid 331;
function GetLastErrorSeverity: Integer;
dispid 334;
function GetLastErrorRMACode: Integer;
dispid 333;
function GetLastErrorUserCode: Integer;
dispid 335;
function GetLastErrorUserString: WideString;
dispid 336;
function GetLastErrorMoreInfoURL: WideString;
dispid 332;
procedure SetPreFetch(bVal: WordBool);
dispid 343;
function GetPreFetch: WordBool;
dispid 344;
procedure SetRegion(const pVal: WideString);
dispid 345;
function GetRegion: WideString;
dispid 346;
function GetIsPlus: WordBool;
dispid 347;
function GetConsoleEvents: WordBool;
dispid 348;
procedure SetConsoleEvents(bVal: WordBool);
dispid 349;
end;


// *********************************************************************//
// DispIntf: DRealAudioEvents
// Flags: (4112) Hidden Dispatchable
// GUID: {CFCDAA02-8BE4-11CF-B84B-0020AFBBCCFA}
// *********************************************************************//
DRealAudioEvents = dispinterface
['{CFCDAA02-8BE4-11CF-B84B-0020AFBBCCFA}']
procedure OnGotoURL(const url: WideString;
const target: WideString);
dispid 301;
procedure OnClipOpened(const shortClipName: WideString;
const url: WideString);
dispid 302;
procedure OnClipClosed;
dispid 303;
procedure OnShowStatus(const statusText: WideString);
dispid 304;
procedure OnPositionChange(lPos: Integer;
lLen: Integer);
dispid 1005;
procedure OnVolumeChange(nVol: Smallint);
dispid 1007;
procedure OnMuteChange(bMute: Integer);
dispid 1008;
procedure OnTitleChange(const bstrTitle: WideString);
dispid 1009;
procedure OnAuthorChange(const bstrAuthor: WideString);
dispid 1010;
procedure OnCopyrightChange(const bstrCopyright: WideString);
dispid 1011;
procedure OnPlayStateChange(lNewState: Integer);
dispid 1013;
procedure OnErrorMessage(uSeverity: Smallint;
uRMACode: Integer;
uUserCode: Integer;

const pUserString: WideString;
const pMoreInfoURL: WideString;

const pErrorString: WideString);
dispid 1014;
procedure OnStatsInfoChange(const bstrStats: WideString);
dispid 1015;
procedure OnContacting(const bstrContacting: WideString);
dispid 1016;
procedure OnPreSeek(lOldTime: Integer;
lNewTime: Integer);
dispid 1017;
procedure OnPostSeek(lOldTime: Integer;
lNewTime: Integer);
dispid 1018;
procedure OnPresentationOpened;
dispid 1019;
procedure OnPresentationClosed;
dispid 1020;
procedure OnPreFetchComplete;
dispid 1021;
procedure OnLButtonDown(nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT);
dispid 1031;
procedure OnLButtonUp(nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT);
dispid 1032;
procedure OnRButtonDown(nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT);
dispid 1034;
procedure OnRButtonUp(nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT);
dispid 1035;
procedure OnMouseMove(nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT);
dispid 1037;
procedure OnKeyDown(nFlags: SYSINT;
nKey: SYSINT);
dispid 1038;
procedure OnKeyUp(nFlags: SYSINT;
nKey: SYSINT);
dispid 1039;
procedure OnKeyPress(nFlags: SYSINT;
nKey: SYSINT);
dispid 1040;
procedure OnBuffering(lFlags: Integer;
lPercentage: Integer);
dispid 1041;
procedure OnStateChange(lOldState: Integer;
lNewState: Integer);
dispid 1042;
end;



// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TRealAudio
// Help String : RealAudio control
// Default Interface: IRealAudio
// Def. Intf. DISP? : No
// Event Interface: DRealAudioEvents
// TypeFlags : (2) CanCreate
// *********************************************************************//
TRealAudioOnGotoURL = procedure(ASender: TObject;
const url: WideString;
const target: WideString) of object;
TRealAudioOnClipOpened = procedure(ASender: TObject;
const shortClipName: WideString;

const url: WideString) of object;
TRealAudioOnShowStatus = procedure(ASender: TObject;
const statusText: WideString) of object;
TRealAudioOnPositionChange = procedure(ASender: TObject;
lPos: Integer;
lLen: Integer) of object;
TRealAudioOnVolumeChange = procedure(ASender: TObject;
nVol: Smallint) of object;
TRealAudioOnMuteChange = procedure(ASender: TObject;
bMute: Integer) of object;
TRealAudioOnTitleChange = procedure(ASender: TObject;
const bstrTitle: WideString) of object;
TRealAudioOnAuthorChange = procedure(ASender: TObject;
const bstrAuthor: WideString) of object;
TRealAudioOnCopyrightChange = procedure(ASender: TObject;
const bstrCopyright: WideString) of object;
TRealAudioOnPlayStateChange = procedure(ASender: TObject;
lNewState: Integer) of object;
TRealAudioOnErrorMessage = procedure(ASender: TObject;
uSeverity: Smallint;
uRMACode: Integer;

uUserCode: Integer;

const pUserString: WideString;

const pMoreInfoURL: WideString;

const pErrorString: WideString) of object;
TRealAudioOnStatsInfoChange = procedure(ASender: TObject;
const bstrStats: WideString) of object;
TRealAudioOnContacting = procedure(ASender: TObject;
const bstrContacting: WideString) of object;
TRealAudioOnPreSeek = procedure(ASender: TObject;
lOldTime: Integer;
lNewTime: Integer) of object;
TRealAudioOnPostSeek = procedure(ASender: TObject;
lOldTime: Integer;
lNewTime: Integer) of object;
TRealAudioOnLButtonDown = procedure(ASender: TObject;
nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT) of object;
TRealAudioOnLButtonUp = procedure(ASender: TObject;
nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT) of object;
TRealAudioOnRButtonDown = procedure(ASender: TObject;
nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT) of object;
TRealAudioOnRButtonUp = procedure(ASender: TObject;
nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT) of object;
TRealAudioOnMouseMove = procedure(ASender: TObject;
nFlags: SYSINT;
nX: SYSINT;
nY: SYSINT) of object;
TRealAudioOnKeyDown = procedure(ASender: TObject;
nFlags: SYSINT;
nKey: SYSINT) of object;
TRealAudioOnKeyUp = procedure(ASender: TObject;
nFlags: SYSINT;
nKey: SYSINT) of object;
TRealAudioOnKeyPress = procedure(ASender: TObject;
nFlags: SYSINT;
nKey: SYSINT) of object;
TRealAudioOnBuffering = procedure(ASender: TObject;
lFlags: Integer;
lPercentage: Integer) of object;
TRealAudioOnStateChange = procedure(ASender: TObject;
lOldState: Integer;
lNewState: Integer) of object;

TRealAudio = class(TOleControl)
private
FOnGotoURL: TRealAudioOnGotoURL;
FOnClipOpened: TRealAudioOnClipOpened;
FOnClipClosed: TNotifyEvent;
FOnShowStatus: TRealAudioOnShowStatus;
FOnPositionChange: TRealAudioOnPositionChange;
FOnVolumeChange: TRealAudioOnVolumeChange;
FOnMuteChange: TRealAudioOnMuteChange;
FOnTitleChange: TRealAudioOnTitleChange;
FOnAuthorChange: TRealAudioOnAuthorChange;
FOnCopyrightChange: TRealAudioOnCopyrightChange;
FOnPlayStateChange: TRealAudioOnPlayStateChange;
FOnErrorMessage: TRealAudioOnErrorMessage;
FOnStatsInfoChange: TRealAudioOnStatsInfoChange;
FOnContacting: TRealAudioOnContacting;
FOnPreSeek: TRealAudioOnPreSeek;
FOnPostSeek: TRealAudioOnPostSeek;
FOnPresentationOpened: TNotifyEvent;
FOnPresentationClosed: TNotifyEvent;
FOnPreFetchComplete: TNotifyEvent;
FOnLButtonDown: TRealAudioOnLButtonDown;
FOnLButtonUp: TRealAudioOnLButtonUp;
FOnRButtonDown: TRealAudioOnRButtonDown;
FOnRButtonUp: TRealAudioOnRButtonUp;
FOnMouseMove: TRealAudioOnMouseMove;
FOnKeyDown: TRealAudioOnKeyDown;
FOnKeyUp: TRealAudioOnKeyUp;
FOnKeyPress: TRealAudioOnKeyPress;
FOnBuffering: TRealAudioOnBuffering;
FOnStateChange: TRealAudioOnStateChange;
FIntf: IRealAudio;
function GetControlInterface: IRealAudio;
protected
procedure CreateControl;
procedure InitControlData;
override;
public
function GetSource: WideString;
procedure SetSource(const lpszNewValue: WideString);
function GetConsole: WideString;
procedure SetConsole(const lpszNewValue: WideString);
function GetControls: WideString;
procedure SetControls(const lpszNewValue: WideString);
function GetNoLabels: WordBool;
procedure SetNoLabels(bNewValue: WordBool);
function GetAutoStart: WordBool;
procedure SetAutoStart(bNewValue: WordBool);
function GetAutoGotoURL: WordBool;
procedure SetAutoGotoURL(bNewValue: WordBool);
function GetVolume: Smallint;
procedure SetVolume(nVol: Smallint);
function GetMute: WordBool;
procedure SetMute(bMute: WordBool);
function GetLoop: WordBool;
procedure SetLoop(bVal: WordBool);
function GetImageStatus: WordBool;
procedure SetImageStatus(bEnable: WordBool);
function GetPacketsTotal: Integer;
function GetPacketsReceived: Integer;
function GetPacketsOutOfOrder: Integer;
function GetPacketsMissing: Integer;
function GetPacketsEarly: Integer;
function GetPacketsLate: Integer;
function GetBandwidthAverage: Integer;
function GetBandwidthCurrent: Integer;
proceduredo
PlayPause;
proceduredo
Stop;
proceduredo
NextItem;
proceduredo
PrevItem;
function CanPlayPause: WordBool;
function CanStop: WordBool;
function HasNextItem: WordBool;
function HasPrevItem: WordBool;
function HasNextEntry: WordBool;
function HasPrevEntry: WordBool;
proceduredo
NextEntry;
proceduredo
PrevEntry;
procedure AboutBox;
procedure EditPreferences;
procedure HideShowStatistics;
function IsStatisticsVisible: WordBool;
proceduredo
GotoURL(const url: WideString;
const target: WideString);
proceduredo
Play;
proceduredo
Pause;
function GetPosition: Integer;
function GetPlayState: Integer;
function GetLength: Integer;
function GetTitle: WideString;
function GetAuthor: WideString;
function GetCopyright: WideString;
function GetClipWidth: Integer;
function GetClipHeight: Integer;
function CanPlay: WordBool;
function CanPause: WordBool;
procedure SetPosition(lPosition: Integer);
function GetNumLoop: Integer;
procedure SetNumLoop(lVal: Integer);
function GetCenter: WordBool;
procedure SetCenter(bVal: WordBool);
function GetNoLogo: WordBool;
procedure SetNoLogo(bVal: WordBool);
function GetMaintainAspect: WordBool;
procedure SetMaintainAspect(bVal: WordBool);
function GetBackgroundColor: WideString;
procedure SetBackgroundColor(const pVal: WideString);
function GetStereoState: WordBool;
function GetLiveState: WordBool;
function GetShowStatistics: WordBool;
procedure SetShowStatistics(bVal: WordBool);
function GetShowPreferences: WordBool;
procedure SetShowPreferences(bVal: WordBool);
function GetShowAbout: WordBool;
procedure SetShowAbout(bVal: WordBool);
function GetOriginalSize: WordBool;
procedure SetOriginalSize;
function GetDoubleSize: WordBool;
procedure SetDoubleSize;
function GetFullScreen: WordBool;
procedure SetFullScreen;
function GetEnableContextMenu: WordBool;
procedure SetEnableContextMenu(bVal: WordBool);
function GetEnableOriginalSize: WordBool;
procedure SetEnableOriginalSize(bVal: WordBool);
function GetEnableDoubleSize: WordBool;
procedure SetEnableDoubleSize(bVal: WordBool);
function GetEnableFullScreen: WordBool;
procedure SetEnableFullScreen(bVal: WordBool);
function GetEnableMessageBox: WordBool;
procedure SetEnableMessageBox(bVal: WordBool);
procedure SetTitle(const pVal: WideString);
procedure SetAuthor(const pVal: WideString);
procedure SetCopyright(const pVal: WideString);
function GetWantKeyboardEvents: WordBool;
procedure SetWantKeyboardEvents(bWantsEvents: WordBool);
function GetWantMouseEvents: WordBool;
procedure SetWantMouseEvents(bWantsEvents: WordBool);
function GetNumEntries: Smallint;
function GetCurrentEntry: Smallint;
function GetEntryTitle(uEntryIndex: Smallint): WideString;
function GetEntryAuthor(uEntryIndex: Smallint): WideString;
function GetEntryCopyright(uEntryIndex: Smallint): WideString;
function GetEntryAbstract(uEntryIndex: Smallint): WideString;
procedure SetCanSeek(bCanSeek: WordBool);
function GetCanSeek: WordBool;
function GetBufferingTimeElapsed: Integer;
function GetBufferingTimeRemaining: Integer;
function GetConnectionBandwidth: Integer;
function GetPreferedLanguageString: WideString;
function GetPreferedLanguageID: Integer;
function GetUserCountryID: Integer;
function GetNumSources: Smallint;
function GetSourceTransport(nSourceNum: Smallint): WideString;
function GetWantErrors: WordBool;
procedure SetWantErrors(bVal: WordBool);
function GetShuffle: WordBool;
procedure SetShuffle(bVal: WordBool);
function GetVersionInfo: WideString;
function GetLastMessage: WideString;
function GetLastErrorSeverity: Integer;
function GetLastErrorRMACode: Integer;
function GetLastErrorUserCode: Integer;
function GetLastErrorUserString: WideString;
function GetLastErrorMoreInfoURL: WideString;
procedure SetPreFetch(bVal: WordBool);
function GetPreFetch: WordBool;
procedure SetRegion(const pVal: WideString);
function GetRegion: WideString;
function GetIsPlus: WordBool;
function GetConsoleEvents: WordBool;
procedure SetConsoleEvents(bVal: WordBool);
property ControlInterface: IRealAudio read GetControlInterface;
property DefaultInterface: IRealAudio read GetControlInterface;
published
property Anchors;
property TabStop;
property Align;
property DragCursor;
property DragMode;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property Visible;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnStartDrag;
property Source: WideString index 102 read GetWideStringProp write SetWideStringProp stored False;
property Console: WideString index 103 read GetWideStringProp write SetWideStringProp stored False;
property Controls: WideString index 104 read GetWideStringProp write SetWideStringProp stored False;
property NoLabels: WordBool index 105 read GetWordBoolProp write SetWordBoolProp stored False;
property AutoStart: WordBool index 106 read GetWordBoolProp write SetWordBoolProp stored False;
property AutoGotoURL: WordBool index 107 read GetWordBoolProp write SetWordBoolProp stored False;
property WindowName: WideString index 108 read GetWideStringProp write SetWideStringProp stored False;
property OnGotoURL: TRealAudioOnGotoURL read FOnGotoURL write FOnGotoURL;
property OnClipOpened: TRealAudioOnClipOpened read FOnClipOpened write FOnClipOpened;
property OnClipClosed: TNotifyEvent read FOnClipClosed write FOnClipClosed;
property OnShowStatus: TRealAudioOnShowStatus read FOnShowStatus write FOnShowStatus;
property OnPositionChange: TRealAudioOnPositionChange read FOnPositionChange write FOnPositionChange;
property OnVolumeChange: TRealAudioOnVolumeChange read FOnVolumeChange write FOnVolumeChange;
property OnMuteChange: TRealAudioOnMuteChange read FOnMuteChange write FOnMuteChange;
property OnTitleChange: TRealAudioOnTitleChange read FOnTitleChange write FOnTitleChange;
property OnAuthorChange: TRealAudioOnAuthorChange read FOnAuthorChange write FOnAuthorChange;
property OnCopyrightChange: TRealAudioOnCopyrightChange read FOnCopyrightChange write FOnCopyrightChange;
property OnPlayStateChange: TRealAudioOnPlayStateChange read FOnPlayStateChange write FOnPlayStateChange;
property OnErrorMessage: TRealAudioOnErrorMessage read FOnErrorMessage write FOnErrorMessage;
property OnStatsInfoChange: TRealAudioOnStatsInfoChange read FOnStatsInfoChange write FOnStatsInfoChange;
property OnContacting: TRealAudioOnContacting read FOnContacting write FOnContacting;
property OnPreSeek: TRealAudioOnPreSeek read FOnPreSeek write FOnPreSeek;
property OnPostSeek: TRealAudioOnPostSeek read FOnPostSeek write FOnPostSeek;
property OnPresentationOpened: TNotifyEvent read FOnPresentationOpened write FOnPresentationOpened;
property OnPresentationClosed: TNotifyEvent read FOnPresentationClosed write FOnPresentationClosed;
property OnPreFetchComplete: TNotifyEvent read FOnPreFetchComplete write FOnPreFetchComplete;
property OnLButtonDown: TRealAudioOnLButtonDown read FOnLButtonDown write FOnLButtonDown;
property OnLButtonUp: TRealAudioOnLButtonUp read FOnLButtonUp write FOnLButtonUp;
property OnRButtonDown: TRealAudioOnRButtonDown read FOnRButtonDown write FOnRButtonDown;
property OnRButtonUp: TRealAudioOnRButtonUp read FOnRButtonUp write FOnRButtonUp;
property OnMouseMove: TRealAudioOnMouseMove read FOnMouseMove write FOnMouseMove;
property OnKeyDown: TRealAudioOnKeyDown read FOnKeyDown write FOnKeyDown;
property OnKeyUp: TRealAudioOnKeyUp read FOnKeyUp write FOnKeyUp;
property OnKeyPress: TRealAudioOnKeyPress read FOnKeyPress write FOnKeyPress;
property OnBuffering: TRealAudioOnBuffering read FOnBuffering write FOnBuffering;
property OnStateChange: TRealAudioOnStateChange read FOnStateChange write FOnStateChange;
end;


procedure Register;

resourcestring
dtlServerPage = 'ActiveX';

dtlOcxPage = 'ActiveX';

implementation

uses ComObj;

procedure TRealAudio.InitControlData;
const
CEventDispIDs: array [0..28] of DWORD = (
$0000012D, $0000012E, $0000012F, $00000130, $000003ED, $000003EF,
$000003F0, $000003F1, $000003F2, $000003F3, $000003F5, $000003F6,
$000003F7, $000003F8, $000003F9, $000003FA, $000003FB, $000003FC,
$000003FD, $00000407, $00000408, $0000040A, $0000040B, $0000040D,
$0000040E, $0000040F, $00000410, $00000411, $00000412);
CControlData: TControlData2 = (
ClassID: '{CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA}';
EventIID: '{CFCDAA02-8BE4-11CF-B84B-0020AFBBCCFA}';
EventCount: 29;
EventDispIDs: @CEventDispIDs;
LicenseKey: nil (*HR:$8007000E*);
Flags: $00000000;
Version: 401);
begin

ControlData := @CControlData;
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnGotoURL) - Cardinal(Self);
end;


procedure TRealAudio.CreateControl;

proceduredo
Create;
begin

FIntf := IUnknown(OleObject) as IRealAudio;
end;


begin

if FIntf = nil then
do
Create;
end;


function TRealAudio.GetControlInterface: IRealAudio;
begin

CreateControl;
Result := FIntf;
end;


function TRealAudio.GetSource: WideString;
begin

Result := DefaultInterface.GetSource;
end;


procedure TRealAudio.SetSource(const lpszNewValue: WideString);
begin

DefaultInterface.SetSource(lpszNewValue);
end;


function TRealAudio.GetConsole: WideString;
begin

Result := DefaultInterface.GetConsole;
end;


procedure TRealAudio.SetConsole(const lpszNewValue: WideString);
begin

DefaultInterface.SetConsole(lpszNewValue);
end;


function TRealAudio.GetControls: WideString;
begin

Result := DefaultInterface.GetControls;
end;


procedure TRealAudio.SetControls(const lpszNewValue: WideString);
begin

DefaultInterface.SetControls(lpszNewValue);
end;


function TRealAudio.GetNoLabels: WordBool;
begin

Result := DefaultInterface.GetNoLabels;
end;


procedure TRealAudio.SetNoLabels(bNewValue: WordBool);
begin

DefaultInterface.SetNoLabels(bNewValue);
end;


function TRealAudio.GetAutoStart: WordBool;
begin

Result := DefaultInterface.GetAutoStart;
end;


procedure TRealAudio.SetAutoStart(bNewValue: WordBool);
begin

DefaultInterface.SetAutoStart(bNewValue);
end;


function TRealAudio.GetAutoGotoURL: WordBool;
begin

Result := DefaultInterface.GetAutoGotoURL;
end;


procedure TRealAudio.SetAutoGotoURL(bNewValue: WordBool);
begin

DefaultInterface.SetAutoGotoURL(bNewValue);
end;


function TRealAudio.GetVolume: Smallint;
begin

Result := DefaultInterface.GetVolume;
end;


procedure TRealAudio.SetVolume(nVol: Smallint);
begin

DefaultInterface.SetVolume(nVol);
end;


function TRealAudio.GetMute: WordBool;
begin

Result := DefaultInterface.GetMute;
end;


procedure TRealAudio.SetMute(bMute: WordBool);
begin

DefaultInterface.SetMute(bMute);
end;


function TRealAudio.GetLoop: WordBool;
begin

Result := DefaultInterface.GetLoop;
end;


procedure TRealAudio.SetLoop(bVal: WordBool);
begin

DefaultInterface.SetLoop(bVal);
end;


function TRealAudio.GetImageStatus: WordBool;
begin

Result := DefaultInterface.GetImageStatus;
end;


procedure TRealAudio.SetImageStatus(bEnable: WordBool);
begin

DefaultInterface.SetImageStatus(bEnable);
end;


function TRealAudio.GetPacketsTotal: Integer;
begin

Result := DefaultInterface.GetPacketsTotal;
end;


function TRealAudio.GetPacketsReceived: Integer;
begin

Result := DefaultInterface.GetPacketsReceived;
end;


function TRealAudio.GetPacketsOutOfOrder: Integer;
begin

Result := DefaultInterface.GetPacketsOutOfOrder;
end;


function TRealAudio.GetPacketsMissing: Integer;
begin

Result := DefaultInterface.GetPacketsMissing;
end;


function TRealAudio.GetPacketsEarly: Integer;
begin

Result := DefaultInterface.GetPacketsEarly;
end;


function TRealAudio.GetPacketsLate: Integer;
begin

Result := DefaultInterface.GetPacketsLate;
end;


function TRealAudio.GetBandwidthAverage: Integer;
begin

Result := DefaultInterface.GetBandwidthAverage;
end;


function TRealAudio.GetBandwidthCurrent: Integer;
begin

Result := DefaultInterface.GetBandwidthCurrent;
end;


procedure TRealAudio.DoPlayPause;
begin

DefaultInterface.DoPlayPause;
end;


procedure TRealAudio.DoStop;
begin

DefaultInterface.DoStop;
end;


procedure TRealAudio.DoNextItem;
begin

DefaultInterface.DoNextItem;
end;


procedure TRealAudio.DoPrevItem;
begin

DefaultInterface.DoPrevItem;
end;


function TRealAudio.CanPlayPause: WordBool;
begin

Result := DefaultInterface.CanPlayPause;
end;


function TRealAudio.CanStop: WordBool;
begin

Result := DefaultInterface.CanStop;
end;


function TRealAudio.HasNextItem: WordBool;
begin

Result := DefaultInterface.HasNextItem;
end;


function TRealAudio.HasPrevItem: WordBool;
begin

Result := DefaultInterface.HasPrevItem;
end;


function TRealAudio.HasNextEntry: WordBool;
begin

Result := DefaultInterface.HasNextEntry;
end;


function TRealAudio.HasPrevEntry: WordBool;
begin

Result := DefaultInterface.HasPrevEntry;
end;


procedure TRealAudio.DoNextEntry;
begin

DefaultInterface.DoNextEntry;
end;


procedure TRealAudio.DoPrevEntry;
begin

DefaultInterface.DoPrevEntry;
end;


procedure TRealAudio.AboutBox;
begin

DefaultInterface.AboutBox;
end;


procedure TRealAudio.EditPreferences;
begin

DefaultInterface.EditPreferences;
end;


procedure TRealAudio.HideShowStatistics;
begin

DefaultInterface.HideShowStatistics;
end;


function TRealAudio.IsStatisticsVisible: WordBool;
begin

Result := DefaultInterface.IsStatisticsVisible;
end;


procedure TRealAudio.DoGotoURL(const url: WideString;
const target: WideString);
begin

DefaultInterface.DoGotoURL(url, target);
end;


procedure TRealAudio.DoPlay;
begin

DefaultInterface.DoPlay;
end;


procedure TRealAudio.DoPause;
begin

DefaultInterface.DoPause;
end;


function TRealAudio.GetPosition: Integer;
begin

Result := DefaultInterface.GetPosition;
end;


function TRealAudio.GetPlayState: Integer;
begin

Result := DefaultInterface.GetPlayState;
end;


function TRealAudio.GetLength: Integer;
begin

Result := DefaultInterface.GetLength;
end;


function TRealAudio.GetTitle: WideString;
begin

Result := DefaultInterface.GetTitle;
end;


function TRealAudio.GetAuthor: WideString;
begin

Result := DefaultInterface.GetAuthor;
end;


function TRealAudio.GetCopyright: WideString;
begin

Result := DefaultInterface.GetCopyright;
end;


function TRealAudio.GetClipWidth: Integer;
begin

Result := DefaultInterface.GetClipWidth;
end;


function TRealAudio.GetClipHeight: Integer;
begin

Result := DefaultInterface.GetClipHeight;
end;


function TRealAudio.CanPlay: WordBool;
begin

Result := DefaultInterface.CanPlay;
end;


function TRealAudio.CanPause: WordBool;
begin

Result := DefaultInterface.CanPause;
end;


procedure TRealAudio.SetPosition(lPosition: Integer);
begin

DefaultInterface.SetPosition(lPosition);
end;


function TRealAudio.GetNumLoop: Integer;
begin

Result := DefaultInterface.GetNumLoop;
end;


procedure TRealAudio.SetNumLoop(lVal: Integer);
begin

DefaultInterface.SetNumLoop(lVal);
end;


function TRealAudio.GetCenter: WordBool;
begin

Result := DefaultInterface.GetCenter;
end;


procedure TRealAudio.SetCenter(bVal: WordBool);
begin

DefaultInterface.SetCenter(bVal);
end;


function TRealAudio.GetNoLogo: WordBool;
begin

Result := DefaultInterface.GetNoLogo;
end;


procedure TRealAudio.SetNoLogo(bVal: WordBool);
begin

DefaultInterface.SetNoLogo(bVal);
end;


function TRealAudio.GetMaintainAspect: WordBool;
begin

Result := DefaultInterface.GetMaintainAspect;
end;


procedure TRealAudio.SetMaintainAspect(bVal: WordBool);
begin

DefaultInterface.SetMaintainAspect(bVal);
end;


function TRealAudio.GetBackgroundColor: WideString;
begin

Result := DefaultInterface.GetBackgroundColor;
end;


procedure TRealAudio.SetBackgroundColor(const pVal: WideString);
begin

DefaultInterface.SetBackgroundColor(pVal);
end;


function TRealAudio.GetStereoState: WordBool;
begin

Result := DefaultInterface.GetStereoState;
end;


function TRealAudio.GetLiveState: WordBool;
begin

Result := DefaultInterface.GetLiveState;
end;


function TRealAudio.GetShowStatistics: WordBool;
begin

Result := DefaultInterface.GetShowStatistics;
end;


procedure TRealAudio.SetShowStatistics(bVal: WordBool);
begin

DefaultInterface.SetShowStatistics(bVal);
end;


function TRealAudio.GetShowPreferences: WordBool;
begin

Result := DefaultInterface.GetShowPreferences;
end;


procedure TRealAudio.SetShowPreferences(bVal: WordBool);
begin

DefaultInterface.SetShowPreferences(bVal);
end;


function TRealAudio.GetShowAbout: WordBool;
begin

Result := DefaultInterface.GetShowAbout;
end;


procedure TRealAudio.SetShowAbout(bVal: WordBool);
begin

DefaultInterface.SetShowAbout(bVal);
end;


function TRealAudio.GetOriginalSize: WordBool;
begin

Result := DefaultInterface.GetOriginalSize;
end;


procedure TRealAudio.SetOriginalSize;
begin

DefaultInterface.SetOriginalSize;
end;


function TRealAudio.GetDoubleSize: WordBool;
begin

Result := DefaultInterface.GetDoubleSize;
end;


procedure TRealAudio.SetDoubleSize;
begin

DefaultInterface.SetDoubleSize;
end;


function TRealAudio.GetFullScreen: WordBool;
begin

Result := DefaultInterface.GetFullScreen;
end;


procedure TRealAudio.SetFullScreen;
begin

DefaultInterface.SetFullScreen;
end;


function TRealAudio.GetEnableContextMenu: WordBool;
begin

Result := DefaultInterface.GetEnableContextMenu;
end;


procedure TRealAudio.SetEnableContextMenu(bVal: WordBool);
begin

DefaultInterface.SetEnableContextMenu(bVal);
end;


function TRealAudio.GetEnableOriginalSize: WordBool;
begin

Result := DefaultInterface.GetEnableOriginalSize;
end;


procedure TRealAudio.SetEnableOriginalSize(bVal: WordBool);
begin

DefaultInterface.SetEnableOriginalSize(bVal);
end;


function TRealAudio.GetEnableDoubleSize: WordBool;
begin

Result := DefaultInterface.GetEnableDoubleSize;
end;


procedure TRealAudio.SetEnableDoubleSize(bVal: WordBool);
begin

DefaultInterface.SetEnableDoubleSize(bVal);
end;


function TRealAudio.GetEnableFullScreen: WordBool;
begin

Result := DefaultInterface.GetEnableFullScreen;
end;


procedure TRealAudio.SetEnableFullScreen(bVal: WordBool);
begin

DefaultInterface.SetEnableFullScreen(bVal);
end;


function TRealAudio.GetEnableMessageBox: WordBool;
begin

Result := DefaultInterface.GetEnableMessageBox;
end;


procedure TRealAudio.SetEnableMessageBox(bVal: WordBool);
begin

DefaultInterface.SetEnableMessageBox(bVal);
end;


procedure TRealAudio.SetTitle(const pVal: WideString);
begin

DefaultInterface.SetTitle(pVal);
end;


procedure TRealAudio.SetAuthor(const pVal: WideString);
begin

DefaultInterface.SetAuthor(pVal);
end;


procedure TRealAudio.SetCopyright(const pVal: WideString);
begin

DefaultInterface.SetCopyright(pVal);
end;


function TRealAudio.GetWantKeyboardEvents: WordBool;
begin

Result := DefaultInterface.GetWantKeyboardEvents;
end;


procedure TRealAudio.SetWantKeyboardEvents(bWantsEvents: WordBool);
begin

DefaultInterface.SetWantKeyboardEvents(bWantsEvents);
end;


function TRealAudio.GetWantMouseEvents: WordBool;
begin

Result := DefaultInterface.GetWantMouseEvents;
end;


procedure TRealAudio.SetWantMouseEvents(bWantsEvents: WordBool);
begin

DefaultInterface.SetWantMouseEvents(bWantsEvents);
end;


function TRealAudio.GetNumEntries: Smallint;
begin

Result := DefaultInterface.GetNumEntries;
end;


function TRealAudio.GetCurrentEntry: Smallint;
begin

Result := DefaultInterface.GetCurrentEntry;
end;


function TRealAudio.GetEntryTitle(uEntryIndex: Smallint): WideString;
begin

Result := DefaultInterface.GetEntryTitle(uEntryIndex);
end;


function TRealAudio.GetEntryAuthor(uEntryIndex: Smallint): WideString;
begin

Result := DefaultInterface.GetEntryAuthor(uEntryIndex);
end;


function TRealAudio.GetEntryCopyright(uEntryIndex: Smallint): WideString;
begin

Result := DefaultInterface.GetEntryCopyright(uEntryIndex);
end;


function TRealAudio.GetEntryAbstract(uEntryIndex: Smallint): WideString;
begin

Result := DefaultInterface.GetEntryAbstract(uEntryIndex);
end;


procedure TRealAudio.SetCanSeek(bCanSeek: WordBool);
begin

DefaultInterface.SetCanSeek(bCanSeek);
end;


function TRealAudio.GetCanSeek: WordBool;
begin

Result := DefaultInterface.GetCanSeek;
end;


function TRealAudio.GetBufferingTimeElapsed: Integer;
begin

Result := DefaultInterface.GetBufferingTimeElapsed;
end;


function TRealAudio.GetBufferingTimeRemaining: Integer;
begin

Result := DefaultInterface.GetBufferingTimeRemaining;
end;


function TRealAudio.GetConnectionBandwidth: Integer;
begin

Result := DefaultInterface.GetConnectionBandwidth;
end;


function TRealAudio.GetPreferedLanguageString: WideString;
begin

Result := DefaultInterface.GetPreferedLanguageString;
end;


function TRealAudio.GetPreferedLanguageID: Integer;
begin

Result := DefaultInterface.GetPreferedLanguageID;
end;


function TRealAudio.GetUserCountryID: Integer;
begin

Result := DefaultInterface.GetUserCountryID;
end;


function TRealAudio.GetNumSources: Smallint;
begin

Result := DefaultInterface.GetNumSources;
end;


function TRealAudio.GetSourceTransport(nSourceNum: Smallint): WideString;
begin

Result := DefaultInterface.GetSourceTransport(nSourceNum);
end;


function TRealAudio.GetWantErrors: WordBool;
begin

Result := DefaultInterface.GetWantErrors;
end;


procedure TRealAudio.SetWantErrors(bVal: WordBool);
begin

DefaultInterface.SetWantErrors(bVal);
end;


function TRealAudio.GetShuffle: WordBool;
begin

Result := DefaultInterface.GetShuffle;
end;


procedure TRealAudio.SetShuffle(bVal: WordBool);
begin

DefaultInterface.SetShuffle(bVal);
end;


function TRealAudio.GetVersionInfo: WideString;
begin

Result := DefaultInterface.GetVersionInfo;
end;


function TRealAudio.GetLastMessage: WideString;
begin

Result := DefaultInterface.GetLastMessage;
end;


function TRealAudio.GetLastErrorSeverity: Integer;
begin

Result := DefaultInterface.GetLastErrorSeverity;
end;


function TRealAudio.GetLastErrorRMACode: Integer;
begin

Result := DefaultInterface.GetLastErrorRMACode;
end;


function TRealAudio.GetLastErrorUserCode: Integer;
begin

Result := DefaultInterface.GetLastErrorUserCode;
end;


function TRealAudio.GetLastErrorUserString: WideString;
begin

Result := DefaultInterface.GetLastErrorUserString;
end;


function TRealAudio.GetLastErrorMoreInfoURL: WideString;
begin

Result := DefaultInterface.GetLastErrorMoreInfoURL;
end;


procedure TRealAudio.SetPreFetch(bVal: WordBool);
begin

DefaultInterface.SetPreFetch(bVal);
end;


function TRealAudio.GetPreFetch: WordBool;
begin

Result := DefaultInterface.GetPreFetch;
end;


procedure TRealAudio.SetRegion(const pVal: WideString);
begin

DefaultInterface.SetRegion(pVal);
end;


function TRealAudio.GetRegion: WideString;
begin

Result := DefaultInterface.GetRegion;
end;


function TRealAudio.GetIsPlus: WordBool;
begin

Result := DefaultInterface.GetIsPlus;
end;


function TRealAudio.GetConsoleEvents: WordBool;
begin

Result := DefaultInterface.GetConsoleEvents;
end;


procedure TRealAudio.SetConsoleEvents(bVal: WordBool);
begin

DefaultInterface.SetConsoleEvents(bVal);
end;


procedure Register;
begin

RegisterComponents(dtlOcxPage, [TRealAudio]);
end;


end.

lqldir,
在realaudio1的controls属性里添上IMAGEWINDOW,CONTROLPANEL,STATUSBAR
就有图像了[8D]

同意楼上

太好了，谢了！

问个问题： realaudio1的controls属性里添上IMAGEWINDOW,CONTROLPANEL,STATUSBAR。
这些参数怎么找到的呀？我以前用的时候就是不知道到哪找。unit RealAudioObjects_TLB;
没有