"ON AIR Schalter" soll auf Verbindungsabbruch reagieren

Tondose · May 21, 2021, 6:54am

Bei der Gelegenheit kommt mir in den Sinn, mal wieder anzufragen, ob der dringende Wunsch nach einer procedure OnEncoderConnectionStateChange(…); noch in @Torben s Blickpunkt ist.

UliNobbe · May 21, 2021, 1:03pm

Ja, ist es, aber Torben muss da an mehreren Stellen im Code ansetzen.
In Dortmund gibt es zwar keinen Wäldchestag, aber vielleicht, wer weiß…

UliNobbe · May 21, 2021, 1:59pm

Ja ist denn schon Wäldchestag?
Nein, aber das Freitags-Update.

Bitte mal v6.3.11 Build 4433 testen:

Version 6.3.11 Build 4433 (2021-05-21)

(...)
[+] Background scripts: Added OnEncoderConnectionStateChange

Tondose · May 21, 2021, 3:55pm

(Testbericht folgt.)

Tondose · May 22, 2021, 8:29am

Zwecks Ausprobieren: Welche Variablen werden der Prozedur denn mitgegeben?

UliNobbe · May 22, 2021, 11:28am

Sorry, das ist leider nicht bekannt. Ich bin an der Stelle tatsächlich nur der Überbringer der guten Nachricht.

Tondose · May 22, 2021, 12:01pm

Na, dann müssen wir halt noch ein wenig herwarten. Klebe @Torben doch bitte einen gelben Zettel auf den Schreibtisch.

Tondose · May 31, 2021, 8:03am

@Torben: Welche Variablen bringt denn diese Prozedur mit?

Torben · May 31, 2021, 8:16am

Die Antwort befindet sich - wie immer - im Background Script Template.mls im Programmverzeichnis:

// Called when the state of an encoder connection changes
procedure OnEncoderConnectionStateChange(Connection: IEncoderConnection; OldState, NewState: TEncoderConnectionState);
begin
end;

Tondose · May 31, 2021, 9:08am

Ups, die hatte ich natürlich übersehen, sorry.

Tondose · May 31, 2021, 9:16am

Frage noch dazu: Wie packe ich die IEncoderConnection an? Also:

if Connection = … then

Wie hat die Abfrage auszusehen? Etwa

if Connection.GetCustomCaption = 'Encodername' then

?

Torben · May 31, 2021, 9:34am

Ja, über die CustomCaption zu gehen wäre eine Möglichkeit.

Oder du ermittelst den 0-basierten-Index in der Liste der Verbindungen:

idx := Encoder.GetConnections.IndexOf(Connection);

Tondose · May 31, 2021, 2:36pm

Funktioniert:

const
  BUTTONNAME = 'SIGNAL.ENC';

var
  Count: integer;
  EncoderState: Array of integer;

procedure OnLoad; 
var
  i: integer;
begin
  Count := Encoder.GetConnections.GetCount;
  SetLength(EncoderState, Count);
  for i := 0 to Count - 1 do
  begin
    if Encoder.GetConnections.GetItem(i).GetState = ecsConnected then
      EncoderState[i] := 1
    else
      EncoderState[i] := 0;
  end;
end;

procedure OnEncoderConnectionStateChange(Connection: IEncoderConnection; 
  OldState, NewState: TEncoderConnectionState);
var
  i, c: integer;
begin
  i := Encoder.GetConnections.IndexOf(Connection);
  if NewState = ecsConnected then
    EncoderState[i] := 1
  else if (NewState = ecsDisconnected) AND (OldState = ecsConnected) then
    EncoderState[i] := 0;
  c := 0;
  Encoder.GetConnections.BeginRead;
  try
    for i := 0 to Count - 1 do
      c := c + EncoderState[i];
    if c = 0 then
      ExecuteCommand(BUTTONNAME + ' BACKGROUNDCOLOR #FF0000')
    else if c = Count then
      ExecuteCommand(BUTTONNAME + ' BACKGROUNDCOLOR #00FF00')
    else
      ExecuteCommand(BUTTONNAME + ' BACKGROUNDCOLOR #FFFF00');
  finally
    Encoder.GetConnections.EndRead;
  end;
end;

begin
end.

[Statischer Text namens SIGNAL.ENC ändert die Farbe:

Grün: Alle Encoder sind verbunden,
rot: Kein Encoder ist verbunden,
gelb: Mindestens ein Encoder (jedoch nicht alle) ist getrennt.]

Danke, @Torben!

shorty.xs · June 11, 2021, 6:14am

Ich bin ja kein Freund von Polling Scripten und würde gerne das Script was wir hier gebastelt haben: Ansteuerung des OnAirScreen - #19 by shorty.xs Mit dieser neuen Funktion aufbereiten.

Kann ich da einfach die Zeile procedure OnTimer austauschen und das neue Procedure nutzen?
Gilt das setzen eines Hakens oder das entfernen eines Hakens, innerhalb der Einstellungen auch als State Change?

Tondose · June 11, 2021, 3:34pm

