Outputfile schrijven ipv naar encoders

[Qtronix]

Hallo,

na lange tijd weer een klein beetje de draad aan het oppakken om weer eens wat met PAL scripts te gaan doen. Nu heb ik een script ooit gevonden om een extra tekst bij de track artiest info mee te sturen die de stream dan mee zou nemen. Nu staat dat voor zover ik nog zie en begrijp alleen naar de encoders geschreven. Ik gebruik de encoders van sam zelf niet om te streamen, maar ga naar een externe stream pc met breakaway audio processor. Ik heb daar een tekstfile voor nodig die hij dan inleest. Nu doe ik dat via de html output van sam zelf. Werkt uiteraard prima. Ik kan dan niet de extra tekst erbij zetten.
Ben benieuwd of dat mogelijk is.

Code: Selecteer alles

PAL.Loop := True;
var Song : TSongInfo;
var myCurrentSong : TSongInfo;
myCurrentSong := ActivePlayer.GetSongInfo;
Song := TSongInfo.Create;
Song['title'] := 'Hier je vrije tekst' + ' ' + ActivePlayer.GetSongInfo['artist'] + ' - ' + ActivePlayer.GetSongInfo['title'];
    Encoders.SongChange(Song);
    Song.Free;

[renem]

Ik snap je vraag niet helemaal omdat je het antwoord op je vraag al bijna zelf geeft. Maar ik begrijp dat je een tekstbestandje nodig hebt om naar een andere encoder te sturen voor wat er momenteel speelt? Ik gebruik de encoders van Sam zelf ook niet. Ik gebruik BUTT. Die heeft ook een tekstbestand nodig. Bij mij draait daarom dit Nowplaying script en is bijna gelijk aan jou eigen script

Code: Selecteer alles

PAL.MemoryLeakWarning := True;
PAL.Loop := True;

var myCurrentSong : TSongInfo;

PAL.WaitForTime(T['+00:00:05']);

myCurrentSong := ActivePlayer.GetSongInfo;

if ((myCurrentSong['songtype'] = 'S') or (myCurrentSong['songtype'] = 'A') or (myCurrentSong['songtype'] = 'P') or (myCurrentSong['songtype'] = 'N') or (myCurrentSong['songtype'] = 'C')) then

begin
    SaveStringToFile('c:\BUTT\Nowplaying.txt', (myCurrentSong['artist'] + ' - ' + myCurrentSong['title']));
    PAL.WaitForPlayCount(1);
end;

Hopelijk kun je hier wat mee

[Qtronix]

Ik ga ermee aan de slag ik laat weten of het me lukt op deze manier. Het enige wat ik miste was de outpufile te krijgen in een tekst bestandje.

bedankt voor het meedenken

[Qtronix]

Ondertussen heb ik het getest en het werkt bijna zoals zou moeten, alleen heb ik in mij stukje script het gedeelte staan van vrije tekst. Daar wil ik mee stoeien zegmaar.

[renem]

Volgens mij is dat heel simpel, ik kan het niet testen maar ik denk dat dit het dan moet zijn:

Code: Selecteer alles

PAL.MemoryLeakWarning := True;
PAL.Loop := True;

var myCurrentSong : TSongInfo;

PAL.WaitForTime(T['+00:00:05']);

myCurrentSong := ActivePlayer.GetSongInfo;

if ((myCurrentSong['songtype'] = 'S') or (myCurrentSong['songtype'] = 'A') or (myCurrentSong['songtype'] = 'P') or (myCurrentSong['songtype'] = 'N') or (myCurrentSong['songtype'] = 'C')) then

begin
    SaveStringToFile('c:\BUTT\Nowplaying.txt', ('Hier je vrije tekst' + myCurrentSong['artist'] + ' - ' + myCurrentSong['title']));
    PAL.WaitForPlayCount(1);
end;

[Qtronix]

Ik was er uiteindelijk bijna, ik had een ( niet goed staan.

dankjulliewel voor het meedenken kan ik verder met het uitwerken van het totaalplaatje.