myHTPC e Ant Movie Catalog

GigiX · 5 Febbraio 2004

Dopo aver letto il 3ad sul myHTPC ho deciso di installarlo sulla mia macchina. Dopo aver girato per un po di forum ho trovato questo programma freeware per catalogare i propri dvd, ed in più permette l'esportazione che sarà poi utilizzata per creare le schede movie per myHTPC. Il bello di questo programma è che ha degli script che permettono di cercare i film on-line, in siti come filmup.com o 35mm.it, e di inserirli direttamente nel database. Per una successiva esportazione ho però dovuto modificare lo script filmup(it) in quanto il formato non rispecchiava quello di myHTPC, ed in più c'era il campo Attori protagonisti che non veniva letto. Questo è il testo completo dello script:

// GETINFO SCRIPTING
// FilmUP (IT) import

(**************************************************
* Movie importation script for: *
* FilmUP (IT), http://www.filmup.com *
* *
* MODIF. DA: PIVELLO (originale di L. Francisco) *
* MODIF. DA: ZANDAL (originale di L. Francisco) *
* Sistemato puntamento a COMMENTS *
* *
* MODIF. DA: GigiX *
* Campo Attori protagonisti *
* ed esportazione corretta per myHTPC *
* *
* For use with Ant Movie Catalog 3.4.1 *
* www.ant.be.tf/moviecatalog *
* *
* 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 FilmUP;
var
MovieName: string;
TheMovieAddress: 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;
BeginPos: integer;
begin
Page := TStringList.Create;
Page.Text := GetPage(Address);
LineNr := FindLine('<title>FilmUP - Cerca: ', Page, 0);
if LineNr = -1 then
begin
SetField(fieldURL, Address);
AnalyzeMoviePage(Page);
end
else
begin
PickTreeClear;
AddMoviesTitles(Page);
if TheMovieAddress='' then
begin
if PickTreeExec(Address) then AnalyzePage(Address);
end
else
begin
SetField(fieldURL, TheMovieAddress);
Page.Text := GetPage(TheMovieAddress);
AnalyzeMoviePage(Page);
end;
end;
Page.Free;
end;

procedure AnalyzeMoviePage(Page: TStringList);
var
Line: string;
NomeHtml: string;
LineNr,PrevLineNr: Integer;
BeginPos, EndPos: Integer;
Field: integer;
Attori: integer;

begin
LineNr := FindLine('', Page, 0);
if LineNr > -1 then
begin
//Translated Title
Line := Page.GetString(LineNr);
HTMLRemoveTags(Line);
SetField(fieldTranslatedTitle, Line);
Attori := 0;
repeat
//Look for next info
repeat
LineNr := LineNr + 1;
Line := Page.GetString(LineNr);
HTMLRemoveTags(Line);
until Line<>'';

//Look for type of line
if Line = 'Titolo originale: ' then
Field := fieldOriginalTitle
else if Line = 'Regia: ' then
Field := fieldDirector
else if Line = 'Produzione: ' then
Field := fieldProducer
else if Line = 'Nazione: ' then
Field := fieldCountry
else if Line = 'Genere: ' then
Field := fieldCategory
else if Line = 'Anno: ' then
Field := fieldYear
else if Line = 'Durata: ' then
Field := fieldLength //Special case: get number only
//Alcune pagine hanno un campo in più, Attori protagonisti
else if Line = 'Attori protagonisti: ' then
begin
Field := fieldActors;
Attori := 1;
end
else if (Line = 'Cast: ') and (Attori = 0) then
Field := fieldActors
else if Line = 'Trama:' then
Field := fieldDescription
else
Field := 0;

// I have to add this test, for sometimes the description
// is on the same line as the tag 'Trama'
if (copy(Line,1,6)='Trama:') and (length(Line)>6) then
begin
Field := fieldDescription;
Delete(Line,1,6);
HTMLDecode(Line);
end
else
begin
//Get values
LineNr := LineNr + 1;
Line := Page.GetString(LineNr);
HTMLRemoveTags(Line);
HTMLDecode(Line);

//Special case: Length
if Field = fieldLength then Line := copy(Line,1,length(Line)-1);

//MODIFICATO da GigiX
if Field = fieldDirector then
begin
Line := StringReplace(Line, ', ', '" , "');
Line := StringReplace(Line, '.', '');
Line := '"' + Line + '"';
end

if Field = fieldActors then
begin
Line := StringReplace(Line, ', ', '" , "');
Line := StringReplace(Line, '.', '');
Line := '"' + Line + '"';
end
end;

if Field<>0 then SetField(Field,Line);

until Field=fieldDescription;
end;

PrevLineNr := LineNr;
//Comments
LineNr := FindLine('">Recensione</a>', Page, PrevLineNr);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
if Pos('DVD', Line) <> 0 then Delete(Line,1,pos('DVD',Line));
if Pos('Scheda', Line) <> 0 then Delete(Line,1,pos('Scheda',Line));
Delete(Line,1,pos('<a href="',Line)+8);
NomeHtml :=Copy(Line,1,pos('"',Line)-1);
if (copy(NomeHtml,1,1)<>'/') then
begin
NomeHtml := '/' + NomeHtml;
end;
GetComments('http://www.filmup.com'+NomeHtml);
PrevLineNr := LineNr;
end;
//Rating
LineNr := FindLine('">Opinioni</a>', Page, PrevLineNr);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
Delete(Line,1,pos('Recensione',Line));
Delete(Line,1,pos('<a href="',Line)+8)
// ----------------------
// MODIFICATO DA PIVELLO: dava errore perchè il path ora è esteso.
// ----------------------
// Line := GetLineFromOtherPage('http://www.filmup.com/'+Copy(Line,1,pos('"',Line)-1),' - <img src="/img/star/');
Line := GetLineFromOtherPage(Copy(Line,1,pos('"',Line)-1),' - <img src="/img/star/');
if Line <> '' then
begin
Line := Copy(Line,1,pos(' - <img src="/img/star/',Line)-1);
if pos('.',Line)>0 then Line := Copy(Line,1,pos('.',Line)-1);
SetField(fieldRating,Line);
end;
PrevLineNr := LineNr;
end;

//Picture
LineNr := FindLine('<a href="posters/locp/', Page, PrevLineNr);
if LineNr = -1 then
begin
LineNr := FindLine('<img src="locand/', Page, PrevLineNr);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
Delete(Line,1,pos('<img src="locand/', Line)+9);
GetPicture('http://www.filmup.com/'+Copy(Line,1,pos('"',Line)-1), False);
end;
end
else
begin
Line := Page.GetString(LineNr);
Delete(Line,1,pos('<a href="posters/locp/',Line)+8);
Line := GetLineFromOtherPage('http://www.filmup.com/'+Copy(Line,1,pos('"',Line)-1),'<img src="../loc/500/');
if Line <> '' then
begin
Delete(Line,1,pos('<img src="../',Line)+12);
GetPicture('http://www.filmup.com/posters/'+Copy(Line,1,pos('"',Line)-1), False);
end;
end;
DisplayResults;
end;
function GetLineFromOtherPage(address: string; hint: string): string;
var
Page: TStringList;
LineNr: integer;
begin
Page := TStringList.Create;
Page.Text := GetPage(Address);
LineNr := FindLine(hint, Page, 0);
if LineNr > -1 then result := Page.GetString(LineNr);
Page.Free;
end;
procedure GetComments(address: string);
var
Page: TStringList;
BeginLine: integer;
EndLine: integer;
i: integer;
Line, Comments: string;
begin
Page := TStringList.Create;
Page.Text := GetPage(Address);
BeginLine := FindLine('RECENSIONI', Page, 0);
BeginLine := FindLine('', Page, BeginLine);
EndLine := FindLine('<a href="opinioni.htm">Scrivi la tua recensione!</a> ', Page, BeginLine);
for i:= BeginLine+1 to EndLine-1 do
begin
Line := Page.GetString(i);
Line := StringReplace(Line, ' ', #13#10);
Line := StringReplace(Line, #13#10#32, #13#10);
HTMLRemoveTags(Line);
HTMLDecode(Line);
Comments := Comments + Line;
end;
SetField(fieldComments, Comments);
Page.Free;
end;

procedure AddMoviesTitles(Page: TStringList);
var
LineNr: Integer;
Line: string;
MovieTitle, MovieAddress: string;
BeginPos, EndPos: Integer;
begin
LineNr := 0;
LineNr := FindLine('FilmUP - Scheda:',Page,LineNr);
while LineNr > -1 do
begin
Line := Page.GetString(LineNr);
BeginPos := pos('<a href="',Line)+9;
EndPos := pos('" TARGET="_blank">FilmUP - Scheda: ',Line);
MovieAddress := copy(Line,BeginPos,EndPos-BeginPos);
Delete(Line,1,EndPos);
BeginPos := pos('Scheda: ',Line)+8;
EndPos := pos('</a>',Line);
MovieTitle := copy(Line,BeginPos,EndPos-BeginPos);
HTMLRemoveTags(MovieTitle);
HTMLDecode(Movietitle);
LineNr := FindLine('FilmUP - Scheda:',Page,LineNr+1);
PickTreeAdd(MovieTitle, MovieAddress);
if TheMovieAddress='*' then
TheMovieAddress := MovieAddress
else
TheMovieAddress := '';
end;
LineNr := FindLine('Successivo',Page,LineNr);
Line := Page.GetString(LineNr);
BeginPos := pos('HREF',Line);
if BeginPos>0 then
begin
Delete(Line,1,BeginPos + 5);
EndPos := pos('"',Line);
MovieAddress := copy(Line,1,EndPos-1);
PickTreeMoreLink('http://www.filmup.com'+MovieAddress);
end;
if TheMovieAddress='*' then TheMovieAddress := '';
end;
// -----------------------------
// Questo è il main dello script
// -----------------------------
begin
if CheckVersion(3,4,1) then
begin
TheMovieAddress := '*';
MovieName := GetField(fieldOriginalTitle);
if MovieName = '' then
MovieName := GetField(fieldTranslatedTitle);
if Input('FilmUP Import', 'Digita il titolo del film:', MovieName) then
begin
AnalyzePage('http://www.filmup.com/cgi-bin/search.cgi?q='+UrlEncode(MovieName)+'&ul=%25%2Fsc_%25');
end;
end
else
ShowMessage('Questo script richiede una versione più nuova di Ant Movie Catalog (almeno la versione 3.4.1)');
end.

GigiX · 5 Febbraio 2004

E qui c'è il template per l'esportazione html per myHTPC:

$$ITEM_BEGIN
[$$ITEM_NUMBER]
title=$$ITEM_TRANSLATEDTITLE
subtitle=
overview=$$ITEM_DESCRIPTION
produced=$$ITEM_YEAR
duration=$$ITEM_LENGTH
rating=
review=$$ITEM_RATING
images=$$ITEM_PICTUREFILENAME
chain=$$ITEM_URL
category=$$ITEM_CATEGORY
people=Regia,$$ITEM_DIRECTOR
people=Attori,$$ITEM_ACTORS
$$ITEM_END

Ricordatevi quando fate l'esportazione del file di dare come estensione .my per farlo riconoscere come metadata di myHTPC.

tecnognomo · 5 Febbraio 2004

Non conosco questo programma per catalogare dvd... Lo proverò... Io uso dvdprofiler che, con apposita applicazioncina, è compatibile con myhtpc.

chiccone_99 · 6 Febbraio 2004

anche io uso dvdprofile
come faccio a farlo diventare compatibile con MYHTTPC???

GigiX · 6 Febbraio 2004

Non ho mai usato il dvdprofile, però vi assicuro che ant movie e myhtpc vanno benissimo insieme. Ma anche con dvdprofile è possibile creare le schede dei film prendendole direttamente dal web come su ant movie?

morelli · 6 Febbraio 2004

GigiX ha scritto:
Non ho mai usato il dvdprofile, però vi assicuro che ant movie e myhtpc vanno benissimo insieme. Ma anche con dvdprofile è possibile creare le schede dei film prendendole direttamente dal web come su ant movie?

Praticamente le schede di DVDPRofiler sono già presenti sul server della intervocative (produttrice di dvdprofiler) e postate da chi lo usa. Non ci sono solo i dati del film ma pure quelli del dvd.

GigiX · 8 Febbraio 2004

morelli ha scritto:
Praticamente le schede di DVDPRofiler sono già presenti sul server della intervocative (produttrice di dvdprofiler) e postate da chi lo usa. Non ci sono solo i dati del film ma pure quelli del dvd.

Ho provato ad installare il dvdprofiler, ma le schede presenti sul loro server non sono numerosissime. O almeno quello che riguarda la parte italiana. Il bello di ant movie è che posso fare ricerche direttamente sui server italiani tipo filmup.com, 35mm.it,yahoo.cinema.it o cinematografo.it e tirar giù le schede, e qui si trova veramente tutto.

morelli · 8 Febbraio 2004

GigiX ha scritto:
Ho provato ad installare il dvdprofiler, ma le schede presenti sul loro server non sono numerosissime. O almeno quello che riguarda la parte italiana. Il bello di ant movie è che posso fare ricerche direttamente sui server italiani tipo filmup.com, 35mm.it,yahoo.cinema.it o cinematografo.it e tirar giù le schede, e qui si trova veramente tutto.

Mi sa che hai guardato male.

I 500 dvd italiani che ho li ho sempre trovati in dvdprofiler.

GigiX · 8 Febbraio 2004

morelli ha scritto:
Mi sa che hai guardato male. I 500 dvd italiani che ho li ho sempre trovati in dvdprofiler.

Avrai ragione tu, ma se cerco il signore degli anelli, la compagnia dell'anello in italiano non esiste. Lo trovo solo come spagnolo o inglese. Anche ecco fatto di Muccino non esiste cercando come zona l'italiano. Questo per dirne due, avrai una versione differente.

morelli · 8 Febbraio 2004

GigiX ha scritto:
Avrai ragione tu, ma se cerco il signore degli anelli, la compagnia dell'anello in italiano non esiste. Lo trovo solo come spagnolo o inglese. Anche ecco fatto di Muccino non esiste cercando come zona l'italiano. Questo per dirne due, avrai una versione differente.

Gigix non per voler sembrare pedante ma il signore degli anelli (localizzato ita) è presente su profiler in tutte le salse. Ed esiste pure ecco fatto di muccino.
Ma come fai la ricerca? La miglior cosa sarebbe inserire il codice a barre. Altrimenti se vai sulla ricerca per titolo assicurati di selezionare la regione 2. Se non vedi la selezione clicca prima su "filtri avanzati"

jepa · 3 Marzo 2004

Ciao, visto che DVDProfiler non funzia, mi spiegate come importare in myHTPC le copertine con ant movie catalog?
Ho salvato la copertina con estensione .my nella cartella dei miei video ma quando apro le copertine non vedo niente.Ho cliccato due volte sul file .my ed associato il video nella cartella "media files" e poi fatto close, ma quando apro myHTPC non compare la coeprtina.
Dove sbaglio???

Grazie

jepa · 5 Marzo 2004

jepa · 9 Marzo 2004

Nessuno mi sa dare una mano con ant movie catalog+myhtpc?
Gigiiiiiiix

Grazie

GigiX · 9 Marzo 2004

jepa ha scritto:
Ciao, visto che DVDProfiler non funzia, mi spiegate come importare in myHTPC le copertine con ant movie catalog?
Ho salvato la copertina con estensione .my nella cartella dei miei video ma quando apro le copertine non vedo niente.Ho cliccato due volte sul file .my ed associato il video nella cartella "media files" e poi fatto close, ma quando apro myHTPC non compare la coeprtina.
Dove sbaglio???

Grazie

Ciao, non avevo visto le risposte al 3ad. Come fai l'esportazione da ant movie? Non vedi la copertina del film, o non vedi neanche le descrizioni?

jepa · 9 Marzo 2004

Ciao, l'esportazione la faccio in html con il tuo script e al file dò l'estensione .my.
Ma come associo questo file al filmato?
Lo devo mettere in qualche cartella in particolare oppure basta la dir di myhtpc?

Grazie

GigiX · 9 Marzo 2004

Forse non ho capito, prima parlavi copertina e ora di filmato. Se vuoi vedere un filmato, tipo trailer del film, devi andare sul sito di myhtpc e scaricare un modulo aggiuntivo. Invece le immagini devono essere nella stessa cartella dove hai il file .my. Quando lanci il myhtpc configure per scegliere il tuo file .my, alla voce grouping method hai scelto single metadata?

jepa · 9 Marzo 2004

Intendevo associare la copertina al filmato, è possibile?
Cmq non avevo impostato il configure, grazie.
Ancora due cose : mi dici quale file devo scaricare da myhtpc e i files .my li posso mettere dove voglio o vanno nella stessa dir dei film?

Grazie

GigiX · 9 Marzo 2004

jepa ha scritto:
Intendevo associare la copertina al filmato, è possibile?
Cmq non avevo impostato il configure, grazie.
Ancora due cose : mi dici quale file devo scaricare da myhtpc e i files .my li posso mettere dove voglio o vanno nella stessa dir dei film?

Grazie

Per i filmati io non li ho ancora inseriti, però ci dovrebbe essere un altro 3ad in cui è spiegato come fare. I file .my puoi metterli dove vuoi, sempre inseme alle immagini, e poi selezionarli nel configure.
Ciao

jepa · 9 Marzo 2004

Grazie mille.
Ma per ogni copertina ho un file .my, poi le riconosce/associa myhtpc?
Ho provato anche dvd profiler ma per me è meglio ant movie catalog: gratis, migliori copertine e anche più semplice da usare.
Poi se mi servono ancora info ti faccio sapere

Aggiungo :
Quale è lo script per trovare le copertine su 35mm.it?
Quello che hai messo vale solo per filmup, esatto?

Ciao

Menu

myHTPC e Ant Movie Catalog

GigiX

New member

GigiX

New member

tecnognomo

New member

chiccone_99

New member

GigiX

New member

morelli

New member

GigiX

New member

morelli

New member

GigiX

New member

morelli

New member

jepa

New member

jepa

New member

jepa

New member

GigiX

New member

jepa

New member

GigiX

New member

jepa

New member

GigiX

New member

jepa

New member