PAL script bepaalde rds

[John Winter]

Hallo, is het mogelijk om in de rds, de tijd en datum te zetten plus de radio zender ?

Groetjes

Johnny

[Kees]

Hallo, is het mogelijk om in de rds, de tijd en datum te zetten plus de radio zender ?

Groetjes

Johnny

RDS ?? Waar moet ik in SAM RDS vandaan halen ?

[John Winter]

Hallo Kees, bedoelde de titel weergave, waar je bijvoorbeeld de destbetreffende artiest ziet, wil ik dan datum en tijd, eventueel het programma, en dan stations naam.

weet niet of dat mogelijk is.


groetjes
Johnny

[ojee66]

Code: Selecteer alles

var CurSong : TSongInfo;
var Song : TSongInfo;
VAR RDS,XML : String;

PAL.Loop:=True;

Song := ActivePlayer.GetSongInfo;

if Song = nil then

WriteLn('No song loaded into Active Player!')

else
if ActivePlayer.Duration < 9000 then

WriteLn ('Jingle or promo is playing')

else
begin

  WriteLn('Artist: '+Song['artist']);
  WriteLn('Title: '+Song['title']);
  WriteLn('Album: '+Song['album']);
  WriteLn('Duration: '+Song['duration']);
// To Do
// gegevens in hoofdletters.
// gegevens netjes in blokjes van 8 karakters en gecentreerd


  
RDS :=  Song['artist']+ ' - ' + Song['title'];
{#2 Save string to file}
if not StrToFile('c:\rdsinfo\test.txt',RDS) then
  WriteLn('Oops! There was a problem writing the file..');

end;
PAL.WaitForPlayCount(1);
Song.Free; 

gebruik een rdsstudio om het gemaakte bestandje uit te lezen en naar de decoder via seriele verbinding te sturen.
En zoals je leest er zitten nog een paar dingetjes in om aan te passen.
Hoofdletters en blokken van 8 letters maken