Thema: Delphi Probleme mit FMod

Einzelnen Beitrag anzeigen

janjan

Registriert seit: 16. Jan 2003
Ort: Bonn ("links über Königswinter ")
240 Beiträge
 
Delphi 4 Standard
 
#12
  Alt 6. Feb 2003, 19:30
ich habs so gemacht:

Delphi-Quellcode:

// OPEN STREAM
  Stream := FSOUND_Stream_OpenFile(PChar(Datei), FSOUND_LOOP_NORMAL or FSOUND_NORMAL, 0);
  if stream = nil then
    begin
      Showmessage('Error! Opening file - ' + FMOD_ErrorString(FSOUND_GetError()));
      FSOUND_Close();
      Exit;
    end;

// PLAY STREAM
  channel := FSOUND_Stream_Play(FSOUND_FREE, stream);
  if channel < 0 then
    begin
      showmessage('Error! Play - ' + FMOD_ErrorString(FSOUND_GetError()));
      FSOUND_Close();
      exit;
    end;
  Mit Zitat antworten Zitat