"ON AIR Schalter" soll auf Verbindungsabbruch reagieren

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.

Myka · July 19, 2021, 8:40am

Grübel, grübel… Ich rieche ein Cross-Posting (von mir selbst), denn im Prinzip macht dieses hier ja genau das, was ich/wir wollen…

Wenn sich das hektische Blinken bei Verbindungsabbruch noch realisieren liesse und vielleicht auch das Polling durch die neue Funktion

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

ersetzen lässt, wäre das Skript, zumindest für alle die nur einen Encoder verwenden wie ich, glaube ich genau richtig und wohl dann auch recht elegant.

To do:

Bildschirmobjekt “Statischer Text”, Aktion beim Anklicken “Encoder connect/disconnect”, Fernsteuerungs-ID “ONAIRPRG”
Background-Skript (noch ohne die genannten Wünsche):

procedure OnLoad;
  begin
    EnableTimer(100);
  end;

procedure OnTimer;
  begin
    if (Encoder.GetConnections.GetItem(0).GetState = ecsConnected) then begin
      ExecuteCommand('ONAIRPRG TEXT ON AIR');
      ExecuteCommand('ONAIRPRG BACKGROUNDCOLOR #FF0000');
      ExecuteCommand('ONAIRPRG FONTCOLOR #FFFFFF');
      end	
    else if (Encoder.GetConnections.GetItem(0).GetState = ecsConnecting) then begin
      ExecuteCommand('ONAIRPRG TEXT !OFF AIR!');
      ExecuteCommand('ONAIRPRG FONTCOLOR #FFFFFF');
      ExecuteCommand('ONAIRPRG BACKGROUNDCOLOR #FF0000');
      Sleep(1000);
      end  
    else begin
      ExecuteCommand('ONAIRPRG BACKGROUNDCOLOR #00FF00');
      ExecuteCommand('ONAIRPRG FONTCOLOR #FFFFFF');
      ExecuteCommand('ONAIRPRG TEXT EDIT');
   end;
  end;

begin
end.

Das funktioniert so schon einmal. Die zusätzlichen Funktionen bzw. Änderungen einzubauen übersteigt dann doch bei weitem meine Fähigkeiten und ich wäre seeehr dankbar für Hilfe…

Schönen Wochenstart!

Tondose · July 19, 2021, 10:02am

Sollte eigentlich wurscht sein, aber schreibe mal

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

in eine einzige Zeile.

Myka · July 19, 2021, 11:04am

@Tondose:

Funktioniert leider nicht:

19.07.2021 13:02:10 Fehler       Fehler beim Laden des Hintergrund-Scripts D:\mAirList\scripts\Signal.mls: [Error] (31:101): 'THEN' expected

Irgendwo ist ein Knoten…

Tondose · July 19, 2021, 12:32pm

Oh, da scheint eine Klammer zuviel. Probiere:

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

Grmbl, wenn mal mal nicht am Ausprobierrechner sitzt …

Myka · July 19, 2021, 12:52pm

Danke @Tondose , nu’ geht’s!
Irgendwie muss ich jetzt noch die Texte zustandsbedingt verändern, also während des Verbindens als Anzeige “verbinde…”, “On AIr” & “Offline” oder ähnliches… Ich bastele mal…

Tondose · July 19, 2021, 1:02pm

Das machst Du, indem Du, wie beim zweiten, dem pollenden Skript, die Befehle jeweils in begin und end einpackst. Bzw. end;. Aber: keine Semikola vor else!

Myka · July 19, 2021, 1:31pm

Sodele, hab’s zu 90% hinbekommen! Das einzige, was nicht funktioniert, ist der Wechsel auf Gelb (miit entsprechendem Text), wenn ich dem Rechner die Internetverbindung kurz klaue zum Testen, da springt die Anzeige dann nur auf (in meinem Fall) Farbe Grün und Text “EDIT”.

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 begin
      ExecuteCommand(BUTTONNAME + ' BACKGROUNDCOLOR #00FF00');
	  ExecuteCommand(BUTTONNAME + ' TEXT EDIT');
	  end
    else if c = Count then begin
      ExecuteCommand(BUTTONNAME + ' BACKGROUNDCOLOR #FF000000');
	  ExecuteCommand(BUTTONNAME + ' TEXT ON AIR');
	  end
    else begin
      ExecuteCommand(BUTTONNAME + ' BACKGROUNDCOLOR #FFFF00');
	  ExecuteCommand(BUTTONNAME + ' TEXT !Verbinde...!');
	  end;
  finally
    Encoder.GetConnections.EndRead;
  end;
end;

begin
end.

Hab’ ich was falsch gemacht?