Test for PersonalVideoDB_MOD-V.Alfa_.3 FilmAffinity_[ES][HTTPS] and TheMovieDB_[EN][API] script it works ok.
IMDB_ [EN] [HTTPS] script as it is now, very rare cases that it works at all, most often a window appears asking for confirmation, restarting or turning off PVD. However, once I removed all MPAA, AKA, CAST and AWARDS data transfer pages, the situation has been significantly corrected, but there is still a window with the request to confirm, restart or turn off the PVD. There is no download of information for Release Date, Budget, Cumulative Worldwide Gross, Runtime. I add a piece of code before I download the information and after it transfers the information.
Release Date before
//Get ~rdate~ in contry provider local IP geolocation. See: http://sobizarre-en.blogspot.fr/2014/12/how-to-easily-defeat-imdb-geolocation.html
curPos:=Pos('<h4 class="inline">Release Date:</h4>',HTML); //WEB_SPECIFIC
If 0<curPos Then Begin
ItemValue:=TextBetWeen(HTML,'<h4 class="inline">Release Date:</h4>','(',false,curPos); //Strings which opens/closes the data. WEB_SPECIFIC
AddFieldValueXML('rdate',ItemValue);
LogMessage(' Get results Release Date:'+ItemValue+'||');
End; Release Date after
//Get ~origlang~ (several values in a comma separated list)
curPos:=Pos('<h4 class="inline">Language:</h4>',HTML); //WEB_SPECIFIC.
if 0<curPos then begin
ItemValue:=TextBetWeen(HTML,'<h4 class="inline">Language:</h4>','</div>',false,curPos); //Strings which opens/closes the data. WEB_SPECIFIC
//ItemValue:=StringReplace(ItemValue,'|',',',True,True,False); //Change the separator to comma
ItemValue:=StringReplace(ItemValue, ' | ', ', ', true, false, true);
AddFieldValueXML('origlang',ItemValue);
LogMessage(' Get results Language:'+ItemValue+'||');
end;
//Get ~rdate~ in contry provider local IP geolocation. See: http://sobizarre-en.blogspot.fr/2014/12/how-to-easily-defeat-imdb-geolocation.html
curPos:=Pos('<h4 class="inline">Release Date:</h4>',HTML); //WEB_SPECIFIC
If 0<curPos Then Begin
ItemValue:=TextBetWeen(HTML,'<h4 class="inline">Release Date:</h4>','(',false,curPos); //Strings which opens/closes the data. WEB_SPECIFIC
ItemValue:=StringReplace(ItemValue,'January','1',true,true,true);
ItemValue:=StringReplace(ItemValue,'February','2',true,true,true);
ItemValue:=StringReplace(ItemValue,'March','3',true,true,true);
ItemValue:=StringReplace(ItemValue,'April','4',true,true,true);
ItemValue:=StringReplace(ItemValue,'May','5',true,true,true);
ItemValue:=StringReplace(ItemValue,'June','6',true,true,true);
ItemValue:=StringReplace(ItemValue,'July','7',true,true,true);
ItemValue:=StringReplace(ItemValue,'August','8',true,true,true);
ItemValue:=StringReplace(ItemValue,'September','9',true,true,true);
ItemValue:=StringReplace(ItemValue,' October ',' 10 ',true,true,true);
ItemValue:=StringReplace(ItemValue,' November ',' 11 ',true,true,true);
ItemValue:=StringReplace(ItemValue,' December ',' 12 ',true,true,true);
//ItemValue:=StringReplace(ItemValue, ' ', '.', true, false, true);
ItemValue:=StringReplace(ItemValue, ' ', #46, true, false, true);
AddFieldValueXML('rdate',ItemValue);
AddCustomFieldValueByName('Imdb Release Date',ItemValue);
LogMessage(' Get results Release Date:'+ItemValue+'||');
End; Runtime before
//Get ~lenght~ (User option GET_LENGTH)
If GET_LENGTH Then Begin
curPos:=Pos('<h4 class="inline">Runtime:</h4>',HTML); //WEB_SPECIFIC.
If 0<curPos Then Begin
ItemValue:=TextBetWeen(HTML,'<time itemprop="duration" datetime="PT','M">',false,curPos); //Strings which opens/closes the data. WEB_SPECIFIC
AddFieldValueXML('lenght',ItemValue);
LogMessage(' Get result lenght:'+ItemValue+'||');
End;
End; Runtime after
//Get ~lenght~ (User option GET_LENGTH)
If GET_LENGTH Then Begin
curPos:=Pos('<h4 class="inline">Runtime:</h4>',HTML); //WEB_SPECIFIC.
If 0<curPos Then Begin
ItemValue:=TextBetWeen(HTML,'<time itemprop="duration" datetime="PT','M">',false,curPos); //Strings which opens/closes the data. WEB_SPECIFIC
AddFieldValueXML('lenght',IntToStr(StrToInt(ItemValue)*60));
LogMessage(' Get result lenght:'+ItemValue+'||');
End;
End;I have a suggestion to first edit the IMDB_ [EN] [HTTPS] script to download information from the basic IMDB movie pages, but then the rest of the above pages, because this is at least in my estimation the main reason that the complete IMDB_ [EN ] [HTTPS] script, often causes a window to appear with a request to confirm, restart or turn off PVD.
There was also an error in downloading the URL of the address, shown in the code below.
//Parse return of 'SearchList Movie URL'-----------------------------------------------------------------------
If (Mode=smSearchList) Then Begin //The user have choose the link.
LogMessage(' ParsePage mode smSearchList. Getting DownloadURL from the return of smSearchList');
DownloadURL:=StringReplace(URL,CHEAT_PREFIX_URL,'',True,False,False); //Eliminate the CHEAT_PREFIX_URL for get the true movie link
DownloadURL:=StringReplace(DownloadURL,'http','https',True,True,False); //The direct url needed (no https redirection)
DownloadURL:=StringReplace(DownloadURL,'httpss','https',True,True,False); //The direct url needed (no https redirection)
LogMessage(' Global Var-DownloadURL|'+DownloadURL+'|');
Mode:=smNormal;
Result:=prDownload; //But not exit needed for download the page because is HTTPS
LogMessage(' With the good movie URL it demand download the movie page');
End;
When I know more, I will also explain this as I do now.
Show Posts
.
of course i should use both scripts, not only the (cast)2 one.... now it works perfectly! 