mAirList MiniClock

[Flo811]

Hallo liebe mAirList Gemeinde!

Ich habe diese Uhr hier gefunden: http://www.charliedavy.co.uk/software.php#MiniClock

Nun Probiere ich seit einigen Tagen und Stunden, die Uhr zum Laufen zu kriegen, aber es passiert einfach nichts.
Auch hier im Forum habe ich einige Scripts gefunden, die aber dann die mAirList zum absturz bringen.

Verwendete Version: 2.2.2 Build 545

Verwendetes Notification Script:

Code: [Select]

var sl: TStringList;

procedure OnOnAir;
begin
sl := TStringList.Create;
sl.Add('[OnAir]');
sl.Add('Status=1');
sl.SaveToFile('S:\ONAIRSTATUS.txt');
sl.Free;
end;

procedure OnOffAir;
begin
sl := TStringList.Create;
sl.Add('[OnAir]');
sl.Add('Status=0');
sl.SaveToFile('C:\ONAIRSTATUS.txt');
sl.Free;
end;

procedure OnCartPlayerStop(PlayerControl: IPlayerControl; Item: IPlaylistItem; Duration: int64);
begin
sl := TStringList.Create;
sl.Add('[EOM]');
sl.Add('Status=0');
sl.SaveToFile('C:\mAirList\EOMSTATUS.txt');
sl.Free;
end;

procedure OnCartPlayerEOFWarning(PlayerControl: IPlayerControl; Item: IPlaylistItem);
begin
sl := TStringList.Create;
sl.Add('[EOM]');
sl.Add('Status=1');
sl.SaveToFile('C:\mAirList\EOMSTATUS.txt');
sl.Free;
end;

procedure OnPlayerStop(PlayerControl: IPlayerControl; Item: IPlaylistItem; Duration: int64);
begin
sl := TStringList.Create;
sl.Add('[EOM]');
sl.Add('Status=0');
sl.SaveToFile('C:\mAirList\EOMSTATUS.txt');
sl.Free;
end;

procedure OnPlayerEOFWarning(PlayerControl: IPlayerControl; Item: IPlaylistItem);
begin
sl := TStringList.Create;
sl.Add('[EOM]');
sl.Add('Status=1');
sl.SaveToFile('C:\mAirList\EOMSTATUS.txt');
sl.Free;
end;

sl := TStringList.Create;
sl.Add(Item.GetArtist + ' - ' + Item.GetTitle);
sl.SaveToFile('C:\mAirList\currentsong.txt');
sl.Free;
Ich hoffe es kann jemand helfen.

[astrosgoalie]

Hi

Ich habs mit MAirList 3.1 Probiert. Da habe ich Probleme das Skript zu laden, "BEGIN execpt" Die Uhr selber läuft. Hast du sie Configuriert und die Files in dem mAirList-Ordner erstellt? Welches OS?

Code: [Select]

var sl: TStringList;

procedure OnOnAir;
begin
sl := TStringList.Create;
sl.Add('[OnAir]');
sl.Add('Status=1');
sl.SaveToFile('S:\ONAIRSTATUS.txt');
sl.Free;
end;

procedure OnOffAir;
begin
sl := TStringList.Create;
sl.Add('[OnAir]');
sl.Add('Status=0');
sl.SaveToFile('C:\ONAIRSTATUS.txt');
sl.Free;
end;

procedure OnCartPlayerStop(PlayerControl: IPlayerControl; Item: IPlaylistItem; Duration: int64);
begin
sl := TStringList.Create;
sl.Add('[EOM]');
sl.Add('Status=0');
sl.SaveToFile('C:\mAirList\EOMSTATUS.txt');
sl.Free;
end;

procedure OnCartPlayerEOFWarning(PlayerControl: IPlayerControl; Item: IPlaylistItem);
begin
sl := TStringList.Create;
sl.Add('[EOM]');
sl.Add('Status=1');
sl.SaveToFile('C:\mAirList\EOMSTATUS.txt');
sl.Free;
end;

procedure OnPlayerStop(PlayerControl: IPlayerControl; Item: IPlaylistItem; Duration: int64);
begin
sl := TStringList.Create;
sl.Add('[EOM]');
sl.Add('Status=0');
sl.SaveToFile('C:\mAirList\EOMSTATUS.txt');
sl.Free;
end;

