Scripts that need to be fixed / Scripts à corriger

[yeti]

It's not possible to load the pictures from filmposter-archiv.de with a script. With my modified script, I get a standard-picture from the site, telling me a direct download is not desired. I think they use a cookie, referer or something like that on their website.

Here are the changes I've made to correct my problems (1 year ago, I think). But you can't download the picture anymore since 5-6 months. AMC can't send cookies, referer..., so I don't analyze the problem deeper.

Replace AnalyzePage() with this code:

Code: Select all

procedure AnalyzePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
  if pos('<TITLE>Filmposter-Archiv - Filmposter-Suche', Page.Text) = 0 then
  begin
    AnalyzeMoviePage(Page)
  end else
  begin
    if FindLine('<B>0 Treffer</B>', Page, 0) < 0 then
    begin
      PickTreeClear;
      LineNr := 0;
      LineNr := FindLine('<OL>', Page, LineNr);
      if LineNr > -1 then
      begin
        PickTreeAdd('Suche nach "' + MovieName + '" ergab folgende Treffer:', '');
        AddMoviesTitles(Page, LineNr);
      end;
      if PickTreeExec(Address) then
        AnalyzePage(Address);
    end;
  end;
  Page.Free;
end;

and replace this line in AnalyzeMoviePage():

Code: Select all

LineNr := FindLine('<IMG SRC="../p_', Page, 0);

with

Code: Select all

LineNr := FindLine('<IMG SRC="../filmplakat/', Page, 0);

greets,
Andreas

[spacekris]

But you can't download the picture anymore since 5-6 months.

yes thats right. so why did i replace the lines .

[yeti]

If you replace the lines, you can download the standard picture

I've posted the code for your information only.

greets,
Andreas

[spacekris]

i tried, no picture is found to download ?

/edit: ah,sorry. was just the film it diednt find.
works, with the standardpic. thanks, its a beginning .

[vernmark]

I tried to use this script today and it is downloading wierd pictures and information. The last time I used AMG was approximately two weeks ago and it worked perfectly. Any one know of problems and fixes? Thanks.

[Plecotus]

The [NL] Cineguide_nl.ifs www.cinebel.be script (by Epsilon, Antoine Potten) seems to be no longer working. It still finds the movie (you get to see the list), but once selected and trying to download the movie info, it comes up with "No Movie Found".

It was working fine a few days ago...

Well, as I made/corrected that script I guess that I'll have to correct it again. I still have the image.be script in my to-do list

Any updates on the cineguide [NL] script?

grtz

I forgot to work on it, sorry

No worries m8 ;-).

Are we making any progress?
I have no clue about scripting, so I'm completely depending on you for this one...

Much appreciated !!!

[antp]

Sorry, no, nothing yet.

[sezam]

Hi everyone!
What is wrong with AMG script? Any chance to get it work soon?

[Beaker]

It can no longer get the actor list from the website.
any chance of an update in near future ?

Regards

[baffab]

Hi everyone!
What is wrong with AMG script? Any chance to get it work soon?

If you speak about the script of All Movie Guide, it was updated. See viewtopic.php?t=3115

[Beaker]

no. i meant the IMDB script. (as stated in subject )

[antp]

They changed the layout of the actors list on the site, so I guess that it would break the script

[baffab]

I modified this section :

Code: Select all

        2, 3:
          while Pos('<tr>', Value) > 0 do
          begin
            Value2 := TextBetween(Value, '<tr', '</tr>');
            Value := RemainingText;
            if Pos('rest of cast', Value2) > 0 then
              Continue;
            if Pos('<a href="fullcredits">(more)</a>', Value2) > 0 then
              Break;
            if FullValue <> '' then
              FullValue := FullValue + #13#10;
            TextBefore(Value2, '</td>', '');
            Value2 := TextBetween(RemainingText, '/">', '</a>') + ' (as ' + TextBetween(RemainingText, 'e">', '</td>')+ ')';
            if Value2 <> '' then
              FullValue := FullValue + Value2 ;
          end;

to get the actors, for this time. But for how long…

[Beaker]

That did the trick.. thanks

[antp]

Thanks. I'll wait few days before releasing an install of AMC that includes the new script, in the case they do other changes in the next days.

[spacekris]

filmposter-archiv.de doesnt work anymore with the standard picture.
a picture is loaded witch says "please dont directlink to the pictures..".
the OFDB scripts don´t work anymore, its finding the films but no values are found..
anyone patched this already?
greets

[hollywood]

I am getting "Read Timeout" error when I use IMDB script.

the error appear after 10 or 15 sec..

[baffab]

I am getting "Read Timeout" error when I use IMDB script.

the error appear after 10 or 15 sec..

I don't have any problems with the last modification.
With which films for example.

[antp]

A timeout error is rather a temporary problem on the site, or something depending on the locale connexion, not a problem from the script.

[hollywood]

I am using dailup connection maybe this is the problem.
maybe IMDB make a tiemout for each connection