Verschillende files downloaden van de ftp

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
Rob1961
**
Berichten: 37
Lid geworden op: 17 nov 2014, 18:16
SAM-versie: 4.9.4.
Database: MySQL 5.5
Windows: 7 32-bits

Verschillende files downloaden van de ftp

Ongelezen bericht door Rob1961 » 18 sep 2018, 11:38

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

Gebruikersavatar
Rob1961
**
Berichten: 37
Lid geworden op: 17 nov 2014, 18:16
SAM-versie: 4.9.4.
Database: MySQL 5.5
Windows: 7 32-bits

Re: Verschillende files downloaden van de ftp

Ongelezen bericht door Rob1961 » 18 sep 2018, 14:47

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

Code: Selecteer alles

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

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

Gebruikersavatar
Rob1961
**
Berichten: 37
Lid geworden op: 17 nov 2014, 18:16
SAM-versie: 4.9.4.
Database: MySQL 5.5
Windows: 7 32-bits

Re: Verschillende files downloaden van de ftp

Ongelezen bericht door Rob1961 » 18 sep 2018, 17:51

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.
:D :D :D :D

Gebruikersavatar
drOhimself
Moderator
Berichten: 2940
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Verschillende files downloaden van de ftp

Ongelezen bericht door drOhimself » 19 sep 2018, 23:37

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


Sent from my iPhone using Tapatalk
Groedjez,
drO

Gebruikersavatar
Rob1961
**
Berichten: 37
Lid geworden op: 17 nov 2014, 18:16
SAM-versie: 4.9.4.
Database: MySQL 5.5
Windows: 7 32-bits

Re: Verschillende files downloaden van de ftp

Ongelezen bericht door Rob1961 » 20 sep 2018, 10:42

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

Gebruikersavatar
drOhimself
Moderator
Berichten: 2940
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Verschillende files downloaden van de ftp

Ongelezen bericht door drOhimself » 21 sep 2018, 11:24

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.
Groedjez,
drO

Gebruikersavatar
Rob1961
**
Berichten: 37
Lid geworden op: 17 nov 2014, 18:16
SAM-versie: 4.9.4.
Database: MySQL 5.5
Windows: 7 32-bits

Re: Verschillende files downloaden van de ftp

Ongelezen bericht door Rob1961 » 24 sep 2018, 13:23

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

Gebruikersavatar
Wout
Moderator
Berichten: 3217
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: SAM 2018.10
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Verschillende files downloaden van de ftp

Ongelezen bericht door Wout » 24 sep 2018, 18:02

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.
Afbeelding

Gebruikersavatar
Rob1961
**
Berichten: 37
Lid geworden op: 17 nov 2014, 18:16
SAM-versie: 4.9.4.
Database: MySQL 5.5
Windows: 7 32-bits

Re: Verschillende files downloaden van de ftp

Ongelezen bericht door Rob1961 » 24 sep 2018, 20:26

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.

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht