ant movie catalog 4.2.2 y filmaffinity 3.08 problemas en Director , Guion e Interpretes

[vinuela2]

Cuando descargo informacion para una pelicula de Filmaffinity no funciona correctamente.
Director = ,
Writer = (blanco)
Interpretes = solo el primero de la lista

Saludos

[antp]

For which movie for example?
I tried one, it worked

[vinuela2]

Ya funciona. todo OK

Gracias y saludos

[AARON8888]

Hi antp!

Nice to write you, since long time ago!

Unsuccessfully problem of director, writer and actors remains.

Director --> <,> or (nill)
Writer --> (nill)
Actors --> (just only the first actor)

It was right two days ago, and now I tested and failed.

Examples:
https://www.filmaffinity.com/es/film353635.html
https://www.filmaffinity.com/es/film921503.html
https://www.filmaffinity.com/es/film726087.html

Best and take care!

[AARON8888]

Hi antp again!

Now, I confirm it is right now, thanks anyhow.

[AARON8888]

By surprise, I met similar problem.

This time only actors: --> only first name.

This is the example: https://www.filmaffinity.com/es/film420650.html

For sure, something is going wrong.

Try to amend it, antp.

Thanks

[kadmon]

No estoy muy seguro de esta corrección, alguien tendría que revisarla pero a mi ahora me funciona, si queréis probar hice esto:

Para arreglar el director, el código empieza en la línea 453:

Code: Select all

  begin
    LineNr := LineNr + 1; // <-- Ponemos un 1 en vez de un 3
    Line := Page.GetString(LineNr);
    Item := TextBetween(Line,'<div class="credits">','</dd'); // <-- Modificamos esto
    while Pos (',', Line) <> 0 do
    begin
      Item := Item + ', ';
      LineNr := LineNr + 1; // <-- Ponemos un 1 en vez de un 3
      Line := Page.GetString(LineNr);
      auxItem := TextBetween(Line,'"name">','</span>');
      Item := Item + auxItem;
    end;
    Item := LineDecode(Item);
    Item := DeleteTags(Item); //<-- Añadimos esto
    SetField(fieldDirector, Item);
  end;

Para arreglar los intérpretes, el código empieza en la línea 515:

Code: Select all

      begin
       if Item <> '' Then Item := Item + ', ';
       Line := Page.GetString(LineNr);
        Item := Item + TextBetween(Line, '<div class="credits">', '</dd'); // <-- Modificamos esto
        Item := DeleteTags(Item); // <-- Añadimos esto
        LineNr:=LineNr+1
      end

[AARON8888]

Gracias Kadmon

Por ahora veo que va bien sin tener que hacer esos arreglos.
Los tendré en cuenta por si las flies