|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
23.11.2005, 11:54:25
|
|||
|---|---|---|---|
Проигрывание wav.файла |
|||
|
#18+
Люди, скажите, можно ли проиграть 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? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.11.2005, 11:58:47
|
|||
|---|---|---|---|
|
|||
Проигрывание wav.файла |
|||
|
#18+
ставим на форму media проигрыватель (имя avi1) и пишем код для кнопки private sun command1_click() avi1.open ("c:\123.avi") avi1.play end sub thats it! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.11.2005, 12:42:42
|
|||
|---|---|---|---|
Проигрывание wav.файла |
|||
|
#18+
Воспользовалась 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 и всё равно ничего не слышно. и еще странная вещь, если я пишу путь к несуществующему файлу, он даже не ругается, типа нет такго файла или что-то в этом роде. подскажите, что я делаю не так. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.11.2005, 12:52:51
|
|||
|---|---|---|---|
Проигрывание wav.файла |
|||
|
#18+
Второй пример замечательно работает, проверил. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.11.2005, 13:01:12
|
|||
|---|---|---|---|
Проигрывание wav.файла |
|||
|
#18+
а проверьте первый, он мне больше нравится. там коду меньше. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.11.2005, 13:08:37
|
|||
|---|---|---|---|
Проигрывание wav.файла |
|||
|
#18+
Если бы первый заработал, вы думаете стал бы я второй проверять? :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.11.2005, 13:14:07
|
|||
|---|---|---|---|
Проигрывание wav.файла |
|||
|
#18+
Понятно, спасибо за совет. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
24.11.2005, 11:14:27
|
|||
|---|---|---|---|
Проигрывание wav.файла |
|||
|
#18+
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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
26.11.2005, 20:40:41
|
|||
|---|---|---|---|
|
|||
Проигрывание wav.файла |
|||
|
#18+
а подскажите плз как тоже бес помощи медиа плеера проигрывайть мпз. Может инструмент какой нить, но токо не медиа плеер, а лучше ваще бех инструментов:) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
27.11.2005, 12:08:02
|
|||
|---|---|---|---|
Проигрывание wav.файла |
|||
|
#18+
-=TotMacher=-а подскажите плз как тоже бес помощи медиа плеера проигрывайть мпз. Может инструмент какой нить, но токо не медиа плеер, а лучше ваще бех инструментов:) Напишите простейший проигрователь, который будет использовать один из установленных в системе кодеков. Примеров в Сети масса. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&mobile=1&tid=2166806]: |
0ms |
get settings: |
7ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
160ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
54ms |
get tp. blocked users: |
1ms |
| others: | 206ms |
| total: | 457ms |
| 0 / 0 |
