ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проигрывание wav.файла
11 сообщений из 11, страница 1 из 1
Проигрывание wav.файла
    #33394285
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Люди, скажите, можно ли проиграть wav-файл без mediaplayera. в Delphi это выглядит так:

uses
mmsystem;

// PLAY
sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC);

// Loop Mode (зацикливание)
sndPlaySound('C:\DELPHIWORLD.WAV', SND_ASYNC + SND_LOOP);

//STOP
sndPlaySound(nil, SND_ASYNC);

а как сделать тоже самое в Basice?
...
Рейтинг: 0 / 0
23.11.2005, 11:54:25
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33394316
Aybek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aybek
Гость
ставим на форму media проигрыватель (имя avi1) и пишем код для кнопки

private sun command1_click()
avi1.open ("c:\123.avi")
avi1.play
end sub

thats it!
...
Рейтинг: 0 / 0
23.11.2005, 11:58:47
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33394338
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Например, вот так или так .
...
Рейтинг: 0 / 0
23.11.2005, 12:03:07
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33394506
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Воспользовалась 1 примером:

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVallpszName As String, _
ByValhModule As Long, ByValdwFlags As Long) _
As Long

Private Const SND_FILENAME = &H20000

Private Sub Command1_Click()
Call PlaySound("C:\бросок.wav", 0, SND_FILENAME)
End Sub

и всё равно ничего не слышно. и еще странная вещь, если я пишу путь к несуществующему файлу, он даже не ругается, типа нет такго файла или что-то в этом роде. подскажите, что я делаю не так.
...
Рейтинг: 0 / 0
23.11.2005, 12:42:42
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33394539
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Второй пример замечательно работает, проверил.
...
Рейтинг: 0 / 0
23.11.2005, 12:52:51
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33394565
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
а проверьте первый, он мне больше нравится. там коду меньше.
...
Рейтинг: 0 / 0
23.11.2005, 13:01:12
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33394587
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Если бы первый заработал, вы думаете стал бы я второй проверять? :)
...
Рейтинг: 0 / 0
23.11.2005, 13:08:37
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33394605
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Понятно, спасибо за совет.
...
Рейтинг: 0 / 0
23.11.2005, 13:14:07
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33396566
Андрей Il
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей Il
Участник
Dim i As Long
Dim o As Object
Set o = CreateObject("Scripting.FileSystemObject")
If o.FileExists("w:\1.wav") = True Then
PlaySound "w:\1.wav", 0, 0 'сначала проигрывается файл, а потом выполняется код дальше
PlaySound "w:\1.wav", 0, 1 'проигрывание файла идет параллельно с выполнением кода
Else
MsgBox "Файл не найден"
End If
...
Рейтинг: 0 / 0
24.11.2005, 11:14:27
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33401754
-=TotMacher=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=TotMacher=-
Гость
а подскажите плз как тоже бес помощи медиа плеера проигрывайть мпз. Может инструмент какой нить, но токо не медиа плеер, а лучше ваще бех инструментов:)
...
Рейтинг: 0 / 0
26.11.2005, 20:40:41
| Ответить | Цитировать | Написать  
Проигрывание wav.файла
    #33401986
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
-=TotMacher=-а подскажите плз как тоже бес помощи медиа плеера проигрывайть мпз. Может инструмент какой нить, но токо не медиа плеер, а лучше ваще бех инструментов:)
Напишите простейший проигрователь, который будет использовать один из установленных в системе кодеков. Примеров в Сети масса.
...
Рейтинг: 0 / 0
27.11.2005, 12:08:02
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Проигрывание wav.файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=304&tid=2166806]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 13ms
get forum data:
 1ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 227ms
total:  341ms
созд. / загр.: 341ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]