[ antp.be > Forum ]

[ FAQFAQ - SearchSearch - MemberlistMemberlist - UsergroupsUsergroups - ]

[ RegisterRegister - ProfileProfile - Log in to check your private messagesLog in to check your private messages - Log inLog in ]


[Cz] CSFD.CZ - Working script
Goto page Previous  1, 2, 3, 4, 5, 6, 7, 8, 9, 10  Next
 
Post new topic   Reply to topic    www.antp.be Forum Index -> Ant Movie Catalog > Scripts
Author Message
mufak
PostPosted: 2007-07-31 12:14:28    Post subject: Reply with quote
View user's profile Send private message Nevim cim to je, ale ted mi to cpe vsechny udaje do polozky "Puvodni nazev". :-( Zkousel jsme i posledni skript a nepomohl.
mufak
PostPosted: 2007-08-03 12:31:03    Post subject: Reply with quote
View user's profile Send private message Tak uz to na www.csfd.cz opravili a script funguje zase jak ma:-)
pd
PostPosted: 2008-01-31 22:49:35    Post subject: uprava skriptu Reply with quote
View user's profile Send private message Cau, diky za super skript.
Prispeju taky svoji troskou do mlyna:
Mam radsi originalni cover k filmu, nez ten cesky, ktery se ukazuje defaultne u filmu, proto jsem pridal moznost si zvolit natahovani alternativniho plakatu filmu, pokud je k dispozici. (je to odkaz "všechny plakáty" pod obrazkem filmu na csfd).

Code:

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

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

