играть сначала 1.wav потом 2.wav

[mma]

Здравствуйте!
Пишу программку, которая должна пользователю выдавать голосовые сообщения и команды.
Никак не пойму как проиграть при нажатии кнопки сначала первый потом второй файл.

mediaplayer1.filename:='1.wav';
open;
play;
mediaplayer1.filename:='2.wav';
open;
play;
end;

так он играет только последний, понятно почему.
К сожалению не нашел похожего примера, помогите пожалуйста.
СПАСИБО!

[nXs]

Как вариант:

mediaplayer1.filename:='1.wav';
open;
play;

и в таймере

if Mediaplayer1.position=mediaplayer1.length
then
mediaplayer1.filename:='2.wav';
open;
play;
end;

[mma]

не помогло.
Зацикливает или первый или второй файл...

[UltimaBeaR]

можно попробовать после play делат sleep(длительность звукового файла в мс) а потом stop

[mma]

Так дает только при повторном нажатии на кнопку, а нужно с одног щелчка

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Enabled:=True;
 ListBox1.Items.Add('J:\звуки\б.wav');
  ListBox1.Items.Add('J:\звуки\а.wav');
 If Label2.Caption='Label2' then
MediaPlayer1.FileName:=ListBox1.Items[0];// 'J:\звуки\а.wav';
MediaPlayer1.Open;
MediaPlayer1.Play;
If Label2.Caption='0:02' then
 MediaPlayer1.FileName:=ListBox1.Items[1];// 'J:\звуки\а.wav';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

[mma]

вообще БРЕД какой то, можно же наверно это сделать, и на много проще???!!!

[mma]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=True;
  if Mediaplayer1.position=mediaplayer1.length
then
MediaPlayer1.Stop;
mediaplayer1.filename:='J:\звуки\а.wav';
 MediaPlayer1.Open;
MediaPlayer1.Play;
Timer1.Enabled:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
 mediaplayer1.filename:='J:\звуки\б.wav';
 MediaPlayer1.Open;
MediaPlayer1.Play;
end;

Вот так работает, каким то чудом!
Ну неужели код не может быть проще???

[Пепел Феникса]

http://programmersforum.ru/showthread.php?t=40983
посмотрите внимательно пример реализации плейлиста.(в вашем случае это плейлист и есть)

[mma]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, ExtCtrls, mmsystem;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
     I:INTEGER;
       procedure PlayMass(Ind:integer);
 
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.PlayMass(Ind:integer);
begin
if ListBox1.Items.Count>=Ind then begin
with MediaPlayer1 do
begin
Notify:=false;
if ind<ListBox1.Items.Count then begin
Filename:=ListBox1.Items.Strings[Ind];
Open;
Play;
Notify:=true;
end;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ListBox1.Items.Add('J:\звуки\д.wav');
  ListBox1.Items.Add('J:\звуки\р.wav');
   ListBox1.Items.Add('J:\звуки\я.wav');
 i:=0;
PlayMass(i);
end;


procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
 if MediaPlayer1.Mode=mpPlaying then
begin
Inc(i);
PlayMass(i);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
end;

end.

Подскажите пожалуйста, почему этот пример при открытии и нажатии button1- выполняется каждый раз поразному??? То 3 файла отиграет, то 2, то 1 ???
Как его исправить?

[mma]

Спасибо всем кто попытался помоч и кто помог!!!
Тема разобрана.
просто вместо notify, делаем timer.