Personal Video Database

Thank you for clear explanation!

Hello.

Can someone please check if these 2 links can be imported to PVD:

https://www.imdb.com/title/tt3118664/

https://www.imdb.com/title/tt0298045/

Thank you in advance!

IMPORTANT: TEST ONLY IN NEW/EMPTY DATABASE OR IF THE LINKS DON'T WORK YOU MAY CORRUPT YOUR DATABASE!!!

Quote from: Ivek23 on January 07, 2022, 06:18:44 pm

Quote from: gear on January 07, 2022, 03:52:23 pm

Dear Ivek, First of all I wish you and all our friends in PVD, a Happy New Year 2022.

Thanks

Quote from: gear on January 07, 2022, 03:52:23 pm

I am writing in order to ask where stands the checking you where doing on all the files which needed modification. Have you finished them or not yet ?
Please let us know.

...
Since I already have known vision problems (you probably already know that), which are gradually increasing, I also need to stop with script tests so as not to strain my eyes too much, because then PVD users would be deprived of new script updates and further PVD use....

Happy New Year! Good luck and health !!!!

I want to use this program but I keep getting an IOHandler not valid error message. I tried on Win 7 & Win 10 to no avail.
How do I solve this problem or where do I look??
Thank you
Len Ovo

Function ParsePage_IMDBMovieBASE(HTML:String):Cardinal; //BlockOpen
    //Returns:
    //     Result:=prFinished; Script has finished gathering data
    //     Result:=prError; If żany big problem? with exit;
    //Retrieve: ~title~, ~year~, ~origtitle~, ~poster~ / ~imdbrating~, ~IMDB_Votes~ (Custom Field) / ~TOP_250~(Custom Field) /
    //          If Not(GET_FULL_CREDIT): ~crew~ctDirectors,ctWriters,ctComposers,ctProducers(Not in base page), ctActors
    //         ~description~ / ~category~ "keywords" / ~tagline~ / ~genre~
    //         If Not(GET_FULL_MPAA) ~mpaa~
    //         ~country~ / ~rdate~ in contry provider local IP geolocation
    //         If Not(GET_FULL_AKA) ~aka~.
    //         ~budget~ / ~money~ / ~studio~ "Production Co"
    //         If Not(GET_FULL_FEATURES) ~features~
  Var
      curPos,endPos,index:Integer;
     debug_pos1:Integer;
     StartPos:Integer;
     //Hours,Minutes:Integer;
      ItemValue,ItemValue0,ItemValue1,ItemValue2,ItemList,ImageFile:String;
     ItemValue00:String;
      titleValue:String;
     yearValue:String;
     seriesValue,yearsValue:String;
      Name,Role,PersonURL:String;
     ItemList2,ItemList12,day_s,month_s,year_s:String;
     //ItemList1,ItemList11:String;
      ItemArray:TWideArray;
  Begin
