Personal Video Database alternate Forum

I fixed search results in attached Bing_SearchMulti(people)(Imdb) Script:

Bing_SearchMulti(people)(Imdb)  version 0.0.0.5  -  Script for search only Imdb People site

//---------- Procedure SearchResults ----------//
// Create list of movies found during the search
procedure SearchResults (HTML : String);
Var
CurPos, PosStart, EndPos : integer;
URLposStart, URLPosEnd : integer;
StartURL, Title, URL : String;

Begin
  //List of other site where search page :
  TabSite := ['www.imdb.com/name/'];
 
  //Search Result in actual page :
  StartURL := '<h2><a href="http://' + SiteSearch;
   CurPos := Pos(StartURL, HTML);
   
   If Curpos > 0 then begin
      EndPos := Curpos;
     
      While (curpos > 0) AND (curpos < PosFrom('<![CDATA[', HTML, Endpos)) do begin
        EndPos:= Curpos;
        URLposStart := Curpos + 13;
        URLPosEnd := PosFrom('" h="', HTML, URLposStart);
        URL := Copy(HTML, URLPosStart, (URLposEnd-URLposStart));
curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</h2>', HTML, curPos);
Title := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);
        AddSearchResult(URL, Title, '', LowerCase(URL), '');   
        curpos := PosFrom(StartURL, HTML, URLPosEnd);
      End;
  //Add Links to Page with other sites in TabSite:
    For I := Low(TabSite) to High(TabSite) do
    Begin
    URL := 'www.bing.com/Search?q=site%3a' + TabSite[I] + PeopleName+'%s';
    AddSearchResult('Search in :', TabSite[I],'',LowerCase(URL),'');
    end;
   End;
   
End;

I fixed search results in attached Bing_SearchMulti(people) Script:

Bing_SearchMulti(people)  version 0.0.0.4  -  Script for search people multi site(pages)

//---------- Procedure SearchResults ----------//
// Create list of movies found during the search
procedure SearchResults (HTML : String);
Var
CurPos, PosStart, EndPos : integer;
URLposStart, URLPosEnd : integer;
StartURL, Title, URL : String;

Begin
  //List of other site where search page :
  TabSite := ['www.imdb.com/name/', 'www.allmusic.com/artist/', 'www.allmusic.com/album/',
  'www.allmovie.com/artist/', 'www.filmweb.pl/person/', 'www.kinopoisk.ru/level/4/people/'];
 
  //Search Result in actual page :
  StartURL := '<h2><a href="http://' + SiteSearch;
   CurPos := Pos(StartURL, HTML);
   
   If Curpos > 0 then begin
      EndPos := Curpos;
     
      While (curpos > 0) AND (curpos < PosFrom('<![CDATA[', HTML, Endpos)) do begin
        EndPos:= Curpos;
        URLposStart := Curpos + 13;
        URLPosEnd := PosFrom('" h="', HTML, URLposStart);
        URL := Copy(HTML, URLPosStart, (URLposEnd-URLposStart));
curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</h2>', HTML, curPos);
Title := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);
        AddSearchResult(URL, Title, '', LowerCase(URL), ''); 
        curpos := PosFrom(StartURL, HTML, URLPosEnd);
      End;
  //Add Links to Page with other sites in TabSite:
    For I := Low(TabSite) to High(TabSite) do
    Begin
    URL := 'www.bing.com/Search?q=site%3a' + TabSite[I] + PeopleName+'%s';
    AddSearchResult('Search in :', TabSite[I],'',LowerCase(URL),'');
    end;
   End;
   
End;

I fixed search results in attached Bing_SearchMulti_All Script:

Bing_SearchMulti_All version 0.0.0.3  -  Script for search multi site(pages)

//---------- Procedure SearchResults ----------//
// Create list of movies found during the search
procedure SearchResults (HTML : String);
Var
CurPos, PosStart, EndPos : integer;
URLposStart, URLPosEnd : integer;
StartURL, Title, URL : String;

