It works! Thank you very much. The reason was the lacking library.
This code plays a mp3 file.
program test;
uses
sounds;
begin
PlaySound('guitar.wav');
end.
unit sounds;
interface
uses
sdl, sdl_mixer, strings;
procedure PlaySound(filename: string);
implementation
procedure PlaySound(filename: string);
var
VFilename: pchar;
VChunk: pmix_chunk;
begin
VFilename := strAlloc(length(filename) + 1);
StrPCopy(VFilename, filename);
VChunk := mix_loadWav(VFilename);
if VChunk = nil then
writeln('O arquivo não pôde ser carregado');
if mix_PlayChannel(-1, VChunk, 0) < 0 then
exit;
while mix_Playing(0) = 1 do SDL_Delay(10);
StrDispose(VFilename);
end;
initialization
sdl_init(SDL_INIT_AUDIO);
mix_OpenAudio(44100, mix_Default_format, 2, 4096);
finalization
Mix_CloseAudio;
sdl_quit;
end.
2014-03-04 5:35 GMT-03:00, Yann Mérignac <yann.merig...@gmail.com>:
> Probably your missing the libsmpeg library. On debian it's provided by the
> libsmpeg0 package.
>
> https://packages.debian.org/wheezy/libsmpeg0
>
--
Luciano de Souza
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
