My application has two timers. The TMediaPlayer is turned off ontimer
event. Here is the snipet of source code

procedure TForm1.Button1Click(Sender : TObject);
begin
  ...;
  ...;
  Form1.GetItemData(itemnumber);
end;

procedure TForm1.GetItemData(itemnumber : string);
begin
  ...;
  ...;
  if mediaplayer_ON then
  begin
   Form1.MediaPlayer1.Stop;
   Form1.MediaPlayer1.Close;
   mediaplayer_ON := false;
  end;

  mediaplayer_ON := true;
  Form1.PlayMP3Music;
end;

procedure TForm1.Timer2Timer(Sender : TObject);
begin
  ...;
  ...;
  ...;
  if mediaplayer_ON then
  begin
   Form1.MediaPlayer1.Stop;
   Form1.MediaPlayer1.Close;
   mediaplayer_ON := false;
  end;
end;

The PlayMP3Music is not within a thread object. Initially i didnt
think it necessary to have it threaded. But now I wonder if that
might fix it. I may try that in a few days time.
Hope that helps explain the case.

Anu Rang, TotallyFreeEnergy
http://totallyfreeenergy.zxq.net


--- In advanced_delphi@yahoogroups.com, "Anu Rang" 
<[EMAIL PROTECTED]> wrote:
>
> My Delphi7 application which uses TMediaPlayer to play 
resourcestream 
> from a MP3 file compiles and executes OK. The install of it on my 
PC 
> (Windows XP SP2) is also OK. But when I install and try to run the 
> application on another Windows XP SP2 PC I get the infinite loop 
error 
> message `No MCI device open' after the TmediaPlayer had been 
activated 
> and the music played once.
> 
> A search of the internet yielded many such reports on many forums. 
But 
> no solutions that worked for me.
> 
> The application is download is at
> http://totallyfreeenergy.zxq.net/Freewares.htm and
> http://totallyfreeenergy.freehoxt.com/Freewares.htm 
> 
> I wonder if anyone here on this forum has had any similar 
experience. 
> Thanks-in-advance for any input..
> 
> Anu Rang, TotallyFreeEnergy
> http://totallyfreeenergy.zxq.net
>


Reply via email to