antp.be forum

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;