[REL] [PL] FilmWeb.pl 3.0 - The Best Polish Script

[jarko]

Dziękuję za poprawki, działają

[wrobelp]

Wielkie dzięki za poprawki, działają wyśmienicie

[robinse]

Dziękuje

[wrobelp]

Za szybko pochwaliłem, w serialach nie pobiera roku produkcji.

[ads]

Poprawione seriale, poprzednio chyba też do nich nie pobierał:

https://www.dropbox.com/s/vnz0mn99qcaah ... 9.ifs?dl=1

[wrobelp]

Wielkie dzięki. za poprawki a naprawdę pokłony za przywrócenie możliwości zobaczenia opisów w okienku.

[wrobelp]

Niestety, znowu nie pobiera oryginalnego tytułu i roku produkcji w filmach i serialach.

[ads]

Poprawiłem oba tytuły i rok:

https://www.dropbox.com/s/vnz0mn99qcaah ... 9.ifs?dl=1

[wrobelp]

Wielkie dzięki ads za poprawki, wszystko działa ok.

[ryszardw]

Nie wiem co robię źle z serialami. Pobierają mi się informacje o odcinkach dla serialu The Pacific https://www.filmweb.pl/serial/Pacyfik-2010-119673 a nie chcą za nic dla serialów Narcos https://www.filmweb.pl/serial/Narcos-2015-680486 i The Young Pope https://www.filmweb.pl/serial/M%C5%82od ... 016-724137. Ktoś ma może jakieś wskazówki co ustawić?

[ads]

Poprawione, seriale wielosezonowe filmweb zapisuje inaczej:

https://www.dropbox.com/s/vnz0mn99qcaah ... 9.ifs?dl=1

[ryszardw]

Działa doskonale. Dzięki

[adk]

Witam
Mam wersję AMC 4.2.3.1b i przy próbie pobierania informacji ze skryptu pojawia się to
https://ibb.co/Bw0v7Zm

[antp]

Check that you have all the .pas files that it tries to include:
en2pl, cp1250, StringUtils7552, BatchCommon7552, ScorEpioNCommonScript
If some are missing you can get them from http://update.antp.be/amc/scripts/
Normally all were included in AMC's install/package.

[adk]

Thanks

[luckycrown]

Czy ktoś może wyjaśnić w czym jest problem?

Niby coś wyszukuje, ale nic nie wyświetla

[wrobelp]

Widać że jak nie ma strony www w bazie to nic nie znajduje, można prosić o poprawki.

[d0nk3y]

Strona istnieje i jak podasz link w okienku wyszukiwania, to program ściągnie informacje.

[wrobelp]

Strona istnieje i jak podasz link w okienku wyszukiwania, to program ściągnie informacje.

Chodziło mi o własną bazę filmów i seriali. Jak dodajesz coś nowego, to musisz osobno na filmwebie to znaleźć bo skrypt nie znajduje.

[drummer]

Tak to ma wyglądać

Code: Select all

procedure GetMovieTitles(Address: string);
var
	Page: TStringList;
	Line, Year, MovieTitle, MovieAddress: string;
	LineNr: integer;
begin
	Page := TStringList.Create;
	Page.Text := UTF8ToCP1250(GetPage(Address));
	Page.Text := StringReplace(Page.Text, 'class="preview__link"', #13#10 + 'class="preview__link"');
	Line := Page.Text;
	LineNr := FindLine('class="preview__link"', Page, 0);
	while LineNr > -1 do
	begin
		Line := Page.GetString(LineNr);
		Line := Czysc(Line);
		MovieAddress := 'https://www.filmweb.pl' + TextBetween(Line, 'preview__link" href="', '"');
		MovieTitle := TextBetween(Line, '>', '</');
	//	HTMLRemoveTags(MovieTitle);
		MovieTitle := Trim(MovieTitle);
		CorrectTextError(MovieTitle);
		UniToPol(MovieTitle);
		//Year := TextBetween(Line, 'filmPreview__year">', '</');
		Year := TextBetween(Line, 'itemprop="datePublished" content="', '"');
		if (Year = '') then
			Year := TextBetween(Line, 'data-release="', '"');
	//	HTMLRemoveTags(Year);
		Year := Trim(Year);
		CorrectTextError(Year);
		Year := Copy(Year, 1, 4);
		MovieTitle := MovieTitle + ' (' + Year + ')';
		if (FindLine(MovieAddress, SearchAddresses, 0) < 0) then
		begin
			PickTreeAdd(MovieTitle, MovieAddress);
			SearchAddresses.Add(MovieAddress);
		end;
		LineNr := FindLine('class="preview__link"', Page, LineNr + 1);
	end;
	Page.Free;
end;