Verschillende files downloaden van de ftp

[Rob1961]

Goede middag allemaal.
Ik zoek een script om 6 files van de ftp te halen en die s'morgens om 07.00 uur in de sam te laten draaien.
En dit van Maandag tot en met vrijdag.
De files blijven het zelfde naam houden.
Ik hoor graag van jullie.
Ik had al gezocht op ftp hier op de site. Maar kreeg steeds een fout melding dat de pagina of bericht niet meer bestaad.
Ik hoor graag van jullie.
Met vriendelijk groet Rob

[Rob1961]

Ik ben al iets verder
Heeft iets te maken met het volgende

Code: Selecteer alles

ftp://username:password@hostname/xxxx.mp3

of het moet zo

Code: Selecteer alles

ftp://ftp_username:password@hostname/xxxx.mp3

Denk ik.
ik hoor het graag, want dan kan ik het in een PAL verwerken

Oke het downloaden gaat perfect met deze code

Code: Selecteer alles

ftp://username:password@hostname/xxxx.mp3

Vogende
Wil ik graag dat de gehele map leeg wordt gemaakt.
Voor een file gebruik ik deze.

Code: Selecteer alles

WriteLn('Deleting klapper');
Deletefile('C:\klapper\klapper.mp3');

Wat moet ik gebruiken voor een map leeg te gooien

[Rob1961]

Oke hier bijna het eind resusltaat.

Code: Selecteer alles

var player, aux : TPlayer;
PAL.Loop := False;
WriteLn('Wachten tot 06:00:00');
PAL.WaitFortime('06:00:00');

player := ActivePlayer;
aux :=Aux1;

WriteLn('Deleting ochtend show');
Deletefile('C:\ochtend\maandag\Bart Ochtendshow4.mp3');
Deletefile('C:\ochtend\maandag\Bart Ochtendshow3.mp3');
Deletefile('C:\ochtend\maandag\Bart Ochtendshow2.mp3');
Deletefile('C:\ochtend\maandag\Bart Ochtendshow1.mp3');
WriteLn('Downloading ochtend show');
WebToFile('C:\ochtend\maandag\Bart Ochtendshow1.mp3','ftp://user:passwoord@hostname/Uwmp3.mp3');
WebToFile('C:\ochtend\maandag\Bart Ochtendshow2.mp3','ftp://user:passwoord@hostname/Uwmp3.mp3');
WebToFile('C:\ochtend\maandag\Bart Ochtendshow3.mp3','ftp://user:passwoord@hostname/Uwmp3.mp3');
WebToFile('C:\ochtend\maandag\Bart Ochtendshow4.mp3','ftp://user:passwoord@hostname/Uwmp3.mp3');
WriteLn('Add ochtend show to queue');
Queue.AddFile('C:\ochtend\maandag\Bart Ochtendshow4.mp3',ipTop);
Queue.AddFile('C:\ochtend\maandag\Bart Ochtendshow3.mp3',ipTop);
Queue.AddFile('C:\ochtend\maandag\Bart Ochtendshow2.mp3',ipTop);
Queue.AddFile('C:\ochtend\maandag\Bart Ochtendshow1.mp3',ipTop);
ActivePlayer.FadeTonext;
WriteLn('Add newstart to queue');

Oke nu is mijn vraag .
Ik wil graag dat hij om 06.30 uur begint.
Van Maandag tot Vrijdag.(Dat kan ik regelen met de event schedule)
dan dat hij na het journaal er in knalt.
Voor journaal heb ik een extra PAL.
En misschien is er iemand die zegt van:
Hey Rob dat moet je anders doen.
Dus ik hoor het wel.

[drOhimself]

Ik weet bijna zeker dat je tweeling-broer ‘Rob1961’ straks wel antwoord gaat geven op je vraag.....


Sent from my iPhone using Tapatalk

[Rob1961]

Ik weet wat je bedoeld.
Maar kon de berichten niet verder bewerken en editeren.
Anders had ik het wel bij 1 bericht gelaten.

[drOhimself]

Pas de eerste regels van je PALscript aan,

van

Code: Selecteer alles

var player, aux : TPlayer;
PAL.Loop := False;
WriteLn('Wachten tot 06:00:00');
PAL.WaitFortime('06:00:00');

naar

Code: Selecteer alles

var player, aux : TPlayer;
PAL.Loop := False;
WriteLn('Wachten tot 06:30:00');
PAL.WaitFortime('06:30:00');

dan zal ie pas om 6:30 starten.

[Rob1961]

Thx voor je antwoord.
Maar zit met het volgende probleem.

Code: Selecteer alles

var player, aux : TPlayer;
PAL.Loop := False; (al geprobeerd met True en False)
WriteLn('Wachten tot 06:30:00');
PAL.WaitFortime('06:30:00');

Maar het PAL script blijft door lopen.
Ik hoor het graag.

Ook is een vraag hoe kan ik een PAL laten stoppen en starten .
Dus van Maandag tot en met Vrijdag om 06.45 uur uit en 09.30 uur weer aan

[Wout]

Het klopt dat de PAL blijft lopen.
Als de tijd is verstreken dan blijf hij daar niet op wachten.
M.a.w. als de PAL pas vanaf 13:00 mag starten maar het is al 14:00 zal hij niet wachten. Die tijd (13:00) is immers al verstreken.
Is de tijd nog niet geweest dan wacht hij wel.

Als voorbeeld, het is 14:00
De PAL.WaitForTime('13:00:00') zal hij overstappen maar bij PAL.WaitForTime('15:00:00') zal hij blijven wachten tot 15:00.
Als het 15:00 is zal beide Wait-commando`s niet meer werken voor die dag. Na middernacht wordt de 2 Wait-commando`s opnieuw geactiveerd.

[Rob1961]

Yeps het loopt als een zonnetje. ( Tenminste met proef op stelling.)

Nu zoek ik alleen nog hoe ik het journaal niet tussen 7 uur en 9 uur niet actief is.
De code heb ik zo

Code: Selecteer alles

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

player := ActivePlayer;
aux :=Aux1;

WriteLn('Deleting old news');
Deletefile('C:\Nieuws\NOS Nieuws.mp3');
WriteLn('Downloading new news');
WebToFile('C:\Nieuws\NOS Nieuws.mp3','http://costumer-url.mp3');
WriteLn('Add news to queue');
Queue.AddFile('C:\jingle\jingle.mp3',ipTop);
Queue.AddFile('C:\jingle\iederuur.mp3',ipTop);
Queue.AddFile('C:\Nieuws\Nieuws.mp3',ipTop);
Queue.AddFile('C:\jingle\begintune.mp3',ipTop);
ActivePlayer.FadeTonext;
WriteLn('Add newstart to queue');

De bovenstaande code zou ik graag willen dat hij niet om 7 tot 9 uur wat doet.
Dus voorbeeld dat hij om 06.45 uur stopt en om 09:15 uur weer gaat lopen.
Van maandag tot vrijdag.
Zaterdag en zondag weer normaal.