Как воспроизв. mp3 в пректе без каких либо компонентов

[dron-s]

ну тогда без 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...
дерзай

[mihali4]

Сообщение от bill

Дело думаю в том что автор хочет воспроизводить mp3 без помощи компонентов чтобы уменьшить размер исходника- меньше модулей- меньше размер проги. Мое решение- WinExec или ShellExecute- прекрасно подходят.

Безусловно. Но я имел в виду изучение "унутренностей" штатного медиаплеера, чтобы потом применить нужное в программе. Ведь он построен практически на АПИ.

[SERG1980]

BASS DLL + пример на Delphi

[Domovoy]

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

[mutabor]

Безусловно. Но я имел в виду изучение "унутренностей" штатного медиаплеера, чтобы потом применить нужное в программе. Ведь он построен практически на АПИ.

Винда без декодера воспроизводить MP3 файлы не умеет, в XP он идет встроенный от какой-то фирмы, не помню названия. Таким образом винда для воспроизведения обращается к этому декодеру, зачем она нужна в таком случае в качестве посредника?