antp.be forum

so imdb changed again code, its needed to update line 551

from

Value := TextBetween(Value, '<div class="text">','</div>');

to

Value := TextBetween(Value, '<div class="text show-more__control">','</div>');

[quote="Mamdouh"]If I want to replace the Producer field (which import producer names) with the Production Companies (to import all production companies) . how can I edit the script to do this.[/quote]

// Producer
if CanSetField(fieldProducer) then
begin
FullValue := '';
Value := TextBetween ...

the problem is in general in getpage function when this function gets as parameter url link. When url link is empty it will pass.

I dont know what causes this, i tried link with http/https and it didnt helped. I found temporary solution which works for me, its not best solution, but the same that ...

it gives iohander error on each line with getpage function. As a temporary fix till imdb returns back to normal or somebody fix this function i have taken getpageex function from csfd script and put it instead of getpage function and it works now OK.

yep, again IO handler error, again getpage function

PageText := ConvertToASCII(GetPage(Address));

Dont know what is imdb doing again...

hmm, now it stopped, strange.

interesting, i am getting IO handler value is not valid error on each movie now.

when i am on line with GetPage function.

both mentioned movies imported OK for me.

For those who are interested i added to writers their "writers role". So it will looks like:

Bill Svanoe (story), Hilary Henkin (screenplay), Dean Riesner (written by)


[code]
// Writer
if CanSetField(fieldWriter) then
begin
Value := TextBetween(PageText, '<table class="subpage_data spFirst ...

for those who are interested i added to producers names their "producers role" so it will looks like:

Brent Baum (producer), Michael Baumgarten (line producer), Des Carey (executive producer), Aaron Judkins (associate producer), Matthew Marsden (producer), Patrick Millsaps (executive producer), Joe ...

I dont know why but some movies missing plot summary down on the main page, so i updated the code to take the longest summary from plotsummary subscreen:


[code]
// Description
if CanSetField(fieldDescription) then
begin
if (GetOption('DescriptionSelection') = 0) then
begin
Value ...

For anybody who is interested I updated awards section, for some movies it didnt imported correctly and i didnt liked layout

[code]
// Import awards
procedure ImportAwards;
var
IndexPage: TStringList;
PageText, FullValue, Block, Value, Row, Outcome, Details, AwardShow, PageText1, Person ...

original title and year didnt worked for some movies, so for original title i changed the whole section by this and now works:

// OriginalTitle & Year
if CanSetField(fieldOriginalTitle) or CanSetField(fieldYear) then
begin
originalTitle := TextBefore(PageText, '(original title)', '</h3>');
if ...

for 10 comments selection (commenttype = 1) just replace the section by this and add missing variables used in script:

if (GetOption('CommentType') = 1) then
begin
begin
Value2 := '';
Value3 := '';
p:= 0;
FullValue := ConvertToASCII(GetPage(MovieURL+'/reviews'));
FullValue := TextAfter ...

for poster to work just update one line in ImportLargePicture function:

Value := TextBetween(PageText, 'alt="Poster"', '/>');

and it gonna to work. They still change something.