and add audio picture import like in second script! it ver important 4 me!
// GETINFO SCRIPTING
// CMDB import by Peter V.
program CMDB;
var
AlbumName: string;
// simple string procedures
function StringReplaceAll(S, Old, New: string): string;
begin
while Pos(Old, S) > 0 do
S := StringReplace(S, Old, New);
Result := S;
end;
procedure CutAfter(var Str: string; Pattern: string);
begin
Str := Copy(str, Pos(Pattern, Str) + Length(Pattern), Length(Str));
end;
procedure CutBefore(var Str: string; Pattern: string);
begin
Str := Copy(Str, Pos(Pattern, Str), Length(Str));
end;
// Loads and analyses page from internet (list of movies or direct hit)
procedure AnalyzePage(Address: string);
var
Page: TStringList;
begin
Page := TStringList.Create;
Page.Text := GetPage(Address);
// movie list
if Pos('<!-- START ITEM -->', Page.Text) > 0 then
begin
PickTreeClear;
PickTreeAdd('Search results', '');
AddAlbumsTitles(Page);
if PickTreeExec(Address) then
AnalyzePage(Address);
// refine search
end
else
if Pos('search could not be completed', Page.Text) > 0 then
begin
ShowMessage('We were unable to find a match. Please refine your search.');
if Input('CDDB Import', 'Enter the title of the album:', AlbumName) then
begin
AlbumName := StringReplace(AlbumName, ' ', '+');
AnalyzePage('http://www.gracenote.com/music/search-a ... st=&qdisc=' + AlbumName +'&qtrack=&n=50&x=0&y=0');
end
// direct hit
end
else
begin
SetField(FieldURL, Address);
AnalyzeAlbumPage(Page)
end;
end;
// Extracts movie details from page
procedure AnalyzeAlbumPage(MoviePage: TStringList);
var
Page: string;
Value,Address: string;
begin
Page := MoviePage.Text;
// Страна США
Value := 'США';
SetField(fieldCountry, Value);
// Тип Записи
// Value := 'CD-ROM';
// SetField(fieldMediaType, Value);
// Артист / Альбом
SetField(fieldOriginalTitle, GetStringFromHTML(Page, 'cddb_returns', '<b>', '</b><br>'));
// Название Альбома
Value := GetStringFromHTML(Page, '<title>', '', '</title>');
Value := StringReplace(Value, 'Gracenote: Albums - ', '');
SetField(fieldProducer, Value);
// Исполнитель
SetField(fieldDirector, GetStringFromHTML(Page, 'cddb_main_area', 'Artist Info : ', '</a>'));
// Год
SetField(fieldYear, GetStringFromHTML(Page, 'cddb_main_area', 'Year: ', '<br>'));
// Лейбл
Value := GetStringFromHTML(Page, 'cddb_main_area', 'Label: ', '<');
if Pos('main_area', Value) > 0 then
Value := '';
SetField(fieldSource, Value );
// Трек Лист
Value := GetStringFromHTML(Page, 'cddb_main_area', 'Track Title', '</table>');
Value := StringReplace(Value, ' 1.', '1.');
Value := StringReplace(Value, '.', '. ');
// Value := 'Трек Лист :'+ Value; - Для добавления своего в базу...
SetField(fieldActors, Value);
// Image
//Value := GetStringFromHTML(Page, 'http://images.amazon.com/', '', '"');
//if Length(Value) > 0 then GetPicture(Value, False);
DisplayResults;
end;
// Adds movie titles from search results to tree
procedure AddAlbumsTitles(ResultsPage: TStringList);
var
Page: string;
MovieTitle, MovieAddress: string;
begin
Page := ResultsPage.Text;
// Every movie entry begins with string "<!-- START ITEM -->"
while Pos('<!-- START ITEM -->', Page) > 0 do begin
CutBefore(Page, '<!-- START ITEM -->');
MovieAddress := 'http://gracenote.com' + GetStringFromHTML(Page, 'A HREF="', '', '" >');
MovieAddress := StringReplace(MovieAddress, 'A HREF="', '');
MovieTitle := GetStringFromHTML(Page, '<A', '', '</A>');
CutAfter(Page, '<!-- END ITEM -->');
// add movie to list
PickTreeAdd(MovieTitle, MovieAddress);
end;
end;
// Extracts single movie detail (like director, genre) from page
function GetStringFromHTML(Page, StartTag, CutTag, EndTag: string): string;
begin
Result := '';
// recognition tag - if present, extract detail from page, otherwise assume detail is not present
if Pos(StartTag, Page) > 0 then begin
CutBefore(Page, StartTag);
// optional cut tag helps finding right string in html page
if Length(CutTag) > 0 then
CutAfter(Page, CutTag);
// movie detail copied with html tags up to end string
Result := Copy(Page, 0, Pos(EndTag, Page) - 1);
// remove html tags and decode html string
HTMLRemoveTags(Result);
Result := StringReplace(Result, '<br>', '');
HTMLDecode(Result);
Result := StringReplace(Result, 'Downloads Available', '');
// ShowMessage('DEBUG: GetStringFromHTML - StartTag "'+StartTag+'", CutTag "'+CutTag+'", EndTag "'+EndTag+'", Result "'+Result+'" ___ '+Page);
end;
end;
procedure RemovePronoun(var Str: string);
var
i: Integer;
s: string;
c: char;
begin
// remove pronouns
if (Copy(Str, 0, 2) = 'L ') or (Copy(Str, 0, 2) = 'A ') then
Str := Copy(Str, 3, Length(Str) - 2)
else if (Copy(Str, 0, 3) = 'Le ') or (Copy(Str, 0, 3) = 'La ') or (Copy(Str, 0, 3) = 'Un ') then
Str := Copy(Str, 4, Length(Str) - 3)
else if (Copy(Str, 0, 4) = 'Les ') or (Copy(Str, 0, 4) = 'Une ') or (Copy(Str, 0, 4) = 'The ') then
Str := Copy(Str, 5, Length(Str) - 4);
// remove non-letters, non-digits and non-spaces
s := '';
for i := 1 to Length(Str) do begin
c := StrGet(Str, i);
if ((c<'a') or (c>'z')) and
((c<'A') or (c>'Z')) and
((c<'0') or (c>'9')) and
(c<>' ') then
else
s := s + Copy(Str, i, 1);
end;
Str := s;
end;
begin
if CheckVersion(3,4,0) then
begin
AlbumName := GetField(fieldOriginalTitle);
if AlbumName = '' then
AlbumName := GetField(fieldTranslatedTitle);
if Input('CDDB Import', 'Enter the title of the album:', AlbumName) then
begin
AlbumName := StringReplace(AlbumName, ' ', '+');
AnalyzePage('http://www.gracenote.com/music/search-a ... st=&qdisc=' + AlbumName +'&qtrack=&n=50&x=0&y=0');
end;
end
else
ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.4.0)');
end.
// GETINFO SCRIPTING
// Amazon.fr CD Audios
(***************************************************
* Script d'importation pour : *
* AMAZON FRANCE , http://www.amazon.fr *
* *
* Script by Chunky *
* *
* A utiliser avec Ant Movie Catalog 3.4.0 *
* www.ant.be.tf/moviecatalog ··· www.buypin.com *
* *
* 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 *
***************************************************)
program AMAZON_FR;
//Paramиtres du script
const
// Mettre les valeurs а True pour importer les champs, ou False pour ne pas en tenir compte
ConfirmTitre = True; // False : ne demande pas de confirmation du titre avant recherche
TempsPause = 500; // 1000 = 1 Seconde (permet d'йviter les timeout en cas de saturation serveur)
ImportImage = True; // False : n'importe pas d'image
ImportGrandeImage = True; // False : petite image importйe
ImportPistes = True; // False : n'importe pas la liste des chansons
ImportAlbum = True; // False : n'importe pas le titre de l'album
ImportInterprete = True; // False : n'importe pas l'interprete
ImportCommentaire = True; // False : n'importe pas le commentaire
ImportDate = True; // False : n'importe pas la date de parution
ImportAddImport = False; // False : remplace le contenu des champs par les donnйes importйes
var
MusicName: string;
function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
i: Integer;
begin
result := -1;
if StartAt < 0 then
StartAt := 0;
for i := StartAt to List.Count-1 do
if Pos(Pattern, List.GetString(i)) <> 0 then
begin
result := i;
Break;
end;
end;
procedure AnalyzePage(Address: string);
var
Page: TStringList;
LineNr: Integer;
begin
Sleep(TempsPause); // Attente X seconde : Evite les timeout sur le serveur
Page := TStringList.Create;
Page.Text := GetPage(Address);
if pos('Sur ce CD', Page.Text) > 0 then
begin
AnalyzeMoviePage(Page);
end
else
if pos('satisfaisante pour votre recherche sur', Page.Text) > 0 then
begin
ShowMessage('Aucun Film Trouvй pour : ' + MusicName);
end else
if pos('Les articles les plus recherchés correspondant à', Page.Text) > 0 then
begin
PickTreeClear;
LineNr := 0;
LineNr := FindLine('résultats au total pour', Page, LineNr);
if LineNr > -1 then
begin
//PickTreeAdd('Films Trouvйs :', '');
PickTreeAdd('Films Trouvйs pour ' + MusicName + ' :', '');
AddMoviesTitles(Page, LineNr);
end;
if PickTreeExec(Address) then
AnalyzePage(Address);
end else
begin
PickTreeClear;
LineNr := 0;
LineNr := FindLine('résultats au total pour', Page, LineNr);
if LineNr > -1 then
begin
//PickTreeAdd('Films Trouvйs :', '');
PickTreeAdd('Films Trouvйs pour ' + MusicName + ' :', '');
AddMoviesTitles(Page, LineNr);
end;
if PickTreeExec(Address) then
AnalyzePage(Address);
end;
Page.Free;
end;
procedure AnalyzeMoviePage(Page: TStringList);
var
Line, Value, Value2, FullValue: string;
LineNr: Integer;
BeginPos, EndPos: Integer;
Dummy: string;
begin
// Image
if ImportImage then
begin
LineNr := FindLine('<a href="http://images-eu.amazon.com/images/P/', Page, 0);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
BeginPos := pos('src="', Line) + 4;
Delete(Line, 1, BeginPos);
EndPos := pos('"', Line);
Value := copy(Line, 1, EndPos - 1);
if ImportGrandeImage then
Value := StringReplace(Value, 'MZZZZZZZ', 'LZZZZZZZ'); // Change l'URL pour prendre la grande au lieu de la petite image
Sleep(TempsPause*3); // Attente 2X seconde : Evite les timeout sur le serveur
GetPicture(Value, False); // False = stocke l'image dans la base
end;
end;
DisplayResults;
end;
procedure AddMoviesTitles(Page: TStringList; var LineNr: Integer);
var
Line: string;
MovieTitle, MovieAddress: string;
StartPos: Integer;
StartImg: Integer;
StartLst: Integer;
LastLine: Integer;
begin
repeat
LineNr := LineNr + 1;
Line := Page.GetString(LineNr);
LastLine := Page.count;
StartPos := pos('<a href=/exec/obidos/ASIN/', Line);
StartImg := pos('<img src="http://images-eu.amazon.com/images/', Line);
StartLst := pos('</a>', Line);
if StartPos+StartImg+StartLst < StartPos+StartPos+StartPos-StartImg-StartLst then
begin
Startpos := Startpos + 9;
MovieAddress := copy(Line, StartPos, pos('qid', Line) - StartPos);
StartPos := pos('<b>', Line) + 3;
MovieTitle := copy(Line, StartPos, (StartPos + 150)- StartPos);
HTMLDecode(Movietitle);
PickTreeAdd(MovieTitle, 'http://www.amazon.fr/' + MovieAddress);
end;
until (LineNr > Lastline);
end;
begin
if CheckVersion(3,4,0) then
begin
MusicName := GetField(fieldTranslatedTitle);
if MusicName = '' then
MusicName := GetField(fieldOriginalTitle);
if ConfirmTitre then
begin
if Input('Amazon.fr Import', 'Entrer le titre de l artiste ou de l album... :', MusicName) then
begin
AnalyzePage('http://www.amazon.fr/exec/obidos/search ... MusicName));
end;
end else
begin
AnalyzePage('http://www.amazon.fr/exec/obidos/search ... MusicName));
end;
end else
ShowMessage('Ce script requiert une version plus rйcente de Ant Movie Catalog (au moins la version 3.4.0)');
end.
(