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