[Infos]
Authors=IkE Blaster,MadMaxx,Dmitry501,Inteline,Kalten,kecinzer,MI'RA,pd
Title=csfd.cz
Description=Import dat ze serveru csfd.cz
Site=http://amc.thez.info
Language=CZ
Version=2.7
Requires=3.5.0
Comments=-Update 31.1.2008 - možnost načtení alternativního obrázku - Update 10.8.2007 - Jiné řazení výsledků (jako na webu), opraveno stahování popisu (více řádků), přesunutí La před film|- Info 5.3.2007 - Proběhlo hodně úprav, chyba u odkazu na film (z csfd) u filmů s jedním výsledkem ve vyhledávání|- Update 3.1.2007 - opraveno zobrazování filmů s jedním výsledkem ve vyhledávání|- Update 31.12.2006 - opraveny vsechny pole :P |    - jeden bug - v www adrese jsou pred film dve lomitka (//), nema vliv na funkci|- Update 4.12.2006 - zmena podle noveho csfd, vcetne importu hodnoceni
License=This file is part of Ant Movie Catalog (AMC).||   AMC 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 3 of the License, or|    (at your option) any later version.||    AMC is distributed in the hope that it will be useful,|    but WITHOUT ANY WARRANTY; without even the implied warranty of|    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the|    GNU General Public License for more details.||    You should have received a copy of the GNU General Public License|    along with this program.  If not, see http://www.gnu.org/licenses/
GetInfo=1

[Options]
getSlovakNames=0|0|0=Nepřidávat za český název ještě nazev slovenský|1=Přidávat za český název ještě nazev slovenský
hodnoceni=1|1|0=Nedotahovat hodnoceni|1=Dotahovat hodnoceni
addCZdescr=1|1|0=Nepridavat cesky popis filmu pred stavajici.|1=Pridavat cesky popis filmu pred stavajici
addCZname=0|0|0=Nepridavat cesky nazev filmu pred stavajici|1=Pridavat cesky nazev filmu pred stavajici
allowDuplicateNames=0|0|0=Pokud je originalni nazev stejny jako prelozeny - prelozeny se nedoplni|1=Prelozeny nazev se doplni i v pripade, ze je stejny jako originalni nazev
theEnd=1|1|0=Zachovat "The" na konci nazvu filmu|1=Presunout "The" z konce nazvu filmu na zacatek
getAlternativeCover=1|1|0=Primárně načítat obrázek filmu z hlavní stránky|1=Primárně načítat alternativní obrázek filmu

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

program Csfd_cz;
const
  BaseAddress = 'http://www.csfd.cz/';
    /////////////////////////////////////////////
   // upraveno mnohokrát po aktualizaci CSFD  //
  //  by IkE Blaster ikeblaster@centrum.cz   //
 //          http://amc.thez.info           //
/////////////////////////////////////////////

   ////////////////////////////////////////////
  // upraveno 4.12.2006 po aktualizaci CSFD //
 //      by MadMaxx madmaxx.cz@gmail.com   //
////////////////////////////////////////////

var
  MovieName: string;

// vraci cislo radku s prvnim nalezem hledaneho textu
function FindLine(Pattern: String; List: TStringList; StartAt: Integer): Integer;
var
  i: Integer;
begin
  result := -1;

  // vzdy se zacne hledat od nuly
  if (StartAt < 0) then
    StartAt := 0;

  // cyklus od prvniho do posledniho radku stranky
  for i := StartAt to List.Count - 1 do
    begin
      // pokud byl nalezen vyskyt,
      if (Pos(Pattern, List.GetString(i)) <> 0) then
        begin
          // vrati se cislo radku na kterem byl text nalezen
          result := i;
          // a ukonci se cyklus hledani
          Break;
        end;
    end;
end;

//rozdeleni statu, roku a delky zavisle na carkou oddelenych hodnotach
procedure RozdelStat(Line: String);
var
  CarkaPos1,
  CarkaPos2,
  minPos: Integer;
begin
  // najde si prvni carku na textu radky
  CarkaPos1 := Pos(',', Line);
  // pokud ji nasel
  if (CarkaPos1 > 0) then
    begin
      // pokusi se najit druhou carku
      CarkaPos2 := Pos(',', copy(Line, CarkaPos1+1, length(Line)));
      // pokud nasel druhou carku
      if (CarkaPos2 > 0) then
      begin
        // urci si
        minPos := Pos('min', copy(Line, CarkaPos1+CarkaPos2+1, length(Line)));
        // kdyz pozici zna
        if (minPos > 0) then
          // nastavi zemi, rok a stat do prislusnych poli
          begin
            SetField(fieldCountry, trim(copy(Line, 0, CarkaPos1-1)));
            SetField(fieldYear, trim(copy(Line, CarkaPos1+1, CarkaPos2-1)));
            SetField(fieldLength, trim(copy(Line, CarkaPos1+CarkaPos2+1, minPos-1)));
          end
      end
    end
end;

// vraci rejzu
//TODO tahle fce by chtela doresit, pac se muze stavat, ze rezie je na stejnem
//     radku stejne jako seznam hercu
function GetDirector(Line: String): String;
var
  BeginPos: Integer;
begin
  result := '';
  // zjisti si na kolikatem znaku od zacatku radku se vyskytuje text "Režie:"
  //TODO: doresil bych hledani diakritiky v textu - mozna by to v nekterych pripadech mohlo delat potize
  BeginPos := Pos('Režie:', Line);

  // jestli pozici nasel
  if (BeginPos > 0) then
    begin
      // smaze vse pred nalezem
      Delete(Line, 1, BeginPos + 5);
      // najde si konec radku
      BeginPos := Pos('<br>', Line);

      if (BeginPos = 0) then
        BeginPos := Length(Line);

      // vrati z obsahu radku rezisera
      result := copy(Line, 1, BeginPos);
      // odstrani diakritiku a specialni znaky
      HTMLDecode(result);
      // odstrani HTML tagy
      HTMLRemoveTags(result);
    end;

  // pokud pozici nenasel - vrati prazdny retezec
  result := Trim(result);
end;

// vraci seznam hercu
function GetActor(Line: String): String;
var
  BeginPos: Integer;
begin
// komentare jsou stejne jako v predchozi fci
  result := '';
  BeginPos := Pos('Hrají:', Line);

  if (BeginPos > 0) then
    begin
      Delete(Line,1,BeginPos + 5);
      BeginPos := Pos('<br>', Line);

      if (BeginPos = 0) then
        BeginPos := Length(Line);

      result := copy(Line, 1, BeginPos);
      HTMLDecode(result);
      HTMLRemoveTags(result);
    end;

  result := Trim(result);
end;

// analyzuje stranku s vysledky hledani
procedure AnalyzePage(Address: String);
var
  Page: TStringList;
  LineNr : Integer;
  LineMr : Integer;
  Line, Value : String;
  BeginPos, EndPos, i : Integer;
  FilmName, FilmAd, FilmAddr, dalsi, oNazvy, aNazvy, cNazvy, sNazvy : String;
begin
  Page := TStringList.Create;
  // nacte si stranku s vysledkem hledani - kazda radka je poloza StringListu
  Page.Text := GetPage(Address);
  // zjisti cislo radky na ktere se nachazi retezec: Hledaný výraz: <b>
  LineNr := FindLine('Hledaný výraz: <b>', Page, 0);
  // pokud takovy radek neexistuje - jedna se pravdepodobne primo o stranku s
  // filmem a ne o stranku s vysledkem hledani a zanalyzuje se rovnou ta.
  // pokud vsak takovy radek existuje, ale neexistuje zadne slovo "nazvech" -
  // - cili zadna sekce s odkazy => jedna se pravdepodobne o stranku, ktera
  // automaticky forwarduje na stranku s filmem
  if (LineNr = -1) or (FindLine('názvech</td>', Page, 0) = -1) then
    begin
      // hledani forwardu na stranku s filmem
      LineNr := FindLine('<script language=''javascript''>window.location.href=''/film/', Page, 0);
      // pokud existuje forward na stranku s detailem filmu - vytahnu adresu stranky detailu
      if (LineNr <> -1) then
        begin
          Line := Page.GetString(LineNr);
          BeginPos := Pos('/film/', Line);
          if (BeginPos > 0) then
            begin
              EndPos := Pos('/'';</script>', Line);

              if (EndPos = 0) then
                EndPos := Length(Line);

              // vykopiruje si adresu aktualniho filmu z radku
              FilmAddr := Copy(Line, BeginPos +1, EndPos - BeginPos -1);
              AnalyzeMoviePage(BaseAddress + FilmAddr + '&text=1rec=&top=&kom=1');
            end;
        end
      else
        // jinak (pokud forward neexistuje) se asi vazne jedna primo o stranku s filmem
        begin
          AnalyzeMoviePage(Address);
        end;
    end
  else
    begin
      // zjisteni cisla radku, na kterem se naleza informace v ktere sekci nazvu hledat
      oNazvy := 'v originálních názvech</td>';
      aNazvy := 'v anglických názvech</td>';
      cNazvy := 'v českých názvech</td>';
      sNazvy := 've slovenských názvech</td>';

      // tento algoritmus funguje tak, ze postupne hleda ve vsech jazykach, dokud neco nenajde
      LineNr := FindLine(cNazvy, Page, 0);
      i := 0;
      if (LineNr = -1) then
        begin
          LineNr := FindLine(sNazvy, Page, 0);
          i := 1;
        end;
      if (LineNr = -1) then
        begin
          LineNr := FindLine(oNazvy, Page, 0);
          i := 2;
        end;
      if (LineNr = -1) then
          LineNr := FindLine(aNazvy, Page, 0);
      // pokud zadna takova sekce neexistuje - nenaslo se nic
      if (LineNr = -1) then
        ShowMessage('No movie found for this search.'+chr(13)+chr(13)+'Nebyly nalezeny zadne zaznamy.')
      else
        begin
          // jinak si najdeme radku na ktere je v dane sekci odkaz na nalezeny film
          LineNr := FindLine('<a href="/film/', Page, LineNr);
          // pokud takovou radku najdeme
          if (LineNr > -1) then
            begin
              // vycisti strom okna se seznamem filmu
              PickTreeClear;
              // prida vetev se seznamem nalezenych filmu
              PickTreeAdd('Nalezene filmy: ' + MovieName, '');
              // vezme si obsah radku na kterem se vyskytuje prvni tag "a href" na film
              Line := Page.GetString(LineNr);

              // projde vsechny tagy s nalezem filmu a nacpe je do stromu filmu,
              // ktery se pak formou dialogoveho okna pro vyber filmu zobrazi
              repeat
                // najde zacatek a konec tagu s odkazem na aktualne nalezeny film
                BeginPos := Pos('<a href="/film/', Line);
                if (BeginPos > 0) then
                  begin
                    EndPos := Pos('" style="font-size:12px">', Line); // tady to bylo spatne, proto se nacitala ta adresa blbe
                    if(EndPos = 0) then
                      EndPos := Pos('">', Line);
                     
                    if (EndPos = 0) then
                      EndPos := Length(Line);

                    // vykopiruje si adresu aktualniho filmu z tagu odkazu
                    FilmAddr := Copy(Line, BeginPos + 10, EndPos - BeginPos - 11);
                    // dekoduje specialni ceske znaky z adresy odkazu na film
                    HTMLDecode(FilmAddr);
                    // odstrani vsechny HTML TAGY
                    HTMLRemoveTags(FilmAddr);
                    // vezme konec radku identifikovany <br> tagem
                    EndPos := Pos('<br>', Line);
                    FilmAddr := FilmAddr + '&text=1';

                    if (EndPos = 0) then
                      EndPos := Length(Line);

                    // vykopiruje se z tagu odkazu jmeno filmu
                    FilmName := Copy(Line, BeginPos, EndPos - BeginPos);
                    HTMLDecode(FilmName);
                    HTMLRemoveTags(FilmName);
                    // hledani znacky urcujici, ze na strance je odkaz na dalsi hledani
                    dalsi := Copy(FilmName, 0, 25);

                    // jestli se na strance vyskytuje odkaz na dalsi seznam filmu
                    if (dalsi = '...další nalezené záznamy') then
                      FilmName := Copy(FilmName, 26, Length(FilmName) - 25);

                    if (FilmName <> '') then
                      PickTreeAdd(FilmName, BaseAddress + FilmAddr);
                      Delete(Line,1,EndPos+3);
                    end
                else
                  // tohle to upravil hard-corove kecinzer, doma jen na koleni, pac delphi vubec neumi, je to humus, ja vim :)
                  begin
                    case i of
                    0: begin // hledam anglicky nazev, pokud nenajdu, tak hledam postupne dalsi nazvy
                      LineNr := FindLine(sNazvy, Page, 0);
                      i := 1;
                      if (LineNr = -1) then
                            begin
                              LineNr := FindLine(oNazvy, Page, 0);
                              if (LineNr = -1) then
                                begin
                                  BeginPos := 0;
                                  i := 2;
                                end;
                            end;
                      if (i = 1) or (i = 2) then
                      begin
                        LineNr := FindLine('<a href="/film/', Page, LineNr);
                        Line := Page.GetString(LineNr);
                        BeginPos := 1;
                      end;
                    end;
                    1: begin // hledam cesky nazev, pokud nenajdu postupne dalsi nazvy
                      LineNr := FindLine(oNazvy, Page, 0);
                      i := 2;
                      if (LineNr = -1) then
                        begin
                          LineNr := FindLine(oNazvy, Page, 0);
                          i := 3;
                          if (LineNr = -1) then
                            begin
                              BeginPos := 0;
                              i := 4;
                            end;
                        end;
                      if (i = 2) or (i = 3) then
                        begin
                          LineNr := FindLine('<a href="/film/', Page, LineNr);
                          Line := Page.GetString(LineNr);
                          BeginPos := 1;
                        end;
                    end;
                    2: begin // hledam posledni slovensky nazev, pokudn nenajdu, nehledam nic
                      LineNr := FindLine(aNazvy, Page, 0);
                      if (LineNr = -1) then
                        begin
                          BeginPos := 0;
                        end
                      else
                        begin
                          LineNr := FindLine('<a href="/film/', Page, LineNr);
                          Line := Page.GetString(LineNr);
                          BeginPos := 1;
                          i := 3;
                        end;
                    end;
                    end;
                  end;
              until (BeginPos < 1);
              // zobrazi okno se stromem nalezenych filmu a pokud uzivatel kliknul
              // na OK -> rozparseruje se adresa s detailem filmu ktery byl vybran
              if PickTreeExec(Address) then
                AnalyzeMoviePage(Address);
            end;
        end;
    end;
end;

// analyzuje stranku s detaily filmu
procedure AnalyzeMoviePage(Address: string);
var
  Page: TStringList;
  LineNr : Integer;
  Line, Value, Value2 : String;
  LinePos, BeginPos, EndPos, MidPos, PomPos : Integer;
begin
  Page := TStringList.Create;
  // pridani parametru stranky, ktere dovoli zobrazit kompletni popisek filmu
  //film.php?text=1&id=88025&rec=&top=&kom=1
  Page.Text := GetPage(Address + '&text=1rec=&top=&kom=1');
  // hleda radek na kterem se nachazi zacatek informaci o filmu
  LineNr := FindLine('font-size: 18px;font-weight:bold;color: #000000;font-family: Tahoma;', Page, 0);

  // pokud ho nasel
  if (LineNr > -1) then
    begin
      LinePos := 1;
      // vezme si aktualni radek
      Line := Page.GetString(LineNr + LinePos);
      // odstrani specialni znaky z prelozeneho nazvu
      HTMLDecode(Line);
      // odstrani HTML tagy
      HTMLRemoveTags(Line);
      // ziska si jmeno filmu
      Value := Copy(Trim(Line), 1, Length(Trim(Line)));

      LinePos := LinePos + 1;
      Line := Page.GetString(LineNr + LinePos);
      Value2 := '';

      repeat
        // najde si zacatek tabulky ve ktere se nachazi nazev filmu
        BeginPos := Pos('<table cellpadding=', Line);

        // pokud jej nasel
        if (BeginPos > 0) then
          begin
            // vezme si prvni sloupecek (bunku) z tabulky
            BeginPos := Pos('<td>', Line);
            // najde si pozici obrazku ceske vlajky
            MidPos := Pos('flag_52.gif', Line);
            // vykopiruje si cely radek bez prnich 4 znaku
            Line := Copy(Line, BeginPos + 4, Length(Line) - (BeginPos + 3));
            // urci si konec sloupecku (bunky) tabulky
            EndPos := Pos('</td>', Line);

            // pokud neni nastavena pozice posledniho znaku - nastavi se
            if (EndPos = 0) then
              EndPos := Length(Line);

            // vykopirovani nazvu (a to jak ceskeho, tak slovenskeho)
            // v zavislosti na tom co uzivatel vybral
            if (getOption('getSlovakNames') = 1) then
              begin
                // pokud ma film v popisu nejen cesky nazev - prda jej za cesky
                if ((MidPos < BeginPos) and (MidPos > 0)) then
                  Value := Value + '; ' + Copy(Line, 1, EndPos - 1)
                else
                  Value2 := Value2 + Copy(Line, 1, EndPos - 1) + '; ';
              end;

            if (getOption('getSlovakNames') = 0) then
              begin
                // pokud ma film v popisu nejen cesky nazev - prda jej za cesky
                if ((MidPos < BeginPos) and (MidPos > 0)) then
                else
                  Value2 := Value2 + Copy(Line, 1, EndPos - 1) + '; ';
              end;
          end;
      until (BeginPos < 1);

      if (getOption('theEnd') = 1) then
        // jestli na konci nazvu filmu je clen The -> presune se na zacatek nazvu filmu
        if (Pos(', The', Value2) > 0) then
          begin
            Value2 := 'The ' + Copy(Value2, 1, Pos(', The', Value2) + 1);
          end;
       
      if (getOption('addCZname') = 1) then
        begin
          // jestli neni prelozeny nazev, tak jej bez stredniku dpln
          // jinak jej dopln se strednikem
          if (GetField(fieldTranslatedTitle) = '') then
            SetField(fieldTranslatedTitle,  Value)
          else
            SetField(fieldTranslatedTitle,  Value + '; ' + GetField(fieldTranslatedTitle));
        end
      else
        SetField(fieldTranslatedTitle, Value);

      if (Value2 = '') then
        Value2 := Value
      else
        Value2 := Copy(Value2, 1, length(Value2) - 2);

      SetField(fieldOriginalTitle, Value2);

      // primitivni kontrola zda je originalni nazev stejny jako prelozeny
      // pokud jsou stejne - prelozeny nazev se v zavislosti na nastaveni smaze
      if (getOption('allowDuplicateNames') = 0) then
        begin
          if (getField(fieldOriginalTitle) = getField(fieldTranslatedTitle)) then
            begin
              SetField(fieldTranslatedTitle, '');
          end;
        end;

      //kategorie
      BeginPos := Pos('<b>', Line);
      Line := Copy(Line, BeginPos + 3, Length(Line) - (BeginPos - 2));
      MidPos := Pos('<br>', Line);
      EndPos := Pos('</b>', Line);
      PomPos := Pos('min</b>', Line);

      //existuji oba radky - kategorie i stat,rok,delka
      if ((MidPos < EndPos) and (MidPos > 0)) then
        begin
          Value := Trim(Copy(Line, 1, MidPos - 7));
          SetField(fieldCategory, Value);
          Value := Trim(Copy(Line, MidPos + 4, EndPos - MidPos - 4));
          RozdelStat(Value);
        end
      else
        //existuje jen jeden radek
        if ((PomPos < EndPos) and (PomPos > 0)) then
          begin
            Value := Trim(Copy(Line, 1, EndPos - 1));
            RozdelStat(Value);
          end
        else
          begin
            Value := Trim(Copy(Line, 1, EndPos - 7));
            SetField(fieldCategory, Value);
          end;

      Value := GetDirector(Line);
      SetField(fieldDirector, Value);
      Value := GetActor(Line);
      SetField(fieldActors, Value);
    end;

    if (getOption('hodnoceni') = 1) then
      begin
        // hodnoceni by MadMaxx
        LineNr := FindLine('padding:10px;text-align:center;font-weight:bold;font-size:36px;color:white;', Page, 0);
        Line := Page.GetString(LineNr + 1);
        BeginPos := 14;
        EndPos := Pos('%', Line);
        Value := copy(Line, BeginPos, EndPos);
       
        if ( EndPos <> BeginPos + 1 ) then //(Length(Value) > 1) then
          begin
            Value2 := copy(Value, 1, 1) + ',' + copy(Value, 2, 1);
          end
        else
          begin
            Value2 := '0,' + copy(Value, 1, 1);
          end;
        SetField(fieldRating, Value2);
      end;
     
    // picture
    //alternativni cover
    LineNr := FindLine('/plakaty.php?id=', Page, 0);
    if (getOption('getAlternativeCover') = 1) and (LineNr > -1) then
      begin
        Line := Page.GetString(LineNr);
        BeginPos := Pos('/plakaty.php?id=', Line) + 1;
        EndPos := Pos('","', Line);
        Value := copy(Line, BeginPos, EndPos-BeginPos);
        Line := GetPage(BaseAddress + Value);
        Value := copy(Line,pos('background="',Line)+12, 200);
        Value := copy(Value,0,pos('border=',Value)-3);
        GetPicture(Value);
      end
    else
      begin
        LineNr := FindLine('table background="http://img.csfd.cz/posters/', Page, 0);
        if (LineNr > -1) then
          begin
            Line := Page.GetString(LineNr);
            BeginPos := pos('table background="http://img.csfd.cz/posters', Line) + 18;

            if (BeginPos > 10) then
              begin
                EndPos := pos('" border="', Line);
                Value := copy(Line, BeginPos, EndPos - BeginPos);
                GetPicture(Value);
              end;
          end;
       end;
    // Info
//    LineNr := FindLine('        </div></div>', Page, 0);
//    if (LineNr > -1) then
//      begin
//      Line := Page.GetString(LineNr+1);
//      BeginPos := pos('float:left', Line);
//      EndPos := pos('</i></b></div></span></span></td>', Page.GetString(LineNr));
//      Value := copy(Line, BeginPos, EndPos - BeginPos);
//        HTMLDecode(Value);
//        HTMLRemoveTags(Value);
//        if (getOption('addCZdescr') = 1) then
//          SetField(fieldDescription, Trim(Value) + #13#10 + #13#10 + GetField(fieldDescription))
//        else
//          SetField(fieldDescription, Trim(Value));
//      end


//Info

Line := GetPage(address);
  Value:=copy(Line,pos('<div style=''float:left;width:425px;padding-top:10px;font-weight:normal''>',Line),
  pos('</i></b></div></span></span></td>',Line) -
  pos('<div style=''float:left;width:425px;padding-top:10px;font-weight:normal''>',Line));
  HTMLRemoveTags(Value);
   HTMLDecode(Value);
    SetField(fieldDescription, Value);


   // URL
   SetField(fieldURL, Address);
  //DisplayResults;
end;

begin
  // kontrola verze movie catalogu
  if CheckVersion(3,5,0) then
    begin
      MovieName := GetField(fieldOriginalTitle);

      // pokud je originalni jmeno filmu prazdne, vem jmeno prelozene
      if (MovieName = '') then
        MovieName := GetField(fieldTranslatedTitle);

      // zadani z inputu
      if Input('Import movie from www.csfd.cz', 'Enter the title of the movie:', MovieName) then
        begin
          // analyzuj stranku http://www.csfd.cz/search_pg.php?search=jmeno_filmu
          AnalyzePage(BaseAddress + 'search_pg.php?search=' + UrlEncode(MovieName));
        end;
    end
  else
    ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.5.0)');
