Personal Video Database 1.0.2.7 MOD is now public available:
http://vvveasy.altervista.org/wp-content/uploads/2018/09/PVD_1.0.2.7_MOD-V20180922.zip
Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
I have mgpw4me IMDB People Photo Image script (late January 2010) to more people Image of IMDb,is still at work in version 9.9.14,but in version 9.9.16 or later script does not work anymore, I am very interested in more People images from the IMDb,However, I am interested in how to get the images are otherwise than directly from the IMDb site.
I have a proposal,It would be very nice to be made a plugin or script for the people pictures from IMDb such as the Amazon plugin (s) or other options for the poster image in movies.It would have been nice to organize such a function adding photos to People
Thanks! I'll try not to ask for an imdb3.dll.
Based on PVD Tabs, Appearance is designed on my ideas.
There is also a font, because otherwise there is no effect fonts in the skin
(Fonts for skin).Unzip and copy files to a folder: C:\WINDOWS\Fonts
Added are the instructions (Read Me-skin).Path settings:
PVD> Tools> Preferences> Movies> Custom items
Both in one zip folder (Read Me-skin+Fonts for skin).
It is important that the list of Custom items such as well-written here, because otherwise the skin will not be anything visible.
Each, you choose the item PVD FIELD corresponding to his needs and tastes.
Certain PVD FIELD written in Slovenian language for an option in some script, which I did not change (each user is in a specific script path set to custom items to suit your taste), but the skin is all in the English language.
Each user can set the items in the skin as sort of your choice.
The skin is designed for 800x600 resolution, but also works well at 1280x768 resolution.
Skin Copy to this folder:
C: \ Program Files \ Personal Video Database \ Skins \ Movies
The internal (appearance) look and edit the skin using Notepad + + Portable (very handy program, get it here.)
The internal (appearance) look and edit the skin using Notepad + + Portable (very handy program, get it here.)Enjoy with the skin.
URL {#StringReplace '{%value=url}' 'http://www.imdb.com/title/' ''}I will get full url address to IMDB,URL tt0147800/and now is just like that..
http://www.allmovie.com/work/10-things-i-hate-about-you-177526
http://www.moviemeter.nl/film/714
http://www.mymovies.it/dizionario/recensione.asp?id=32867
http://www.zelluloid.de/filme/index.php3?id=664
Images:
----------------------------------------------------------
Screenshots: {%value=screenshots params="full" template="pages\screens.ptm"}
Front cover: {%value=froncover}
CD cover: {%value=cdcover}
Poster: {%value=poster}that I got into film images folder Front Cover,CD cover and several poster images. Now I have a single poster image in images folder, I would like I have the all images for a single movie.procedure ParseCast(HTML : String);
var
curPos, EndPos : Integer;
Name, Role, URL : String;
begin
curPos := Pos('<div id="results-table">', HTML);
if curPos < 1 then
Exit;
//Actors
EndPos := curPos;
curPos := PosFrom('http://www.allmovie.com/artist/', HTML, curPos);
while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin
EndPos := PosFrom('">', HTML, curPos);
URL := Copy(HTML, curPos, EndPos - curPos);
curPos := EndPos + 2;
EndPos := PosFrom('</a>', HTML, curPos);
Name := Copy(HTML, curPos, EndPos - curPos);
curPos := PosFrom('<em>', HTML, EndPos);
if curPos > 0 then begin
curPos := curPos + 4;
EndPos := PosFrom('</em>', HTML, curPos);
Role := Trim(Copy(HTML, curPos, EndPos - curPos));
end else begin
Role := '';
curPos := EndPos;
end;
AddMoviePerson(Name, '', Role, URL, ctActors);
if curPos > 0 then
curPos := PosFrom('http://www.allmovie.com/artist/', HTML, curPos)
else
Exit;
end;
end;
I replaced it with this codeprocedure ParseCast(HTML : String);
var
curPos, EndPos : Integer;
TmpStr : String;
Name, Role, URL : String;
begin
curPos := Pos('<div id="results-table">', HTML);
if curPos < 1 then
Exit;
TmpStr := '';
EndPos := curPos;
curPos := PosFrom('http://www.allmovie.com/artist/', HTML, curPos);
while (curPos > 0) AND (curPos < PosFrom('</table>', HTML, EndPos)) do begin
EndPos := PosFrom('">', HTML, curPos);
URL := Copy(HTML, curPos, EndPos - curPos);
curPos := EndPos + 2;
EndPos := PosFrom('</a>', HTML, curPos);
Name := Copy(HTML, curPos, EndPos - curPos);
curPos := PosFrom('<em>', HTML, EndPos);
if curPos > 0 then begin
curPos := curPos + 4;
EndPos := PosFrom('</em>', HTML, curPos);
Role := Trim(Copy(HTML, curPos, EndPos - curPos));
end else begin
Role := '';
curPos := EndPos;
end;
if TmpStr <> '' then
TmpStr := TmpStr + #13;
if URL <> '' then
TmpStr := TmpStr + '<link url="' + URL + '">';
TmpStr := TmpStr + Name;
if Role <> '' then
TmpStr := TmpStr + ' - ' + Role;
if URL <> '' then
TmpStr := TmpStr + '</link>';
if curPos > 0 then
curPos := PosFrom('http://www.allmovie.com/artist/', HTML, curPos)
else
Exit;
end;
AddCustomFieldValueByName('Actors', TmpStr);
end;