Official Forum
https://forum.antp.be/phpbb3/
Code: Select all
procedure PobierzOdcinki(Address : String);
var
Line, Line2, Value, Numer, NumerP, Sezon, Odcinek, Tytul, Data : String;
Page : TStringList;
begin
Page := TStringList.Create;
Page.Text := UTF8Decode(GetPage(Address));
Line := TextBetween(Page.Text, 'serialInfoBar__list', 'episodesSection__options');
while (Pos('serialInfoBar__element', Line) > 0) do
begin
Numer := TextBetween(Line, 'data-element-id="', '"');
Odcinek := 'https://www.filmweb.pl' + TextBetween(Line, 'href="', '"');
Odcinek := GetPage(Odcinek);
Line2 := TextBetween(Odcinek, 'episodesSection__resultsList', '></div><script');
NumerP := TextBetween(Line2, 'data-element-number="', '"');
while NumerP <> Numer do
begin
Line2 := Copy(Line2, Pos('data-element-number', Line2) + Length('data-element-number'), Length(Line2));
NumerP := TextBetween(Line2, 'data-element-number="', '"');
end;
begin
Odcinek := TextBetween(Line2, 'data-element-number="', 'episodesContainer__voteSection');
Sezon := TextBetween(Odcinek, 'episodesContainer__title">', '<') + ' ' + TextBetween(Odcinek, 'episodesContainer__year">', '<');
Value := Value + Sezon + #13#10;
while (Pos('episode__title', Line2) > 0) do
begin
Odcinek := TextBetween(Line2, 'episode__details', 'if(typeof Handlebars');
Tytul := TextBetween(Odcinek, 'episode__title">', '</div>');
Data := TextBetween(Odcinek, 'firstDate">', '</span');
Value := Value + Tytul + ' (' + Data + ')' + #13#10;
Line2 := Copy(Line2, Pos('episode__title', Line2) + Length('episode__tittle'), Length(Line2));
end;
end;
Value := Value + #13#10;
Line:= Copy(Line, Pos('</li>', Line) + Length('</li>'), Length(Line));
end;
if (Value <> '') then
begin
HTMLRemoveTags(Value);
if (not ((AUpdate = 2) and (GetCustomField('Odcinki')=Trim(Value)))) then SetCustomField('Odcinki', Trim(Value));
end;
Page.Free;
end;
Code: Select all
procedure PobierzOdcinki(Address : String);
var
Line, Line2, Value, Numer, NumerP, Sezon, Odcinek, Tytul, Data : String;
Page : TStringList;
begin
Page := TStringList.Create;
Page.Text := UTF8Decode(GetPage(Address));
Line := TextBetween(Page.Text, 'serialInfoBar__list', 'episodesSection__options');
if (length(Line) > 0) then
begin
while (Pos('serialInfoBar__element', Line) > 0) do
begin
Numer := TextBetween(Line, 'data-element-id="', '"');
Odcinek := 'https://www.filmweb.pl' + TextBetween(Line, 'href="', '"');
Odcinek := GetPage(Odcinek);
Line2 := TextBetween(Odcinek, 'episodesSection__resultsList', '></div><script');
NumerP := TextBetween(Line2, 'data-element-number="', '"');
while NumerP <> Numer do
begin
Line2 := Copy(Line2, Pos('data-element-number', Line2) + Length('data-element-number'), Length(Line2));
NumerP := TextBetween(Line2, 'data-element-number="', '"');
end;
begin
Odcinek := TextBetween(Line2, 'data-element-number="', 'episodesContainer__voteSection');
Sezon := TextBetween(Odcinek, 'episodesContainer__title">', '<') + ' ' + TextBetween(Odcinek, 'episodesContainer__year">', '<');
Value := Value + Sezon + #13#10;
while (Pos('episode__title', Line2) > 0) do
begin
Odcinek := TextBetween(Line2, 'episode__details', 'if(typeof Handlebars');
Tytul := TextBetween(Odcinek, 'episode__title">', '</div>');
Data := TextBetween(Odcinek, 'firstDate">', '</span');
Value := Value + Tytul + ' (' + Data + ')' + #13#10;
Line2 := Copy(Line2, Pos('episode__title', Line2) + Length('episode__tittle'), Length(Line2));
end;
end;
Value := Value + #13#10;
Line:= Copy(Line, Pos('</li>', Line) + Length('</li>'), Length(Line));
end;
end;
if Line = '' then
begin
Sezon := TextBetween(Page.Text, 'span class="halfSize', 'h2 class="cap s-16 top-5');
Sezon := TextBetween(Sezon, '">', '<');
Value := Value + Sezon + #13#10;
Line2 := TextBetween(Page.Text, 'episodesSection__resultsList', '></div><script');
while (Pos('episode__title', Line2) > 0) do
begin
Tytul := TextBetween(Line2, 'episode__title">', '</div>');
Data := TextBetween(Line2, 'firstDate">', '</span');
Value := Value + Tytul + ' (' + Data + ')' + #13#10;
Line2 := Copy(Line2, Pos('episode__title', Line2) + Length('episode__title'), Length(Line2));
end;
end;
if (Value <> '') then
begin
HTMLRemoveTags(Value);
if (not ((AUpdate = 2) and (GetCustomField('Odcinki')=Trim(Value)))) then SetCustomField('Odcinki', Trim(Value));
end;
Page.Free;
end;Code: Select all
Value := Value + 'Ep. ' + Tytul + ' (' + Data + ')' + #13#10;
Code: Select all
<a href="http://www.kinoswiat.pl" target="_blank" rel="nofollow">Kino Świat</a>Code: Select all
<a href="http://www.kinoswiat.pl" target="_blank" rel="nofollow">Kino Świat</a>Code: Select all
<a href="http://www.monolith.pl" target="_blank" rel="nofollow">Monolith Films</a>Code: Select all
<a href="http://www.forumfilm.pl/" target="_blank" rel="nofollow">Forum Film Poland Sp. z o.o.</a>Code: Select all
<a href="http://www.vision.pl" target="_blank" rel="nofollow">Vision Film Distribution</a>Code: Select all
HTMLRemoveTags(Value);Code: Select all
if ((Pos('<dt>dystrybucja:</dt>', Page.Text) > 0) and (CanSetCustomField('Dystrybucja'))) then
begin
Value := '';
Value := TextBetween(Page.Text, '<dt>dystrybucja:</dt><dd>', '</dd>');
if (Value <> '') then
begin
HTMLRemoveTags(Value);
Value := Trim(Value);
if (not ((AUpdate = 2) and (GetCustomField('Dystrybucja')=Value))) then SetCustomField('Dystrybucja', Trim(Value));
Code: Select all
function GetMaterialsFormatCrewsCode: Select all
Typ := TextBetween(Line, 'data-roletype\x3d"', '"');Code: Select all
Line := Copy(Line, Pos('pn:"', Line), Length(Line));
Actor := TextBetween(Line, 'pn:"', '"');
// Typ := TextBetween(Line, 'pr:"', '"');
Typ := TextBetween(Line, 'data-roletype\x3d"', '"');
CorrectTextError(Actor);