English > Support
Personal Video Database 1.0.2.7 MOD
Ivek23:
IMDB_ [EN] [HTTPS] V 1.4.1.4 script
I fixed some bugs in the code section for ParsePage_IMDBMovieCREDIT (Full cast and crew section except Cast section).
--- Quote ---CHANGE LOG :
V 1.4.1.4 (19/10/2020) Ivek23: ParsePage_IMDBMovieCREDIT (Full Cast and Crew section) = Corrected parts of the code.
--- End quote ---
IMDB_ [EN] [HTTPS] V 1.4.1.4 script is attached.
Ivek23:
--- Quote from: afrocuban on October 21, 2020, 08:45:55 pm ---
--- Quote from: Ivek23 on October 21, 2020, 07:07:38 am ---
First, I'm wondering if the IMDB_ [EN] [HTTPS] (afrocuban) script is working properly.
--- End quote ---
It works great for the movies and episodes. It doesn't import directors for the series, though.
--- End quote ---
The IMDB_ [EN] [HTTPS] script only downloads the Cast section for the series, so the IMDB_ [EN] (HTTPS] (series) or IMDB_ [EN] [HTTPS] (series) (Miguelh1020) script must be used.
--- Quote from: afrocuban on October 21, 2020, 08:35:46 am ---This is the screenshot of Modern Family series (not episode(s)). We see directors of all episodes there. I can't remember how to get that. Thank you in advance.
--- End quote ---
Now this should be done using scripts for the series.
--- Quote from: afrocuban on October 23, 2020, 01:44:46 am ---and it still doesn't import non-Latin (titles in cyrillic, in my case)...
--- End quote ---
--- Quote --- CODE_PAGE =65001 ; //28591=ISO 8859-1 Latin 1; Western European (ISO). Use: 65001=Unicode (UTF-8) | 0=for Autodetect Autodetect
.
.
.
Function DownloadPage(URL:AnsiString):String; //BlockOpen
//Returns the URL page text. If error returns empty string
Var
i:Integer;
ScriptPath,WebText:String;
Begin
LogMessage(Chr(9)+Chr(9)+'Function DownloadPage BEGIN======================|');
LogMessage(Chr(9)+Chr(9)+'Global Var-DownloadURL|'+DownloadURL+'|');
LogMessage(Chr(9)+Chr(9)+' Local Var-URL|'+URL+'|');
ScriptPath:=GetAppPath+'Scripts\';
//LogMessage(Chr(9)+Chr(9)+' Local Var-ScriptPath|'+ScriptPath+'|');
//Delete the ancient dowloaded page file. Needed for wait to curl download included in PowerShell command.
While FileExists(ScriptPath+BASE_DOWNLOAD_FILE_NO_BOM) Do Begin
FileExecute('cmd.exe', '/C del "'+ScriptPath+BASE_DOWNLOAD_FILE_NO_BOM+'"');
LogMessage(Chr(9)+Chr(9)+' Waiting 1s for delete:'+ScriptPath+BASE_DOWNLOAD_FILE_NO_BOM);
wait (1000);
End;
//Download the URL page.
LogMessage(Chr(9)+Chr(9)+' Download with PVdBDownPage in file:|'+ScriptPath+BASE_DOWNLOAD_FILE_NO_BOM+' the information of:|'+URL+'||');
FileExecute(ScriptPath+'PVdBDownPage.exe', '"'+URL+'" "'+ScriptPath+BASE_DOWNLOAD_FILE_NO_BOM+'"');
//Wait download finish and exist the downloaded page.
i:=0; // INTERNET_TEST_ITERATIONS
While Not(FileExists(ScriptPath+BASE_DOWNLOAD_FILE_NO_BOM)) Do Begin
LogMessage(Chr(9)+Chr(9)+' Waiting 2s for exists of:'+ScriptPath+BASE_DOWNLOAD_FILE_NO_BOM);
wait (2000);
i:=i+1;
If i=INTERNET_TEST_ITERATIONS Then Begin
if 2=MessageBox('Too many faulty attempts to internet connection.'+Chr(13)+ 'Retry or Cancel?',SCRIPT_NAME,5) then begin
LogMessage(Chr(9)+Chr(9)+'Function DownloadPage END with NOT INTERNET connection ===============|');
Result:='';
Exit;
End;
i:=0;
End;
End;
LogMessage(Chr(9)+Chr(9)+' Now present complete page file: '+ScriptPath+BASE_DOWNLOAD_FILE_NO_BOM);
WebText:=FileToString(ScriptPath+BASE_DOWNLOAD_FILE_NO_BOM);
WebText:=ConvertEncoding(WebText, ); //65001 utf-8 Unicode (UTF-8) ---> https://msdn.microsoft.com/en-us/library/dd317756(VS.85).aspxbrary/dd317756(VS.85).aspx
//LogMessage(Chr(9)+Chr(9)+' Local Var-WebText|'+WebText+'|'); //Debug statement
Result:=WebText;
--- End quote ---
In the script, set from
--- Quote ---CODE_PAGE =65001 ;
--- End quote ---
in
--- Quote ---CODE_PAGE =0 ;
--- End quote ---
or
--- Quote ---CODE_PAGE =28595 ;
--- End quote ---
It might work. You also have a link to the code page below.
https://docs.microsoft.com/en-us/windows/win32/intl/code-page-identifiers?redirectedfrom=MSDN
afrocuban:
Thanks Ivek. I will try changing code page, and wil let you know
--- Quote from: Ivek23 on October 23, 2020, 11:41:22 am ---
The IMDB_ [EN] [HTTPS] script only downloads the Cast section for the series, so the IMDB_ [EN] (HTTPS] (series) or IMDB_ [EN] [HTTPS] (series) (Miguelh1020) script must be used.
Now this should be done using scripts for the series.
--- End quote ---
Unfortunately, not a single IMDb script import directors of the series for me. I tried them all. Does it import directors for you?
afrocuban:
28595 works for me to import cyrillic, but then it doesn't work to import Latin. I am absolutely positive that 65001 worked for me in the past. What could went wrong in the meantime, do you have any idea?
Ivek23:
IMDB_[EN][HTTPS](series) V 1.4.1.4 script
Same problem with series as it was with movies. I fixed some bugs in the code section for ParsePage_IMDBMovieCREDIT (Full cast and crew section except Cast section).
--- Quote ---CHANGE LOG :
V 1.4.1.4 (19/10/2020) Ivek23: ParsePage_IMDBMovieCREDIT (Full Cast and Crew section) = Corrected parts of the code.
--- End quote ---
IMDB_[EN][HTTPS](series) V 1.4.1.4 script is attached.
Navigation
[0] Message Index
[#] Next page
[*] Previous page
Go to full version