Alleen werkte het niet helemaal vlekkeloos bij mijn. [smilie=no.gif]
En ik wilde graag dat mijn programma-naam (8@80@8:00 etc..) erin kwam.
Tevens moest hij rusten tot xx:03, omdat ik na het nieuws een teaser afspeel waarbij er 3 willekeurige commin`up nummers komen.
Anders plaats hij ze direct in Twitter terwijl dat nog niet de bedoeling is.
Wat eerst te doen.
Eerst neem je een Twitter-account.
Dan registreer je je eigen bij http://www.sam-song.info en voeg het toe in je Twitter.
Dan kan je de orginele script gebuiken of de aangepaste van mij.
Letop! wel de userid aanpassen! (sta nu op ***, maar dat wordt dan jouw Twitter-naam die vanuit sam-song.info wordt gegeven)
Code: Selecteer alles
{Orgineel idee is van http://www.sam-song.info}
PAL.loop := True ;
// variabelen aanwijzen.
var Song : TSongInfo;
var statusmessage, getstr, tijd, prog : String;
var D : DateTime;
// wacht totdat nummer is afgelopen
PAL.WaitForPlayCount(1);
// herhalen totdat de songtype S is
repeat
// tijd omzetten zonder de : erin
D := T['+00:00:00'];
// dat gebeurd hier hh (uur) nn (minuten)
tijd := FormatDateTime('hhnn', D);
// active deck wordt met onderstaand uitgelezen, bij herhaling wordt steeds verse info gehaald
Song := ActivePlayer.GetSongInfo();
// als songtype S is dan starten met begin, anders herhalen totdat het ooit songtype S wordt
if ( Song['songtype'] = 'S' ) then
begin
// als de tijd tussen 0800 & 0803 is dan is prog 8@80@8 en ga naar het volgende begin
if ((tijd >= '0800') and (tijd < '0803')) then
prog := '8 Hits @ The 80`S @ 08:00 @WoutFM'
else if ((tijd >= '0900') and (tijd < '0903'))
then prog := '9 Hits @ The 90`S @ 09:00 @WoutFM'
else if ((tijd >= '2000') and (tijd < '2003'))
then prog := '8 Hits @ The 80`S @ 20:00 @WoutFM'
else if ((tijd >= '2100') and (tijd < '2103'))
then prog := '9 Hits @ The 90`S @ 21:00 @WoutFM'
// bij geen resultaat van tijd dan = songtype S, active deck artiest & titel
else if ( Song['songtype'] = 'S' ) then
begin
prog := Song['artist'] + ' - ' + Song['title'];
end;
// alle tekst in hoofdletters
prog := UpperCase(prog);
// de tekst gaat hier naar Twitter toe
begin
// de tekst wordt omgezet in hexidecimale vormen (spatie is eigenlijk %20)
statusmessage := urlencode(prog);
getStr := 'http://sam-song.info/twitter/?message=' + statusmessage + '&userid=***';
WebToStr(getStr);
end;
end;
until ( Song['songtype'] = 'S' );
// de tijd wordt nu omgezet in minuten
tijd := FormatDateTime('nn', D);
// als tijd tussen xx:00 & xx:03 zit dan wachten tot xx:03 (3 minuten over het uur)
if ((tijd >= '00') and (tijd < '03')) then
PAL.WaitForTime(T['XX:03:00']);
//Wout Franken, BroadcasterForum.nl, 1 feb 2011 viewtopic.php?f=81&t=3491&start=60#p22100
ff proberen maar weer [smilie=wink3.gif]
??
sorry :$