求教TRealPlayer控件中的各种属性及方法的具体含义。。。(200分)

求教TRealPlayer控件中的各种属性及方法的具体含义。。。
就是安了RealPlayer后 用ActiveX装上的控件。。。
请教消息定义。。。
谢谢

http://service.real.com/help/library/guides/realonescripting/browse/realscript.htm

unit RealAudioObjects_TLB;

{ This file contains pascal declarations imported from a type library.
This file will be written during each import or refresh of the type
library editor. Changes to this file will be discarded during the
refresh process. }

{ Real Player ActiveX Control Library }
{ Version 1.0 }

interface

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

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

const

{ Component class GUIDs }
Class_RealAudio: TGUID = '{CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA}';

type

{ Forward declarations: Interfaces }
IRealAudio = interface;
IRealAudioDisp = dispinterface;
DRealAudioEvents = dispinterface;

{ Forward declarations: CoClasses }
RealAudio = IRealAudio;

{ Real Player ActiveX Control }

IRealAudio = interface(IDispatch)
['{CFCDAA01-8BE4-11CF-B84B-0020AFBBCCFA}']
function Get_Source: WideString; safecall;
procedure Set_Source(const Value: WideString); safecall;
function Get_Console: WideString; safecall;
procedure Set_Console(const Value: WideString); safecall;
function Get_Controls: WideString; safecall;
procedure Set_Controls(const Value: WideString); safecall;
function Get_NoLabels: WordBool; safecall;
procedure Set_NoLabels(Value: WordBool); safecall;
function Get_AutoStart: WordBool; safecall;
procedure Set_AutoStart(Value: WordBool); safecall;
function Get_AutoGotoURL: WordBool; safecall;
procedure Set_AutoGotoURL(Value: WordBool); safecall;
function Get_WindowName: WideString; safecall;
procedure Set_WindowName(const Value: 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;
procedure DoPlayPause; safecall;
procedure DoStop; safecall;
procedure DoNextItem; safecall;
procedure DoPrevItem; 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;
procedure DoNextEntry; safecall;
procedure DoPrevEntry; safecall;
procedure AboutBox; safecall;
procedure EditPreferences; safecall;
procedure HideShowStatistics; safecall;
function IsStatisticsVisible: WordBool; safecall;
procedure DoGotoURL(const url, target: WideString); safecall;
procedure DoPlay; safecall;
procedure DoPause; 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;
function GetDRMInfo(const pVal: WideString): WideString; 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;

{ DispInterface declaration for Dual Interface IRealAudio }

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;
procedure DoPlayPause; dispid 201;
procedure DoStop; dispid 202;
procedure DoNextItem; dispid 203;
procedure DoPrevItem; 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;
procedure DoNextEntry; dispid 341;
procedure DoPrevEntry; dispid 342;
procedure AboutBox; dispid -552;
procedure EditPreferences; dispid 210;
procedure HideShowStatistics; dispid 211;
function IsStatisticsVisible: WordBool; dispid 212;
procedure DoGotoURL(const url, target: WideString); dispid 213;
procedure DoPlay; dispid 257;
procedure DoPause; 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;
function GetDRMInfo(const pVal: WideString): WideString; dispid 350;
end;

{ Event interface for RealAudio control }

DRealAudioEvents = dispinterface
['{CFCDAA02-8BE4-11CF-B84B-0020AFBBCCFA}']
procedure OnGotoURL(const url, target: WideString); dispid 301;
procedure OnClipOpened(const shortClipName, url: WideString); dispid 302;
procedure OnClipClosed; dispid 303;
procedure OnShowStatus(const statusText: WideString); dispid 304;
procedure OnPositionChange(lPos, 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, uUserCode: Integer; const pUserString, pMoreInfoURL, pErrorString: WideString); dispid 1014;
procedure OnStatsInfoChange(const bstrStats: WideString); dispid 1015;
procedure OnContacting(const bstrContacting: WideString); dispid 1016;
procedure OnPreSeek(lOldTime, lNewTime: Integer); dispid 1017;
procedure OnPostSeek(lOldTime, lNewTime: Integer); dispid 1018;
procedure OnPresentationOpened; dispid 1019;
procedure OnPresentationClosed; dispid 1020;
procedure OnPreFetchComplete; dispid 1021;
procedure OnLButtonDown(nFlags, nX, nY: SYSINT); dispid 1031;
procedure OnLButtonUp(nFlags, nX, nY: SYSINT); dispid 1032;
procedure OnRButtonDown(nFlags, nX, nY: SYSINT); dispid 1034;
procedure OnRButtonUp(nFlags, nX, nY: SYSINT); dispid 1035;
procedure OnMouseMove(nFlags, nX, nY: SYSINT); dispid 1037;
procedure OnKeyDown(nFlags, nKey: SYSINT); dispid 1038;
procedure OnKeyUp(nFlags, nKey: SYSINT); dispid 1039;
procedure OnKeyPress(nFlags, nKey: SYSINT); dispid 1040;
procedure OnBuffering(lFlags, lPercentage: Integer); dispid 1041;
procedure OnStateChange(lOldState, lNewState: Integer); dispid 1042;
end;

{ RealAudio control }

TRealAudioOnGotoURL = procedure(Sender: TObject; const url, target: WideString) of object;
TRealAudioOnClipOpened = procedure(Sender: TObject; const shortClipName, url: WideString) of object;
TRealAudioOnShowStatus = procedure(Sender: TObject; const statusText: WideString) of object;
TRealAudioOnPositionChange = procedure(Sender: TObject; lPos, lLen: Integer) of object;
TRealAudioOnVolumeChange = procedure(Sender: TObject; nVol: Smallint) of object;
TRealAudioOnMuteChange = procedure(Sender: TObject; bMute: Integer) of object;
TRealAudioOnTitleChange = procedure(Sender: TObject; const bstrTitle: WideString) of object;
TRealAudioOnAuthorChange = procedure(Sender: TObject; const bstrAuthor: WideString) of object;
TRealAudioOnCopyrightChange = procedure(Sender: TObject; const bstrCopyright: WideString) of object;
TRealAudioOnPlayStateChange = procedure(Sender: TObject; lNewState: Integer) of object;
TRealAudioOnErrorMessage = procedure(Sender: TObject; uSeverity: Smallint; uRMACode, uUserCode: Integer; const pUserString, pMoreInfoURL, pErrorString: WideString) of object;
TRealAudioOnStatsInfoChange = procedure(Sender: TObject; const bstrStats: WideString) of object;
TRealAudioOnContacting = procedure(Sender: TObject; const bstrContacting: WideString) of object;
TRealAudioOnPreSeek = procedure(Sender: TObject; lOldTime, lNewTime: Integer) of object;
TRealAudioOnPostSeek = procedure(Sender: TObject; lOldTime, lNewTime: Integer) of object;
TRealAudioOnLButtonDown = procedure(Sender: TObject; nFlags, nX, nY: SYSINT) of object;
TRealAudioOnLButtonUp = procedure(Sender: TObject; nFlags, nX, nY: SYSINT) of object;
TRealAudioOnRButtonDown = procedure(Sender: TObject; nFlags, nX, nY: SYSINT) of object;
TRealAudioOnRButtonUp = procedure(Sender: TObject; nFlags, nX, nY: SYSINT) of object;
TRealAudioOnMouseMove = procedure(Sender: TObject; nFlags, nX, nY: SYSINT) of object;
TRealAudioOnKeyDown = procedure(Sender: TObject; nFlags, nKey: SYSINT) of object;
TRealAudioOnKeyUp = procedure(Sender: TObject; nFlags, nKey: SYSINT) of object;
TRealAudioOnKeyPress = procedure(Sender: TObject; nFlags, nKey: SYSINT) of object;
TRealAudioOnBuffering = procedure(Sender: TObject; lFlags, lPercentage: Integer) of object;
TRealAudioOnStateChange = procedure(Sender: TObject; lOldState, 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;
protected
procedure InitControlData; override;
procedure InitControlInterface(const Obj: IUnknown); 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;
procedure DoPlayPause;
procedure DoStop;
procedure DoNextItem;
procedure DoPrevItem;
function CanPlayPause: WordBool;
function CanStop: WordBool;
function HasNextItem: WordBool;
function HasPrevItem: WordBool;
function HasNextEntry: WordBool;
function HasPrevEntry: WordBool;
procedure DoNextEntry;
procedure DoPrevEntry;
procedure AboutBox;
procedure EditPreferences;
procedure HideShowStatistics;
function IsStatisticsVisible: WordBool;
procedure DoGotoURL(const url, target: WideString);
procedure DoPlay;
procedure DoPause;
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);
function GetDRMInfo(const pVal: WideString): WideString;
property ControlInterface: IRealAudio read FIntf;
published
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;

implementation

uses ComObj;

procedure TRealAudio.InitControlData;
const
CEventDispIDs: array[0..28] of Integer = (
$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: TControlData = (
ClassID: '{CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA}';
EventIID: '{CFCDAA02-8BE4-11CF-B84B-0020AFBBCCFA}';
EventCount: 29;
EventDispIDs: @CEventDispIDs;
LicenseKey: nil;
Flags: $00000000;
Version: 300);
begin
ControlData := @CControlData;
end;

procedure TRealAudio.InitControlInterface(const Obj: IUnknown);
begin
FIntf := Obj as IRealAudio;
end;

function TRealAudio.GetSource: WideString;
begin
Result := ControlInterface.GetSource;
end;

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

function TRealAudio.GetConsole: WideString;
begin
Result := ControlInterface.GetConsole;
end;

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

function TRealAudio.GetControls: WideString;
begin
Result := ControlInterface.GetControls;
end;

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

function TRealAudio.GetNoLabels: WordBool;
begin
Result := ControlInterface.GetNoLabels;
end;

procedure TRealAudio.SetNoLabels(bNewValue: WordBool);
begin
ControlInterface.SetNoLabels(bNewValue);
end;

function TRealAudio.GetAutoStart: WordBool;
begin
Result := ControlInterface.GetAutoStart;
end;

procedure TRealAudio.SetAutoStart(bNewValue: WordBool);
begin
ControlInterface.SetAutoStart(bNewValue);
end;

function TRealAudio.GetAutoGotoURL: WordBool;
begin
Result := ControlInterface.GetAutoGotoURL;
end;

procedure TRealAudio.SetAutoGotoURL(bNewValue: WordBool);
begin
ControlInterface.SetAutoGotoURL(bNewValue);
end;

function TRealAudio.GetVolume: Smallint;
begin
Result := ControlInterface.GetVolume;
end;

procedure TRealAudio.SetVolume(nVol: Smallint);
begin
ControlInterface.SetVolume(nVol);
end;

function TRealAudio.GetMute: WordBool;
begin
Result := ControlInterface.GetMute;
end;

procedure TRealAudio.SetMute(bMute: WordBool);
begin
ControlInterface.SetMute(bMute);
end;

function TRealAudio.GetLoop: WordBool;
begin
Result := ControlInterface.GetLoop;
end;

procedure TRealAudio.SetLoop(bVal: WordBool);
begin
ControlInterface.SetLoop(bVal);
end;

function TRealAudio.GetImageStatus: WordBool;
begin
Result := ControlInterface.GetImageStatus;
end;

procedure TRealAudio.SetImageStatus(bEnable: WordBool);
begin
ControlInterface.SetImageStatus(bEnable);
end;

function TRealAudio.GetPacketsTotal: Integer;
begin
Result := ControlInterface.GetPacketsTotal;
end;

function TRealAudio.GetPacketsReceived: Integer;
begin
Result := ControlInterface.GetPacketsReceived;
end;

function TRealAudio.GetPacketsOutOfOrder: Integer;
begin
Result := ControlInterface.GetPacketsOutOfOrder;
end;

function TRealAudio.GetPacketsMissing: Integer;
begin
Result := ControlInterface.GetPacketsMissing;
end;

function TRealAudio.GetPacketsEarly: Integer;
begin
Result := ControlInterface.GetPacketsEarly;
end;

function TRealAudio.GetPacketsLate: Integer;
begin
Result := ControlInterface.GetPacketsLate;
end;

function TRealAudio.GetBandwidthAverage: Integer;
begin
Result := ControlInterface.GetBandwidthAverage;
end;

function TRealAudio.GetBandwidthCurrent: Integer;
begin
Result := ControlInterface.GetBandwidthCurrent;
end;

procedure TRealAudio.DoPlayPause;
begin
ControlInterface.DoPlayPause;
end;

procedure TRealAudio.DoStop;
begin
ControlInterface.DoStop;
end;

procedure TRealAudio.DoNextItem;
begin
ControlInterface.DoNextItem;
end;

procedure TRealAudio.DoPrevItem;
begin
ControlInterface.DoPrevItem;
end;

function TRealAudio.CanPlayPause: WordBool;
begin
Result := ControlInterface.CanPlayPause;
end;

function TRealAudio.CanStop: WordBool;
begin
Result := ControlInterface.CanStop;
end;

function TRealAudio.HasNextItem: WordBool;
begin
Result := ControlInterface.HasNextItem;
end;

function TRealAudio.HasPrevItem: WordBool;
begin
Result := ControlInterface.HasPrevItem;
end;

function TRealAudio.HasNextEntry: WordBool;
begin
Result := ControlInterface.HasNextEntry;
end;

function TRealAudio.HasPrevEntry: WordBool;
begin
Result := ControlInterface.HasPrevEntry;
end;

procedure TRealAudio.DoNextEntry;
begin
ControlInterface.DoNextEntry;
end;

procedure TRealAudio.DoPrevEntry;
begin
ControlInterface.DoPrevEntry;
end;

procedure TRealAudio.AboutBox;
begin
ControlInterface.AboutBox;
end;

procedure TRealAudio.EditPreferences;
begin
ControlInterface.EditPreferences;
end;

procedure TRealAudio.HideShowStatistics;
begin
ControlInterface.HideShowStatistics;
end;

function TRealAudio.IsStatisticsVisible: WordBool;
begin
Result := ControlInterface.IsStatisticsVisible;
end;

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

procedure TRealAudio.DoPlay;
begin
ControlInterface.DoPlay;
end;

procedure TRealAudio.DoPause;
begin
ControlInterface.DoPause;
end;

function TRealAudio.GetPosition: Integer;
begin
Result := ControlInterface.GetPosition;
end;

function TRealAudio.GetPlayState: Integer;
begin
Result := ControlInterface.GetPlayState;
end;

function TRealAudio.GetLength: Integer;
begin
Result := ControlInterface.GetLength;
end;

function TRealAudio.GetTitle: WideString;
begin
Result := ControlInterface.GetTitle;
end;

function TRealAudio.GetAuthor: WideString;
begin
Result := ControlInterface.GetAuthor;
end;

function TRealAudio.GetCopyright: WideString;
begin
Result := ControlInterface.GetCopyright;
end;

function TRealAudio.GetClipWidth: Integer;
begin
Result := ControlInterface.GetClipWidth;
end;

function TRealAudio.GetClipHeight: Integer;
begin
Result := ControlInterface.GetClipHeight;
end;

function TRealAudio.CanPlay: WordBool;
begin
Result := ControlInterface.CanPlay;
end;

function TRealAudio.CanPause: WordBool;
begin
Result := ControlInterface.CanPause;
end;

procedure TRealAudio.SetPosition(lPosition: Integer);
begin
ControlInterface.SetPosition(lPosition);
end;

function TRealAudio.GetNumLoop: Integer;
begin
Result := ControlInterface.GetNumLoop;
end;

procedure TRealAudio.SetNumLoop(lVal: Integer);
begin
ControlInterface.SetNumLoop(lVal);
end;

function TRealAudio.GetCenter: WordBool;
begin
Result := ControlInterface.GetCenter;
end;

procedure TRealAudio.SetCenter(bVal: WordBool);
begin
ControlInterface.SetCenter(bVal);
end;

function TRealAudio.GetNoLogo: WordBool;
begin
Result := ControlInterface.GetNoLogo;
end;

procedure TRealAudio.SetNoLogo(bVal: WordBool);
begin
ControlInterface.SetNoLogo(bVal);
end;

function TRealAudio.GetMaintainAspect: WordBool;
begin
Result := ControlInterface.GetMaintainAspect;
end;

procedure TRealAudio.SetMaintainAspect(bVal: WordBool);
begin
ControlInterface.SetMaintainAspect(bVal);
end;

function TRealAudio.GetBackgroundColor: WideString;
begin
Result := ControlInterface.GetBackgroundColor;
end;

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

function TRealAudio.GetStereoState: WordBool;
begin
Result := ControlInterface.GetStereoState;
end;

function TRealAudio.GetLiveState: WordBool;
begin
Result := ControlInterface.GetLiveState;
end;

function TRealAudio.GetShowStatistics: WordBool;
begin
Result := ControlInterface.GetShowStatistics;
end;

procedure TRealAudio.SetShowStatistics(bVal: WordBool);
begin
ControlInterface.SetShowStatistics(bVal);
end;

function TRealAudio.GetShowPreferences: WordBool;
begin
Result := ControlInterface.GetShowPreferences;
end;

procedure TRealAudio.SetShowPreferences(bVal: WordBool);
begin
ControlInterface.SetShowPreferences(bVal);
end;

function TRealAudio.GetShowAbout: WordBool;
begin
Result := ControlInterface.GetShowAbout;
end;

procedure TRealAudio.SetShowAbout(bVal: WordBool);
begin
ControlInterface.SetShowAbout(bVal);
end;

function TRealAudio.GetOriginalSize: WordBool;
begin
Result := ControlInterface.GetOriginalSize;
end;

procedure TRealAudio.SetOriginalSize;
begin
ControlInterface.SetOriginalSize;
end;

function TRealAudio.GetDoubleSize: WordBool;
begin
Result := ControlInterface.GetDoubleSize;
end;

procedure TRealAudio.SetDoubleSize;
begin
ControlInterface.SetDoubleSize;
end;

function TRealAudio.GetFullScreen: WordBool;
begin
Result := ControlInterface.GetFullScreen;
end;

procedure TRealAudio.SetFullScreen;
begin
ControlInterface.SetFullScreen;
end;

function TRealAudio.GetEnableContextMenu: WordBool;
begin
Result := ControlInterface.GetEnableContextMenu;
end;

procedure TRealAudio.SetEnableContextMenu(bVal: WordBool);
begin
ControlInterface.SetEnableContextMenu(bVal);
end;

function TRealAudio.GetEnableOriginalSize: WordBool;
begin
Result := ControlInterface.GetEnableOriginalSize;
end;

procedure TRealAudio.SetEnableOriginalSize(bVal: WordBool);
begin
ControlInterface.SetEnableOriginalSize(bVal);
end;

function TRealAudio.GetEnableDoubleSize: WordBool;
begin
Result := ControlInterface.GetEnableDoubleSize;
end;

procedure TRealAudio.SetEnableDoubleSize(bVal: WordBool);
begin
ControlInterface.SetEnableDoubleSize(bVal);
end;

function TRealAudio.GetEnableFullScreen: WordBool;
begin
Result := ControlInterface.GetEnableFullScreen;
end;

procedure TRealAudio.SetEnableFullScreen(bVal: WordBool);
begin
ControlInterface.SetEnableFullScreen(bVal);
end;

function TRealAudio.GetEnableMessageBox: WordBool;
begin
Result := ControlInterface.GetEnableMessageBox;
end;

procedure TRealAudio.SetEnableMessageBox(bVal: WordBool);
begin
ControlInterface.SetEnableMessageBox(bVal);
end;

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

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

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

function TRealAudio.GetWantKeyboardEvents: WordBool;
begin
Result := ControlInterface.GetWantKeyboardEvents;
end;

procedure TRealAudio.SetWantKeyboardEvents(bWantsEvents: WordBool);
begin
ControlInterface.SetWantKeyboardEvents(bWantsEvents);
end;

function TRealAudio.GetWantMouseEvents: WordBool;
begin
Result := ControlInterface.GetWantMouseEvents;
end;

procedure TRealAudio.SetWantMouseEvents(bWantsEvents: WordBool);
begin
ControlInterface.SetWantMouseEvents(bWantsEvents);
end;

function TRealAudio.GetNumEntries: Smallint;
begin
Result := ControlInterface.GetNumEntries;
end;

function TRealAudio.GetCurrentEntry: Smallint;
begin
Result := ControlInterface.GetCurrentEntry;
end;

function TRealAudio.GetEntryTitle(uEntryIndex: Smallint): WideString;
begin
Result := ControlInterface.GetEntryTitle(uEntryIndex);
end;

function TRealAudio.GetEntryAuthor(uEntryIndex: Smallint): WideString;
begin
Result := ControlInterface.GetEntryAuthor(uEntryIndex);
end;

function TRealAudio.GetEntryCopyright(uEntryIndex: Smallint): WideString;
begin
Result := ControlInterface.GetEntryCopyright(uEntryIndex);
end;

function TRealAudio.GetEntryAbstract(uEntryIndex: Smallint): WideString;
begin
Result := ControlInterface.GetEntryAbstract(uEntryIndex);
end;

procedure TRealAudio.SetCanSeek(bCanSeek: WordBool);
begin
ControlInterface.SetCanSeek(bCanSeek);
end;

function TRealAudio.GetCanSeek: WordBool;
begin
Result := ControlInterface.GetCanSeek;
end;

function TRealAudio.GetBufferingTimeElapsed: Integer;
begin
Result := ControlInterface.GetBufferingTimeElapsed;
end;

function TRealAudio.GetBufferingTimeRemaining: Integer;
begin
Result := ControlInterface.GetBufferingTimeRemaining;
end;

function TRealAudio.GetConnectionBandwidth: Integer;
begin
Result := ControlInterface.GetConnectionBandwidth;
end;

function TRealAudio.GetPreferedLanguageString: WideString;
begin
Result := ControlInterface.GetPreferedLanguageString;
end;

function TRealAudio.GetPreferedLanguageID: Integer;
begin
Result := ControlInterface.GetPreferedLanguageID;
end;

function TRealAudio.GetUserCountryID: Integer;
begin
Result := ControlInterface.GetUserCountryID;
end;

function TRealAudio.GetNumSources: Smallint;
begin
Result := ControlInterface.GetNumSources;
end;

function TRealAudio.GetSourceTransport(nSourceNum: Smallint): WideString;
begin
Result := ControlInterface.GetSourceTransport(nSourceNum);
end;

function TRealAudio.GetWantErrors: WordBool;
begin
Result := ControlInterface.GetWantErrors;
end;

procedure TRealAudio.SetWantErrors(bVal: WordBool);
begin
ControlInterface.SetWantErrors(bVal);
end;

function TRealAudio.GetShuffle: WordBool;
begin
Result := ControlInterface.GetShuffle;
end;

procedure TRealAudio.SetShuffle(bVal: WordBool);
begin
ControlInterface.SetShuffle(bVal);
end;

function TRealAudio.GetVersionInfo: WideString;
begin
Result := ControlInterface.GetVersionInfo;
end;

function TRealAudio.GetLastMessage: WideString;
begin
Result := ControlInterface.GetLastMessage;
end;

function TRealAudio.GetLastErrorSeverity: Integer;
begin
Result := ControlInterface.GetLastErrorSeverity;
end;

function TRealAudio.GetLastErrorRMACode: Integer;
begin
Result := ControlInterface.GetLastErrorRMACode;
end;

function TRealAudio.GetLastErrorUserCode: Integer;
begin
Result := ControlInterface.GetLastErrorUserCode;
end;

function TRealAudio.GetLastErrorUserString: WideString;
begin
Result := ControlInterface.GetLastErrorUserString;
end;

function TRealAudio.GetLastErrorMoreInfoURL: WideString;
begin
Result := ControlInterface.GetLastErrorMoreInfoURL;
end;

procedure TRealAudio.SetPreFetch(bVal: WordBool);
begin
ControlInterface.SetPreFetch(bVal);
end;

function TRealAudio.GetPreFetch: WordBool;
begin
Result := ControlInterface.GetPreFetch;
end;

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

function TRealAudio.GetRegion: WideString;
begin
Result := ControlInterface.GetRegion;
end;

function TRealAudio.GetIsPlus: WordBool;
begin
Result := ControlInterface.GetIsPlus;
end;

function TRealAudio.GetConsoleEvents: WordBool;
begin
Result := ControlInterface.GetConsoleEvents;
end;

procedure TRealAudio.SetConsoleEvents(bVal: WordBool);
begin
ControlInterface.SetConsoleEvents(bVal);
end;

function TRealAudio.GetDRMInfo(const pVal: WideString): WideString;
begin
Result := ControlInterface.GetDRMInfo(pVal);
end;


procedure Register;
begin
RegisterComponents('ActiveX', [TRealAudio]);
end;

end.

接受答案了.