Naam veranderen

[Rob1961]

Goede middag allemaal.
Ik heb een vraagje.
Ben al een hele tijd aan het zoeken hoe in een naam kan veranderen in de sam.
Een voorbeeld:

radiobulletin naar NOS Journaal.
Zie onderstaande scrip

Code: Selecteer alles

var player, aux : TPlayer; 
PAL.Loop := True; 
WriteLn('Wachten tot xx:00:12');
PAL.WaitFortime('xx:00:12');

player := ActivePlayer; 
aux :=Aux1; 

WriteLn('Deleting old news'); 
Deletefile('C:\Nieuws\radiobuletin.mp3');
WriteLn('Downloading new news'); 
WebToFile('C:\Nieuws\radiobulletin.mp3','http://xxxxx.xx/xxxx/xxxxxxxxxx/radionieuws/radiobulletin.mp3');
WriteLn('Add news to queue');
Queue.AddFile('C:\jingle\welkomradioerosa.mp3',ipTop);
Queue.AddFile('C:\jingle\iederuur.mp3',ipTop);
Queue.AddFile('C:\Nieuws\radiobulletin.mp3',ipTop);
Queue.AddFile('C:\jingle\begintune.mp3',ipTop);
ActivePlayer.FadeTonext;
WriteLn('Add newstart to queue');

Ik hoor het graag ,
Groetjes Rob

[drOhimself]

Nou Rob, dat is een beetje een inkoppertje.... !

Verander :

Code: Selecteer alles

WebToFile('C:\Nieuws\radiobulletin.mp3','http://xxxxx.xx/xxxx/xxxxxxxxxx/radionieuws/radiobulletin.mp3');

naar:

Code: Selecteer alles

WebToFile('C:\Nieuws\NOS Journaal.mp3','http://xxxxx.xx/xxxx/xxxxxxxxxx/radionieuws/radiobulletin.mp3');

en onderaan in het script verander je ook de naam.

[Rob1961]

Je bent geweldig kerel. [smilie=yahoo.gif]
THx voor de medewerking.

Tevens wil ik iedereen een gezond 2015 wensen.