end.
kresomysl
PostPosted: 2008-08-12 07:31:27    Post subject: Reply with quote
View user's profile Send private message Nejak me prestal fungovat import z CSFD, zase nejaka zmena struktury na strankach? Proste to ted nikdy nic nenajde :-(
Jsem v tom sam, nebo je to u vsech? :-)
SwordMaster
PostPosted: 2008-08-20 10:44:37    Post subject: Reply with quote
View user's profile Send private message mne to nejde tiez angry
playman22
PostPosted: 2008-08-20 17:32:58    Post subject: Reply with quote
View user's profile Send private message NEFUNGUJEEE sad nenajde casto film a aj ked najde, tak je chyba v diakritike... asi zmenili kodovanie... trebalo by kontaktovat tvorcu toho sriptu alebo niekoho, kto sa tomu rozumie, lebo ja sa zneho neviem vysomarit aj ked v nom su tie poznamky...

/edit: stiahol som si tu najnovsiu verziu scriptu (2.9) a ta funguje bez problemov grin kind

//edit2: az nato, ze nevypisuje najdene v ceskych nazvoch
krewnaganku
PostPosted: 2008-09-08 15:54:12    Post subject: script Reply with quote
View user's profile Send private message Prosím poraďte mi někdo jakou mám vložit do amc adresu , aby mi to načítalo z sosatko , stáhl jsem si u vás na to script , ale v katalogu na tuto databázi není odkaz.Zkoušel jsem to nastavit v nastavení , ale zadal jsem pouze adresu na sosátko a vono mi to nic neudělalo.
Dále bych se chtěl zeptat kde bych našel funkční script na fdb.cz.
Díky moc za odpověď.
Zdravím všechny.
ps:AMC je výbornej program , jsem s nim naprosto spokojenej , doufám že bude i nadále fungovat jak funguje. wink
playman22
PostPosted: 2008-09-08 20:24:27    Post subject: Reply with quote
View user's profile Send private message skus csfd to funguje vpohode smile
krewnaganku
PostPosted: 2008-09-09 11:47:29    Post subject: Reply with quote
View user's profile Send private message Jo Jo CSFD není problém to mi jde úplně v pohodě , ale chtěl byl využít aj tu fdb tam maj obáhlejší popisky k filmům atd... a nechce se mi to kopírovat ručně.sosátko chci zas využít na obaly.díky
playman22
PostPosted: 2008-09-10 06:04:35    Post subject: Reply with quote
View user's profile Send private message napis chalanovi, co sa stara o tie scripty... aj mne on pomohol wink
kontakt najdes na: http://amc.thez.info/contact.php
georgeso
PostPosted: 2008-09-10 15:45:40    Post subject: Reply with quote
View user's profile Send private message Opravil jsem skript FDB.cz, ktery je v instalici AMC a poslal jsem ho Ikeovi, ktery by jej mel zverejnit na strankach http://amc.thez.info. Je to první pokus, tak me nebijte jestli to nebude fungovat na 100%.
krewnaganku
PostPosted: 2008-09-10 16:51:53    Post subject: Reply with quote
View user's profile Send private message Díky za info lol
georgeso
PostPosted: 2008-09-12 08:42:50    Post subject: Reply with quote
View user's profile Send private message Tak protože iKe se nemá k tomu, aby ten skript zveřejnil dal jsem ho na hellshare: http://www.hellshare.com/155943/fdb_cz.ifs/

