Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.11.2007, 20:48   #11
dron-s
Форумчанин
 
Регистрация: 04.03.2007
Сообщений: 615
По умолчанию

ну тогда без bass не обойтись...
находим библиотеку, подключаем её к проекту и пишем такой небольшой кодик
Код:
var
  Res:TResourceStream;
  m : Tmemorystream;
  b:string;
begin
  if not BASS_Init(-1, 44100, 0, handle) then begin
    Error('Could not initialize BASS');
    Exit;
  end;
// start BASS
if not BASS_Start then begin
  Error('Could not start the BASS output');
  Exit;
end;
Res:=TResourceStream.Create(Hinstance,'MP3','MP3');
Res.Seek(0,soFromBeginning);
setlength(b,Res.size);
Res.ReadBuffer(b[1],Res.size);
m := Tmemorystream.Create;
m.Write(b[1],Res.size);
m.Seek(0,soFromBeginning);
SineStream:=BASS_StreamCreateFile(true, m.Memory,0,m.Size,0);
if (SineStream = 0) then begin
 Error('Could not create user stream');
 Exit;
end;
if not BASS_StreamPlay(SineStream, FALSE, 0) then begin
  Error('Could not start stream playback');
  Exit;
end;
и на сайте bass есть подробные примеры испольщования на С, Delphi и VB...
дерзай
dron-s вне форума Ответить с цитированием
Старый 29.11.2007, 20:57   #12
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от bill Посмотреть сообщение
Дело думаю в том что автор хочет воспроизводить mp3 без помощи компонентов чтобы уменьшить размер исходника- меньше модулей- меньше размер проги. Мое решение- WinExec или ShellExecute- прекрасно подходят.
Безусловно. Но я имел в виду изучение "унутренностей" штатного медиаплеера, чтобы потом применить нужное в программе. Ведь он построен практически на АПИ.
mihali4 вне форума Ответить с цитированием
Старый 30.11.2007, 08:10   #13
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

BASS DLL + пример на Delphi
Вложения
Тип файла: rar bass23-для проигр mp3 ogg.rar (621.9 Кб, 37 просмотров)
SERG1980 вне форума Ответить с цитированием
Старый 30.11.2007, 18:09   #14
Domovoy
Форумчанин
 
Регистрация: 24.10.2007
Сообщений: 254
По умолчанию

Всем спасибо!!!
Всё получилось(использовал ShellExecute()).

Последний раз редактировалось Domovoy; 30.11.2007 в 18:13.
Domovoy вне форума Ответить с цитированием
Старый 30.11.2007, 20:01   #15
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Цитата:
Безусловно. Но я имел в виду изучение "унутренностей" штатного медиаплеера, чтобы потом применить нужное в программе. Ведь он построен практически на АПИ.
Винда без декодера воспроизводить MP3 файлы не умеет, в XP он идет встроенный от какой-то фирмы, не помню названия. Таким образом винда для воспроизведения обращается к этому декодеру, зачем она нужна в таком случае в качестве посредника?
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог
mutabor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Присутствет ли в codeblocks либо в eclipse редактор форм? Goblin Помощь студентам 3 04.03.2008 18:39
как обращатся к чему либо WOLFak Общие вопросы Delphi 3 13.02.2008 06:06
Как к какой либо букве привезать определенное действие? LuMax Помощь студентам 4 25.11.2007 14:06
Как расчитать математическую формулу либо физическую? pentiumForever Общие вопросы Delphi 7 13.09.2007 14:07
Возможности ДубльГИС для интеграции с чем-либо 2gis Софт 2 04.03.2007 03:41