Syntax SendMCICommand

[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

[Dunkelbunt27]

Erstmal Danke für die verständliche Erklärung.

Und ersetze alle !mciplayer! mit dieser Variable Auch bei Destroy?

Delphi-Quellcode:

   public
     { public-Deklarationen }
     //...
     destructor Destroy(alias: string); override;
   end;

//...
destructor TMCIPlayer.Destroy(alias: string);
 begin
   command := ('close '+ alias +' wait');
   mciSendString(command, return, resultSize, 0);
 end;

Es kommt der Fehler: "Deklaration von 'Destroy' unterscheidet sich von vorheriger Deklaration."

[EWeiss]

Zitat von Dunkelbunt27:

Erstmal Danke für die verständliche Erklärung.

Und ersetze alle !mciplayer! mit dieser Variable Auch bei Destroy?

Delphi-Quellcode:

   public
     { public-Deklarationen }
     //...
     destructor Destroy(alias: string); override;
   end;

//...
destructor TMCIPlayer.Destroy(alias: string);
 begin
   command := ('close '+ alias +' wait');
   mciSendString(command, return, resultSize, 0);
 end;

Es kommt der Fehler: "Deklaration von 'Destroy' unterscheidet sich von vorheriger Deklaration."

Dann füge die neue Declaration auch in der Classe ein ups. hast du ja.
Ansonsten ja auch bei Destroy..

Hmm override;?

gruss

[Dunkelbunt27]

Zitat:

Dann füge die neue Declaration auch in der Classe ein ups. hast du ja.
Ansonsten ja auch bei Destroy..

Naja, ist sie doch, oder?
EDIT: Hab dein Edit nicht gesehen, sorry

Das ist die MCIPlayer unit...

Delphi-Quellcode:

unit MCIPlayer;
interface

uses Windows, Messages, mmsystem, StrUtils, SysUtils, Dialogs;

type
   TMCIPlayer = class
   private
     { private-Deklarationen }
     command: PWideChar;
     return: array [0..255] of Widechar;
     resultSize: Integer;
   protected
     { protected-Deklarationen }
   public
     { public-Deklarationen }
     duration: Integer;
     paused: Bool;
     function getPosition(alias: string): Integer;
     procedure play(alias: string);
     procedure pausePlay(alias: string);
     procedure stop(alias: string);
     constructor Create(fileName: string; dtype: string; alias: string; autoplay: Bool);
     destructor Destroy(alias: string); override;   {<<<<<<<<<<<}
   end;

implementation

constructor TMCIPlayer.Create(fileName: string; dtype: string; alias: string; autoplay: Bool);
 var
   lResult: cardinal;
 begin
  //Variablen initiieren
   paused := FALSE;
   resultSize := 255;

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

   if lResult <> 0 then
   begin
     mciGetErrorString(lResult, return, 255);
     ShowMessage('MCI error:'  + return);
       duration := 0;
    end;

   // Calculate duration
    command := ('set mciplayer time format milliseconds wait');
    mciSendString(command, return, resultSize, 0);

   command := ('status mciplayer length wait');
    mciSendString(command, return, resultSize, 0);
    if (StrLen(return) > 0) then
       duration := StrToInt(return)
    else
   duration := 0;

   if autoplay then
       play;
end;

destructor TMCIPlayer.Destroy(alias: string);
 begin
   command := ('close '+ alias +' wait');
   mciSendString(command, return, resultSize, 0);
 end;

function TMCIPlayer.getPosition(alias: string): Integer;
 begin
    command := ('status '+ alias +' position wait');
    mciSendString(command, return, resultSize, 0);
   if (StrLen(return) > 0) then
        result := StrToInt(return)
     else
     result := 0;
end;

procedure TMCIPlayer.pausePlay(alias: string);
 begin
     paused := not paused;
    if paused then
     begin
        command := ('pause '+ alias +' notify');
       mciSendString(command, return, resultSize, 0);
     end else
     begin
        command := ('resume '+ alias +' notify');
       mciSendString(command, return, resultSize, 0);
     end;
 end;

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

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

end.

[EWeiss]

destructor Destroy(alias: string); reintroduce;

Delphi-Quellcode:

   if autoplay then
        play;

fehlt noch das alias hinter play

und alias mciplayer bei duration wurde noch nicht ersetzt.

Delphi-Quellcode:

   // Calculate duration
     command := ('set mciplayer time format milliseconds wait');
     mciSendString(command, return, resultSize, 0);
 
   command := ('status mciplayer length wait');
     mciSendString(command, return, resultSize, 0);
     if (StrLen(return) > 0) then
        duration := StrToInt(return)
     else
    duration := 0;

gruss

[Dunkelbunt27]

Okay.
Jetzt hat er nur noch ein Problem damit, dass das command ein PWideChar ist, aber alias ein string...
also zum Beispiel command := ('set '+ alias +' time format milliseconds wait'); wirft einen Fehler auf (Inkompatible Typen: 'PWideChar und 'String').

Hingegen command := PWideChar('open "' + fileName + '" type ' + dtype + ' alias ' + alias + ' wait'); erkennt er nicht als Fehler...

[Sir Rufo]

Wäre es nicht geschickter den Alias beim Create in einer private Variable zu merken, dann muss der nicht bei jedem Aufruf wieder mitgegeben werden, sondern die Instanz verwaltet den selber?

Und der direkte Aufruf von Destroy ist ja auch nicht StateOfTheArt besser wäre Free

Evtl. könnte man im Create auch einen eindeutigen Namen erzeugen lassen, dann verwaltet die Klasse das komplett selber

[EWeiss]

Zitat von Sir Rufo:

Wäre es nicht geschickter den Alias beim Create in einer private Variable zu merken, dann muss der nicht bei jedem Aufruf wieder mitgegeben werden, sondern die Instanz verwaltet den selber?

Nein da der Alias von außen geändert werden muss.
Wenn zwei Instanzen Arbeiten benötigst du auch 2 Unterschiedliche alias was man machen könnte wäre ein
FAlias: array of string.

Zitat:

Und der direkte Aufruf von Destroy ist ja auch nicht StateOfTheArt besser wäre Free

Korrekt dafür ist es ja da

Ist mir bei den ganzen hin und her nicht aufgefallen
Das problem aber in Destroy steht das Alias welches behandelt werden muss.
Nur mit Free geht es so im moment nicht.
Müßte man dann erst noch mit einer variablen ändern. Im moment geht es erstmal so.

Im Anhang die korrigierte mit PWideChar..

Zitat:

Evtl. könnte man im Create auch einen eindeutigen Namen erzeugen lassen, dann verwaltet die Klasse das komplett selber

Würde mich mal interessieren wie das bei dir aussehen würde
Lust das zu ändern ?


gruss