Ja, dafür ist es gemacht. Du mußt das Skript halt entsprechend anpassen. Ich hatte es mit Setzen und Entfernen von Haken ausprobiert und es klappt.

Myka · July 16, 2021, 8:55am

Hmm…

Ich hatte da so die schräge Idee, dieses Skript bzw. die Funktionalität mit dem hier zu ersetzen, aber: Das Skript wird erfolgreich geladen, die Anklick-Funktionen (s. u.) klappen, aber es ändert sich farbentechnisch nichts.

Mein Weg:
Ich habe einen statischen Text namens SIGNAL.ENC (als Anklick-Aktion wird der Encoder gestartet/getrennt) sowie das Skript als *.mls abgespeichert und natürlich dann als Background-Script laufen. Es ist nur ein Encoder eingerichtet bei mir. Hab ich etwas vergessen?

@UliNobbe : Kann wohl auch in die Skript-Ecke verschoben werden, denke ich…

hlippke · July 18, 2021, 1:16pm

Ich krieg dieses Script nicht richtig zum laufen. Leider auch keine Fehlermeldung, deshalb bin ich etwas ratlos.

Ich habe:

Einen Statischen Text mit der Fernsteuerungs-ID “SIGNAL.ENC”. Den kann ich auch per Kommando erreichen (über die Fernsteuerungskonsole kann ich den umfärben und so)
Das Script als Hintergrundscript gestartet
Bekomme beim Start einen grünen Button, weil der Encoder sich erfolgreich verbunden hat

Wenn ich jetzt aber meinen VPN Kanal zum Icecast-Server trenne um einen Ausfall zu simulieren, geht der Encoder-Status von Online (1/1) auf Verbinde… (0/1) aber meine SIGNAL.ENC Anzeige bleibt grün. Sollte sie nicht gelb werden?
Wenn ich den Encoder manuell trenne, wird die Anzeige rot.

Tondose · July 19, 2021, 5:45am

Keine Fehlermeldung, weil alles so läuft wie vorgesehen:

Wie gesagt:

Du betreibst nur einen einzigen Encoder. Trennst Du ihn (indem Du das Häkchen entfernst), sind also alle getrennt, die Anzeige leuchtet rot.

Korrekt, denn die Anzeige reagiert auf vollständige Trennung („disconnected“). Klaust Du des Encoders Verbindung, so will er sich möglichst schnell wiederaufschalten, der Zustand ist also ein anderer („connecting“).

Ersetze die Zeile

else if (NewState = ecsDisconnected) AND (OldState = ecsConnected) then

durch

else if ((NewState = ecsDisconnected) OR (NewState = ecsConnecting)) 
  AND (OldState = ecsConnected)) then

Dann funktioniert es auch für Deine Anforderung. (Was in der Praxis ja auch sinnvoll ist. Das obige Skript war eher ein Beispiel für die Funktionalität der Prozedur.)

Myka · July 19, 2021, 7:55am

Moin!

Ich bekomme folgenden Fehler:

19.07.2021 09:45:47 Fehler       Fehler beim Laden des Hintergrund-Scripts D:\mAirList\scripts\Signal.mls: [Error] (32:32): 'THEN' expected

Das Skript sieht bei mir so aus:

const
  BUTTONNAME = 'SIGNAL.ENC';

var
  Count: integer;
  EncoderState: Array of integer;

procedure OnLoad; 
var
  i: integer;
begin
  Count := Encoder.GetConnections.GetCount;
  SetLength(EncoderState, Count);
  for i := 0 to Count - 1 do
  begin
    if Encoder.GetConnections.GetItem(i).GetState = ecsConnected then
      EncoderState[i] := 1
    else
      EncoderState[i] := 0;
  end;
end;

procedure OnEncoderConnectionStateChange(Connection: IEncoderConnection; 
  OldState, NewState: TEncoderConnectionState);
var
  i, c: integer;
begin
  i := Encoder.GetConnections.IndexOf(Connection);
  if NewState = ecsConnected then
    EncoderState[i] := 1
  else if ((NewState = ecsDisconnected) OR (NewState = ecsConnecting)) 
  AND (OldState = ecsConnected)) then
    EncoderState[i] := 0;
  c := 0;
  Encoder.GetConnections.BeginRead;
  try
    for i := 0 to Count - 1 do
      c := c + EncoderState[i];
    if c = 0 then
      ExecuteCommand(BUTTONNAME + ' BACKGROUNDCOLOR #FF0000')
    else if c = Count then
      ExecuteCommand(BUTTONNAME + ' BACKGROUNDCOLOR #00FF00')
    else
      ExecuteCommand(BUTTONNAME + ' BACKGROUNDCOLOR #FFFF00');
  finally
    Encoder.GetConnections.EndRead;
  end;
end;

begin
end.

Nebenbei noch eine Frage: Ich würde gerne auch den Button-Text dem Zustand entsprechend anpassen, im Moment erschliesst sich mir nämlich nicht, ob das Skript dieses tut…

UliNobbe · July 19, 2021, 8:06am

Mit einem erweiterten Button vielleicht? Mal prüfen, ob und wie das ginge.