Und nochmal 2 Sounds Gleichzeitig abspielen...

[Lefko]

Hallo Freunde ,

ich weiss, das gabs schon öfter, aber ich fand nix geeignetes.. bass.dll is mir zu schwierig und DelphiX gib s wohl für Delphi 6 nicht so richtig (?!)

Also:

Ich hab in meinem Snake-spiel ein problem mit den sounds, zu dessen Beseitigung ich den Code eigentlich extra in den Thread verfrachtet hab... das bringt aber nix denn das problem ist nicht weggegangen:

Ich will mit dem Thread eine Hintergrundmusik abspielen, und dann soll, wenn die Schlange einen Apfel frisst, auch ein Sound abgespielt werden. Wenn dieser "Fress-Sound" abgespielt wird, wird der Hintergrundsound abgebrochen! (mit snd_PlaySound rufe ich beide waves auf)

Eigentlich will ich zwei Musikdateien also gleichzeitig abspielen! (Hatte das auch mit einer 2. exe, die nur zum soundabspielen gestartet wurde, das war aber unpraktisch und sehr unelegant...)

Was könnte ich noch machen, damit es funktioniert?!?

MfG Lefko.

[C64-Flo]

nur mal so´ne frage:

WARUM PROGRAMMIERT IHR ALLE SO EIN SNAKE-SPIEL?

ist das irgendwie die standard-Hausaufgabe für informatik-studenten?

naja egal....

was dein problem betrifft....

Bei delphi7 könntest ja einfach 2 mediaplayer einbauen, und jeden mit seinem eigenen sound behaften, dann wäre das kein problem..

nur kenn ich delphi6 nicht...daher KA

[SirThornberry]

unter delphi6 gehts nicht, da kommt das, das gerät bereits verwendet wird - wird wahrscheinlich versucht über die gleiche geräteid was abzuspielen ohne mixer.

[Lefko]

Zitat von C64-Flo:

nur mal so´ne frage:

WARUM PROGRAMMIERT IHR ALLE SO EIN SNAKE-SPIEL?

ist das irgendwie die standard-Hausaufgabe für informatik-studenten?

Hihi, scheint so!

Hab zwar Informatik nur in der Schule und mache das als selbstgewähltes Projekt, aber ist halt ein gut umzusetzendes Spiel....

Kann ich das wohl so machen, dass ich den Hintergrund mit nem Mediaplayer abspiele und den Fresssound mit snd_Playsound? oder wird dann auch eins von beiden abgebrochen?


MfG Lefko.

[SirThornberry]

von Swissdelphicenter.com:

Delphi-Quellcode:

uses 
  MMSystem; 

procedure SendMCICommand(Cmd: string); 
var 
  RetVal: Integer; 
  ErrMsg: array[0..254] of char; 
begin 
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0); 
  if RetVal <> 0 then 
  begin 
    {get message for returned value} 
    mciGetErrorString(RetVal, ErrMsg, 255); 
    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0); 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SendMCICommand('open waveaudio shareable'); 
  SendMCICommand('play "C:\xyz\BackgroundMusic.wav"'); 
  SendMCICommand('play "C:\xyz\AnotherMusic.wav"'); 
  SendMCICommand('close waveaudio'); 
end;

Edit:
Die Variante hat leider den nachteil das man damit keine mp3s abspielen kann

[SirThornberry]

Wenn Geld keine Rolle spielt guck mal bei www.swiftsoft.de die Multimediatools sind echt supi. Keine ahnung wie teuer die genau sind, verwenden die aber im Betrieb und sind total simple. Einfach nen Mixer aufs Formular ziehen dann nen wave out und mehrere MMAudiofiles. und dann einfach waveout.start und alle spielen los (propertys natürlich vorher setzen (per drag & drop möglich))

[Luckie]

PlaySound verwenden mit dem Flag ASYNCHRON.

[Lefko]

Zitat von Luckie:

PlaySound verwenden mit dem Flag ASYNCHRON.

Aber da wird doch auch eins abgebrochen, weil die mit dem gleichen befehl gestartet werden?
wenn eins aktiv ist, kann das doch nicht nocheins abspielen?

@SirTornberry:
hey, das sieht gut aus! ich werd s ausprobieren...
(das sendMCIcommand('close waveaudio') ist nur zum schließen ne?)

MfG Lefko.

[Lefko]

@SirTornberry:

Mist, diese Variante klappt auch nicht, es kommt jedes mal der Error: "MMSYSTEM263 Dies ist kein registriertes MCI-Gerät"

was mach ich nur....

MfG Lefko

PS: Das einzige, was wirklich gut klappt ist, dass ich ne extra-Sound-exe mache, die per shellexecute aufgerufen wird.... soll ich das wieder machen?

[Lefko]

Huhu! s.o.