world-art.ru (фильмы)

[zhuzha2006]

Так как тогда сделать, чтобы информация заливалась?
До сих пор ничего этот плагин не видит вообще.

[LeoXX]

Если кому интересно, маленький фикс импорта эпизодов:
Меняем

Код: [Выделить]

AddEpisode('', Copy(Tmp, P + 1, Length(Tmp) - P), '', '', '', '1', Copy(Tmp, 1, P - 1));
на

Код: [Выделить]

if P < 5 then AddEpisode('', Copy(Tmp, P + 1, Length(Tmp) - P), '', '', '', '1', Copy(Tmp, 1, P - 1))
else AddEpisode('', Tmp, '', '', '', '1', Tmp);После этого будут нормально добавляться сплеши, спец. выпуски и т.д., что до этого добавлялось приблизительно так: "2006, 25 мин)"

[Tsume]

world-art по ходу дела умер. На сколько - лично мне не известно......Если кто знает подробности - отпишитесь тут

[Arg123]

Tsume
Похоже что таки да  , но для них это довольно таки типичное явление, воскреснут также ...

[Tsume]

Для начала о хорошем, world-art ожил.
Теперь о плохом:
для некоторых аниме перестал работать скрипт (встретил пока 3 штуки), например у этого:
http://www.world-art.ru/animation/animation.php?id=6497
Все вроде понял, проблема со взятие персон тут, сейчас буду править
Для поиска персон немного меняем код (одну строчу) и все ОК:

//Get Cast URL
 EndPos := Pos('animation_full_production', HTML);
 if EndPos > 0 then begin
  curPos := PrevPos('animation_full_cast.php?id=', HTML, EndPos);
  EndPos := PosFrom('"', HTML, curPos);
  
  ExtraLinks[smCredits] := BASE_URL + '/animation/' + Copy(HTML, curPos, EndPos - curPos);
 end else
  EndPos := 1;

Последняя версия моей модификации (если что не понятно - спрашивайте) во вложении.
Для более красивого вида желательно изменить немного шкурку. Черновой вариант моего варианта во вложении (позже буду его переделывать)+там же мой вариант пользовательского перевода (сделан под мой скрипт + некоторые правки для себя).

[вложение удалено администратором]

[Tsume]

Дико извиняюсь, но вкралась не большая ошибка в исправление
Нужно было вот так всего лишь сделать:

  EndPos := Pos('>авторский состав</a>', HTML);

Или сами замените или перекачайте исправленный вариант (просто в том варианте у некоторых аниме могла не браться инфа)

[вложение удалено администратором]

[nostra]

Tsume, ты скрипт то так чтобы он на странице "Загрузить" появился загружаешь? Или он только для частных случаев?

[Tsume]

Tsume, ты скрипт то так чтобы он на странице "Загрузить" появился загружаешь? Или он только для частных случаев?

Думаю он все-таки для частных случаев. Ибо часть полей переименовать (добавить) надо. Подробнее в шапке расписано что изменено (я там как раз недавно обновил информацию). Думаю его не надо на страницу загрузки А то без нужных изменений - будет бред местами.

[nostra]

ОК, понятно

[LionWBE]

С помощью такого кода, при импорте инфы с World-art.ru, автоматически подгружаются все доступные скриншоты.
Для этого просто надо всавить этот код в скрипт World-art.ru.

Код: [Выделить]

if DOWNLOAD_POSTER then begin
  curPos := Pos('animation_poster.php?id=', HTML);
  EndPos:=PosFrom('"', HTML, curPos);
  if curPos > 0 then begin
    curPos :=curPos+Length('animation_poster.php?id=');
    number_of_anime:=StrToInt(Copy(HTML, curPos, EndPos - curPos));
    
for number:= 0 to 50 do
if number_of_anime > ((number-1)*1000) then begin
number_of_razdel:=IntToStr(number*1000);
end;

curPos := Pos('converted_images_'+number_of_razdel+'/optimize_b/'+IntToStr(number_of_anime)+'-', HTML);
EndPos:=PosFrom('-optimize', HTML, curPos);
if curPos > 0 then begin
    curPos :=curPos+Length('converted_images_'+number_of_razdel+'/optimize_b/'+IntToStr(number_of_anime)+'-');
    number_start_pic:=StrToInt(Copy(HTML, curPos, EndPos - curPos));
    curPos := Pos('>кадры из фильма</a> [', HTML);
    EndPos:=PosFrom(']', HTML, curPos);
    curPos :=curPos+Length('>кадры из фильма</a> [');
    number_pic:=StrToInt(Copy(HTML, curPos, EndPos - curPos));

for number:= number_start_pic to number_pic+number_start_pic do begin
AddImageURL(1, 'http://www.world-art.ru/animation/img/converted_images_'+number_of_razdel+'/optimize_b/'+IntToStr(number_of_anime)+'-'+IntToStr(number)+'-optimize_b.jpg');
end;
end;
end;
end;

Так же надо добавить глобальные переменные :

Код: [Выделить]

number_ser : Integer;
number_of_anime : Integer;
number_of_razdel : String;
number : Integer;
number_start_pic : Integer;
number_pic : Integer;



