Hallo zusammen,
mit OnPlayerStart und OnPlayerStop habe ich ja Events wenn ein Player gestartet/gestoppt wird, gibt es ähnliches auch beim Laden und Entladen eines Players? Grund ist folgender: Ich teste gerade eine erste Firmware von Mixercontrol und würde über LEDs am Fader gerne folgender 3 Zustände signalisieren: LED aus: Player leer oder Error, LED an: Player geladen und bereit, LED blinkt: Player spielt.
Über das folgende kleine Script klappt das mit dem Aus und Blinken schon perfekt, nur der Status “Player geladen” fehlt mir leider noch.
[code]function FindPlayer(iPlayer: IPlayerControl; var playlist, player: integer): boolean;
begin
for playlist := 0 to PlaylistCount - 1 do
for player := 0 to PlaybackControl(playlist).GetPlayerCount - 1 do
if PlaybackControl(playlist).GetPlayer(player).GetCaption = iPlayer.GetCaption then begin
Result := true;
exit;
end;
Result := false;
end;
procedure OnPlayerStart(PlayerControl: IPlayerControl; Item: IPlaylistItem);
var
player, playlist: integer;
pl: IPlayerControl;
begin
if FindPlayer(PlayerControl, playlist, player) then
ComPort(2).SendStr(‘PORT ’ + IntToStr(player+3) + ’ 2’+#13#10);
end;
procedure OnPlayerStop(PlayerControl: IPlayerControl; Item: IPlaylistItem; Duration: int64);
var
player, playlist: integer;
pl: IPlayerControl;
begin
if FindPlayer(PlayerControl, playlist, player) then
ComPort(2).SendStr(‘PORT ’ + IntToStr(player+3) + ’ 0’+#13#10);
end;
begin
end.[/code]
Gibt es inzwischen eigentlich eine Alternative dazu, die Player über ihren Namen zu identifizieren (siehe erste Funktion)?
Danke und Gruß
Dominique Görsch