Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
воспроизведение wav файлов?
|
|||
|---|---|---|---|
|
#18+
Есть у меня класс wavePlayer воспроизводящий wav файлы. Как отследить окончание воспроизведения файла, для загрузки нового? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.02.2004, 07:41 |
|
||
|
воспроизведение wav файлов?
|
|||
|---|---|---|---|
|
#18+
молчат... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 06.02.2004, 05:47 |
|
||
|
воспроизведение wav файлов?
|
|||
|---|---|---|---|
|
#18+
А чего за класс такой? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.02.2004, 08:13 |
|
||
|
воспроизведение wav файлов?
|
|||
|---|---|---|---|
|
#18+
Класс самописный ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.02.2004, 10:35 |
|
||
|
воспроизведение wav файлов?
|
|||
|---|---|---|---|
|
#18+
А основан на чем? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.02.2004, 14:14 |
|
||
|
воспроизведение wav файлов?
|
|||
|---|---|---|---|
|
#18+
Гы... :) на WINAPI ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.02.2004, 21:44 |
|
||
|
воспроизведение wav файлов?
|
|||
|---|---|---|---|
|
#18+
Можно было предположить. Но и в API способов несколько 1. Вывод напрямую через waveOut 2. через PlaySoun 3. используя DirectSound Так какой? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.02.2004, 17:23 |
|
||
|
воспроизведение wav файлов?
|
|||
|---|---|---|---|
|
#18+
Через PlaySound. Есть какой-то метод?? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.02.2004, 22:10 |
|
||
|
воспроизведение wav файлов?
|
|||
|---|---|---|---|
|
#18+
Если чистый не кодированный wav то можно так: Public Function GetSoundTime(ByVal Path As String) As Double Dim s As String Dim ABpS, SpeedW As Integer Dim DS As Integer Dim a1, a2, a3, a4, a5 As Integer Dim CntS As Integer Dim f As FileStream = New FileStream(Path, FileMode.Open, FileAccess.Read) Try Dim sr As BinaryReader = New BinaryReader(f) s = sr.ReadChars(4) If Not s = "RIFF" Then Return -1 End If f.Position = 4 '+ CntS = sr.ReadInt32 '+ f.Position = 8 s = sr.ReadChars(8) If Not s = "WAVEfmt " Then f.close() Return -1 End If f.Position = 16 a1 = sr.ReadInt32 f.Position = 20 a2 = sr.ReadInt32 f.Position = 24 a3 = sr.ReadInt32 f.Position = 28 a4 = sr.ReadInt32 f.Position = 32 a5 = sr.ReadInt32 f.Position = 36 'Do 'DS = sr.ReadInt32 'f.Position += DS s = sr.ReadChars(4) If s = "data" Then ' Exit Do End If ' Loop 'DS = sr.ReadInt32 Catch f.close() Return -1 End Try f.close() DS = CntS \ a4 + 1 DS = DS * 1000 Return DS End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.02.2004, 07:46 |
|
||
|
|

start [/forum/topic.php?fid=20&msg=32409984&tid=1439562]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
130ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
37ms |
get tp. blocked users: |
1ms |
| others: | 257ms |
| total: | 462ms |

| 0 / 0 |
