Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Мультимедиа
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.02.2013, 15:59
komp komp вне форума
Прохожий
 
Регистрация: 21.01.2009
Сообщения: 5
Репутация: 10
По умолчанию работа с bass.dl

Здравствуйте, уважаемые эксперты!
Нужно воспроизвести файл
использую Bass.dll
Воспроизводится только конец файла, причем в Windows media воспроизводится все целиком

вызываю ф-ю вот так:


Код:
if FileExists('D:\Voice\Simple.wav') then
begin
BASS_StreamFree(Channel);
Channel:=BASS_StreamCreateFile(FALSE, PChar('D:\Voice\Simple.wav'), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
BASS_ChannelPlay(Channel, false);
BASS_SampleFree(Channel);
end
MAD: Читаем правила по оформлению кода!

PlaySound вообще не воспроизводит файл,
что делать ума не приложу

во вложении сам файл
Вложения
Тип файла: 7z Simple.7z (5.3 Кбайт, 3 просмотров)

Последний раз редактировалось M.A.D.M.A.N., 28.02.2013 в 16:25.
Ответить с цитированием
  #2  
Старый 01.03.2013, 00:33
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от komp
...PlaySound вообще не воспроизводит файл,
что делать ума не приложу...
PlaySound воспроизводит лишь обычный wav, а здесь
Код:
Simple.wav - формат аудио: Lame MP3 22,050 кГц; Стерео
Или используйте MediaPlayer, либо (что ещё проще) перекодируйте файл. Таскать вместе со сборкой бассовскую библиотику не наш метод.
Ответить с цитированием
  #3  
Старый 01.03.2013, 02:01
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от Alegun
... не наш метод.
Наоборот самый наш, лучше таскать dll-ку на 300Кб, чем wav-ки на десятки "метров".
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #4  
Старый 01.03.2013, 02:04
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от angvelem
Наоборот самый наш, лучше таскать dll-ку на 300Кб, чем wav-ки на десятки "метров".
Угу, особливо когда
Код:
Размер файла - 24,0 КБ (24*576 байт)
Ответить с цитированием
  #5  
Старый 01.03.2013, 02:14
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Погоди, это только начало, аппетит приходит во время еды.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Этот пользователь сказал Спасибо angvelem за это полезное сообщение:
Alegun (01.03.2013)
  #6  
Старый 01.03.2013, 08:10
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Радость

можно в системных требованиях к программе написать Windows XP и выше и воспроизводить mp3 с MMSystem. результат на 1 файл и 300КБ меньше.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:22.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter