Now you can search by "any word" or "exact expression", just change the option 'Tyoesearch' of the script.
It could be useful to implement the search by artist but I won't have free time in next months and so an help should be useful.....
Here you are the script:
Code: Select all
(***************************************************
Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/
[Infos]
Authors=Fulvio53s03 - based on Frenchfrog2 and sracer works
Title=AllMusic
Description=import artist and/or album
Site=http://www.allmusic.com
Language=EN
Version=1.0
Requires=3.5.0
Comments=this script is based on the script AllGame from Scorpion7552.
License=* The source code of the script can be used in |* another program only if full credits to |* script
author and a link to Ant Movie Catalog |* website are given in the About box or in |* the documentation of the
program |
GetInfo=1
[Options]
AlbumOpt=2|2|1=search for artist|2=search for album|3=search for song
TypeSearch=1|1|1=search for exact expression|2=search for any word
Mode=0|0|0=normal mode|1=batch mode (url)
***************************************************)
// needs the following units
// StringUtils1.pas, StringUtils7552.pas
//
program AllMusic;
uses
StringUtils7552;
const
AllMusicUrl = 'http://www.allmusic.com'; // base url
batchlogfic = 'c:\amc_AllGame_batchlog.txt'; // log for batch mode
debug = false; // debug mode on/off
debugrep = 'd:\data\disk1\temp'; // directory where to save files
var
Credit_address: String;
AlbumName, dfltAlbumc, firstcall, abort, name: String;
Releases, Commento, save_value, indirizzo_pagina, valore_ricerca: String;
value, sw_serie, StartDelimiter, endDelimiter : string;
CharNormal, CharAbNormal: string;
BatchMode, dfltAlbum, Tipo_Ricerca: Integer;
len_dopo, len_prima, num_char: Integer;
CharCut, NumChar: integer;
min_albName, min_alb, dopo, prima: String;
batchlog, confbatch, memo: TstringList;
albumok: boolean;
//------------------------------------------------------------------------------
// list of albums or artist
//------------------------------------------------------------------------------
procedure GetList;
var
Address, Table, Line, Page, urlmusic, year, album, albumtest, label, genre, Linet: String;
Relevance: String;
ValRelev: integer;
found: boolean;
i: integer;
begin
PickTreeClear; // clear list
indirizzo_pagina := AllMusicUrl+'/cg/amg.dll';
valore_ricerca := 'sql='+UrlEncode(AlbumName)+'&OPT1='+dfltAlbumc+'&Submit=Go&P=amg';
found := False;
PickTreeAdd('List of albums or artists ordered by relevance', '');
Page := PostPage(indirizzo_pagina, valore_ricerca);
if debug then
DumpPage(debugrep+'AllMusicList.txt', Page); // debug
if Pos('Album Search Results for:', Page) = 0 then
begin
LogMessage('Error while reading selection page - no results found');
exit;
end;
// selection table
// note: the results are displayed on one page and are sorted by relevance
Table := TextBetween(Page, '<!--Begin Search Results-->', 'End of List');
if debug then
DumpPage(debugrep+'AllMusicListShort.txt', Table); // debug
Table := TextAfter(Table, 'Year');
memo := TStringList.Create;
memo.Text := StringReplace(Table, '</tr>', crlf); // separate lines
if debug then
begin
Linet := StringReplace(Table, '</tr>', crlf);
DumpPage(debugrep+'AllMusicStringList.txt', Linet); // debug
end;
urlmusic := 'href="/cg/amg.dll'; // url to search (first occurence)
for i := 0 to memo.Count-1 do // list of albums
begin
Line := memo.GetString(i); // extract current line
Address := GetUrl(Line, urlmusic, AllMusicUrl); // get url of album page
if Address = '' then continue; // no url: header or empty line
Relevance := TextBetween(Line, '<td class="sorted-cell">', 'px;">');
Relevance := Relevance + 'px;">';
Relevance := Textbetween(Relevance, 'style="width:', 'px;">');
Line := TextAfter(Line, '<td class="cell">');
Line := StringReplace(Line, '</TD>', sepchar1); // separate fields with </TD>
year := Trim(TextBefore(Line, sepchar1, '')); // year of the album
Line := RemainingText;
Line := TextAfter(Line, '>');
name := TranslateSpecial(Trim(TextBefore(Line, sepchar1, ''))); // name of the artist
Line := RemainingText;
Line := TextAfter(Line, urlmusic);
Line := TextAfter(Line, '>');
albumtest := Trim(TextBefore(Line, 'src', ''));
if albumtest = '<img' then
begin
Address := GetUrl(Line, urlmusic, AllMusicUrl); // get url of album page
if Address = '' then continue; // no url: header or empty line
Line := TextAfter(Line, urlmusic);
Line := TextAfter(Line, '>');
end;
album := TranslateSpecial(Trim(TextBefore(Line, '</a>', ''))); // name of the album
Line := RemainingText;
Line := TextAfter(Line, sepchar1);
Line := TextAfter(Line, sepchar1);
Line := TextAfter(Line, '>');
label := Trim(TextBefore(Line, sepchar1, '')); // label of the album
Line := RemainingText;
Line := TextAfter(Line, urlmusic);
Line := TextAfter(Line, '>');
genre := Trim(TextBefore(Line, '</a>', '')); // genre of the album
// ************** ricerca esatta indipendente da maiuscole, minuscole e spazi ***********
// if ContainsStr(album, albumName)
If Tipo_ricerca = 1 then // tipo riucerca esatta di albumName
begin
num_char := 0;
CharAbNormal := ' ';
CharNormal := '';
min_alb := AnsiLowerCase(album);
HTMLDecode(min_alb); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(min_alb);
min_alb := StringReplace(min_alb, CharAbNormal, CharNormal);
min_albName := AnsiLowerCase(albumName);
HTMLDecode(min_albName); // Clean description from HTML codes (if some
exist)
HTMLRemoveTags(min_albName);
min_albName := StringReplace(min_albName, CharAbNormal, CharNormal);
if min_alb = min_albName then
num_char := 7; // valore non 0
prima := TextBefore(min_alb, min_albName, '');
len_prima := length(prima);
dopo := TextAfter(min_alb, min_albName);
len_dopo := length(dopo);
num_char := num_char + len_prima + len_dopo;
if num_char > 0 then
begin
// ValRelev := 100 - StrToInt(Relevance, 0);
// Relevance := IntToStr(ValRelev);
Relevance := '';
PickTreeAdd(Relevance + name+' - '+album+' ('+year+')', Address);
found := True;
end;
end
// **********fine ricerca esatta ***********
If Tipo_ricerca = 2 then // tipo riucerca su qualsiasi parola del titolo
begin
if year <> '' then
begin
// ValRelev := 100 - StrToInt(Relevance, 2);
// Relevance := IntToStr(ValRelev);
Relevance := '';
PickTreeAdd(Relevance + name+' - '+album+' ('+year+')', Address);
found := True;
end;
end;
end; // fine loop for i := 0 to memo.Count-1 do // list of albums
memo.Free;
if not found then
begin
LogMessage('No album found for '+AlbumName);
exit;
end;
PickTreeSort; // sort the list
if PickTreeExec(Address) then
begin
Credit_address := Address + '~t2'; // credits page
AnalyzeMusicPage(Address); // Album page
AnalyzeCreditsPage;
end
else
LogMessage('No album selected');
end;
//------------------------------------------------------------------------------
// ANALYZE MUSIC PAGE
//------------------------------------------------------------------------------
procedure AnalyzeMusicPage(Address: string);
var
Page, Line, Linet, urlmusic, artisturl, cover, Track, Lenght, Minu, Seco, Pays, usastates: String;
Autore: String;
i, TMinu, TSeco: Integer;
j: Real;
begin
Page := GetPage(Address);
if debug then
DumpPage(debugrep+'AllMusicPageDetail.txt', Page); // debug
if Pos('Artist', Page) = 0 then // may be this test is OK?
Begin
LogMessage('Error while reading album page');
exit;
end;
SetField(fieldURL, Address);
albumok := True;
//*** artist url
urlmusic := 'href="/cg/amg.dll'; // url to search (first occurence)
Value := TextBetween(Page, '<span class="title">', 'class="subtitle');
artisturl := AllMusicUrl+TranslateSpecial(TextBetween(Value, '<a href="', ' "'));
//*** artist name (=TranslatedTitle)
//*** artist name (=Director) - sracer
Value := TextBetween(Page, 'class="subtitle">', '</a>');
SetField(fieldMedia, FormatText(Value));
//*** album title (=originalTitle)
Value := TextBetween(Page, '<span class="title">', '</span>');
SetField(fieldTranslatedTitle, FormatText(Value));
//*** rating (<img src="/img/stars/st_rX.gif" with X = rating: 1=1 star to 9=5 stars)
// X=1 (1) x=2 (1.5) ... x=9 (5) ==> rating = (x+1) for 0 to 10
Value := TextBetween(Page, '<img src="/i/pages/site/stars/st_r', '.gif"');
if Value <> '' then
begin
i := StrToInt(Value, 0);
j := (i + 1); // rating from 0 to 10
// uncomment next line if you want a rating from 0 to 5 (by half point)
// j := (i + 1) /2;
SetField(fieldRating, FloatToStr(j));
end;
//*** release date (year only) ('month year' 'month day, year' or 'year')
Value := TextBetween(Page, '<span>Release Date</span>', '</table>');
Value := FormatText(Value);
i := LastPos(' ', Value); // extract year only
if i > 0 then Value := Copy(Value, i+1, length(Value));
SetField(fieldYear, Value);
//*** label (= director)
// Value := TextBetween(Page,'<span>Label</span>', '</table>');
// SetField(fieldDirector, FormatText(Value));
//*** type (= country)
Value := FormatText(TextBetween(Page, '<span>Type</span>', '</table>'));
// if Value = '' then
// SetField(fieldCountry,'Standard');
// if Value <> '' then
// SetField(fieldCountry, Value);
// if Value = 'Explicit Lyrics' then
// SetField(fieldCountry,'Standard');
//*** genre (= category)
Value := TextBetween(Page, '<span>Styles</span>', '</li>');
SetField(fieldCategory, FormatText(Value));
//*** cover
cover := TextBetween(Page, '<!--Begin Album Photo-->', '</table>');
cover := TextBetween(cover, 'img src="', '"');
if CanSetPicture then
GetPicture(cover);
//*** album review (= comments)
Value := FormatText(TextBetween(Page, '<!--Begin Center Content-->', '</table>'));
Value := TextAfter(Value, 'Reviewby');
if Value = '' then
SetField(fieldComments, 'No Review Available');
if Value <> '' then
SetField(fieldComments, 'Review by'+Value);
//*** tracks list (= description)
//*** tracks list (= artist) - sracer
Value := TextBetween(Page, '<!--Begin Center Content-->', '<!--End Center Content-->');
if debug then
DumpPage(debugrep+'AllMusicPagetracks.txt', Value); // debug
Value := TextAfter(Value, '>Time');
Value := TextAfter(Value, '</table>');
Value := TextAfter(Value, '</TD>');
Value := TextAfter(Value, '</TD>');
Value := StringReplace(Value, crlf, ''); // separate lines
memo := TStringList.Create;
memo.Text := StringReplace(Value, '</tr>', crlf); // separate lines
if debug then
begin
Linet := StringReplace(Value, '</tr>', crlf);
DumpPage(debugrep+'AllMusicPageDetailList.txt', Linet); // debug
end;
Value := '';
Minu := '';
Seco := '';
TMinu := 0;
TSeco := 0;
for i := 0 to memo.Count-1 do // list of tracks
begin
Line := memo.GetString(i); // extract current line
Line := TextAfter(Line, '<TD class="cell">');
Line := StringReplace(Line, '</TD>', sepchar1); // separate fields with </TD>
Track := Trim(TextBefore(Line, sepchar1, ''));
if Track <> '' then
begin
Value := Value+Track; // number of track
Line := RemainingText;
// ******************************++ aggiunte qui
Autore := Line;
// Autore := textbetween(Autore, '<td class="cell">', '<td align="right" class="cell">');
Autore := textbetween(Autore, '<TD class="cell">', sepchar1);
HTMLDecode(Autore); // Clean description from HTML codes (if some exist)
HTMLRemoveTags(Autore);
// Value := FullTrim(Autore); // Clean title from HTML tags (if some exist)
Autore := ' (' + Autore + ') ';
// fine aggiunte *********************************
Value := Value+'. '+FormatText(Trim(TextBefore(Line, sepchar1, ''))); // title of track
Line := RemainingText;
Line := TextAfter(Line, sepchar1); // not usefull info
Lenght := FormatText(Trim(TextBefore(Line, sepchar1, ''))); // lenght of track
Minu := Trim(TextBefore(Lenght, ':', ''));
Seco := Trim(TextAfter(Lenght, ':'));
TMinu := TMinu + StrToInt(Minu, 0); // extract the minutes
TSeco := TSeco + StrToInt(Seco, 0); // extract the seconds
if TSeco > 60 then
begin
TMinu := TMinu + 1;
TSeco := TSeco - 60;
end;
Value := Value + autore + ' (' + Lenght + ')';
Value := Value+crlf;
end;
end;
Releases := textBetween(Page, '<tr class="visible">', '</table>');
GetReleases;
Value := Value + crlf + 'Releases:' + crlf + Releases;
SetField(fieldActors, Value);
//*** length (only show the minutes)
if TSeco > 30 then
TMinu := Tminu + 1;
SetField(fieldLength, IntToStr(TMinu));
//*** media name (= artist - title) default setting
// SetField(fieldMedia, GetField(fieldTranslatedTitle)+' - '+GetField(fieldOriginalTitle));
// SetField(fieldMedia, GetField(fieldDirector)+' - '+GetField(fieldOriginalTitle));
//*** media type (= JewelCase) default setting
//*** media type (= CD) default setting - sracer
SetField(fieldMediaType, 'CD');
//*** audio format (= VideoFormat = CD) default setting
// SetField(fieldVideoFormat, 'CD');
//*** source (= AudioFormat = Achat) default setting
SetField(fieldAudioFormat, 'CD Audio');
//*** number of disks (= VideoBitrate = 1) default setting
// SetField(fieldVideoBitrate, '1');
//*** country of the artist
Page := GetPage(artisturl);
if debug then
DumpPage(debugrep+'AllMusicArtistDetail.txt', Page); // debug
if pos('<!--Begin Formed-->', Page) > 0 then
Value := TextBetween(Page, '<!--Begin Formed-->', '<!--End Formed-->');
if pos('<!--Begin Born-->', Page) > 0 then
Value := TextBetween(Page, '<!--Begin Born-->', '<!--End Born-->');
if debug then
DumpPage(debugrep+'AllMusicArtistDetailshort.txt', Value); // debug
Value := TextAfter(Value, '<a href=');
Value := TextAfter(Value, '<a href=');
Value := TextBetween(Value, '>', '<');
Pays := TextAfter(Value, ', ');
// SetField(fieldSource, Pays);
// SetField(fieldProducer, 'English');
// if Pays = 'France' then SetField(fieldProducer, 'French');
// if Pays = 'Spain' then SetField(fieldProducer, 'Spanish');
// if Pays = 'Italia' then SetField(fieldProducer, 'Italian');
usastates :=
'WA,MT,ND,MN,WI,MI,YT,NH,ME,NY,RI,MA,CT,NJ,DE,MD,DC,PA,OH,IN,IL,IA,SD,NE,WY,ID,OR,CA,NV,UT,AZ,CO,NM,KS,OK,TX,MO,AR,LA,KY,TN,M
S,AL,FL,GA,SC,NC,VA,WV,HI,AK';
// if pos(Pays,usastates) > 0 then
// begin
// SetField(fieldSource, 'United States Of America');
// SetField(fieldProducer, 'English');
// end;
end;
// &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&6
procedure GetReleases;
var
Riga_Commento, trovato: String;
Begin
Save_Value := '';
trovato := 'si';
Riga_Commento := '* ';
StartDelimiter := '<TD';
EndDelimiter := '</TD>';
While trovato = 'si' do
begin
Riga_commento := '';
trovato := 'no';
CharCut := Pos(StartDelimiter, Releases);
Commento := TextBetween(Releases, StartDelimiter, EndDelimiter); // estrae anno
CharCut := CharCut + length(StartDelimiter) + length(Commento) + length(EndDelimiter);
delete(Releases, 1, CharCut);
Commento := StartDelimiter + Commento;
HTMLRemoveTags(Commento);
HTMLDecode(Commento);
Commento := trim(Commento);
if commento <> '' then
begin
Riga_Commento := commento + ' ';
trovato := 'si';
end
if commento = '' then
begin
Riga_Commento := ' ' + ' ';
end
CharCut := Pos(StartDelimiter, Releases);
Commento := TextBetween(Releases, StartDelimiter, EndDelimiter); // estrae supporto
CharCut := CharCut + length(StartDelimiter) + length(Commento) + length(EndDelimiter);
delete(Releases, 1, CharCut);
Commento := StartDelimiter + Commento;
HTMLRemoveTags(Commento);
HTMLDecode(Commento);
Commento := trim(Commento);
if commento <> '' then
begin
Riga_Commento := Riga_Commento + commento + ' - ';
trovato := 'si';
end
if commento = '' then
begin
Riga_Commento := Riga_Commento + ' ' + ' - ';
end
CharCut := Pos(StartDelimiter, Releases);
Commento := TextBetween(Releases, StartDelimiter, EndDelimiter); // estrae supporto
CharCut := CharCut + length(StartDelimiter) + length(Commento) + length(EndDelimiter);
delete(Releases, 1, CharCut);
Commento := StartDelimiter + Commento;
HTMLRemoveTags(Commento);
HTMLDecode(Commento);
Commento := trim(Commento);
if commento <> '' then
begin
Riga_Commento := Riga_Commento + commento + ' ';
trovato := 'si';
end
CharCut := Pos(StartDelimiter, Releases);
Commento := TextBetween(Releases, StartDelimiter, EndDelimiter); // estrae supporto
CharCut := CharCut + length(StartDelimiter) + length(Commento) + length(EndDelimiter);
delete(Releases, 1, CharCut);
Commento := StartDelimiter + Commento;
HTMLRemoveTags(Commento);
HTMLDecode(Commento);
Commento := trim(Commento);
if commento <> '' then
begin
Riga_Commento := Riga_Commento + commento;
trovato := 'si';
end
If Trovato = 'si' then
Save_value := save_value + Riga_commento + crlf;
end;
Releases := Save_value;
end;
// &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&6
//------------------------------------------------------------------------------
// ANALYZE Credits PAGE
//------------------------------------------------------------------------------
procedure AnalyzeCreditsPage;
var
Page, Line, Linet, urlmusic, artisturl, cover, Track, Lenght: String;
i: Integer;
j: Real;
begin
Page := GetPage(Credit_address);
NumChar := length(Page);
if debug then
DumpPage(debugrep+'AllMusicPageDetail.txt', Page); // debug
if Pos('Credits', Page) = 0 then // may be this test is OK?
Begin
LogMessage('Error while reading credits page');
exit;
end;
// SetField(fieldURL, Credit_address);
albumok := True;
// delete(Page, 1, 11320);
//*** artist url ********************** unuseful?????
// urlmusic := 'href="/cg/amg.dll'; // url to search (first occurence)
// artisturl := AllMusicUrl+TranslateSpecial(TextBetween(Value, '<a href="', ' "'));
// ***************************** estrae i credits (copiato dalle tracce) ***********************************+
// Value := TextBetween(Page, '<div id="tabcontent_2">', '<div id="tabcontent_3">');
Value := TextAfter(Page, '<div id="tabcontent_2">');
NumChar := length(Value);
Value := TextBefore(Value, '<div id="tabcontent_3">', '');
NumChar := length(Value);
Normalizza_Page;
Getcredits;
// ************************ fine estrae i credits (copiato dalle tracce) ***********************************+
SetField(fieldDescription, Save_value);
end;
// &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&6
procedure GetCredits;
Begin
Save_Value := '';
Commento := '* ';
While Commento <> '' do
begin
StartDelimiter := '<td class="sorted-cell';
CharCut := Pos(StartDelimiter, Value);
EndDelimiter := '</td>';
Commento := TextBetween(Value, StartDelimiter, EndDelimiter); // estrae nome
CharCut := CharCut + length(StartDelimiter) + length(Commento) + length(EndDelimiter);
delete(Value, 1, CharCut);
Commento := StartDelimiter + Commento;
HTMLRemoveTags(Commento);
HTMLDecode(Commento);
Commento := trim(Commento);
Save_Value := Save_value + commento;
if commento <> '' then
Save_Value := Save_value + ': ';
StartDelimiter := '<td class="cell">';
CharCut := Pos(StartDelimiter, Value);
EndDelimiter := '</td>';
Commento := TextBetween(Value, StartDelimiter, EndDelimiter); // estrae strumento
CharCut := CharCut + length(StartDelimiter) + length(Commento) + length(EndDelimiter);
delete(Value, 1, CharCut);
HTMLRemoveTags(Commento);
HTMLDecode(Commento);
Commento := trim(Commento);
if commento <> '' then
Save_Value := Save_value + commento + ';' + crlf;
end;
Value := Save_value;
end;
Procedure Normalizza_page; // elimina i crlf, trasforma delimiters maiuscoli in minuscoli
begin
CharAbNormal := crlf;
CharNormal := ' ';
Value := StringReplace(Value, CharAbNormal, CharNormal);
CharAbNormal := '<B';
CharNormal := '<b';
Value := StringReplace(Value, CharAbNormal, CharNormal);
CharAbNormal := '</B';
CharNormal := '</b';
Value := StringReplace(Value, CharAbNormal, CharNormal);
// CharAbNormal := ' ';
// CharNormal := ' ';
// Value := StringReplace(Page, CharAbNormal, CharNormal);
CharAbNormal := '<FONT';
CharNormal := '<font';
Value := StringReplace(Value, CharAbNormal, CharNormal);
CharAbNormal := '</FONT';
CharNormal := '</font';
Value := StringReplace(Value, CharAbNormal, CharNormal);
CharAbNormal := '<TD';
CharNormal := '<td';
Value := StringReplace(Value, CharAbNormal, CharNormal);
CharAbNormal := '</TD';
CharNormal := '</td';
Value := StringReplace(Value, CharAbNormal, CharNormal);
CharAbNormal := '<DIV';
CharNormal := '<div';
Value := StringReplace(Value, CharAbNormal, CharNormal);
CharAbNormal := '</DIV';
CharNormal := '</div';
Value := StringReplace(Value, CharAbNormal, CharNormal);
end;
// &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
//------------------------------------------------------------------------------
// extract 'various infos'
//------------------------------------------------------------------------------
function ExtrInfo(str1, str2: string) :string;
begin
str1 := FormatText(TextBetween(str1, str2, '</table>'));
if str1 <> '' then str1 := crlf+str2+': '+str1;
result := str1;
end;
//------------------------------------------------------------------------------
// set show warning (normal mode) or add to log (batch mode)
//------------------------------------------------------------------------------
procedure LogMessage(m: string);
begin
if BatchMode > 0 then
AddToLog('item '+GetField(fieldNumber)+': '+m)
else
ShowWarning(m);
end;
//------------------------------------------------------------------------------
// add a message in the batch log and save to disk
// (because I don't know when it's finished...)
//------------------------------------------------------------------------------
procedure AddToLog(m: string);
begin
batchlog.Add(m);
batchlog.SaveToFile(batchlogfic);
end;
//------------------------------------------------------------------------------
// process batch mode
//------------------------------------------------------------------------------
procedure AllMusicBatch;
begin
AlbumName := GetField(fieldTranslatedTitle); // if no url or another site then ignore
if (AlbumName <> '') and (Pos(AllAlbumUrl, AlbumName) > 0) then
AnalyzeMusicPage(AlbumName)
else
LogMessage('ignored url="'+AlbumName+'"');
end;
//------------------------------------------------------------------------------
// process normal mode
//------------------------------------------------------------------------------
procedure AllMusicNorm;
begin
albumok := False;
if dfltAlbum = 1 then
begin
LogMessage('Sorry this functionality is not operational for now');
// dfltAlbumc := '1';
// AlbumName := GetField(fieldTranslatedTitle); // get artist name
// repeat
// if not Input('AllMusic.com Import', 'Enter the name of the artist :', AlbumName) or (AlbumName = '') then exit;
// GetList;
// until albumok;
end;
if dfltAlbum = 2 then
begin
dfltAlbumc := '2';
AlbumName := GetField(fieldTranslatedTitle); // get album name
repeat
if not Input('AllMusic.com Import', 'Enter the name of the album :', AlbumName) or (AlbumName = '') then exit;
GetList;
until albumok;
end;
if dfltAlbum = 3 then
begin
LogMessage('Sorry this functionality is not operational for now');
// dfltAlbumc := '3';
// AlbumName := GetField(fieldOriginalTitle); // get song name
// repeat
// if not Input('AllMusic.com Import', 'Enter the name of the song :', AlbumName) or (AlbumName = '') then exit;
// GetList;
// until albumok;
end;
end;
//------------------------------------------------------------------------------
// start here
//------------------------------------------------------------------------------
begin
if abort = 'o' then exit; // batch mode aborted
if firstcall <> 'done' then
begin // 1st call: init parameters
firstcall := 'done';
if not CheckVersion(3,5,0) then
begin
ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.0)');
abort := 'o';
exit;
end;
// get user's parms (used more than once)
dfltAlbum := GetOption('AlbumOpt');
BatchMode := GetOption('Mode');
Tipo_ricerca := GetOption('TypeSearch');
if BatchMode > 0 then // batch mode: confirm the choice
begin
batchlog := TStringList.Create; // init batch log
batchlog.Add('starting batch mode');
batchlog.Add(StringOfChar('*',80));
batchlog.SaveToFile(batchlogfic);
// confirmation message
confbatch := TStringList.Create;
confbatch.Add('You have selected the batch mode:');
confbatch.Add('Have you saved your database?');
confbatch.Add('');
confbatch.Add('At the end of treatement:');
confbatch.Add('- look at the file '+batchlogfic+' for errors/infos');
confbatch.Add('- the albums found will be checked, the others not (for the selection)');
confbatch.Add(' (see: Tools/Preferences/Movie list/checkboxes)');
confbatch.Add('');
confbatch.Add('confirm your choice');
if not ShowWarning(confbatch.Text) then
begin
AddToLog('batch mode aborted'); // batch mode not confirmed = abort
abort := 'o';
exit;
end;
end;
end;
// let's go
if BatchMode = 0 then
AllMusicNorm
else
AllMusicBatch;
end.
Hope to be useful....
[/code]