(***************************************************

Ant Movie Catalog importation script
www.antp.be/software/moviecatalog/

[Infos]
Authors=FypeR , Karagarga, Tiu Fang(base)
Title=Mynet beyazperde
Description=BeyazPerde den film ile ilgili bilgi ve mini resim alır.
Site=http://beyazperde.mynet.com
Language=TR
Version=v3.02.2
Requires=3.5.0
Comments=İstek ve öneriler için uuv9esg02@sneakemail.com  irtibata geçiniz.||Beyazperde ile ilgili olarak sayfalarında çok fazla gereksiz veri bulunuyor. |Arama sayfalarıın işlenmesi bu gereksiz veriler yüzünden uzun sürüyor.||
License=This program is free software; you can redistribute it and/or modify it under the  terms of the GNU General Public License as published by the Free Software Foundation;  either version 2 of the License, or (at your option) any later version. |
GetInfo=1

[Options]
AramaMiktar=1|1|0=25 adet sonuç için arama yapar|1=50 adet sonuç için arama yapar|2=100 adet sonuç için arama yapar|3=200 adet sonuç için arama yapar|4=400 adet sonuç için arama yapar(uzun sürecek)!!!
AramaListeTipi=0|0|0=Arama sonuç listesi Tarih sıralı olur(Geçmişe doğru)|1=Arama Sonuç listesi Ad sıralı olur(0..A....Z)|2=Arama Sonuç listesi Puan Sıralı olur(Azalan)|3=Arama sonuç listesi Ters Tarih sıralı olur(Geçmişten geleceğe|4=Arama sonuç listesi Ad sıralı olur(Z...A...0)|5=Arama sonuç listesi Ters puan sıralı olur(Artan)
Tanekle=1|1|0=Hazırda varolan filmin tanımı temizler ve beyazperde içindeki tanımı ekler|1=Hazırda var olan tanımı beyazperde tanımının arkasına ekler
Gor_yonetmeni=1|1|0=Görüntü yönetmeni bilgisini alma|1=G. y. bilgisini al ve yönetmenin arkasına ekle|2=G. y. bilgisini al ve Konu alanına ekle(sondan)
Muzik=1|1|0=Muzik bilgisini alma|1=Muzik bilgisini al ve senaryo ekibinin arkasına ekle|2=M. bilgisini al ve konu kısmına ekle (sondan)
Gos_tar=2|2|0=Gosterim tarihi bilgisini alma|1=GT. bilgisini al ve eklenme tarih alanına yaz + eklenme tarihini de konunun ardına ekle|2=G.T. bilgisini al ve konu kısmına ekle(sondan)|3=GT. bilgisini al eklenme tarihi bilgisi ile değiştir.

***************************************************)

//FypeR 26.09.2009
//film seçim listesindeki adres almama sorunu düzeltildi
//film orjinal/çeviri isimlerini almama giderildi
//Fyper 22.02.2009
//film listeleme sayfasındaki düzenleme yüzünden çalışmayan picktreelist prosedürü
//tekrar baştan düzenlendi. daha hızlı çalışıyor.
//Fyper 31-08-2008
//boş görüntü yönetmeni bilgisine karşı iyileştirme yapıldı
//FypeR 20-7-2007
//görüntü yönetmeni bilgisi alıp almama ve nereye alınacağı eklendi
//müzik bilgisi alıp almama ve nereye ekleneceği eklendi
//gösterim tarihi bilgisi alıp almama ve nereye ekleneceği eklendi
//FypeR 18-7-2007
//sayfa değişiklikleri güncellendi
//bazı hızlandırıcı kontroller eklendi.
//görüntü yönetmeni eklendi
//FypeR edit 8,4,2006 22:22 gmt+2
// sitenin hosting değiştirmesinden kaynaklanan adres değişikliği güncelleme ile
//giderildi
// özgün isim , çeviri ismi ve yıl bilgisi düzeltildi
//tanım alanı tekrar düzeltildi
//FypeR edit 9,3,2006 13:19 gmt+2
//tanım alanındaki fazla kırpma düzeltildi.
//FypeR edit 3,3,2006 16:00 gmt +2
//sonsuz döngü hatalarına yol açan kontroller değiştirildi
//ek arama fonksiyonu düzenlendi(anti amele sistem eklendi)
//bilgilendirmeler eklendi
//film tanımı alma düzenlendi
//FypeR  edit 24,2,2006 17:37 gmt+2
//arama fonksiyonunun sonlandırma noktası değiştirildi
//FypeR  edit 15,2,2006  01:00 gmt+2
//seçilebilir arama miktarı eklendi
//seçilebilir arama yöntemi eklendi
//arama sayfası değiştirildi
//film seçim sayfası düzenlendi
//ek arama eklendi
//FypeR  edit 07-02-2006 16:16 gmt+2
//senaryo+kitap alanı düzeltildi
//tarihçe eklendi
//minik bilgilendirmeler eklendi
program BeyazPerde;
var
  MovieName: string;
  denek : integer;
  basdeger,sondeger:integer;
function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
  i: Integer;
begin
  result := -1;
  if StartAt < 0 then
    StartAt := 0;
  for i := StartAt to List.Count-1 do
    if Pos(Pattern, List.GetString(i)) <> 0 then
    begin
      result := i;
      Break;
    end;
end;


procedure AnalyzePage(Address: string);
var
  Page: TStringList;
  LineNr: Integer;
  pozisyon: integer;
begin
  Page := TStringList.Create;
  Page.Text := GetPage(Address);
  pozisyon:=pos('<title>Beyazperde.com - Film Arama</title>', Page.Text);    //Arama</title>
  if pozisyon = 0 then
  begin
    SetField(fieldURL, Address);
    AnalyzeMoviePage(Page)
  end else
  begin
  //  PickTreeClear;
    LineNr := 0;
    LineNr := FindLine('&nbsp;( Listelenen: <b>', Page, LineNr);  //<td class="metin3"></td> //LineNr := FindLine('<td class="metin3">Filmler</td>', Page, LineNr);
    if LineNr > -1 then
    begin
      basdeger:=pos('Toplam: <b>', Page.text)+11;
      sondeger:= pos('</b> )&nbsp;</td>',page.text);
      PickTreeAdd('Beyaz Perde Filmleri (Toplam:'+copy(page.text,basdeger,sondeger-basdeger)+' film)', '');     //<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<pos('htsearcher',page.text) >0
      LineNr:=FindLine('<span class="baslik_filmadi2"',Page,200);
      //AddMoviesTitles(Page, LineNr);
      MovieListBuilder(Page);
      
    end;

    if PickTreeExec(Address) then
    begin
      if address='  ' then
      begin
        address:='http://beyazperde.mynet.com/arama.asp?kat=film&keyword='+ urlencode(moviename)+'&sira='+listetipi+'&f='+aramikdeger+'&t='+inttostr(2*strtoint(aramikdeger,0));

        Page.Free;
        //AnalyzePage(Address);
        Page := TStringList.Create;
        showmessage('Ek arama fonksiyonu bir sefer kullanılabilir. Lütfen ikinci kez aynı seçeneği seçmeyiniz.');
        Page.Text := GetPage(Address);
        picktreeadd('BeyazPerde Filmleri arama 2','');
        linenr:=0;
        //AddMoviesTitles(Page, LineNr);
        MovieListBuilder(Page);
        if picktreeexec(address) then
        begin
        //if address = '  ' then
        while address = '  ' do
          begin
            showmessage('İkinci kez ek arama desteklenmiyor. Lütfen tekrar seçin yada iptal edin!! ');
            picktreeexec(address);
          end;
            analyzepage(address);
        end;
      end else
      begin
        AnalyzePage(Address);
      end;
    end;
  end;
  Page.Free;
end;

procedure AnalyzeMoviePage(Page: TStringList);
var
  Line, Value, Value2, FullValue,muzik,gy: string;
  LineNr: Integer;
  BeginPos, EndPos: Integer;
begin

  // çeviri ismi ve orjinal ismi
  LineNr := FindLine('"baslik_filmadi31"', Page, 0);
  Line := Page.GetString(LineNr);
  if LineNr > -1 then
  begin
    BeginPos := pos('"baslik_filmadi31">', Line);
    if BeginPos > 0 then
      BeginPos := BeginPos + 19;
    EndPos := pos('</h1>', Line);
    if EndPos > BeginPos then
    begin
      //EndPos := pos(' (', Line);
      Value := copy(Line, BeginPos, EndPos - BeginPos);
      SetField(fieldTranslatedTitle, Value);
      //SetField(fieldOriginalTitle, Value);//orjinalide aynı yap
    end
    begin
      LineNr:= FindLine('"baslik_filmadi32">', Page, linenr);
      if(linenr>-1) then
      begin
        Line := Page.GetString(LineNr);
        BeginPos := pos('"baslik_filmadi32">', Line);
        BeginPos := BeginPos + 19;
        EndPos := pos('</h2>', Line);
        if EndPos > BeginPos then
          begin
          Value := copy(Line, BeginPos, EndPos - BeginPos);
          SetField(fieldOriginalTitle, Value);
          end;
      end else
      begin
      SetField(fieldOriginalTitle, Value);//madem orjinal isim yok demek ki orjinali bulmuşum
      end;

    end;

   // BeginPos := pos('(', Line) + 1;
   // if BeginPos > 0 then
   // begin
   //   EndPos := pos(')', Line);
   //   Value := copy(Line, BeginPos, EndPos - BeginPos);
   //   SetField(fieldYear, Value);
   // end;
  end;

  // sinepuan
  LineNr := FindLine('SinePuan:', Page, 0);   //span class="metin2">
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    if Pos('<img src="http://img2.mynet.com/beyazperde/meter-kenar1.gif', Line) > 0 then
    begin
      EndPos := pos(' &nbsp; <img', Line);
      BeginPos := pos('inePuan:&nbsp;', Line) + 14;
      Value := copy(Line, BeginPos, EndPos - BeginPos);

      if pos(',', Value) > 0 then
      begin
        //Value := IntToStr(Round(StrToInt(StrGet(Line, BeginPos), 0) + (StrToInt(StrGet(Line, BeginPos + 2), 0) / 10)));
        //Value:='5,6';
      end;
      SetField(fieldRating, Value);
    end else
    begin
      SetField(fieldRating, 0);
    end;
  end;

  // Picture
  LineNr := FindLine('/images/film/', Page, 0);
  
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr);
    BeginPos := pos('src="', Line) + 5;
    EndPos := pos('" width="', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    GetPicture(Value);
  end;

  // Director
  value:='';
  LineNr := FindLine('<!-- YONETMEN -->', Page, 0);
  if LineNr > -1 then
  begin
  line:= Page.GetString(linenr);
  repeat

    beginpos:=pos('1_px>', line);
    if beginpos>0 then
      begin
        beginpos:=beginpos+5;
        endpos:=pos('</a>', line);
        if length(value)> 0 then value:=value + ', ';
        value:=value+ copy(line, beginpos,Endpos-beginpos);
      end;
      linenr:=linenr+1;
      line:= Page.GetString(linenr);
  until (pos('- SENARYO -', line) > 1) or (linenr = Page.count -1);
  end;
  FullValue := '';
  HTMLDecode(Value);
  SetField(fieldDirector, Value);
  // görüntunun  yonetemeni
  case getOption('Gor_yonetmeni') of
  1,
  2:
    begin
      LineNr := FindLine('<!-- GORUNTU YONETMENI -->', Page, 0);
      if LineNr > -1 then
      begin
        Line := Page.GetString(LineNr + 4);
        BeginPos := pos('1_px>', Line) + 5;
        EndPos := pos('</a>', Line);
        if endpos >beginpos then
        begin
          gy := copy(Line, BeginPos, EndPos - BeginPos);
        end;
        HTMLDecode(gy);
      end;
    end;
  end;


  // PRODUCER senaryo ve kitap
  value:='';
  LineNr := FindLine('<!-- SENARYO -->', Page, 0);
  if LineNr > -1 then
  begin
    line:=page.getstring(linenr);
    repeat
      beginpos:=pos('1_px>', line);
      if beginpos>1 then
      begin
        beginpos:=beginpos+5;
        endpos:=pos('</a>', line);
        if  length(value)>1 then value:= value+ ', ';
        value:=value+copy(line, beginpos, endpos-beginpos);
      end;
      linenr:=linenr+1;
      line:=page.getstring(linenr);
    until (pos('- KİTAP -', line)>1) OR (linenr=Page.count-1);
    FullValue := '';
    //LineNr := FindLine('<!-- KİTAP -->', Page, 0);
    Line := Page.GetString(LineNr + 1);
    BeginPos := pos(',', Line);
    if beginpos>0 then
    begin
      Line := Page.GetString(LineNr + 2);
      BeginPos := pos('1_px>', Line) + 5;
      EndPos := pos('</a>', Line);
      Value := Value + ',' + copy(Line, BeginPos, EndPos - BeginPos)+ '(Kitap)';
    end;
    HTMLDecode(Value);
    SetField(fieldPRODUCER, Value);
  end;
  // Actors
  FullValue := '';
  LineNr := FindLine('<!-- OYUNCULAR -->', Page, 0);
  
  if LineNr > -1 then
  begin
    repeat
      LineNr := LineNr + 1;
      if linenr>page.count then showmessage('Döngüsel Hata 1');

      Line := Page.GetString(LineNr);

      if pos('href="/kisi/', Line) > 0 then
      begin
        BeginPos := pos(':15px;">', Line) + 8;
        EndPos := pos('</a>', Line);
        Value := copy(Line, BeginPos, EndPos - BeginPos);
        BeginPos := pos('(', Line);
        EndPos := pos(')', Line) + 1;
        Value := Value + ' ' + copy(Line, BeginPos, EndPos - BeginPos) + ', ';
        FullValue := FullValue + Value;
      end;
    until (pos('</table>', Line) > 0) OR (linenr=Page.Count-1);
    EndPos := Length(FullValue);
    Delete(FullValue, EndPos - 1, EndPos);
    HTMLDecode(FullValue);
    SetField(fieldActors, FullValue);
  end;

  //Country
  LineNr := FindLine('<!-- ULKE -->', Page, 0);
  if LineNr > -1 then
  begin
    linenr:=linenr+1;
    value:='';
    repeat
      Line := Page.GetString(LineNr);
      beginpos:=pos('1_px>',line);
      if beginpos>1 then
      begin
        BeginPos := beginpos + 5;
        EndPos := pos('</a>', Line);
        if length(value)>1 then value:=value+ ' / ';
        Value := value+ copy(Line, BeginPos, EndPos - BeginPos);
      end;
      linenr:=linenr+1;
    until (pos('- SURESI --', line)>1) OR (linenr=Page.Count-1);
    HTMLDecode(Value);
    SetField(fieldCountry, Value);
  end;
  //muzik
  case getOption('Muzik') of
  1,
  2:
    begin
      LineNr := FindLine('- MUZIK -', Page, 0);
      if LineNr > -1 then
      begin
        linenr:=linenr+1;
        value2:='';
        repeat
          Line := Page.GetString(LineNr);
          beginpos:=pos('1_px>',line);
          if beginpos>1 then
          begin
            BeginPos := beginpos + 5;
            EndPos := pos('</a>', Line);
            if length(value2)>1 then value2:=value2+ ' / ';
            Value2 := value2+ copy(Line, BeginPos, EndPos - BeginPos);
          end;
          linenr:=linenr+1;
        until (pos('YAPIM YILI', line)>1) OR (linenr=Page.Count-1);
        HTMLDecode(Value2);
      end;
    end;
  end;
  if(length(value2)>1) then
    begin

  case getOption('Muzik') of
  1:
    begin
      Value2:= GetField(fieldProducer)+' Müzik:'+ Value2;
      SetField(fieldProducer, Value2);
    end;
  2:
    begin
    muzik:=#13#10+' Müzik:'+ Value2;
    end;
  end;
  end;
  

  //<!-- YAPIM YILI -->
  LineNr := FindLine('<!-- YAPIM YILI -->', Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr + 2);
    BeginPos := pos('1_px>', Line) + 5;
    EndPos := pos('</a>', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    HTMLDecode(Value);
    SetField(fieldYear, Value);
  end;

  //Category
 // LineNr := FindLine('arama.asp?kat=tur', Page, 0);
  //if LineNr > -1 then
 // begin
//    Line := Page.GetString(LineNr);
 //   BeginPos := pos('em>', Line) + 3;
 //   EndPos := pos('</a>', Line);
  //  Value := copy(Line, BeginPos, EndPos - BeginPos);
  //  HTMLDecode(Value);
 //   SetField(fieldCategory, Value);
 // end;
 
 
   // kategori
  FullValue := '';
LineNr := FindLine('<!-- TÜRÜ -->', Page, 0);

  if LineNr > -1 then
  begin
  Line:= Page.GetString(linenr);
  
    repeat
       LineNr := LineNr + 1 ;
       if linenr>page.count then showmessage('Döngüsel Hata 2');

       Line := Page.GetString(LineNr);
       if pos('arama.asp?kat=tur', Line) > 0 then
       begin
          BeginPos := pos('1_px>', Line) + 5;
          EndPos := pos('</a>', Line);
          Value := copy(Line, BeginPos, EndPos - BeginPos);
          linenr := linenr + 1;
          if linenr>page.count then showmessage('Döngüsel Hata 3');

          fullvalue := fullvalue +  value + ' / ';
       end;
    until pos('GÖSTERİM TARİHİ -',line)>0 ;
    EndPos := Length(FullValue);
    Delete(FullValue, EndPos - 1, EndPos);
    HTMLDecode(fullValue);
    SetField(fieldCategory, fullValue);
  end
  // Length
  LineNr := FindLine('<!-- SURESI -->', Page, 0);
  if LineNr > -1 then
  begin
    Line := Page.GetString(LineNr + 2);
    BeginPos := pos(', ', Line) + 2;
    EndPos := pos(' dk', Line);
    Value := copy(Line, BeginPos, EndPos - BeginPos);
    SetField(fieldLength, Value);
  end;


  //Description


  LineNr := FindLine('<td width="450" class=metin align=left valign="middle">', Page, 0);
  Value := '';
  //while linenr<page.count do
  denek:=page.count;
  if denek=0 then
  begin
  showmessage('hatalı ya da eksik veri alımı 1. İşlem sonlandırılıyor!! Tekrar deneyebilirsiniz.');
  end else
  begin
  repeat
    LineNr := LineNr + 1;
    if linenr>page.count then showmessage('hatalı veri alımı 2');
    denek:=page.count;
    Line := Page.GetString(LineNr);
    if pos('</td>', Line) < 1 then
    begin
      Value := Value + Line;
    end;

    until (pos('</td>',line)>0) or (linenr=page.count-1);    //pos('<!-- pt src="/beyazperde.js">',line)>0 *0,4b
  end;
  //until pos('<!-- pt language="">', Line) > 0;

  Value := StringReplace(Value, '<br>', #13#10);
  Value := StringReplace(Value, '<p>', '');
  Value := StringReplace(Value, '</b>', '');
 // Value := StringReplace(Value, #13#10+' ', #13#10);
   Value := trim(StringReplace(Value, #13#10+' ', #13#10));

        HTMLRemoveTags(Value);
  HTMLDecode(Value);
//  endpos := length(value);
 // value := copy(value , 22, EndPos);
    case getOption('Tanekle') of
    1:  value:=value+#13#10+eskitan;
    end;
    case getOption('Gos_tar') of
    1,
    2:
      begin
        Linenr:=Findline('GÖSTERİM TARİHİ -', Page,0);
        if(linenr>-1) then
        begin
          line:=Page.GetString(linenr+3);
          beginpos:=pos('?kat=vizyon&keyword=', line);
          if beginpos>0 then
          begin
            beginpos:=beginpos+20;
            endpos:=pos('">', line);
            if(endpos>beginpos) then value2:= copy(line,beginpos, endpos-beginpos);
          end;
        end;
      end;
    end;

    case getOption('Gos_tar') of
    1:
      begin
      value:= value+#13#10+'Eklenme Tarihi:'+getfield(fielddate);
      setfield(fieldDate, Value2);
      end;
    2:    value:=value+ ' Gösterim Tarihi:'+value2;
    3:    setfield(fielddate, value2);
    end;
    case getoption('Gor_yonetmeni') of
      1:
        begin
          if(length(gy)>0)  then
            begin
              setfield(fielddirector, getfield(fielddirector)+ ' /GY:'+gy);
          end;
        end;
      2:
        begin
          if(length(gy)>0)  then
          begin
            value:= value+ #13#10+ 'Görüntü Yönetmeni: '+gy;
          end;
        end;
    
    end;
    case getoption('Muzik') of
    2: value:= value+ muzik;
    end;

  SetField(fieldDescription, Value);

  //DisplayResults;
end;
//_-----------___---------------------____-------
//v2 filmliste oluşturucu

procedure MovieListBuilder(Page: TStringList) ;
var
  LineNr: Integer;
  finder: Integer;
  Line: string;
  MovieTitle, MovieAddress: string;
  StartPos:Integer;
  EndPos:Integer;
  Year:string;
  OrgTitle:string;
  Cast: string;
  
begin
  LineNr:=0;
  StartPos:=0;
  Line:='';
  EndPos:=0;
  
  //yaldır yaldır gez
  while (LineNr<Page.Count)      do
    begin
      Line := Page.GetString(LineNr);
      Finder:= pos('idth="72" height="51">', Line);   //sihirli kelimeyi bul ve filme atla
      if(Finder>0) then
      begin
        LineNr:=LineNr+1;
        Line:= Page.GetString(LineNr);
        StartPos:= pos('http:',Line);
        MovieAddress:= copy(Line, StartPos, pos('"><img alt="', Line) - StartPos);       //adres yakalandı
        LineNr:=LineNr+3;
        Line:=Page.GetString(LineNr);

        startpos := pos('x"><b>', Line) + 6;
        MovieTitle := copy(Line, StartPos, pos('</b>', Line) - StartPos);     //çeviri isim veya çeviri ismi yok ise orjinali
        StartPos:=pos('</b> (', Line) +6;

        Year:=copy(Line,StartPos ,4);        //yıl
        OrgTitle:='';
        StartPos:=pos(')<br>',Line)+5;  //yıldan sonra ikincil isim var mı bak
        EndPos:= pos (')<br><span',Line)+5;
        if ((StartPos>5) and (StartPos<>EndPos )) then //ikincil isim var
        begin
          OrgTitle:=copy(line, StartPos, Pos('</a><br>',Line)-StartPos); //son parçayı al
          StartPos:=pos('<br><span cl',OrgTitle);      //alınan son parçanın içinde gereksiz resmi yoket
          if(StartPos>0) then
          begin
               OrgTitle:=copy(OrgTitle,0,StartPos-1);//işe yarayan kısmı al puan ve bar çubuk resmi ni sil
          end;
        end;
        LineNr:=LineNr+1;            //alt satıra geç oradan cast almayı dene
        Line:=Page.GetString(LineNr);
        Cast:='';
        StartPos:=pos('11_px">',Line);
        if(StartPos>0) then
        begin
          StartPos:=StartPos+7 ;
          EndPos:=pos('</a> ',Line);
          Cast:=copy(Line,StartPos, EndPos-StartPos);
        end;
        MovieTitle:=MovieTitle +' ('+ Year + ') ' +OrgTitle +'-Y:'+ Cast  ;
         HTMLDecode(Movietitle);
        PickTreeAdd(MovieTitle,  MovieAddress);

        
        
      end
      else  //bari bak ek arama yapılabilirmi
      begin
        Finder:=pos('Sonraki >>',Line);
        if(Finder>0) then
        begin
          picktreeadd('Daha film var...','');
          picktreeadd('Aramaya devam..devam için burayı seçin(ikinci ek arama yok)','  ');
          extraara:=1;
        end;
      
      end;
    

      LineNr:=LineNr+1;
    end;
end;
// -------------------------------------------
//film listesi burada oluşturuluyor
procedure AddMoviesTitles(Page: TStringList; var LineNr: Integer);
var   //  width="72" height="51">

  Line: string;
  lina: Integer;
  MovieTitle, MovieAddress: string;
  StartPos: Integer;
  TempPos: Integer;
  endpos: integer;
  year: string;
begin
  lina :=0;
  repeat
    LineNr := LineNr + 1;
    if linenr>page.count then showmessage('Eksik ya da hatalı veri alımı 5');
    denek:=page.count;
    Line := Page.GetString(LineNr);
    TempPos := pos('<img src="', Line);
   // TempPos := pos('<!-- FORUMLAR LİSTELENİYOR -->', Line);
    if TempPos < 1 then
    begin
      StartPos := pos('kat=film" class="turuncucizgisiz_11_px"><b>', Line);   //StartPos := pos('<a href="', Line);
      lina :=pos('Sonraki >>', line);
      if (lina >0)and (extraara=0)  then
      begin
        picktreeadd('Daha film var...','');
        picktreeadd('Aramaya devam..devam için burayı seçin(ikinci ek arama yok)','  ');

        extraara:=1;
      end;
      if StartPos > 0 then
      begin
        StartPos := pos('/film.asp?id=', Line);   //StartPos := pos('<a href="', Line);

        MovieAddress := copy(Line, StartPos, pos('" class="turuncucizgisiz_11_px">', Line) - StartPos);
        StartPos := pos('</b>', Line) + 4;
        year :=  copy(Line, StartPos, pos(')<br>', Line) - StartPos + 1 );
        if length(year)<4 then
        begin
           year :=  copy(Line, StartPos, pos(')</a><br>', Line) - StartPos + 1 );
        end;
        startpos := pos('<b>', Line) + 3;
        MovieTitle := copy(Line, StartPos, pos('</b>', Line) - StartPos);

        StartPos := pos(')<br>', Line)+5;
        if(startpos>5) then
        begin
        endpos :=  pos('<br><span class=', line) ;

          if (endpos =0) then
            begin
            endpos:=pos('</a><br>', line);
//              endpos := Length(line)-3 ;
          end;

        movietitle := movietitle + year+ ' / ' + copy(line, startpos, endpos - startpos) ;
        end else
        begin
          movietitle := movietitle + year ;
        
        end;
        //LineNr := LineNr + 1;
        //Line := Page.GetString(LineNr);
        //StartPos := pos('/ ', Line) + 2;
        //MovieTitle := MovieTitle + ' / ' + copy(Line, StartPos, pos ('<br>', Line) - StartPos);
        HTMLDecode(Movietitle);
        PickTreeAdd(MovieTitle, 'http://beyazperde.mynet.com' + MovieAddress);
      end;
    end;
    //until linenr>page.count-1;
  until pos('( Listelenen: <b>', Line) > 0;
  //2.repeat
  if extraara<=0 then
  begin
    repeat
      LineNr := LineNr + 1;
      if linenr>page.count then showmessage('Eksik ya da hatalı veri alımı 5-2');
      denek:=page.count;
      Line := Page.GetString(LineNr);

      StartPos := pos('kat=film" class="turuncucizgisiz_11_px"><b>', Line);   //StartPos := pos('<a href="', Line);
      lina :=pos('Sonraki >>', line);
      if (lina >0)and (extraara=0)  then
        begin
          picktreeadd('Daha film var...','');
          picktreeadd('Aramaya devam..devam için burayı seçin(ikinci ek arama yok)','  ');
          extraara:=1;
          linenr:= page.count-1;//sona atla
        end;


    until linenr>page.count-1;
  //until pos('( Listelenen: <b>', Line) > 0;
  //2.repeat end
  end
  
end;
  var
  extraara :integer;
  aramikdeger : String;
  listetipi :string;
  eskitan: string;
begin

  if CheckVersion(3,5,0) then
  begin
case GetOption('Tanekle') of
1:eskitan:=GetField(fieldDescription);
end;
    case GetOption('AramaMiktar') of
      0:aramikdeger:='25';
      1:aramikdeger:='50';
      2:aramikdeger:='100';
      3:aramikdeger:='200';
      4:aramikdeger:='400';
    end;
    case GetOption('AramaListeTipi') of
      0:listetipi:='yild';
      1:listetipi:='isima';
      2:listetipi:='puand';
      3:listetipi:='yila';
      4:listetipi:='isimd';
      5:listetipi:='puana';
    end;
    MovieName := GetField(fieldOriginalTitle);
    if MovieName = '' then
      MovieName := GetField(fieldTranslatedTitle);
    if Input('Beyaz Perde script(F)', 'Lütfen bilgileri yüklenecek filmin ismini girin', MovieName) then
    begin
      PickTreeClear;
      extraara:=0;
      AnalyzePage('http://beyazperde.mynet.com/arama.asp?kat=film&keyword='+UrlEncode(MovieName)+'&sira='+listetipi+'&f=0&t='+aramikdeger);//AnalyzePage('http://www.beyazperde.com/hizliarama.asp?keyword='+UrlEncode(MovieName));
    end;
  end else
  ShowMessage( 'programın daha yeni versiyonunu kurunuz(minimum versiyon ihtiyacı 3.5.0)');
end.