0
0

I am currently working on a mp3 player. I chose delphi 7 and fmod to make it.

I have a problem (an exception error) because of these lines :
[code:qqat7ubo]
FSOUND_Init(44100,16,0);
current_song := FSOUND_Stream_Open( PChar(current_song_str), FSOUND_LOOP_NORMAL or FSOUND_NORMAL, 0, 0 );
if(current_song = nil)then
begin
FSOUND_Close();
Application.Terminate
end
else
begin
current_channel := FSOUND_Stream_Play(FSOUND_FREE, current_song);
if(current_channel = -1)then
begin
FSOUND_Close();
Application.Terminate;
end;
end;
[/code:qqat7ubo]

current_song_str is the path to an mp3 file, actually current_song_str = ‘plop.mp3’.

When I execute my program step by step the exception occurs at the line of FSOUND_Stream_Open.

Could you help me ?

PS : I tried to compile the sample called stream1, and when I executed it, a console appeared and disappeared before I could read anything !

  • You must to post comments
0
0

Ok I am so sorry , I found what was the problem. I included fmodpresets and fmoddyn in my .pas.

I tried whithout these two files included and it worked !

  • You must to post comments
Showing 1 result
Your Answer

Please first to submit.