antp.be forum

Code: Select all

URL := StringReplace(URL, 'http:', 'https:');]

Code: Select all

AUpdate :=  GetOption('Aktualizacja');
		Extras := TStringList.Create;
		URL := GetField(fieldURL);
		URL := StringReplace(URL, 'http:', 'https:');
		if  URL = '' then AUpdate := 0;
		 DeCodeDate (Date, YY,MM,DD);
		 SetCustomField('DataAktualizacji',InttoStr(YY) + '-' + InttoStr(MM) + '-' + InttoStr(DD));		

Code: Select all

ExtrasS := StringReplace(ExtrasS, 'http:', 'https:');

Code: Select all

1,2: Begin
			ClearFields;
			Ej := 0;
			while Ej < GetExtraCount do
			begin
				ExtrasS := GetExtraField(Ej, eURL);
				ExtrasS := StringReplace(ExtrasS, 'http:', 'https:');
				ExtrasS := Copy(ExtrasS, Pos('.pl/', ExtrasS), Length(ExtrasS));
				Extras.SetValue(ExtrasS, InttoStr(Ej));
				Ej := Ej + 1;
			end;

Code: Select all

// Plakat
   Line := TextBetween(Page.Text, 'class="filmPosterBox">', '</script>');
   case GetOption('Plakat') of
      1:   begin
            Szukane := TextBetween(Line, 'class="hide"', '</div>');
            Szukane := StringReplace(Szukane, '.5.jpg', '.3.jpg');
      if ((not (PictureExists)) or (GetOption('Aktualizacja')<2)) then GetPicture(Szukane);
            end;
      2:   begin
           if ((not (PictureExists)) or (GetOption('Aktualizacja')<2)) then Szukane := TextBetween(Line, 'src="', '"');
      GetPicture(Szukane);
            end;
      3:   begin
        Szukane := TextBetween(Line, 'class="hide"', '</div>');
        Szukane := StringReplace(Szukane, '.5.jpg', '.3.jpg');
        if (((not (PictureExists)) or (GetOption('Aktualizacja')<2)) and (Length(Szukane) < 1)) then Szukane := TextBetween(Line, 'src="', '"');
        if (not (PictureExists)) then GetPicture(Szukane);
      end;
   end;

Code: Select all

 Szukane := TextBetween(Line, 'class="hide"', '</div>');

Code: Select all

 Szukane := TextBetween(Line, 'class="hide">', '</div>');