Begin
  //List of other site where search page :
  TabSite := ['www.imdb.com/', 'www.allmusic.com/', 'www.allmovie.com/',
  'www.moviemeter.nl/film/', 'www.filmweb.pl/film/', 'www.filmweb.pl/person/'];
 
  //Search Result in actual page :
  StartURL := '<a href="http://' + SiteSearch;
   CurPos := Pos(StartURL, HTML);
   
   If Curpos > 0 then begin
      EndPos := Curpos;
     
      While (curpos > 0) AND (curpos < PosFrom('<![CDATA[', HTML, Endpos)) do begin
        EndPos:= Curpos;
        URLposStart := Curpos + 9;
        URLPosEnd := PosFrom('" h="', HTML, URLposStart);
        URL := Copy(HTML, URLPosStart, (URLposEnd-URLposStart));
curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</h2>', HTML, curPos);
Title := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);
        AddSearchResult(URL, Title, '', LowerCase(URL), '');   
        curpos := PosFrom(StartURL, HTML, URLPosEnd);
      End;
  //Add Links to Page with other sites in TabSite:
    For I := Low(TabSite) to High(TabSite) do
    Begin
    URL := 'www.bing.com/Search?q=site%3A' + TabSite[I] + '+%20' + MovieName;
    AddSearchResult('Search in :', TabSite[I],'',LowerCase(URL),'');
    end;
   End;
   
End;

I fixed search results in attached Bing_SearchMulti Script:

Bing_SearchMulti version 0.0.0.3 -  Primary script

//---------- Procedure SearchResults ----------//
// Create list of movies found during the search
procedure SearchResults (HTML : String);
Var
CurPos, PosStart, EndPos : integer;
URLposStart, URLPosEnd : integer;
StartURL, Title, URL : String;

Begin
  //List of other site where search page :
  TabSite := ['www.bgafd.com', 'www.iafd.com', 'www.imdb.com'];
 
  //Search Result in actual page :
  StartURL := '<a href="http://' + SiteSearch;
   CurPos := Pos(StartURL, HTML);
   
   If Curpos > 0 then begin
      EndPos := Curpos;
     
      While (curpos > 0) AND (curpos < PosFrom('<![CDATA[', HTML, Endpos)) do begin
        EndPos:= Curpos;
        URLposStart := Curpos + 9;
        URLPosEnd := PosFrom('" h="', HTML, URLposStart);
        URL := Copy(HTML, URLPosStart, (URLposEnd-URLposStart));
curPos := PosFrom('">', HTML, curPos)+2;
endPos := PosFrom('</h2>', HTML, curPos);
Title := RemoveTags(Trim(Copy(HTML, curPos, endPos - curPos)), false);
        AddSearchResult(URL, Title, '', LowerCase(URL), '');   
        curpos := PosFrom(StartURL, HTML, URLPosEnd);
      End;
  //Add Links to Page with other sites in TabSite:
    For I := Low(TabSite) to High(TabSite) do
    Begin
    URL := 'www.bing.com/Search?q=site%3A' + TabSite[I] + '+%20' + MovieName;
    AddSearchResult('Search in :', TabSite[I],'',LowerCase(URL),'');
    end;
   End;
   
End;

Quote from: pra15« on: 25 January 2012, 07:40:06 »

Hello,
Here is a little script to use BING for site who doesn't support a search page like egafd.com.

It's an exemple and we can improve it but if someone is interesting....

I use www.egafd.com for exemple but you can change the const SiteSearch and put what you want. (in the declaration at start)

Quote from: pra15« on: 06 November 2020, 00:25:55 »

Hello,

I used a script with an old version of PVD to modify a field without connection to internet.
I had create a file x.txt in the harddisk of my PC and use it for the fonction of GetDownloadURl. It worked good.
But now with the version 1.0.2.7 of PVD i have an error in the debug mode in getdownloadurl.

I give my script if someone understand.
Thanks.

Quote from: pra15« on: 23 January 2015, 16:20:50 »

Hello,

I reinstall version 0.9.9.21 and the script is good, no error.
I create a file xxx.txt on C: and use it with the function getdownloadurl :

