Музыка при сообщениях

[delphin100]

У меня в чате через Server/ClientSocket при отпраке и получении играет мелодия

Procedure ishod;
var MMplay:TMediaPlayer;
begin
 MMplay:=TMediaPlayer.Create(application);
  if fileexists('mail_vhod.wav') then
   begin
    with MMplay do
     begin
      CreateParented(Form1.Handle);
      FileName:='mail_ishod.wav';
      MMplay.Open;
      Play;
     end;
   end;

end;

Procedure vhod;
var MMplay:TMediaPlayer;
begin
 MMplay:=TMediaPlayer.Create(application);
  if fileexists('mail_vhod.wav') then
   begin
    with MMplay do
     begin
      CreateParented(Form1.Handle);
      FileName:='mail_vhod.wav';
      MMplay.Open;
      Play;
     end;
  end;
end;

ну а при получении и отправке просто вызываю эти процедуры а когда повторно тогда ошибка типа я лишний пользователь тут уже есть.
Что тут дописать

  MMplay.Free;
  MMplay.Destroy;

тоже не помогло

[delphin100]

Ну что идей никаких

[D-mon]

Ты везде пишишь
# MMplay.Open;
# Play;
А Останавливать и закрывать проигрывание кто будет?
У меня тоже такое было.

[delphin100]

Что просто написать после плеея или перед новым воспроизведение

stop
mmplay.close

[JTG]

Да не нужен тут медиаплеер и его постоянное create/free вообще, экономте ресурсы

PlaySound('mail_vhod.wav', 0, SND_FILENAME+SND_ASYNC);

[D-mon]

Типа того (после плея и слипа), но поставить перед стоп, слип на длину проигрываемой мелодии.

Помоему должно сработать, покрайней мере я так лечил эту проблему (помоему, давно было).

[D-mon]

И не надо его каждый раз сриэйтить и уничтожать, при запуске проги криэйт при закрытии фри. А в процессе Рлай-Стоп...

[Квэнди]

к сетям никакого отноешния не имеет.