Studiomonitor und Cartwall

Deutsch / German Scripts
2

Servus,

das könnte man ähnlich wie in diesem Beispiel mittels eines kleinen Skripts lösen:

procedure OnPlayerStateChange(PlaylistIndex: integer; PlayerIndex: integer; 
  OldState: TPlayerState; NewState: TPlayerState; Item: IPlaylistItem);
begin
  if NewState = psPlaying then begin
    SetRuntimeData('CartIndex', '');
  end
end;

procedure OnCartwallPlayerStateChange(PlayerIndex: integer;
  OldState: TPlayerState; NewState: TPlayerState;
  Item: IAudioCartwallItem; PlaylistItem: IPlaylistItem;
  OnAirMode: TCartwallOnAirMode);
begin
  if NewState = psPlaying then begin
    SetRuntimeData('CartIndex', 'Es spielt Cartplayer ' + IntToStr(PlayerIndex));
  end
  else if NewState = psStopped then begin
    SetRuntimeData('CartIndex', '');
  end;
end;

begin
end.

Probier das mal aus. Das Skript installierst Du als Hintergrundskript, ins Log schreibst Du mit

%R{CartIndex}

Geloggte Grüße

TSD