Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17


About RealAudio in Delphi 4.0

Posted on 1999-07-06
Medium Priority
Last Modified: 2011-04-14
Anybody can help me????????

I want to use RealAudio AciveX control in my program. I put this control on my form, but I have a problem. Are there any event when user press Play (Pause or Stop) button on RealAudio player, or if there are no event how can I detect in program that one of that button is pressed?

2nd Question:
Are there any way to detect that song (RA file) is finished?

Question by:milmil
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
LVL 12

Expert Comment

ID: 1386807
What sorts of events does the ActiveX control give you?




Author Comment

ID: 1386808
I don't understend your question. Sorry, but I am not very good in English.
LVL 12

Expert Comment

ID: 1386809
In the object inspector there are properties and events. Are there OnClick etc events? Perhaps some of those will do what you want.


Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.


Expert Comment

ID: 1386810
Try the event

Expert Comment

ID: 1386811
What version of the RealAudio Player are you using?  This is the events that I have:

  DRealAudioEvents = dispinterface
    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;

(Sorry if the alignment is stuffed).

Im using RealPlayer G2.



Accepted Solution

mmilan earned 400 total points
ID: 1386812
Use events: OnPlayStateChange (lNewState = 2) and OnClipClose!

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : All lightning effects with instructions : http://www.mediaf…
In this video, Percona Solutions Engineer Barrett Chambers discusses some of the basic syntax differences between MySQL and MongoDB. To learn more check out our webinar on MongoDB administration for MySQL DBA:…

715 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question