procedure OnPlayerEOFWarning(PlayerControl: IPlayerControl; Item: IPlaylistItem);
begin
sl := TStringList.Create;
sl.Add('[EOM]');
sl.Add('Status=1');
sl.SaveToFile('C:\mAirList\EOMSTATUS.txt');
sl.Free;
end;

sl := TStringList.Create;
sl.Add(Item.GetArtist + ' - ' + Item.GetTitle);
sl.SaveToFile('C:\mAirList\currentsong.txt');
sl.Free;

// Set DTR pin on Serial Port HIGH
// used to signal external RDS unit to enable TRAFFIC FLAG

var sl: TStringList;

begin
if Engine.GetOnAir = False then begin
SystemLog('mAirList is in production mode, so no action taken...');

end

else
if Engine.GetOnAir = True then begin
ComPort(1).SetParameters(9600, 8, 'N', 1);
ComPort(1).Open;
IOPort($3FC).WriteOR(1);
sl := TStringList.Create;
sl.Add('[TRAFFIC]');
sl.Add('Status=1');
sl.SaveToFile('C:\mAirList\TRAFFICFLAG.txt');
sl.Free;
SystemLog('Traffic Flag ACTIVE ...');
end;
end.

// Set DTR pin on Serial Port LOW
// used to signal external RDS unit to disable TRAFFIC FLAG

var sl: TStringList;

begin
if Engine.GetOnAir = False then begin
SystemLog('mAirList is in production mode, so no action taken...');

end

else

begin
IOPort($3FC).WriteAnd(254);
sl := TStringList.Create;
sl.Add('[TRAFFIC]');
sl.Add('Status=0');
sl.SaveToFile('C:\mAirList\TRAFFICFLAG.txt');
sl.Free;
SystemLog('Traffic Flag DISABLED ...');
end;
end.



[Flo811]

Konfiguriert ist es, es funktioniert auch, nur bei mAirList wird nichts ausgelesen.
OS: Windows XP Prof Service Pack 3

[lifechannel]

Hallo,

wechsle doch auf die neuste 3.1.x Version. Es lohnt sich.
Was genau willst Du mit Deinen Scripts machen?

Michel

[Flo811]

Was ich damit machen will steht doch oben. Ich möchte diese Uhr betreiben. Nur zeigt er mir dauernd Fehlermeldungen an.
Auf die 3.1. würde ich wechseln, nur habe ich momentan echt kein Geld über.

[lifechannel]

ach so 
Poste mal die Fehlermeldungen

[Flo811]

Das Problem ist, er zeigt eine Meldung in einem Bruchteil einer Sekunde an. Dann kommt sofort die Windows Problembericht meldung.

[lifechannel]

Da scheint der Syntax in Deinem Script nicht zu stimmen. Kannst Du mir dieses Script als Datei posten.

[Charlie]

In my best "Allo, Allo" German:
Mein Beispiel-Skripte sind zur Demonstration, müssen Sie sie in ein Skript schreiben, um für sie zu arbeiten. Sie arbeiten nicht als ein großes Script:)

My sample scripts are for demonstration, you will need to write them into a script for them to work. They do not work as one big script

[Flo811]

Oh Thank you Charlie. So i had to write a lot of Scripts?
Oh my God, my Scripting is so bad. But i will try! :-)

[pas_onair]

Könntest die Scripts bitte zur Verfügung stellen Flo811. :-)

Danke!!!

[Flo811]

Wenn ich ehrlich bin, ich hab sie noch nicht Fertig :-)

[byoil]

Bei uns läufen die Skripte auch mit mAirList 2.2.2.
Es stimmt aber, dass die Syntax fehlerhaft ist. Es fehlt irgendwo noch ein "Begin", ein "End" und ein paar Semikolons.
Ich kann dir die Skripte schicken, wenn ich das nächste mal im Sender war.
Du brauchst drei Skripte. Eins für die Titelanzeige, eines für OnAir und eines für die EOF-Warnung.
Wenn du den Traffic-Kram auch noch nutzen möchtest, nochmal zwei dazu. Eines zum Setzen und eines zum wieder wegnehmen.

Aber alles kein Hexenwerk.