с6.3 abc Как воспроизвести в кларион звук.файл
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- Admin
- Администратор
- Сообщения: 3960
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
с6.3 abc Как воспроизвести в кларион звук.файл
А разве не sndPlaySound?
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
-
- ✯ Ветеран ✯
- Сообщения: 4984
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
с6.3 abc Как воспроизвести в кларион звук.файл
MCISendString имеет более расширенный функционал. Если не сказать - сильно расширенный.
Вот здесь много чего - viewtopic.php?f=12&t=3640.
We are hard at work… for you.
- Admin
- Администратор
- Сообщения: 3960
- Зарегистрирован: 05 Июль 2005, 15:59
- Откуда: Хабаровск
- Благодарил (а): 25 раз
- Поблагодарили: 22 раза
- Контактная информация:
с6.3 abc Как воспроизвести в кларион звук.файл
Я просто что то думал что он только мидюки играет. OK
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
с6.3 abc Как воспроизвести в кларион звук.файл
что-то сделал - ошибок нет но молчит собака
В проекте в global запихал описание api после inside the global map
Module('windows api')
mciGetErrorString(ULONG,*CSTRING,USHORT),SHORT,PASCAL,RAW,PROC,NAME('mciGetErrorStringA')
mciSendString(*CSTRING,*CSTRING,USHORT,USHORT),ULONG,PASCAL,RAW,PROC,NAME('mciSendStringA')
End
На buton повесил исполнение
MCICommand= 'Play sound'
MCISendString(MCICommand,MCIReturn,128,0)
MESSAGE(MCIReturn)
???
В проекте в global запихал описание api после inside the global map
Module('windows api')
mciGetErrorString(ULONG,*CSTRING,USHORT),SHORT,PASCAL,RAW,PROC,NAME('mciGetErrorStringA')
mciSendString(*CSTRING,*CSTRING,USHORT,USHORT),ULONG,PASCAL,RAW,PROC,NAME('mciSendStringA')
End
На buton повесил исполнение
MCICommand= 'Play sound'
MCISendString(MCICommand,MCIReturn,128,0)
MESSAGE(MCIReturn)
???
- Дед Пахом
- Старичок
- Сообщения: 3134
- Зарегистрирован: 07 Июль 2005, 16:51
- Откуда: Москва, Россия
- Благодарил (а): 10 раз
- Поблагодарили: 28 раз
- Контактная информация:
с6.3 abc Как воспроизвести в кларион звук.файл
Тут примеры есть: http://free-basic.ru/mcisendstring.html
С уважением, ДП
с6.3 abc Как воспроизвести в кларион звук.файл
Дед Пахом упомянул FB. Я на него нечаянно наткнулся год назад. Отличная штука, у них там даже есть 64-битный компилятор.
C10, Win10x64
с6.3 abc Как воспроизвести в кларион звук.файл
Дык, сначала открыть файл надо, а уже потом играть ... В топике viewtopic.php?f=12&t=3640 - куча примеров...
Код: Выделить всё
MCICommand='open "'&soundfile&'" alias sound'
MCISendString(MCICommand,MCIReturn,128,0{Prop:Handle})
MCICommand='play sound'
MCISendString(MCICommand,MCIReturn,128,0{Prop:Handle})
Последний раз редактировалось Yufil 18 Июль 2017, 14:13, всего редактировалось 1 раз.
с6.3 abc Как воспроизвести в кларион звук.файл
в переменную soundfile - указываю предварительно сам файл типа soundfile='plyyyy.mp3' так ?
-
- ✯ Ветеран ✯
- Сообщения: 4984
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 7 раз
- Поблагодарили: 20 раз
с6.3 abc Как воспроизвести в кларион звук.файл
Ну вот здесь - viewtopic.php?p=26293#p26293 совсем всё разжёвано мной. Только без обработки видеофайлов.
We are hard at work… for you.