Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.05.2008, 22:23   #1
delphin100
Он лайн
Форумчанин
 
Аватар для delphin100
 
Регистрация: 26.09.2007
Сообщений: 173
Сообщение Музыка при сообщениях

У меня в чате через 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 вне форума Ответить с цитированием
Старый 08.05.2008, 13:18   #2
delphin100
Он лайн
Форумчанин
 
Аватар для delphin100
 
Регистрация: 26.09.2007
Сообщений: 173
По умолчанию

Ну что идей никаких
delphin100 вне форума Ответить с цитированием
Старый 08.05.2008, 13:24   #3
D-mon
Форумчанин
 
Регистрация: 22.06.2007
Сообщений: 414
По умолчанию

Ты везде пишишь
# MMplay.Open;
# Play;
А Останавливать и закрывать проигрывание кто будет?
У меня тоже такое было.
Нет невыполнимых задач, всё дело времени...
D-mon вне форума Ответить с цитированием
Старый 08.05.2008, 13:26   #4
delphin100
Он лайн
Форумчанин
 
Аватар для delphin100
 
Регистрация: 26.09.2007
Сообщений: 173
По умолчанию

Что просто написать после плеея или перед новым воспроизведение
Код:
stop
mmplay.close
delphin100 вне форума Ответить с цитированием
Старый 08.05.2008, 13:32   #5
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

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

PlaySound('mail_vhod.wav', 0, SND_FILENAME+SND_ASYNC);
пыщь
JTG вне форума Ответить с цитированием
Старый 08.05.2008, 13:33   #6
D-mon
Форумчанин
 
Регистрация: 22.06.2007
Сообщений: 414
По умолчанию

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

Помоему должно сработать, покрайней мере я так лечил эту проблему (помоему, давно было).
Нет невыполнимых задач, всё дело времени...
D-mon вне форума Ответить с цитированием
Старый 08.05.2008, 13:38   #7
D-mon
Форумчанин
 
Регистрация: 22.06.2007
Сообщений: 414
По умолчанию

И не надо его каждый раз сриэйтить и уничтожать, при запуске проги криэйт при закрытии фри. А в процессе Рлай-Стоп...
Нет невыполнимых задач, всё дело времени...
D-mon вне форума Ответить с цитированием
Старый 08.05.2008, 15:21   #8
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

к сетям никакого отноешния не имеет.
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Музыка - и ничего более... SuperVisor Свободное общение 55 10.01.2009 22:31
Музыка избранная Kn793 Свободное общение 8 01.09.2008 01:33
ЭМО музыка KORT Свободное общение 11 02.11.2007 23:14
музыка OLEG'arh Общие вопросы Delphi 2 04.12.2006 20:55