Last edited by georgeso on 2008-09-13 11:31:24; edited 1 time in total
krewnaganku
PostPosted: 2008-09-12 14:59:19    Post subject: hellshare Reply with quote
View user's profile Send private message To je ten na tu fdb???
krewnaganku
PostPosted: 2008-09-12 15:01:42    Post subject: Reply with quote
View user's profile Send private message Sorry už to vidím v tom odkazu , díky moc!!! grin kind
krewnaganku
PostPosted: 2008-09-12 16:30:36    Post subject: fdb Reply with quote
View user's profile Send private message No tak skript funguje v pohodě , akorát je problém u animovaných filmů (Happy Feet , Valiant , V tom domě straší atd...).Vždy při stahování informací to vyhodí error a vyskočí skript s označenou chybou "herci" asi tam na fdb nejsou uvedeni.Při načítání těchto animáču z csfd no problem.
Jinak ještě jednou díky , dobrá práce. grin kind
georgeso
PostPosted: 2008-09-13 10:20:18    Post subject: Re: fdb Reply with quote
View user's profile Send private message
krewnaganku wrote:
No tak skript funguje v pohodě , akorát je problém u animovaných filmů (Happy Feet , Valiant , V tom domě straší atd...).Vždy při stahování informací to vyhodí error a vyskočí skript s označenou chybou "herci" asi tam na fdb nejsou uvedeni.Při načítání těchto animáču z csfd no problem.
Jinak ještě jednou díky , dobrá práce. grin kind


Opraveno načítání herců u animovaných filmů verze 1.0 RC2 http://www.hellshare.com/155943/fdb_cz.ifs/
krewnaganku
PostPosted: 2008-09-15 13:27:25    Post subject: Reply with quote
View user's profile Send private message Tak už to jede bez problémů.Fakt díky moc grin kind
hyena
PostPosted: 2008-10-05 02:20:09    Post subject: Re: fdb Reply with quote
View user's profile Send private message
georgeso wrote:

Opraveno načítání herců u animovaných filmů verze 1.0 RC2 http://www.hellshare.com/155943/fdb_cz.ifs/

Pardon, ale mohol by si to prosim postnut sem do kodu alebo aspon dat na nejaky normalny server? Free download nefunguje a teda s odpustenim, ale platit hostujucemu serveru, ktory v zivote nebudem vyuzivat, za 8kb subor sa mi moc nechce - nevraviac uz o tom, ze ani nemam ako. Vdaka.
IkE Blaster
PostPosted: 2008-10-14 17:46:19    Post subject: Reply with quote
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger A dal snad nekdo nebohemu IkE Blasterovi vedet? grin

Jestli to chce hostovat u me, tak mi to poslete nekdo na mail. Muzu kdyztak udelat i podadresar s vlastnim ftp
Display posts from previous:   
View previous topic :: View next topic  
Post new topic   Reply to topic    www.antp.be Forum Index -> Ant Movie Catalog > Scripts All times are GMT + 1 Hour
Goto page Previous  1, 2, 3, 4, 5, 6, 7, 8, 9, 10  Next
Page 7 of 10

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2006 phpBB Group
Template made by antp