Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

У меня в чате через 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
Репутация: 11
По умолчанию

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

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

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

stop
mmplay.close

delphin100 вне форума   Ответить с цитированием
Старый 08.05.2008, 13:32   #5
JTG
я получил эту роль
Профессионал
 
Аватар для JTG
 
Регистрация: 25.05.2007
Адрес: тут темно и с потолка капает
Сообщений: 3,695
Репутация: 2224

icq: III 37373860
По умолчанию

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

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

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

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

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

icq: 637233
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


01:57.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru