album-cover

[NCR985]

ik heb nu zo'n 4000 album-covers geupload maar mijn provider maar deze begint een beetje te zeuren dat dit teveel wordt. Ik begrijp hem wel dus nu mijn vraag is er iets dat dit probleem oplost? Ik weet dat er een aantal dubbele bij zitten en ik weet ook dat er " in the old days" een script was van om elke album een uniek ..... te geven ofzo hoe het precies zat weet ik niet meer. Is er iemand die dit nog evt heeft. Werk het met SAM v2014.5 en MySQL 5.0.11 ?

alvast dank

[Wout]

klopt, was een script van Fester, alleen ben ik al die scripts kwijt geraakt.
Wat wel kan, is via MySQL een extra kolom maken voor covers en de covers in base64 opslaan.
Dan maakt hij van de albumcover een txt-string.
Als voorbeeld sta een voorbeeld hieronder in base64.

Code: Selecteer alles

iVBORw0KGgoAAAANSUhEUgAAAF8AAAAUCAYAAADr0+FaAAAAIGNIUk0AAHolAACAgwAA+f8AAIDp
AAB1MAAA6mAAADqYAAAXb5JfxUYAAAAJcEhZcwAACxIAAAsSAdLdfvwAAAprSURBVFhH7VkJUFbX
Fb6giIpsWldcURTFBQVRcTdqjAsC7qhYF0QQFFAmUvcFo1Nq1YlK0OhYO3VqJm00GtOJWrTYUSoK
KlGIQrWNmszojNtUcTk93/3/e3nv3yCTyUxm2jdzBt59527fOec7595fCCGoXr16hL+uxM/Pr0ad
OnXqEKSmsX4u3xvUr0/Crfbr9Wpgj5Gfr2vc1F69PB3qCYqKiqK7d+9SZWWllNDQUBOAa9eupQcP
HlBxcbHdt40bN+p+ly5dIi8vL923T58+lJOTQ+fOnaMbN25QWVmZlPLyciotLaXTp0/Thg0bqFOn
Tqb50tLSpA4kLy/PqTFnzpyp9Y4dO6b1cnNzZbuaz9Ff7HPnrt/TqnkeVP4XQWV/ciKfCio/KujW
CUGhXaoB9PES9PkOQd9dFHRwvSB3N8dGCAsW9PXngr79m6DEWDsdQW3btiXjk5GRoTcyfPhw07eb
N2+Sh4eH/n79+nX9/eTJk7odRnn79q2pr7OXZ8+eUVJSku67detWrXrq1Cmn4C9dulTrAWB4WVZW
Vq3mfPHiBbVpH0I7lwmib1mus9xkqbCRSn7/XtCmJDNwyVO4/R7LVZZ/C1oxxx58Tw9B33xmHa9M
0H/OC/L3NulZXs6ePasXffToUdkGkOGxtg8iAd9htJcvX+rP8+fPl+2ZmZmmLq9evSIYqaioiC5f
viz/woi2T2xsrOy/adMm/enEiRNOwV+8eLHWu3DhAgUGBhKi78qVK3IOeL96sIarV6/q+ceMGSPH
/ehXDM4tliuCvv9K0JlcQX/9qFryDwrKSbMH9oud3Kec5RJLCQNbKCgwwKy3YSF/g/H+YdVj/agh
DsBfsWKFXuj9+/ddehEAb9GiBY0ePVr3qaqqopYtW0raefz4sW4vKCigbt262QHo5uZGAwYMMBnh
2rVrUm/9+vU/GHxQojEiMc6gQYP0OA8fPiQfHx+7deRmWcG/YQE+sif3CzVLBLcNC2NqcbcA5+8j
6HG+BXQJPsBlA36xvRrYrh0EVV3m9mKrDvRuC8plYxtynuUFPK+eN2/e0MKFC00g5ufn071797TO
kSNHaPv27fr94sWLcpzIyEjdhtCGN7pKsCNGjDAZsD4nwZUrV+q248ePO+2fnJys9UpKSuz0Bg8e
bALfUdGgwQeAAAs0cs1GmF4+SBHkZuX1qKH8nWlEgg4DoA/A/UZQzHALnogevMv2UpYiFqa2W38W
XJRoA1j+QZWiwhRcDQOo5+nTp9JrEhIS7OhENcBbMc6wYcO0zpMnT6hBgwYuwe/cubPWf/36tdRf
vXq1bjMmUlsjGtcDSrH9PnToUBP4jRs3du75ABIgsndqAf9/J+job8x0krfSGi0MasHHggp/x+9f
W0Au/URQxkz+nyNJAs+G/EO2oOcF/D9TG+bow0nYutbqgXfv3m3Hw2hA9QFld3d3yZmOnv79+0ud
5s2bEzxePevWrXMJ/r59+7Tu7du3pe7y5ct1W0VFhUO6gN6hQ4e03vnz538c+OyVJYd57lkssy2S
GS8oncW7YTVGddlrK5BEkaDZOOlxgroFWsFXNIPIgadzdPx9v6D69QRVcsUjI4qNmzXXAfjjxo2z
wxWJC6ArrwLIts+dO3dMZ4UdO3aYVM6cOSOT6KpVq7Rs2bKFCgsLTXqgEczTu3dvUzsqGTgGEj3G
QDWEMtX4gKp+lOczRRzaUHPNHt7VGiEAmr17ZISlTx4SNyIFEQTg2cvfGrz8019zGxI0V1Tn9joA
39fXl54/f27aVEREhN2m9uzZY9I5ePCgScfT05NAFz/k2bVrl2mM7OzsWndHUjeeL5QRjLTz6NEj
ckQ7stoB1TD4n2ytGfw1CayLCoaBfXJWUGNOvpjPr5GgB6esdAMD3BG0zVAlpU6zGodzxIsLggKa
yn7mCbdt26Y3vXnzZoeUAf7HIQkPqpyBAwc61IMng6aM5agRURgawE2bNs1h/ylTpkgPB3C2D/oi
ycLjkaQdJXXjGQX6TZo0sdP7eDWD8i8LWJ/luAYfB6lipib6p0UffG+cdyIn4ipQC9f9V48I8qpf
/b03H9BkHoDwuSIh2gH4GGz8+PE0duxYl1zt7+8vQevRo4dLPYzXvn176tevnywtlfTt25dat25d
Y1/0B2jdu3fXfUFLtekLJ1HzhYeHU926de3m68C1+YDeLFxeBrWtAXwuNVGGDgtn6cf6bez1Q7jE
jB4tyJcjwWiYOujby9q3v6BOlr41h9r/dX4yjH6ygWvl1f/jhrWAj5AMDg6WSQk0gbZmzZrR7Nmz
5UkWFQ9OkDitNm3alFCfOwKuV69eFB8fTyEhIfI76vbJkydLadiwoWzDhZuiEryDHqZPn06ottSt
KJJldHS05mlvb2+pgzZ1knVGJWpdXbt2pV/OmUM9mLLQ1pipEnvDSRx7Q1sE098UXltwly52+4HO
OAP9BrRqRbExMVIPewFerXisdu3aybZ2fN0Sz3hh7XhHEaAuKSUOkyZRDK/fcPaxgA/FuXPnSlBj
rBNMnDhRAoI7FFRCjRo1IiRRbBoAOwJ/yZIlhFOrOhuAn6E7a9YsgmHQZ//+/YR7oAULFmjDL1q0
SBoZ1w7QSUlJoSFDhkjA8Y6rgqlTp8p+6hYUl2iuDnFY8zouT9XJFvlpPO8H+aeftYpL5zMM8omj
cToHBVERl8MYB2vIXLaMvvryS/l/KzbEAl7LcD5URk2YINvmz5tHQ3nNixIT5T5grAzrGUk6JWMw
mwXOZ8XOAj4qhvT0dHm9DNDRBuCxMACADcBA83gCWNNZhQJw4NXwLowBXRgD0rNnT9mGmh+lZVxc
nDYg5lXGkRvhcZAsZ8yYIXVwbQFBMaDAh4GdVTroAwASrAbGOxwrkU/pGFN5ZAo7FoysADY6VNs2
bWj3hx/S2Pfek2v4LVeCmXwAxP+42wKQg7jSG/Puu7INURbN2HW3Rj0wSGKnwjfsfQKv3ZejHFFs
Ah8vqHBw+FElGcDHIgFSbcHHkR+VkNoE+o8aNUqKAh/G3Lt3L61Zs0brIdoMHkHL2Mugo+6GADzu
amCkIPZIjJ+amuoSfFAYvFAdEoP4d4NVXJqueP99PddSjlTsLyAgwC6SQVvTONpgwLCwMEpjXQDu
DHyc7hFZWXxJCZ2WbCAj+KA3G7aoTrgo35SnQQn8ilAF7wNQ0A4u3FSbI9oBfeCqeRLzG76DokaO
HClFgYs5cBd/4MABvRjU9NBVY2JO/FiiKBDeifMEwO9i5WfQofH0bbsegJ/K9KV0wP3wvnc4CtXZ
JJl/R1C5yLZ/L/ZW0Ai8+Y+HD0uOR6Qo2oGnR3J0YkzJFOy8TThnpiod9vwl7CD4hr0jQvryHg35
pRp8WF/dc6sOABt8jZ8akZTB0/jhw9nBCnfyoAxFXeBG5AnQFUJV0RkoAOCqDSNJKVDRNoF5FIlM
6XTs2FGOM4c3rCgCawH9GfsZAQToMJ4CvwMnW8yDKxJVEMRxFGKMEAfX3oi6MAatDdNPNv84hLER
CfgLCoZXw7jqrAOjYk1zrPnwF0y/KkErCkpkPBERGOO/3L6eZRSoDEYAAAAASUVORK5CYII=

kopieer de bovenstaande code naar de volgende website toe.
http://base64online.org/decode/

[drOhimself]

Wout, jij hebt destijds nog scripts bij mij geplaatst op de FTP.
Stond die daar tussen ?


Sent from my iPad using Tapatalk

[NCR985]

Gevonden.......maar dit stukje kan ik even niet thuis brengen...

// Enter a complete path to SAMs album cover art output.
// Include a trailing \ or Bad Things may happen.
var picture_path : String = 'C:\VirtualHosts\festerhead.com\htdocs\coverart\';

Zal wel komen door de bbq en de drank van gisteravond komen [smilie=blush2.gif] ......ben even blanco...
aub graag wat hulp, alvast mijn dank!

Code: Selecteer alles

PAL.LockExecution;

{
  ********************************************************
  *
  * Copyright (C) Steve Kunitzer (FesterHead)
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  * the Free Software Foundation, either version 3 of the License, or
  * (at your option) any later version.
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  * GNU General Public License for more details.
  *
  * You should have received a copy of the GNU General Public License
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  *
  ********************************************************

  -- PAL to condition album cover art (pictures) down to one per album instead of one per song.
  -- Requires fhr_albumid values to already be set as that is what the covert art will be named.
  -- Has a 1 second throttle after each processing iteration to prevent a runaway script.
  -- Supports only MySQL.  See SQL statements at end of PAL for the curious.
  -- Supports only jpg cover art images.

  After running, delete the SAM generated az_* images in the cover art folder!

  Run only after fhr_albumid.PAL has nothing to process.
  Manually run every time after adding new songs to SAM.
  Can be run while SAM is streaming.

  FOR A LOT OF SONGS TO PROCESS THIS MAY TAKE AWHILE; LET IT RUN!
}

// Enter a complete path to SAMs album cover art output.
// Include a trailing \ or Bad Things may happen.
var picture_path : String = 'C:\VirtualHosts\festerhead.com\htdocs\coverart\';

// *******************************************
// * STOP! EDIT BELOW HERE AT YOUR OWN RISK! *
// *******************************************

WriteLn( 'Begin fhr_picture' );

Function lookup_sql( input: String ): String; forward;

var checker : TDataSet = Query( lookup_sql( 'checker' ), [], true );

if ( ( checker = nil ) or ( checker.EOF ) ) then
  begin
    WriteLn( 'ERROR fhr_artistid not found; run fhr_condition_database first!' );
  end
else
  begin
    var data_loop : TDataSet = Query( lookup_sql( 'get_data_loop' ), [], true );
    data_loop.First;

    while not data_loop.EOF do
      begin
        WriteLn( 'Processing: ' + data_loop[ 'artist' ] + ' || ' + data_loop[ 'album' ] );

        if( FileExists( picture_path + data_loop[ 'picture' ] ) and CopyFile( picture_path + data_loop[ 'picture' ], picture_path + IntToStr( data_loop[ 'fhr_albumid' ] ) + '.jpg', false) ) then
          begin
            WriteLn( 'Copy successful to: ' + IntToStr( data_loop[ 'fhr_albumid' ] ) + '.jpg' );
            ExecSQL( lookup_sql( 'update_picture' ), [ IntToStr( data_loop[ 'fhr_albumid' ] ) + '.jpg', data_loop[ 'artist' ], data_loop[ 'album' ] ] );
          end
        else
          begin
            WriteLn('Error copying: ' + data_loop[ 'picture' ] );
          end;
        data_loop.Next;
        WriteLn( '************' );
        PAL.WaitForTime( '+00:00:01' );
      end;

    WriteLn( 'Delete the SAM generated az_* images in the cover art folder!' );
    data_loop.Free;
  end;

WriteLn( 'End fhr_picture' );

checker.Free;

PAL.UnlockExecution;

Function lookup_sql( input: String ): String;
  begin
    result := 'ERROR!  No SQL statement match for: ' + input;
    Case input of
             'checker' : result := 'select fhr_artistid from songlist order by rand() limit 1';
       'get_data_loop' : result := 'select artist, album, picture, fhr_albumid from songlist where picture <> concat( fhr_albumid, ''.jpg'' ) and fhr_albumid <> 0 group by fhr_albumid order by fhr_albumid';
      'update_picture' : result := 'update songlist set picture = :picture where artist = :artist and album = :album';
    end;
  end;

[drOhimself]

Volgens mij wordt hier bedoelt dat je niet vergeet een Back-slash achter het pad te plaatsen.
Of had je dat wel begrepen ?


Sent from my iPad using Tapatalk

[Dj Radar]

Aan de geïnteresseerden hierbij een link naar de oude PAL scripts die Feasterhead in het verleden heeft gemaakt, waaronder de 4 PAL scripts mbt de album covers.

Lees ook het aanwezige Manual.pdf om de procedure correct te volgen.

https://github.com/mastacheata/fescon/t ... hrsam/pals

Daarnaast staan daar nog diverse andere interessante PAL scripts.

Deze link heb ik verkregen van Mastacheata (SVS (Spacial Volunteer Support) na een verzoek hiervoor op Spacial Forum http://support.spacialaudio.com/forums/