Syntax SendMCICommand

[EWeiss]

Delphi-Quellcode:

procedure SoundAbspielen1;
 begin
   myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', False);
   myMCIPlayer.play;
 end;

Hast du dir mal die Variable autoplay angeschaut?
Wenn ja warum verwendest du sie dann nicht und entfernst das
myMCIPlayer.play;

Dann benötigst du nur Create und Destroy..

Alternativ könntest du auch noch eine neue procedure einbauen
in der du close verwendest und die Funktionen aus Destroy dort einfügst.

gruss

[Dunkelbunt27]

Das mit dem Autoplay ist schon mal super, hätte ich auch drauf kommen können...
  myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', True); Dann benötigst du nur Create und Destroy.. Ja, das ist gut, nur das Problem ist für mich das Destroy...

Delphi-Quellcode:

Alternativ könntest du auch noch eine neue procedure einbauen
in der du close verwendest und die Funktionen aus Destroy dort einfügst.

Also eine Prozedur, die das selbe macht wie Destroy, nur nicht als destructor läuft?
Aber warum, was bringt das? Ich habe ja immernoch das Problem, dass ich nicht weiß wo/wann ich den Player zerstöre... Hast du (oder jemand anders) dafür ne Idee?

[EWeiss]

Delphi-Quellcode:

procedure SoundAbspielen1;
 begin
   if assigned(myMCIPlayer) then
     myMCIPlayer.Destroy;

   myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', true);
 end; 

procedure SoundAbspielen2;
 begin
   myMCIPlayer.Destroy;
   myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', true);
 end;

Wäre eine möglichkeit.
Nicht getestet.

oder halt nen Schalter zwichenschalten zwischen SoundAbspielen1 und SoundAbspielen2

Delphi-Quellcode:

Isplaying := not IsPlaying
if IsPlaying and assigned(myMCIPlayer) then 
  myMCIPlayer.Destroy
else
myMCIPlayer := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', true);

gruss

[Dunkelbunt27]

Mit dem assigned kann man was anfangen

Delphi-Quellcode:

if assigned(myMCIPlayer) then
myMCIPlayer.Destroy;

Damit lässt es sich dann auch lösen. Danke!

Kann man auch zwei MCIPlayer gleichzeitig erstellen? myMCIPlayer1 und myMCIPlayer2 oder so?

[EWeiss]

Zitat von Dunkelbunt27:

Mit dem assigned kann man was anfangen

Delphi-Quellcode:

if assigned(myMCIPlayer) then
myMCIPlayer.Destroy;

Damit lässt es sich dann auch lösen. Danke!

Ok alternativ siehe oben EDIT: der Schalter..

Zitat:

Kann man auch zwei MCIPlayer gleichzeitig erstellen? myMCIPlayer1 und myMCIPlayer2 oder so?

Ja dafür mußt du dann aber das alias mciplayer ebenfalls als string(variable) auslegen und bei einer neuen Instanz einen anderen wert angeben.

myMCIPlayer1 alias = 'mciplayer1'
myMCIPlayer2 alias = 'mciplayer2'

Du kannst keine zwei Instanzen mit dem selben alias erstellen.

gruss

[Dunkelbunt27]

Zitat:

Du kannst keine zwei Instanzen mit dem selben alias erstellen.

Okay.

Zitat:

Ja dafür mußt du dann aber das alias mciplayer ebenfalls als string(variable) auslegen und bei einer neuen Instanz einen anderen wert angeben.

myMCIPlayer1 alias = 'mciplayer1'
myMCIPlayer2 alias = 'mciplayer2'

Also mit diesem Alias steh ich auf Kriegsfuß... ich hab das nie irgendwo gehabt und weiß damit dementsprechend leider auch nichts anzufangen...

[EWeiss]

Zitat:

Also mit diesem Alias steh ich auf Kriegsfuß... ich hab das nie irgendwo gehabt und weiß damit dementsprechend leider auch nichts anzufangen...

bei jeder Function.. Procedure wird bei command eine ID = Alias verwendet um die aktuelle Instanz zu identifizieren.
Wie man diesen benennt ist eigentlich egal er muss nur für jede instanz gleich sein.

Delphi-Quellcode:

   // We want to play a File.
   command := PWideChar('open "' + fileName + '" type ' + dtype + ' alias mciplayer wait');
   lResult := mciSendString(command, return, resultSize, 0);

In unserem Fall ist der alias mciplayer
'alias mciplayer wait'

In allen Functionen muss also bei einer neuen Instanz ein anderer Alias angegeben werden.

constructor TMCIPlayer.Create(fileName: string; dtype: string; alias: string; autoplay: Bool);

Und ersetze alle !mciplayer! mit dieser Variable also

Delphi-Quellcode:

   // We want to play a File.
   command := PWideChar('open "' + fileName + '" type ' + dtype + ' alias ' + alias + ' wait');
   lResult := mciSendString(command, return, resultSize, 0);

bsp.. für Play

Delphi-Quellcode:

procedure TMCIPlayer.play(alias: string);
 begin
    command := ('play ' + alias + ' notify');
    mciSendString(command, return, resultSize, 0);

end;

Delphi-Quellcode:

myMCIPlayer1 := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound1.wav', 'waveaudio', 'mciplayer1', true); 
myMCIPlayer2 := TMCIPlayer.Create(ExtractFilePath(Paramstr(0)) + 'Sounds\Sound2.wav', 'waveaudio', 'mciplayer2', true);

gruss