Quotefunction GetDownloadURL : AnsiString;

begin
      Result := 'C:\xxx.txt';
end;

Now with the new version of PVD i have an error.
Is anybody can explain why ?

Quote from: Ivek23« on: 23 January 2015, 16:20:50 »

Quote from: pra15
Now with the new version of PVD i have an error.

With this code,
function GetDownloadURL : AnsiString;    //obbligatoria

begin
logmessage('getdownloadURL demarre')
Result := 'C:\PVD_Vide.txt'; // Créer Fichier PVD_Vide.txt sur C://
logmessage('getdownloadURL fin')
end;the attached file in the PVD version 1.0.2.7 with me script works.

This file is in PVD folder and works in debug and portable mode.

Attached are also log in txt file.

Quote from: Ivek23 on 10 01 May, 2021, 10:31:36 AM
Search results

When you search for the title of a particular movie, you will be presented with a pop-up box with several search results hits. BoxOfficeMojo_ [HTTPS] script has the ability to transfer data to multiple movie titles at once. Then there is a problem with url addresses. Passes the correct url for one address and no more for the others. So I added the following option to download multiple url addresses at once.

QuoteAddSearchResult(' ~ Another Additional Correct Download URL for Title ~ ','','','','');
         AddSearchResult(Title,'',Year,StringReplace(MovieURL,CHEAT_PREFIX_URL+'https://', 'http://',True,False,False),'');
         AddSearchResult('  '+#8729+'  Just to check the website: '+#8729+'  '+Title,'',Year,StringReplace(MovieURL,CHEAT_PREFIX_URL,'',True,False,False),'');       
         AddSearchResult('  '+#8729#8729+' Just to view a partial web URL:'+#8729+' '+StringReplace(MovieURL,CHEAT_PREFIX_URL+BASE_URL_TRUE,'',True,False,False),'',Year,'','');
         AddSearchResult('','','','','');

Mark the title of a particular movie nominally, and mark the following movie titles that you want to have in the database under ~ Another Additional Correct Download URL for Title ~ record (see picture). This will properly transfer all the movie URLs to you.

If movie titles already exist in the database, the movie titles will be marked in the same way as for only one movie title, because the search for results will be repeated and only the first movie title in the list will be marked at that time.

Quote from: Ivek23 on 10 01 May, 2021, 10:33:23 AM
I added the following features to the script.

QuoteGET_POSTER  = False;  //Set to False or True
   GET_SEARCH_POSTER  = False;  //Set to False or True

You can choose for yourself which option you want to use. Just open the script, find these options, modify and save these changes. p otem the script will work as you wish.

I added the following features to the script.

QuoteGET_POSTER  = False;  //Set to False or True
   GET_SEARCH_POSTER  = False;  //Set to False or True
.
.
        if GET_SEARCH_POSTER then      
         //AddSearchResult(Title,'',Year,MovieURL,PreviewURL);                 //Preview size fails in some PVdB users
         AddSearchResult(Title,'',Year,MovieURL,PreviewURL)
        else
         AddSearchResult(Title,'',Year,MovieURL,'');   
         AddSearchResult(' ~ Another Additional Correct Download URL for Title ~ ','','','','');
         AddSearchResult(Title,'',Year,StringReplace(MovieURL,CHEAT_PREFIX_URL+'https://', 'http://',True,False,False),'');
         AddSearchResult('  '+#8729+'  Just to check the website: '+#8729+'  '+Title,'',Year,StringReplace(MovieURL,CHEAT_PREFIX_URL,'',True,False,False),'');       
         AddSearchResult('  '+#8729#8729+' Just to view a partial web URL:'+#8729+' '+StringReplace(MovieURL,CHEAT_PREFIX_URL+BASE_URL_TRUE,'',True,False,False),'',Year,'','');
         AddSearchResult('','','','','');         
         LogMessage('      Get results AddSearchResult: #'+IntToStr(index)+' | '+Title+' | '+MovieURL+' | '+PreviewURL+' ||');
.
.
     //Get ~poster~
     If GET_POSTER then begin
      curPos:=Pos('<div class="a-fixed-left-grid-col a-col-left" style="width:107px;margin-left:-107px;float:left;"><img alt="" src="',HTML);      //WEB_SPECIFIC
      if (0<curPos) then begin
        ItemValue4:=TextBetWeen(HTML,'" height="139" width="92" data-a-hires="','"/></div><div class="a-fixed-left-grid-col a-col-right" style="padding-left:0%;float:left;">',false,curPos);            //Strings which opens/closes the data. WEB_SPECIFIC
        AddImageURL(itPoster,ItemValue4);
        LogMessage('      Get result poster: '+ItemValue4);
      end;
     End;

It's possible that will script also worked without the Proxomitron program.

A new BoxOfficeMojo_ [HTTPS] script version is added to the first post.

Search results

When you search for the title of a particular movie, you will be presented with a pop-up box with several search results hits. BoxOfficeMojo_ [HTTPS] script has the ability to transfer data to multiple movie titles at once. Then there is a problem with url addresses. Passes the correct url for one address and no more for the others. So I added the following option to download multiple url addresses at once.

QuoteAddSearchResult(' ~ Another Additional Correct Download URL for Title ~ ','','','','');
         AddSearchResult(Title,'',Year,StringReplace(MovieURL,CHEAT_PREFIX_URL+'https://', 'http://',True,False,False),'');
         AddSearchResult('  '+#8729+'  Just to check the website: '+#8729+'  '+Title,'',Year,StringReplace(MovieURL,CHEAT_PREFIX_URL,'',True,False,False),'');       
         AddSearchResult('  '+#8729#8729+' Just to view a partial web URL:'+#8729+' '+StringReplace(MovieURL,CHEAT_PREFIX_URL+BASE_URL_TRUE,'',True,False,False),'',Year,'','');
         AddSearchResult('','','','','');

Mark the title of a particular movie nominally, and mark the following movie titles that you want to have in the database under ~ Another Additional Correct Download URL for Title ~ record (see picture). This will properly transfer all the movie URLs to you.

BoxOfficeMojo_ [HTTPS] script

Here is the new BoxOfficeMojo_ [HTTPS] script.

Quote
BoxOfficeMojo.com script


BoxOfficeMojo data:                                           custom field:
--------------------------                                  -------------------

Production Budget                                           Production Budget:   
Worldwide                                              Worldwide:

In addition to the custom fields mentioned above, it also has the following custom fields:


BoxOfficeMojo data:                                           custom field:
--------------------------                                  -------------------

Description                                                      Description   
Domestic                                                              Domestic:
International                                                            International:
Domestic Distributor                                                   Distributor:   or   Distributors:
Genres                                                                   Genresm    or  Genremb)
Earliest Release Date                                           Release Date2
MPAA Rating                                                            MPAA Rating:
BOMUpdated                                                      BOMUpdated
BoxOfficeMojo.com                                                   BoxOfficeMojo.com

These additional custom fields are added by each individual to PVD according to their wishes, depending on what they would like to see in their movie database.

The following normal fields are also added:
Poster, Title, Year, Description, Genres, Budget, Release Date and MPAA

Search results also contain movie posters. To display movie posters, you need to use the Proxomitron program[/color] and proxy settings in PVD.

QuoteYou will also need a new default.cfg file, which is added below. Download the file and copy the Proxomitron program folder, to replace the old "default.cfg" with this new "default.cfg" .

It will also act PVD, you must also PVD settings \ Internet connection, find the "Proxy" and confirm. In the "Server" field enter "localhost" Port settings to 80 . Only with this configuration will function properly PVD. PVD is used only proxy port 80.

The same goes for transferring posters to PVD movie databases. Posters use secure Amazon https url links, which PVD does not yet recognize and posters without Proxomitron cannot be viewed or downloaded to the database.

Bing search results don't work. If search results don't work, you can manually add  http://www.boxofficemojo.com/title/ + IMDB MovieID.

The BoxOfficeMojo_ [HTTPS] script is attached.

default.cfg is attached.