[вложение удалено администратором]

[Endimon]

Как подправить скрипт, чтоб загружались увеличиные скриншоты?

[LionWBE]

Как подправить скрипт, чтоб загружались увеличиные скриншоты?

Код: [Выделить]

просто надо строку

Код: [Выделить]

AddImageURL(1, 'http://www.world-art.ru/animation/img/converted_images_'+number_of_razdel+'/optimize_b/'+IntToStr(number_of_anime)+'-'+IntToStr(number)+'-optimize_b.jpg');поменять на

Код: [Выделить]

AddImageURL(1, 'http://www.world-art.ru/animation/img/converted_images_'+number_of_razdel+'/optimize_d/'+IntToStr(number_of_anime)+'-'+IntToStr(number)+'-optimize_d.jpg');
и все будет работать, но только зачем надо базу грузить тяжелыми картинками.
У меня у самого база на 355 анимэх со скринами маленького размера и весит бд - 120 метров.

[Endimon]

Как подправить скрипт, чтоб загружались увеличиные скриншоты?

Код: [Выделить]

просто надо строку

Код: [Выделить]

AddImageURL(1, 'http://www.world-art.ru/animation/img/converted_images_'+number_of_razdel+'/optimize_b/'+IntToStr(number_of_anime)+'-'+IntToStr(number)+'-optimize_b.jpg');поменять на

Код: [Выделить]

AddImageURL(1, 'http://www.world-art.ru/animation/img/converted_images_'+number_of_razdel+'/optimize_d/'+IntToStr(number_of_anime)+'-'+IntToStr(number)+'-optimize_d.jpg');
и все будет работать, но только зачем надо базу грузить тяжелыми картинками.
У меня у самого база на 355 анимэх со скринами маленького размера и весит бд - 120 метров.

Спасибо 
А вес базы меня не смущает, у меня в базе 2500 фильмов и весом 900 мег.

P/S А есть возможность ограничить количество загружаемых скриншотов?

[LionWBE]

P/S А есть возможность ограничить количество загружаемых скриншотов?

Есть, вот строка кода, которая собственно и загружает картинки :

Код: [Выделить]

for number:= number_start_pic to number_pic+number_start_pic do begin
AddImageURL(1, 'http://www.world-art.ru/animation/img/converted_images_'+number_of_razdel+'/optimize_b/'+IntToStr(number_of_anime)+'-'+IntToStr(number)+'-optimize_b.jpg');
end

где number_start_pic - номер первой картинки для загрузки
      number_pic - количество загружаемых

Чтобы уменьшить количество картинок до определенного, надо добавить строку перед загрузкой картинок

Код: [Выделить]

if number_pic > KKK then number_pic:=KKK;

где собственно KKK - желаемое количество картинок.

[ILF7]

С помощью такого кода, при импорте инфы с World-art.ru, автоматически подгружаются все доступные скриншоты.
Для этого просто надо всавить этот код в скрипт World-art.ru.

Код: [Выделить]

if DOWNLOAD_POSTER then begin
  curPos := Pos('animation_poster.php?id=', HTML);
  EndPos:=PosFrom('"', HTML, curPos);
  if curPos > 0 then begin
    curPos :=curPos+Length('animation_poster.php?id=');
    number_of_anime:=StrToInt(Copy(HTML, curPos, EndPos - curPos));
    
for number:= 0 to 50 do
if number_of_anime > ((number-1)*1000) then begin
number_of_razdel:=IntToStr(number*1000);
end;

curPos := Pos('converted_images_'+number_of_razdel+'/optimize_b/'+IntToStr(number_of_anime)+'-', HTML);
EndPos:=PosFrom('-optimize', HTML, curPos);
if curPos > 0 then begin
    curPos :=curPos+Length('converted_images_'+number_of_razdel+'/optimize_b/'+IntToStr(number_of_anime)+'-');
    number_start_pic:=StrToInt(Copy(HTML, curPos, EndPos - curPos));
    curPos := Pos('>кадры из фильма</a> [', HTML);
    EndPos:=PosFrom(']', HTML, curPos);
    curPos :=curPos+Length('>кадры из фильма</a> [');
    number_pic:=StrToInt(Copy(HTML, curPos, EndPos - curPos));

for number:= number_start_pic to number_pic+number_start_pic do begin
AddImageURL(1, 'http://www.world-art.ru/animation/img/converted_images_'+number_of_razdel+'/optimize_b/'+IntToStr(number_of_anime)+'-'+IntToStr(number)+'-optimize_b.jpg');
end;
end;
end;
end;

Так же надо добавить глобальные переменные :

Код: [Выделить]

number_ser : Integer;
number_of_anime : Integer;
number_of_razdel : String;
number : Integer;
number_start_pic : Integer;
number_pic : Integer;


Я недавно начал использование данной программы (уж оч. она мну понравилась). попытлася подравить скрипт, но у меня ничего не вышло. Подскажите пожалуйста в какое место скрипта добавить код чтобы скрины таки загружались...
Во вложение то что я намудрил ((

[вложение удалено администратором]