Hi,
    I do this with .wav files. is it similar enough?
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, OleServer, Access2000, StdCtrls, Mask, DBCtrls, DB,
  ADODB, DateUtils, Buttons;
MPlayer is the important one
 
procedure TForm1.playIt(fileName: string);  <-- name of the sound to play
begin
   form1.Player.FileName :=  form1.soundsDir.Text + fileName + '.wav';  <-- set the file name containing the sound
   Player.Open ;
   Player.Wait := true;
   form1.Player.Play;
end;
-----Original Message-----
From: Colin&Mina [mailto:[EMAIL PROTECTED]
Sent: 14 January 2004 12:54 pm
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] Playing Audio Clips

Hi,
 
Sorry if this is duplicated. I sent it to the old list in error.
 
I need to select and play a series of audio clips (*.au) through the sound port of the PC.  I can do this by clicking on the file in Windows Explorer, thus invoking RealPlayer, but I want to do this programmatically from within Delphi.
 
I have done it by placing a Media Player component on a form giving or sending it the Filename and clicking the "Play" button but I can't hide the Media Player altogether and push the button from code. 
 
There must be a simple answer, perhaps via the API but I can't find it.  Any ideas?
 
Cheers
 
 Colin
 
Colin R Dillicar
Colmin Associates
Auckland  New Zealand
[EMAIL PROTECTED]
Ph +64 9 834 4040
 


Visit us online at http://www.ecan.govt.nz


**********************************************************************
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed. If you have received this email in error please notify
the system manager.

The contents of this email and any attachments are not formal
policy of Environment Canterbury, unless otherwise stated.
**********************************************************************
_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi

Reply via email to