so ich habe jetzt alle Problme gelöst erstmal.
Mein code:
Code:
var
test:PFMusicModule;
Datei:String;
Stream: PFSoundStream;
Channel: Integer;
Module: PFMusicModule;
begin
Datei:=FileListe.Strings[ListBox1.ItemIndex];
if not FSOUND_Init(22050, 128, 0) then
begin
Application.MessageBox(FMOD_ErrorString(FSOUND_GetError), 'FSOUND_Init', MB_OK or MB_ICONHAND);
Halt;
end;
// OPEN STREAM
Stream := FSOUND_Stream_OpenFile(PChar(Datei), FSOUND_LOOP_NORMAL or FSOUND_NORMAL, 0);
if Stream = Nil then
Module:=FMUSIC_LoadSong(PChar(Datei) );
if Module = nil then begin
Showmessage('Error! Opening file - ' + FMOD_ErrorString(FSOUND_GetError()));
FSOUND_Close();
Exit;
end;
// PLAY STREAM
if Stream <> nil then begin
channel := FSOUND_Stream_Play(FSOUND_FREE, stream);
if channel < 0 then begin
showmessage('Error! Play - ' + FMOD_ErrorString(FSOUND_GetError()));
FSOUND_Close();
exit;
end;
end
else
if Module <> NIL then
FMUSIC_PlaySong(Module);
// FSOUND_SetPan(Channel, FSOUND_STEREOPAN);
// FSOUND_SetVolume(Channel, 255);
was kann man andres bzw. besser machen ?
nun habe ich noch ein paar fragen:
Was für Datentypen werden in meiner version unterstützt ?
(ich weiß das it,s3m,xm,mod,wav,mp3,wav,midi einbandfrei funktionieren)
und darf ich ein programm wo ich die "FMod lib" nutze veröffentlichen ?
also als Freeware oder was muss ich da beachten ?
(weil ich kann nicht so gut ENGLISCH)
Wie kann ich wenn ich eine datei anhöhre pause machen bzw stoppen.
so mehr Fragen habe ich erstmal nicht.
Danke schonmal im vorraus für die antworten.
MFG
Michael springwald