Zmienili skubańce sposób wyszukiwania filmów. Utworzyli dodatkową stronę, z której trzeba wybrać film. Ariell, zerknij jak masz chwilę czasu. Bez tej poprawki cała Twoja praca pójdzie na marne. Naprawdę szkoda, bo to najlepszy skrypt do AMC i na dodatek polski. Zauważyłem, że w części gdzie jest adres wyszukiwania jest różnica w starej linii jest:
Code: Select all
AnalyzeSearchPage('http://www.filmweb.pl/search/film?q=' + MovieName, 'film');
AnalyzeSearchPage('http://www.filmweb.pl/search/serial?q=' + MovieName, 'serial');
a w nowej ma być:
Code: Select all
AnalyzeSearchPage('http://www.filmweb.pl/films/search?q=' + MovieName, 'film');
AnalyzeSearchPage('http://www.filmweb.pl/serials/search?q=' + MovieName, 'serial');
Ale niestety bez Ariella się nie uda. Proste rzeczy można jakoś poprawić, ale w przypadku gdy zmienili całą strukturę strony?
Dobra, poprawiłem część skryptu:
Code: Select all
procedure GetMovieTitles(Address : String)
na:
Code: Select all
procedure GetMovieTitles(Address : String);
var
Page : TStringList;
Line, Year, MovieTitle, MovieAddress : String;
LineNr : Integer;
begin
Page := TStringList.Create;
Page.Text := UTF8Decode(GetPage(Address));
//Page.Text := StringReplace(Page.Text, '<div class'+ StrSep +'class="hits__item"'+ StrSep +'>', #13#10 + '<div class=hitDescWrapper>');
Page.Text := TextBetween(Page.Text, 'id="searchResult" >', 'class="content__sidebar">');
Line := Page.Text;
LineNr := FindLine('filmPreview--', Page, 0);
while LineNr > -1 do
begin
Line := Page.GetString(LineNr + 0) + Page.GetString(LineNr + 1) +
Page.GetString(LineNr + 2) + Page.GetString(LineNr + 3);
Line := Czysc(Line);
MovieAddress := 'http://www.filmweb.pl' + TextBetween(Line, 'filmPreview__link" href="', '"><h3');
//MovieAddress := StringReplace(MovieAddress, '>', '');
MovieTitle := TextBetween(Line, 'class="filmPreview__title">', '</h3>');
HTMLRemoveTags(MovieTitle);
MovieTitle := Trim(MovieTitle);
CorrectTextError(MovieTitle);
UniToPol(MovieTitle);
Year := TextBetween(Line, 'filmPreview__year">', '</span>');
if (Year = '') then begin
Line := Page.GetString(LineNr + 1);
Year := TextBetween(Line, 'data-release="', '"');
end;
HTMLRemoveTags(Year);
Year := Trim(Year);
CorrectTextError(Year);
MovieTitle := MovieTitle + ' (' + Year + ')';
if (FindLine(MovieAddress, SearchAddresses, 0) < 0) then
begin
PickTreeAdd(MovieTitle, MovieAddress);
SearchAddresses.Add(MovieAddress);
end;
LineNr := FindLine('filmPreview--', Page, LineNr + 1);
end;
Page.Free;
end;
Trzeba jeszcze w procedurze
Code: Select all
procedure AnalyzeSearchPage(Address : String; MovieType : String);
zmienić zmienną 'Line' i zdezaktywować dwie linie:
Code: Select all
procedure AnalyzeSearchPage(Address : String; MovieType : String);
var
Page : TStringList;
Line, Linetmp, MovieVariety, AdressSubPage : String;
LineNr, Count, MoviesCount, i, NumOfPages : Integer;
begin
Page := TStringList.Create;
Page.Text := UTF8Decode(GetPage(Address));
Line := TextBetween(Page.Text, 'Znalezione pozycje: <span>', '</span></div>');
MovieVariety := Page.Text;
// Linetmp:=TextBetween(Line, 'z', '</div>');
// Line := Linetmp;
Line := Czysc(Line);
MoviesCount := StrToInt(Trim(Line), 0);
MovieVariety := ' ' + MovieType + ':';
PickTreeAdd('Znaleziono ' + IntToStr(MoviesCount) + MovieVariety, '');
Mam nadzieję, że niczego nie pominąłem. Sprawdźcie i dajcie znać. U mnie działają i filmy i seriale.
Pamiętajcie o zmianie w procedurze wyszukiwania, pisałem o tym wyżej w tym samym poście.
)
