Sounds gleichzeitig abspielen

[hathor]

Der Mediaplayer kann als Komponente mehrfach ins Programm eingebunden werden und funktioniert parallel und unabhängig.

[w4rheart]

^ aber kann ein Mediaplayer nicht immer nur ein Datei abspielen?
das Problem was ich habe ist, dass ich nicht weiss wie viele Wavs/wie of die Wave gleichzeitig abgespielt werden/wird!
Das hängt davon wie viele benutzer im spiel sind und gleichzeitig z.b. schiessen.

Muss/kann ich dann immer einen neuen mediaplayer erstellen?

MfG

[lbccaleb]

Zitat von w4rheart:

Muss/kann ich dann immer einen neuen mediaplayer erstellen?

MfG

Klar, aber irgendwann ist der Speicher voll... ...was allerdings seine Zeit brauchen wird

[w4rheart]

Wie funktioniert das ganz denn?
ich kenne mich mit Mediaplayern etc. nicht aus.

Kann da jemand evtl. ein Biespiel posten?

[w4rheart]

Wie erstelle ich denn einen Mediaplayer ohne den Mediaplayer auf die GUI (Form1) zu ziehen?
Der Owner muss ja von TComponent sein, was geb ich dem ganzen denn dann mit?

[lbccaleb]

Na genauso wie andere Komponenten auch:

Delphi-Quellcode:

var
MediaPlayer: TMediaPlayer;

MediaPlayer := TMediaPlayer.Create(Application);
MediaPlayer.Parent := Self;
...

[w4rheart]

Hallo,

Ich habe nun folgendes entdeckt:
OpenAL

inklusive Links zu Tutorials:
http://www.noeska.com/doal/tutorials.aspx

Allerdings kann ich keine Demo kompilieren.
Habe mir die ganzen Header files wie Alut und Altypes geladen, der Compiler hängt aber bei folgender Zeile:
AlutInit(nil,argv); //(FormCreate)

Wenn ich es ohne Parameter übergebe wird kompiliert, allerdings erhalte ich darauf direkt nach dem Start eine Fehlermeldung:
EAccessViolation read of 00000...

Kennt sich jemand mit OpenAL aus, und kann mir dabei helfen?

freundliche Grüße

[hathor]

Zitat von hathor:

Der Mediaplayer kann als Komponente mehrfach ins Programm eingebunden werden und funktioniert parallel und unabhängig.

Bedingung ist: Ein Soundfile darf nur einmal geöffnet werden.
Soll es mehrmals gleichzeitig gespielt werden, muss es unter verschiedenen Namen mehrfach vorhanden sein.
Offensichtlich glaubt das keiner, deshalb hier ein Beispiel:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    MediaPlayer1: TMediaPlayer;
    MediaPlayer2: TMediaPlayer;
    MediaPlayer3: TMediaPlayer;
    MediaPlayer4: TMediaPlayer;
    MediaPlayer5: TMediaPlayer;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Mediaplayer1.Play;
Sleep(20);
Mediaplayer2.Play;
Sleep(20);
Mediaplayer3.Play;
Sleep(20);
Mediaplayer4.Play;
Sleep(20);
Mediaplayer5.Play;
end;

end.

[turboPASCAL]

Der Nachteil vom MediaPlayer ist, das er bei dem öffnen einer Datei erst ein mal eine ganze Weile rumrödelt (irgend was sucht und oder vergleicht etc pp.).
Also eine "schöne" Lösung ist das nicht gerade.

[hathor]

Das liegt nicht am Mediaplayer, sondern an der Vorschaufunktion des Explorers
(ausschalten: regsvr32 /u shmedia.dll) oder am Virenscanner (den kann man auch konfigurieren - immer nur meckern tun die Doofen...)