VPF::Access violation в модальной форме при PlaySound

Lorigin

Дата 26.9.2008, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Печатаю фото на холс

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 11.3.2008
Где: Москва

Репутация: нет
Всего: нет

Ребята.. не могу понять...

в главное форме все нормально проигрывается.. в модальной вылетает =\

PlaySound
sndPlaySound

не работают =\ а мне нужно проиграть wav файл в окне настроек озвучки событий, как бы "предпрослушивание"

Alexeis

Дата 26.9.2008, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Lorigin, где код? Телепаты в отпуске. А лучше тестовый примерчик, вдруг проигрывается ресурс, а не файл.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

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

Lorigin

Дата 27.9.2008, 00:49 (ссылка)

(нет голосов)

Загрузка ...

Рабочай процедура в главном модуле

Код


procedure TFirst1.playsound(Ed: TMyEdit);
begin
  if options.DisabledAllSound = false then
      case (ed as tMyEdit).sound of         //мой класс на основе TEdit
        0: if options.SoundCell.Play then
            sndPlaySound(pchar(options.SoundCell.Sound), SND_ASYNC);
        1:  if options.SoundString.Play then
            sndPlaySound(pchar(options.SoundString.Sound), SND_ASYNC);
        2:  if options.SoundTest.Play then
            sndPlaySound(pchar(options.SoundTest.Sound), SND_ASYNC);
      end;
end;

Собственно что не работает:

Код


procedure TOption.PlayBtn2Click(Sender: TObject);  //модальная форрма
begin
  sndPlaySound(pchar(edSoundCell.text), SND_ASYNC); //edSoundCell - Эдит с адресом файла
end;

пример не приводил так как в TOption.PlayBtn2Click путь к файлу задавал совершенно РАЗНЫМИ способами, и Явно и полный путь и не полный путь.. и тэдэ... =\ везде одна и та же ошибка.. попробовал через try - тож самое =\

Это сообщение отредактировал(а) Lorigin - 28.9.2008, 11:57

Albinos_x

Дата 6.10.2008, 03:26 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

эта ошибка может появляться и не в этом месте... проверяй всё...
обрати внимание на эти свойства
options.SoundCell
options.SoundCell.Sound

ЗЫ:

Цитата(Lorigin @ 27.9.2008, 00:49

)

if options.DisabledAllSound = false then

дотаточно

Код


 if not options.DisabledAllSound then

Цитата(Lorigin @ 27.9.2008, 00:49

)

case (ed as tMyEdit).sound of

зачем здесь делаешь приведение типов если в процедуру передаёшь этот же тип?

Цитата(Lorigin @ 27.9.2008, 00:49

)

playsound(Ed: TMyEdit)

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »