Categorie zichtbaar & verborgen playlist request (vb. Kerst)

Voor vragen over Playlist Automation Language.
Plaats reactie
Axolytron
Beginnende SAM-gebruiker
Berichten: 9
Lid geworden op: 19 jan 2020, 21:05
SAM-versie: SAM 2020.2
Database: MariaDB
Windows: Windows 10
Locatie: Zuid-holland
Contacteer:

Categorie zichtbaar & verborgen playlist request (vb. Kerst)

Ongelezen bericht door Axolytron » 25 feb 2020, 20:26

Het is pas kerst geweest maar voorbereidingen zijn altijd wel makelijk.
Met deze pal scripts welk doormiddel van events geactiveerd wordt, wordt de inhoud van categorie "Kersthidden" in Content/Other verplaast naar "kerst" in Content/music

Door de inhoud te verplaatsen blijven de muziekbestanden in de database staan.
Ze krijgen alleen een andere songtype

Zolang "kersthidden" in een categorie staat wat niet zichtbaar in de playlist.

In de Kerst Pal Start moeten de eerste 8 regels aangepast worden.
2# De verborgen categorie (naam categorie)
3# De zichtbare categorie (naam categorie)
4# Verborgen categorie leeg maken (naam categorie)
6# Kerst map op hardrive opnieuw scannen (pad naar kerst map)
8# Kerst map toevoegen aan verborgen categorie (naam categorie) + (pad naar kerst map)

Kerst PAL Start

Code: Selecteer alles

  // BEGIN AANPASSINGEN //
 Const VerborgenCategorie = 'Kersthidden'; // In Content/Other Categorie
 Const ZichtbaarCategorie = 'Kerst';      // In Content/Music Categorie
 CAT['Kersthidden'].clear;
 writeln('"Verborgen" categorie leeggemaakt');
 DIR['H:\kerstnap'].Rescan;
 writeln('DIR folder rescaned');
 CAT['Kersthidden'].AddDir('H:\kerstmap',True,ipBottom);
 writeln('Dir folder toegevoed aan "Verborgen" categorie');
 // EINDE AANPASSINGEN //

 var VerborgenDataSet, ZichtbaarDataSet : TDataSet;
 var pos : Integer;
 begin
   PAL.Loop := False;
   pos:= 0;
   writeln('Bezig met verplaatsen van inhoud naar "Zichtbaar" categorie');
   // Verplaats inhoud vanaf "Verborgen" naar "Zichtbaar"
   // ###########################################################
   PAL.LockExecution;
     VerborgenDataSet:= Cat[VerborgenCategorie].SongList();
 
     verborgenDataSet.First;
     while not verborgenDataSet.EOF do
     begin
       Inc(pos,1);
       Cat[ZichtbaarCategorie].AddFile(VerborgenDataSet['filename'], pos);
       VerborgenDataSet.Next;
     end;
   
     // Categorie "Verborgen" leegmaken
     Cat[VerborgenCategorie].Clear();
     writeln('Inhoud verplaatst van "Verborgen" naar categorie "Zichtbaar"');
   PAL.UnlockExecution;
   // ----------------------------------------------------------
end
https://i.ibb.co/841w37c/kerstpalstart.png

Kerst PAL Stop

Code: Selecteer alles

  // BEGIN AANPASSINGEN //
 Const VerborgenCategorie = 'Kersthidden';     // In Other Categorie
 Const ZichtbaarCategorie = 'Kerst';          // In Music Categorie
 // EINDE AANPASSINGEN //
 
 var VerborgenDataSet, ZichtbaarDataSet : TDataSet;
 var pos : Integer;
 begin
   PAL.Loop := False;
   pos:= 0;
   writeln('Bezig met verplaatsen van inhoud naar "Verborgen"');
   // Verplaats inhoud vanaf 'Zichtbaar' naar "Verborgen"
   // ###########################################################
   PAL.LockExecution;
     pos:= 0;
     ZichtbaarDataSet:= Cat[ZichtbaarCategorie].SongList();
     ZichtbaarDataSet.First;
     while not ZichtbaarDataSet.EOF do
     begin
       Inc(pos,1);
       Cat[VerborgenCategorie].AddFile(ZichtbaarDataSet['filename'], pos);
       ZichtbaarDataSet.Next;
     end;
     
     // Categorie "Zichtbaar" leegmaken
     Cat[ZichtbaarCategorie].Clear();
     writeln('Inhoud verplaatst van Zichtbaar naar Verborgen');
   PAL.UnlockExecution;
   // ----------------------------------------------------------   
end
https://i.ibb.co/LCGPv77/kerstpalstop.png
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.
Beginnend PHP & MYSQL 8-) Piratenhuis.nl Sam 2020.1

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

Re: Categorie zichtbaar & verborgen playlist request (vb. Kerst)

Ongelezen bericht door Wout » 03 mar 2020, 10:08

Bedankt voor het delen ervan!
Afbeelding

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht