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
6. Feb 2003, 20:30
ich habs so gemacht:
zusammenfalten
·
markieren
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
;
Zitat
janjan
Öffentliches Profil ansehen
Mehr Beiträge von janjan finden