.
.
.
   //Go to "Tv Mode"    
   StartPos:=Pos('<h1 textlength="',HTML);
   if StartPos>0 then begin   
      ItemValue:=HTMLValue(HTML,StartPos,0,'<li role="presentation" class="ipc-inline-list__item">','releaseinfo?ref_=tt_ov_rdat');
      if ItemValue <> '' then LogMessage('      Get result Tv Mode1:'+ItemValue+'||');
      debug_pos1:=Pos('<a href="',ItemValue);
      if debug_pos1 >0 then ItemValue:=Copy(ItemValue,0,debug_pos1-1);
      //ItemValue:=StringReplace(ItemValue,'','',True,False,True);
      //ItemValue:=StringReplace(ItemValue,'</a>','',True,False,True);      
      AddCustomFieldValueByName('Tv',ItemValue);   
      if ItemValue <> '' then LogMessage('      Get result Tv Mode (CF~Tv~):'+ItemValue);
      if Pos('TV Mini Series',ItemValue)>0 then yearsValue:=yearsValue+'TV Mini Series ';
      if Pos('TV Series',ItemValue)>0 then yearsValue:=yearsValue+'TV Series ';
      if yearsValue <> '' then LogMessage('      Get result yearsValue:'+yearsValue);      
      //ItemValue1:=HTMLValue(HTML,StartPos,0,'<li role="presentation" class="ipc-inline-list__item','</ul>');
      ItemValue1:=HTMLValues(HTML,'<h1 textlength="','</ul>','"ipc-inline-list__item">','</',', ',StartPos);
      //ItemValue1:=HTMLValues2(HTML,'<h1 textlength="','</ul>','<li role="presentation" class="ipc-inline-list__item">','</li>',', ',StartPos);      
      AddCustomFieldValueByName('Tv2',ItemValue1);   
      if ItemValue1 <> '' then LogMessage('      Get result Tv Mode01:'+#13+ItemValue1+'||'+#13);      
   end else
      LogMessage('tv-metadata not found');         
   //Go to "Tv Mode" Series-year
   StartPos:=Pos('releaseinfo?ref_=tt_ov_rdat',HTML);
   if StartPos>0 then begin
      yearValue:=HTMLValue(HTML,StartPos,0,'</a>','</span></li><li role="presentation" class="ipc-inline-list__item"><a href="/title/');
      //AddCustomFieldValueByName('IMDB_year',yearValue);
      //AddCustomFieldValueByName('IMDB Year',yearValue);
      AddCustomFieldValueByName('IMDB_Series-year',yearValue);
      if yearsValue <> '' then seriesValue:=yearsValue+'('+yearValue+')' else seriesValue:='';
      AddCustomFieldValueByName('IMDB_Series-year1',seriesValue);
      if seriesValue <> '' then LogMessage('      Get result seriesValue:'+#13+seriesValue+'||'+#13);   
      if yearValue <> '' then LogMessage('      Get result Tv Mode (CF~IMDB_year~)+:'+yearValue);   
   end else
      LogMessage('tv-metadata-a not found');   
.
.
.
    //Get the original "Runtime" (in minutes) as ~length~ (in seconds) instead of the duration of the user movie copy                                        //WEB_SPECIFIC.   
    curPos:=Pos('<span class="ipc-metadata-list-item__label">Runtime</span>',HTML);                                        //WEB_SPECIFIC.
    If 0<curPos Then Begin 
        ItemValue1:=TextBetWeen(HTML,'<div class="ipc-metadata-list-item__content-container">','minutes</div></li>',false,curPos);  //Strings which opens/closes the data. WEB_SPECIFIC
        //ItemList:=ItemList+'Original Runtime: '+ItemValue1+' min.<br>';
        LogMessage('      Get result Original Runtime11:'+ItemValue1+'||');
      //If GET_FULL_FEATURES Then
      if ItemValue1 <> '' then
        AddFieldValueXML('length',IntToStr(60*StrToInt(ItemValue1))); //~length~ Value in seconds.
      if ItemValue1 <> '' then AddCustomFieldValueByName('Run time1',ItemValue1);
        //AddFieldValue(14,ItemValue1);  //Field number 14 = Duration, value in minutes
        if ItemValue1 <> '' then LogMessage('      Get result lenght011:'+ItemValue1+'||');
      //LogMessage('      Get result lenght012:'+HTMLValues(HTML,'<span class="ipc-metadata-list-item__label">Runtime</span>','</ul>','<li role="presentation" class="ipc-inline-list__item">','</li>',', ',endPos)+'||');      
        ItemValue00:=TextBetWeen(HTML,'<div class="ipc-metadata-list-item__content-container">','hour</div></li>',false,curPos);  //Strings which opens/closes the data. WEB_SPECIFIC   
      LogMessage('      Get result Original Runtime111:'+ItemValue00+'||');      
      if ItemValue00 <> '' then
      AddFieldValueXML('length',IntToStr(3600*StrToInt(ItemValue00))); //~length~ Value in seconds.
      if ItemValue00 <> '' then AddCustomFieldValueByName('Run time1',IntToStr(60*StrToInt(ItemValue00)));
      if ItemValue00 <> '' then LogMessage('      Get result Original Runtime111:'+ItemValue00+'||');
        if ItemValue00 <> '' then LogMessage('      Get result lenght0111:'+ItemValue00+'||');      
    End;