Thema: Delphi Probleme mit FMod

Einzelnen Beitrag anzeigen

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#16
  Alt 6. Feb 2003, 21:50
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
Michael Springwald
  Mit Zitat antworten Zitat