3 51 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 http://kinokrad.co 234DF17B-418C-4FDC-9DFE-CD0C586D2E76 4 KinoKrad.co (С поиском) 515 1 700 0 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 512 0 530 string gsUrlBase = 'http://kinokrad.co'; // База для относительных ссылок int gnTotalItems = 0; // Счётчик созданных элементов TDateTime gStart = Now; // Время начала запуска скрипта int gnMaxPages=10, gnMaxInGroup=100; bool gbYearInTitle=false; char gsGroupMode=''; // Регулярные выражения для поиска на странице блоков с информацией о видео string gsPatternBlock = '<div class="postershort">(.*?)</div>', // Искомые блоки gsCutPage = '<fromCut>(.*?)<toCut>' , // Обрезка загруженной страницы gsPatternTitle = 'alt="(.*?)"' , // Название gsPatternLink = '<a[^>]+href="(.*?)"' , // Ссылка gsPatternImg = '<img[^>]+src="(.*?)"' , // Картинка gsPatternYear = 'shortinfo.*?>(\\d{4})<' , // Год gsPatternAudio = '' , // Озвучка / Перевод gsPatternPages = '.*/page/\\d+/">(\\d+)' , // Регулярное выражение для поиска максимального номера страницы для дозагрузки gsPagesParams = 'page/<PN>/' , // Параметр с номером страницы, который добавляется к ссылке ; /////////////////////////////////////////////////////////////////////////////// // Создание папки или подкаста THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') { THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой Item[mpiTitle ] = sName; // Присваиваем наименование Item[mpiThumbnail ] = sImg; // Картинка Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания gnTotalItems++; // Увеличиваем счетчик созданных элементов return Item; // Возвращаем созданный объект } /////////////////////////////////////////////////////////////////////////////// // Получение имени группировки по имени видео (первая буква, "A..Z" или "#") string GetGroupName(string sName) { string sGrp = '#'; if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = UpperCase(sGrp); if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z'; if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#'; return sGrp; } /////////////////////////////////////////////////////////////////////////////// // Загрузка страниц и парсинг void LoadAndParse() { string sHtml, sData, sName, sLink, sImg, sYear, sPage, sVal, sPost, sServ; // Объявляем переменные THmsScriptMediaItem Item, Folder = FolderItem; TRegExpr RegEx; int i, n, nPages=0, iCnt=0, nGrp=0; char sGrp=""; bool bGroup=false; if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal); if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal); HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupMode); gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters)>0); if (LeftCopy(mpFilePath, 4) != "http") { // Если нет ссылки - делаем поиск названия sLink = 'http://kinokrad.co/index.php?do=search&subaction=search&titleonly=3&story='+HmsPercentEncode(HmsUtf8Encode(mpTitle)); sHtml = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true); } else { // Иначе просто, загружаем страницу по ссылке sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true); } sHtml = HmsUtf8Decode(sHtml); // Декодируем страницу из UTF-8 sHtml = HmsRemoveLineBreaks(sHtml); // Удаляем переносы строк, для облегчения работы с регулярными выражениями // Если указан шаблон поиска максимального номера страницы - применяем if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal)) nPages = StrToIntDef(sVal, 0); // Вырезаем только нужный участок текста HTML, где будем искать блоки. // Вместо <fromCut> и <toCut> вставляем начало и конец участка HTML, между которыми // будем искать блоки текста с сылкой, наименованием и проч. HmsRegExMatch(gsCutPage, sHtml, sHtml); // ищем в sHtml, результат кладём обратно в sHtml // ========================================================================= // Дозагрузка страниц if ((gnMaxPages!=0) && (nPages>gnMaxPages)) nPages = gnMaxPages; for (i=2; i<=nPages; i++) { HmsSetProgress(Trunc(i*100/nPages)); HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages])); sLink = mpFilePath + ReplaceStr(gsPagesParams, '<PN>', IntToStr(i)); sPage = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true); sPage = HmsUtf8Decode(sPage); if (gsCutPage!='') HmsRegExMatch(gsCutPage, sPage, sPage); sHtml += sPage; if (HmsCancelPressed) break; } HmsHideProgress(); // ========================================================================= // Создаём объект для поиска блоков текста по регулярному выражению, // в которых есть информация: ссылка, наименование, ссылка на картинку и проч. // Обычно, определяем начало и конец блока и вставляем их вместо <section> и </section> RegEx = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE); try { // Определяем, если блоков в загруженном более чем gnMaxInGroup, включаем группировку i=0; if (RegEx.Search(sHtml)) do i++; while (RegEx.SearchAgain()); bGroup = (i > gnMaxInGroup); // Главный цикл поиска блоков if (RegEx.Search(sHtml)) do { sLink=''; sImg=''; sYear=''; sName=''; HmsRegExMatch(gsPatternTitle, RegEx.Match, sName); HmsRegExMatch(gsPatternLink , RegEx.Match, sLink); HmsRegExMatch(gsPatternImg , RegEx.Match, sImg ); HmsRegExMatch(gsPatternYear , RegEx.Match, sYear); if (Trim(sLink)=="") continue; sName = ReplaceStr(HmsHtmlToText(sName), "/", "-"); sLink = HmsExpandLink(sLink, gsUrlBase); if (sImg!='') sImg = HmsExpandLink(sImg, gsUrlBase); // Если в ссылках встречаются русские символы - делаем их безопасными if (HmsRegExMatch('^.*?([а-яА-Я].*)', sImg, sVal)) sImg = ReplaceStr(sImg, sVal, HmsPercentEncode(HmsUtf8Encode(sVal))); // Если указано добавлять год вназвание и в названии его нет, добавляем if (gbYearInTitle && (sYear!='') && (Pos(sYear, sName)<1)) sName += ' ('+sYear+')'; // Контроль группировки (создаём папку с именем группы) if (gsGroupMode=='alph') { Folder = FolderItem.AddFolder(GetGroupName(sName)); Folder[mpiFolderSortOrder] = "mpTitle"; } else if (gsGroupMode=='year') { Folder = FolderItem.AddFolder(sYear); Folder[mpiFolderSortOrder] = "mpTitle"; Folder[mpiYear ] = sYear; } else if (bGroup) { iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; } Folder = FolderItem.AddFolder(Format('%.2d', [nGrp])); } CreateFolder(Folder, sName, sLink, sImg); // Создание ссылки (папки с фильмом) } while (RegEx.SearchAgain); } finally { RegEx.Free(); } if (gsGroupMode=='alph') FolderItem.Sort('mpTitle'); else if (gsGroupMode=='year') FolderItem.Sort('-mpYear'); HmsLogMessage(1, mpTitle+': создано элементов - '+IntToStr(gnTotalItems)); } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // { FolderItem.DeleteChildItems(); // Удаляем созданные ранее элементы в текущей папке LoadAndParse(); // Запускаем загрузку страниц и создание папок видео } 531 C++Script 532 1 553 1 522 0 570 1 245 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 93 42885,7617350926 550 string gsUrlBase = "http://kinokrad.co"; // База для относительных ссылок int gnTotalItems = 0; // Счётчик созданных элементов TDateTime gStart = Now; // Время начала запуска скрипта string gsTime = "01:40:00.000"; // Продолжительность видео int mpiCountry = 10012; // Идентификаторы для хранения дополнительной int mpiTranslate = 10013; // информации в свойствах подкаста int mpiQuality = 10014; int mpiVideoMessage = 1001001; string gsPodcastName = "kinokrad.co"; string gsPreviewPrefix = 'kinokrad'; // Префикс кеша информационных картинок на сервере wonky.lostcut.net /////////////////////////////////////////////////////////////////////////////// // Создание информационной ссылки void CreateInfoItem(string sName, string sVal) { THmsScriptMediaItem Item; sVal = Trim(sVal); if (sVal=="") return; Item = HmsCreateMediaItem('Info'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID); Item[mpiTitle ] = sName+': '+sVal; Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg'; Item[mpiTimeLength] = 9; Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0)); gnTotalItems++; } /////////////////////////////////////////////////////////////////////////////// // Создание ссылки-ошибки void CreateErrorItem(string sMsg) { THmsScriptMediaItem Item = HmsCreateMediaItem('http://wonky.lostcut.net/vids/podcasterror_hd.mp4', PodcastItem.ItemID); Item[mpiTitle ] = sMsg; Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png'; } /////////////////////////////////////////////////////////////////////////////// // Создание ссылки на видео THmsScriptMediaItem CreateMediaItem(THmsScriptMediaItem Folder, string sTitle, string sLink='', string sGrp='') { THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, sGrp); Item[mpiTitle ] = sTitle; Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0)); Item[mpiTimeLength] = gsTime; Item.CopyProperties(PodcastItem, [mpiThumbnail,mpiYear,mpiActor,mpiDirector,mpiProducer,mpiGenre]); gnTotalItems++; return Item; } /////////////////////////////////////////////////////////////////////////////// // Создание папки подкаста THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') { if (sImg=='') sImg = mpThumbnail; THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой Item[mpiTitle ] = sName; // Присваиваем наименование Item[mpiThumbnail ] = sImg; // Картинка Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания gnTotalItems++; // Увеличиваем счетчик созданных элементов return Item; // Возвращаем созданный объект } /////////////////////////////////////////////////////////////////////////////// // Получение ссылки на Youtube ------------------------------------------------ void GetLink_Youtube31(string sLink) { string sData, sVideoID='', sMaxHeight='', sAudio='', sSubtitlesLanguage='ru', sSubtitlesUrl, sFile, sVal, sMsg, sConfig, sHeaders; TJsonObject JSON; TRegExpr RegEx; sHeaders = 'Referer: '+sLink+#13#10+ 'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/46.0.2490.86 Safari/537.36'+#13#10+ 'Origin: http://www.youtube.com'+#13#10; HmsRegExMatch('--maxheight=(\\d+)' , mpPodcastParameters, sMaxHeight); HmsRegExMatch('--sublanguage=(\\w{2})', mpPodcastParameters, sSubtitlesLanguage); bool bSubtitles = (Pos('--subtitles' , mpPodcastParameters)>0); bool bAdaptive = (Pos('--adaptive' , mpPodcastParameters)>0); bool bNotDE = (Pos('notde=1' , sLink)>0); if (!HmsRegExMatch('[\\?&]v=([^&]+)' , sLink, sVideoID)) if (!HmsRegExMatch('youtu.be/([^&]+)' , sLink, sVideoID)) HmsRegExMatch('/(?:embed|v)/([^\\?]+)', sLink, sVideoID); if (sVideoID=='') { HmsLogMessage(2, 'Невозможно получить Video ID в ссылке Youtube'); return; } sLink = 'http://www.youtube.com/watch?v='+sVideoID+'&hl=ru&persist_hl=1&has_verified=1'; sData = HmsDownloadURL(sLink, sHeaders, true); sData = HmsRemoveLineBreaks(sData); if (!HmsRegExMatch('player.config\\s*?=\\s*?({.*?});', sData, sConfig)) { // Если в загруженной странице нет нужной информации, пробуем немного по-другому sLink = 'http://hms.lostcut.net/youtube/g.php?v='+sVideoID; if (sMaxHeight!='' ) sLink += '&max_height='+sMaxHeight; if (Trim(mpPodcastMediaFormats )!='') sLink += '&media_formats='+mpPodcastMediaFormats; if (bAdaptive ) sLink += '&adaptive=1'; sData = HmsUtf8Decode(HmsDownloadUrl(sLink)); if (HmsRegExMatch('"reason":"(.*?)"' , sData, sMsg)) { HmsLogMessage(2 , sMsg); //VideoMessage(sMsg); return; } else { sData = HmsJsonDecode(sData); HmsRegExMatch('"url":"(.*?)"', sData, MediaResourceLink); return; } } String hlsUrl, ttsUrl, flp, jsUrl, dashMpdLink, streamMap, playerId, algorithm; String sType, itag, sig, alg, s; String UrlBase = ""; int i, n, w, num, height, priority, minPriority = 90, selHeight, maxHeight = 1080; bool is3D; TryStrToInt(sMaxHeight, maxHeight); JSON = TJsonObject.Create(); try { JSON.LoadFromString(sConfig); hlsUrl = HmsExpandLink(JSON.S['args\\hlsvp' ], UrlBase); ttsUrl = HmsExpandLink(JSON.S['args\\ttsurl'], UrlBase); flp = HmsExpandLink(JSON.S['url' ], UrlBase); jsUrl = HmsExpandLink(JSON.S['assets\\js' ], UrlBase); streamMap = JSON.S['args\\url_encoded_fmt_stream_map']; if (bAdaptive && JSON.B['args\\adaptive_fmts']) streamMap = JSON.S['args\\adaptive_fmts']; if ((streamMap=='') && (hlsUrl=='')) { sMsg = "Невозможно найти данные для воспроизведения на странице видео."; if (HmsRegExMatch('(<h\\d[^>]+class="message".*?</h\\d>)', sData, sMsg)) sMsg = HmsUtf8Decode(HmsHtmlToText(sMsg)); HmsLogMessage(2, sMsg); //VideoMessage(sMsg); return; } } finally { JSON.Free; } if (Copy(jsUrl, 1, 2)=='//') jsUrl = 'http:'+Trim(jsUrl); HmsRegExMatch('/player-([\\w_-]+)/', jsUrl, playerId); algorithm = HmsDownloadURL('https://hms.lostcut.net/youtube/getalgo.php?jsurl='+HmsHttpEncode(jsUrl)); if (hlsUrl!='') { MediaResourceLink = ' '+hlsUrl; sData = HmsDownloadUrl(sLink, sHeaders, true); RegEx = TRegExpr.Create('BANDWIDTH=(\\d+).*?RESOLUTION=(\\d+)x(\\d+).*?(http[^#]*)', PCRE_SINGLELINE); try { if (RegEx.Search(sData)) do { sLink = '' + RegEx.Match(4); height = StrToIntDef(RegEx.Match(3), 0); if (mpPodcastMediaFormats!='') { priority = HmsMediaFormatPriority(height, mpPodcastMediaFormats); if ((priority>=0) && (priority>minPriority)) { MediaResourceLink = sLink; minPriority = priority; } } else if ((height > selHeight) && (height <= maxHeight)) { MediaResourceLink = sLink; selHeight = height; } } while (RegEx.SearchAgain()); } finally { RegEx.Free(); } } else if (streamMap!='') { i=1; while (i<=Length(streamMap)) { sData = Trim(ExtractStr(streamMap, ',', i)); sType = HmsHttpDecode(ExtractParam(sData, 'type', '', '&')); itag = ExtractParam(sData, 'itag' , '', '&'); is3D = ExtractParam(sData, 'stereo3d', '', '&') == '1'; sLink = ''; if (Pos('url=', sData)>0) { sLink = ' ' + HmsHttpDecode(ExtractParam(sData, 'url', '', '&')); if (Pos('&signature=', sLink)==0) { sig = HmsHttpDecode(ExtractParam(sData, 'sig', '', '&')); if (sig=='') { sig = HmsHttpDecode(ExtractParam(sData, 's', '', '&')); for (w=1; w<=WordCount(algorithm, ' '); w++) { alg = ExtractWord(w, algorithm, ' '); if (Length(alg)<1) continue; if (Length(alg)>1) TryStrToInt(Copy(alg, 2, 4), num); if (alg[1]=='r') {s=''; for(n=Length(sig); n>0; n--) s+=sig[n]; sig = s; } // Reverse if (alg[1]=='s') {sig = Copy(sig, num+1, Length(sig)); } // Clone if (alg[1]=='w') {n = (num-Trunc(num/Length(sig)))+1; Swap(sig[1], sig[n]);} // Swap } } if (sig!='') sLink += '&signature=' + sig; } } if (itag in ([139,140,141,171,172])) { sAudio = sLink; continue; } if (sLink!='') { height = 0; //http://www.genyoutube.net/formats-resolution-youtube-videos.html if (itag in ([13,17,160 ])) height = 144; else if (itag in ([5,36,92,132,133,242 ])) height = 240; else if (itag in ([6 ])) height = 270; else if (itag in ([18,34,43,82,100,93,134,243 ])) height = 360; else if (itag in ([35,44,83,101,94,135,244,43 ])) height = 480; else if (itag in ([22,45,84,102,95,136,298,247])) height = 720; else if (itag in ([37,46,85,96,137,248,299 ])) height = 1080; else if (itag in ([264,271 ])) height = 1440; else if (itag in ([266,138 ])) height = 2160; else if (itag in ([272 ])) height = 2304; else if (itag in ([38 ])) height = 3072; else continue; if (mpPodcastMediaFormats!='') { priority = HmsMediaFormatPriority(height, mpPodcastMediaFormats); if ((priority>=0) || (priority<minPriority)) { MediaResourceLink = sLink; minPriority = priority; selHeight = height; } } else if ((height>selHeight) && (height<= maxHeight)) { MediaResourceLink = sLink; selHeight = height; } } } if (bAdaptive && (sAudio!='')) MediaResourceLink = '-i "'+Trim(MediaResourceLink)+'" -i "'+Trim(sAudio)+'"'; } // Если есть субтитры и в дополнительных параметрах указано их показывать - загружаем if (bSubtitles && (ttsUrl!='')) { sFile = HmsSubtitlesDirectory+'\\Youtube\\'+PodcastItem.ItemID+'.'+sSubtitlesLanguage+'.srt'; sLink = ttsUrl+'&fmt=srt&lang='; if (!HmsDownloadURLToFile(sLink+sSubtitlesLanguage, sFile, 'Accept-Encoding: gzip, deflate')) { HmsDownloadURLToFile(sLink+'en' , sFile, 'Accept-Encoding: gzip, deflate'); } PodcastItem[mpiSubtitleLanguage] = sFile; } } /////////////////////////////////////////////////////////////////////////////// // Вывод видео сообщения с заданным текстом void ShowVideoMessage(string sMsg, string sTitle='', int nErr=0, string sDescr='') { if (nErr==1) sMsg = '<c:#e22>'+Trim(sMsg); TStrings INFO = TStringList.Create(); INFO.Values['Title' ] = sTitle; INFO.Values['Info' ] = sMsg; INFO.Values['Descr' ] = sDescr; PodcastItem[mpiVideoMessage] = INFO.Text; INFO.Free(); VideoPreview(); } /////////////////////////////////////////////////////////////////////////////// // Формирование видео с картинкой с информацией о фильме bool VideoPreview() { string sVal, sFileImage, sPoster, sTitle, sDescr, sCateg, sInfo, sLink, sData; int xMargin=7, yMargin=10, nSeconds=10, n; string sCacheDir; float nH=cfgTranscodingScreenHeight, nW=cfgTranscodingScreenWidth; // Проверяем и, если указаны в параметрах подкаста, выставляем значения смещения от краёв if (HmsRegExMatch('--xmargin=(\\d+)', mpPodcastParameters, sVal)) xMargin=StrToInt(sVal); if (HmsRegExMatch('--ymargin=(\\d+)', mpPodcastParameters, sVal)) yMargin=StrToInt(sVal); sCacheDir = IncludeTrailingBackslash(HmsTempDirectory); if (Trim(PodcastItem[mpiVideoMessage])=='') return; // Если нет инфы - выходим быстро! TStrings INFO = TStringList.Create(); // Создаём объект TStrings INFO.Text = PodcastItem[1001001]; // И загружаем туда информацию sPoster = INFO.Values['Poster']; // Постер sTitle = INFO.Values['Title' ]; // Самая верхняя надпись - Название sCateg = INFO.Values['Genre' ]; // Жанр sInfo = INFO.Values['Info' ]; // Блок информации sDescr = INFO.Values['Descr' ]; // Описание if (sTitle=='') sTitle = ' '; ForceDirectories(sCacheDir); sFileImage = ExtractShortPathName(sCacheDir)+'videopreview_'; // Файл-заготовка для сохранения картинки sDescr = Copy(sDescr, 1, 3000); // Если блок описания получился слишком большой - обрезаем INFO.Text = ""; // Очищаем объект TStrings для формирования параметров запроса INFO.Values['prfx' ] = gsPreviewPrefix; // Префикс кеша сформированных картинок на сервере INFO.Values['title'] = sTitle; // Блок - Название INFO.Values['info' ] = sInfo; // Блок - Информация INFO.Values['categ'] = sCateg; // Блок - Жанр/категории INFO.Values['descr'] = sDescr; // Блок - Описание фильма INFO.Values['mlinfo'] = '20'; // Максимальное число срок блока Info INFO.Values['w' ] = IntToStr(Round(nW)); // Ширина кадра INFO.Values['h' ] = IntToStr(Round(nH)); // Высота кадра INFO.Values['xm'] = IntToStr(xMargin); // Отступ от краёв слева/справа INFO.Values['ym'] = IntToStr(yMargin); // Отступ от краёв сверху/снизу INFO.Values['bg'] = 'http://www.pageresource.com/wallpapers/wallpaper/noir-blue-dark_3512158.jpg'; // Катринка фона (кэшируется на сервере) INFO.Values['fx'] = '3'; // Номер эффекта для фона: 0-нет, 1-Blur, 2-more Blur, 3-motion Blur, 4-radial Blur INFO.Values['fztitle'] = IntToStr(Round(nH/14)); // Размер шрифта блока названия (тут относительно высоты кадра) INFO.Values['fzinfo' ] = IntToStr(Round(nH/22)); // Размер шрифта блока информации INFO.Values['fzcateg'] = IntToStr(Round(nH/26)); // Размер шрифта блока жанра/категории INFO.Values['fzdescr'] = IntToStr(Round(nH/18)); // Размер шрифта блока описания // Если текста описания больше чем нужно - немного уменьшаем шрифт блока if (Length(sDescr)>890) INFO.Values['fzdescr'] = IntToStr(Round(nH/20)); // Если есть постер, задаём его параметры отображения (где, каким размером) if (sPoster!='') { INFO.Values['wpic' ] = IntToStr(Round(nW/4)); // Ширина постера (1/4 ширины кадра) INFO.Values['xpic' ] = '10'; // x-координата постера INFO.Values['ypic' ] = '10'; // y-координата постера if (mpFilePath=='InfoUpdate') { INFO.Values['wpic' ] = IntToStr(Round(nW/6)); // Ширина постера (1/6 ширины кадра) INFO.Values['xpic' ] = IntToStr(Round(nW/2 - nW/12)); // центрируем } INFO.Values['urlpic'] = sPoster; // Адрес изображения постера } sData = ''; // Из установленных параметров формируем строку POST запроса for (n=0; n<INFO.Count; n++) sData += '&'+Trim(INFO.Names[n])+'='+HmsHttpEncode(INFO.Values[INFO.Names[n]]); INFO.Free(); // Освобождаем объект из памяти, теперь он нам не нужен // Делаем POST запрос не сервер формирования картинки с информацией sLink = HmsSendRequestEx('wonky.lostcut.net', '/videopreview.php?p='+gsPreviewPrefix, 'POST', 'application/x-www-form-urlencoded', '', sData, 80, 0, '', true); // В ответе должна быть ссылка на сформированную картинку if (LeftCopy(sLink, 4)!='http') {HmsLogMessage(2, 'Ошибка получения файла информации videopreview.'); return;} // Сохраняем сформированную картинку с информацией в файл на диске HmsDownloadURLToFile(sLink, sFileImage); // Копируем и нумеруем файл картики столько раз, сколько секунд мы будем её показывать for (n=1; n<=nSeconds; n++) CopyFile(sFileImage, sFileImage+Format('%.3d.jpg', [n]), false); // Для некоторых телевизоров (Samsung) видео без звука отказывается проигрывать, поэтому скачиваем звук тишины char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3'; try { if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3); sFileMP3 = '-i "'+sFileMP3+'"'; } except { sFileMP3=''; } // Формируем из файлов пронумерованных картинок и звукового команду для формирования видео MediaResourceLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -pix_fmt yuv420p ', [sFileMP3, sFileImage+'%03d.jpg']); } /////////////////////////////////////////////////////////////////////////////// // Вывод вместо видео заданного сообщения bool VideoMessage(char sCaption, char sMessage, int nTime=30) { char sFileImage = HmsTempDirectory+'\\videomessage.jpg'; char sCmd; sCaption = HmsHttpEncode(ReplaceStr(sCaption, '\n', '|')); sMessage = HmsHttpEncode(ReplaceStr(sMessage, '\n', '|')); HmsDownloadURLToFile('http://wonky.lostcut.net/videomessage.php?testpic=1&caption='+sCaption+'&msg='+sMessage, sFileImage); char sFileMP3 = HmsTempDirectory+'\\silent.mp3'; try { if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3); sFileMP3 = '-i "'+sFileMP3+'"'; } except { sFileMP3 = ''; } sCmd = Format('%s -loop 1 -f image2 -i "%s" -t %d -r 25 ', [ExtractShortPathName(sFileMP3), ExtractShortPathName(sFileImage), 7]); MediaResourceLink = sCmd; } /////////////////////////////////////////////////////////////////////////////// // Вывод видео сообщения с информацией о фильме void ShowVideoInfo() { string sInfo; THmsScriptMediaItem Parent = PodcastItem.ItemParent; sInfo = ''; if (Trim(Parent[mpiCountry ])!='') sInfo += 'Страна: ' +Parent[mpiCountry ]+"|"; if (Trim(Parent[mpiTranslate])!='') sInfo += 'Перевод: ' +Parent[mpiTranslate]+"|"; if (Trim(Parent[mpiQuality ])!='') sInfo += 'Качество: '+Parent[mpiQuality ]+"|"; if (Trim(Parent[mpiDirector ])!='') sInfo += 'Режиссер: '+Parent[mpiDirector ]+"|"; if (Trim(Parent[mpiActor ])!='') sInfo += 'В ролях: ' +Parent[mpiActor ]+"|"; sInfo = Copy(sInfo, 1, Length(sInfo)-1); // Обрезаем последний символ "|" TStrings INFO = TStringList.Create(); INFO.Values['Poster'] = Parent[mpiThumbnail]; INFO.Values['Title' ] = Parent[mpiTitle]; INFO.Values['Genre' ] = Parent[mpiGenre]; INFO.Values['Info' ] = sInfo; INFO.Values['Descr' ] = ReplaceStr(Parent[mpiComment], "\n", "|"); PodcastItem[mpiVideoMessage] = INFO.Text; INFO.Free(); VideoPreview(); } /////////////////////////////////////////////////////////////////////////////// /// Создание ссылок на файл(ы) по переданной ссылке (шаблону) ------------- void CreateVideoLink(THmsScriptMediaItem Folder, string sName, string sLink, bool bSeparateInFolders=false) { string sCut, sQualArray, sQual, sFile; int i, nCount; // Объявляем переменные // Проверяем, есть ли в переданной ссылке шаблон с массивом существующего качества "[720,480,360]" if (HmsRegExMatch('\\[(.*?)\\]', sLink, sQualArray)) { sCut = '['+sQualArray+']'; // Та часть, которая будет заменятся на индификатор качества nCount = WordCount (sQualArray, ','); // Количество елементов, разделённых запятой for (i=1; i<=nCount; i++) { sQual = ExtractWord(i, sQualArray, ','); // Получаем очередной индификатор качества if (sQual=='') continue; // Может быть пропущен, если не указан sFile = ReplaceStr(sLink, sCut, sQual); // Формируем ссылку на файл, заменяя шаблон на индификатор качества if (bSeparateInFolders) { // Если был передан флаг "Группировать файлы качества по разным папкам", CreateMediaItem(Folder, sName, sFile, sQual); // то передаём индификатор качества как имя группы, где будет создана ссылка } else { if (sName=='') HmsRegExMatch('.*/(.*)', sLink, sName); // Получаем имя файла из ссылки (всё что идёт после последнего слеша) sName = ReplaceStr(sName, sCut, ''); // Убираем перечисление качества из имени sName = ReplaceStr(sName, '_', ''); // А также подчекривания (лишние) CreateMediaItem(Folder, sQual+' '+sName, sFile); // Добавляем индификатор качества к началу имени и создаём ссылку } } } else { // Если шаблона выбора качества в ссылке нет, то просто создаём ссылку if (sName=='') HmsRegExMatch('.*/(.*)', sLink, sName); // Если имя пустое, получаем имя файла из ссылки (всё что идёт после последнего слеша) CreateMediaItem(Folder, sName, sLink); } } /////////////////////////////////////////////////////////////////////////////// // Создание серий из плейлиста void CreateSeriesFromPlaylist(THmsScriptMediaItem Folder, string sLink, string sName='') { string sData, s1, s2, s3; int i; TJsonObject JSON, PLITEM; TJsonArray PLAYLIST; // Объявляем переменные // Если передано имя плейлиста, то создаём папку, в которой будем создавать элементы if (Trim(sName)!='') Folder = Folder.AddFolder(sName); // Если в переменной sLink сожержится знак '{', то там не ссылка, а сами данные Json if (Pos('{', sLink)>0) { sData = sLink; } else { sData = HmsDownloadURL(sLink, "Referer: "+mpFilePath, true); // Загружаем плейлист sData = HmsUtf8Decode(sData); } JSON = TJsonObject.Create(); // Создаём объект для работы с Json try { JSON.LoadFromString(sData); // Загружаем json данные в объект PLAYLIST = JSON.A['playlist']; // Пытаемся получить array с именем 'playlist' if (PLAYLIST==nil) PLAYLIST = JSON.AsArray; // Если массив 'playlist' получить не получилось, то представляем все наши данные как массив if (PLAYLIST!=nil) { // Если получили массив, то запускаем обход всех элементов в цикле for (i=0; i<PLAYLIST.Length; i++) { PLITEM = PLAYLIST[i]; // Получаем текущий элемент массива sName = PLITEM.S['comment']; // Название - значение поля comment sLink = PLITEM.S['file' ]; // Получаем значение ссылки на файл sName = ReplaceStr(ReplaceStr(HmsHtmlToText(sName), "\n", ' '), "\r", ''); // Форматируем числовое представление серий в названии // Если в названии есть число, то будет в s1 - то, что стояло перед ним, s2 - само число, s3 - то, что было после числа if (HmsRegExMatch3('^(.*?)(\\d+)(.*)$', sName, s1, s2, s3)) sName = Trim(Format('%s %.2d %s', [s1, StrToInt(s2), s3])); // Форматируем имя - делаем число двухцифровое (01, 02...) if (LeftCopy(sLink, 4)=='oid=') sLink = 'http://vk.com/video_ext.php?'+Trim(sLink); // Проверяем, если это вложенный плейлист - запускаем создание элементов из этого плейлиста рекурсивно if (PLITEM.B['playlist']) CreateSeriesFromPlaylist(Folder, PLITEM.S['playlist'], sName); else CreateVideoLink(Folder, sName, sLink, true); // Иначе просто создаём ссылки на видео } } // end if (PLAYLIST!=nil) } finally { JSON.Free; } // Какие бы ошибки не случились, освобождаем объект из памяти } /////////////////////////////////////////////////////////////////////////////// // Конвертация продолжительности из формата youtube (ISO8601) в формат HMS string ConvertYoutubeTime(string sTime) { string sVal; int nSeconds = 0; if (HmsRegExMatch('(\\d+)H', sTime, sVal)) nSeconds += StrToInt(sVal)*3600; if (HmsRegExMatch('(\\d+)M', sTime, sVal)) nSeconds += StrToInt(sVal)*60; if (HmsRegExMatch('(\\d+)S', sTime, sVal)) nSeconds += StrToInt(sVal); if (nSeconds==0) nSeconds = 600; return HmsTimeFormat(nSeconds)+'.000'; } /////////////////////////////////////////////////////////////////////////////// // Создание папок сезонов void CreateSeasons(string sHtml) { string sData, sLink, sName, sTime, sImg, sVal, s1, s2, s3, sSeason; THmsScriptMediaItem Item; TRegExpr RegEx; int n; HmsRegExMatch('<seasons>(.*?)</seasons>', sHtml, sData); RegEx = TRegExpr.Create('(<a.*?</a>)', PCRE_SINGLELINE); n = 0; try { if (RegEx.Search(sHtml)) do { sLink=''; sName=''; HmsRegExMatch('(<a.*?</a>)' , RegEx.Match, sName); HmsRegExMatch('<a[^>]+href="(.*?)"', RegEx.Match, sLink); if (Trim(sLink)=="") continue; n++; sName = ReplaceStr(HmsHtmlToText(sName), "/", "-"); sLink = HmsExpandLink(sLink, gsUrlBase); // Форматируем номера сезонов в двуцифровой формат if (HmsRegExMatch3('^(.*?)(\\d+)(.*)', sName, s1, s2, s3)) sName = Trim(Format('%s %.2d %s', [s1, StrToInt(s2), s3])); sLink += '&season='+IntToStr(n); CreateFolder(PodcastItem, sName, sLink); // Создание папки сезона } while (RegEx.SearchAgain); } finally { RegEx.Free(); } } /////////////////////////////////////////////////////////////////////////////// // Javascript Eval (Danger! Может быть исполнен вредоностный код с сайта) ----- char jsEval(char sData) { Variant objScript, objJS; char sResult = ''; try {objScript = CreateOleObject('MSScriptControl.ScriptControl');} except {}; if (VarType(objScript) != varDispatch) { HmsLogMessage(2, 'Не могу создать ActiveXObject MSScriptControl.ScriptControl'); return ''; } objScript.Language = 'JavaScript'; try {sResult = objScript.Eval(sData);} except {}; return sResult; } /////////////////////////////////////////////////////////////////////////////// string NormVal(string sVal) { string sName = HmsHtmlToText(sVal); sName = ReplaceStr(sName, '|', ''); return Trim(sName); } /////////////////////////////////////////////////////////////////////////////// // Создание ссылок видео void CreateLinks() { string sHtml, sData, sLink, sName, sTime, sImg, sVal, sSeason, sID; THmsScriptMediaItem Item; TRegExpr RegEx; sSeason = ''; HmsRegExMatch('season=(\\d+)', mpFilePath, sSeason); sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+mpFilePath, true); sHtml = HmsUtf8Decode(sHtml); sHtml = HmsRemoveLineBreaks(sHtml); // ========================================================================= // Сбор информации о фильме if (HmsRegExMatch('Год:(.+?)</li>', sHtml, sVal)) PodcastItem[mpiYear] = NormVal(sVal); if (HmsRegExMatch('Продолжительность.*?(\\d{2}:\\d{2}:\\d{2})', sHtml, sVal)) gsTime = sVal+'.000'; if (HmsRegExMatch('Продолжительность.*?(\\d+)\\s*мин', sHtml, sVal)) gsTime = HmsTimeFormat(StrToInt(sVal)*60)+'.000'; if (HmsRegExMatch('Жанр:(.+?)</li>' , sHtml, sVal)) PodcastItem[mpiGenre ] = NormVal(sVal); if (HmsRegExMatch('Из цикла про:(.+?)</li>' , sHtml, sVal)) PodcastItem[mpiMood ] = NormVal(sVal); if (HmsRegExMatch('Страна:(.+?)</li>' , sHtml, sVal)) PodcastItem[mpiCountry ] = NormVal(sVal); if (HmsRegExMatch('Перевод:(.+?)</li>' , sHtml, sVal)) PodcastItem[mpiTranslate] = NormVal(sVal); if (HmsRegExMatch('Премьера РФ:(.+?)</li>', sHtml, sVal)) PodcastItem[mpiAlbum ] = NormVal(sVal); if (HmsRegExMatch('<div class="fulltext" id="fulltext" itemprop="description">(.+?)</div>', sHtml, sVal)) PodcastItem[mpiAuthor ] = NormVal(sVal); if (HmsRegExMatch('Общий бал:(.+?)</div>', sHtml, sVal)) PodcastItem[mpiRating ] = NormVal(sVal); if (HmsRegExMatch('Режиссёр:(.+?)</li>', sHtml, sVal)) PodcastItem[mpiDirector ] = NormVal(sVal); if (HmsRegExMatch('Скриншоты и актеры:(.+?)</div>' , sHtml, sVal)) PodcastItem[mpiActor ] = NormVal(sVal); if (HmsRegExMatch('Продолжительность:(.+?)</li>' , sHtml, sVal)) PodcastItem[mpiTimeLength ] = NormVal(sVal); if (HmsRegExMatch('(<div class="fulltext" id="fulltext" itemprop="description">.*?)</div>', sHtml, sVal)) PodcastItem[mpiComment] = NormVal(sVal); if (HmsRegExMatch('Оригинальное название:(.+?)</li>', sHtml, sVal)) mpTitle = NormVal(sVal); HmsRegExMatch('itemprop="thumbnail" content="(.*?)"', sHtml, mpThumbnail); PodcastItem[mpiTimeLength] = gsTime; PodcastItem[mpiThumbnail ] = mpThumbnail; HmsRegExMatch('^(.*?)/', mpTitle, mpTitle); // ========================================================================= HmsRegExMatch("Base64.decode\\('(.*?)'", sHtml, sVal); sData = HmsRemoveLineBreaks(HmsUtf8Decode(HmsBase64Decode(sVal))); // Если на странице есть перечисление сезонов и в данный момент мы не в конкретном if ((sSeason=='') && HmsRegExMatch('<Все сезоны сериала>', sHtml, sLink)) { // Создаём список сезонов CreateSeasons(sHtml); } else if (HmsRegExMatch('var filmSource\\s*=[^;]+"([^"]+)";', sHtml, sLink)) { // Создаём ссылки на серии из плейлиста if (HmsFileMediaType(sLink) != mtVideo) { sData = HmsDownloadURL(gsUrlBase + sLink, 'Referer: '+mpFilePath, true); HmsRegExMatch('(\\{.*\\})', sData, sData); CreateSeriesFromPlaylist(PodcastItem, sData); } } else if (HmsRegExMatch('var filmSource\\s*=\\s*"(.*?)"', sHtml, sLink)) { CreateMediaItem(PodcastItem, mpTitle, sLink); } else if (HmsRegExMatch('vkArr=(\\[.*?\\]);', sHtml, sVal)) { // Создаём ссылки на серии из плейлиста в переменной vkArr CreateSeriesFromPlaylist(PodcastItem, sVal); } else { CreateErrorItem('Не удалось найти ссылку на фильм на странице сайта.'); } // Если на странице есть ссылка на трейлер - создаём такую ссылку if (HmsRegExMatch('<iframe width=".*?" height=".*?" src="(.*?)"', sHtml, sLink)) { gsTime = "00:01:00.000"; CreateMediaItem(PodcastItem, 'Трейлер', sLink); } // Если установлен ключ отображения информационных ссылок - добавляем их if (Pos('--addinfoitems', mpPodcastParameters)>0) { if (Trim(PodcastItem[mpiYear ])!='') CreateInfoItem('Год выхода' , PodcastItem[mpiYear ]); if (Trim(PodcastItem[mpiGenre ])!='') CreateInfoItem('Жанр' , PodcastItem[mpiGenre ]); if (Trim(PodcastItem[mpiCountry ])!='') CreateInfoItem('Страна' , PodcastItem[mpiCountry ]); if (Trim(PodcastItem[mpiTranslate ])!='') CreateInfoItem('Перевод' , PodcastItem[mpiTranslate ]); if (Trim(PodcastItem[mpiTimeLength ])!='') CreateInfoItem('Длительность', PodcastItem[mpiTimeLength ]); if (Trim(PodcastItem[mpiMood ])!='') CreateInfoItem('Подборка' , PodcastItem[mpiMood ]); if (Trim(PodcastItem[mpiAlbum ])!='') CreateInfoItem('Премьера РФ' , PodcastItem[mpiAlbum ]); if (Trim(PodcastItem[mpiRating ])!='') CreateInfoItem('Рейтинг' , PodcastItem[mpiRating ]); if (Trim(PodcastItem[mpiDirector ])!='') CreateInfoItem('Режиссёр' , PodcastItem[mpiDirector ]); if (Trim(PodcastItem[mpiActor ])!='') CreateInfoItem('В ролях' , PodcastItem[mpiActor ]); if (Trim(PodcastItem[mpiAuthor ])!='') CreateInfoItem('Описание' , PodcastItem[mpiAuthor ]); } } /////////////////////////////////////////////////////////////////////////////// // Получение ссылки на медиаресурс в переменную MediaResourceLink void GetLink() { if (LeftCopy(mpFilePath, 4)=='Info') ShowVideoInfo(); else if (LeftCopy(mpFilePath, 3)=='Err' ) VideoMessage(gsPodcastName, mpTitle); else if (HmsRegExMatch('youtube', mpFilePath, '')) GetLink_YouTube31(mpFilePath); else MediaResourceLink = mpFilePath; } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // { // Проверяем, при каком событии было вызвано выполнение скрипта (не папка ли это) if (PodcastItem.IsFolder) { PodcastItem.DeleteChildItems(); CreateLinks(); // Это зашли в папку подкаста (фильма) - создаём ссылки } else { GetLink(); // Это запустили фильм - получаем ссылку на медиа-поток // Если в MediaResourceLink пусто, значит получить ссылку не получилось - выводим видео об ошибке if (MediaResourceLink=='') MediaResourceLink = 'http://wonky.lostcut.net/vids/podcasterror_hd.mp4'; } } 551 C++Script 527 --addinfoitems 571 char gsUrlBase="http://kinokrad.co"; int gnTotalItems=0; TDateTime gTimeStart=Now; /////////////////////// Создание структуры подкаста ///////////////////////// /////////////////////////////////////////////////////////////////////////////// // Функция создания динамической папки с указанным скриптом THmsScriptMediaItem CreateDynamicItem(THmsScriptMediaItem prntItem, char sTitle, char sLink, char &sScript='') { THmsScriptMediaItem Folder = prntItem.AddFolder(sLink, false, 32); Folder[mpiTitle ] = sTitle; Folder[mpiCreateDate] = VarToStr(IncTime(Now,0,-prntItem.ChildCount,0,0)); Folder[200] = 5; // mpiFolderType Folder[500] = sScript; // mpiDynamicScript Folder[501] = 'C++Script'; // mpiDynamicSyntaxType Folder[mpiFolderSortOrder] = -mpiCreateDate; return Folder; } /////////////////////////////////////////////////////////////////////////////// // Замена в тексте загруженного скрипта значения текстовой переменной void ReplaceVarValue(char &sText, char sVarName, char sNewVal) { char sVal, sVal2; if (HmsRegExMatch2("("+sVarName+"\\s*?=.*?';)", sText, sVal, sVal2)) { HmsRegExMatch(sVarName+"\\s*?=\\s*?'(.*)'", sVal, sVal2); sText = ReplaceStr(sText, sVal, ReplaceStr(sVal , sVal2, sNewVal)); } } /////////////////////////////////////////////////////////////////////////////// // Создание папки ПОИСК (с загрузкой скрипта с форума homemediaserver.ru) void CreateSearchFolder(THmsScriptMediaItem prntItem, char sTitle) { char sScript='', sLink, sHtml, sRE, sVal; THmsScriptMediaItem Folder; // Да да, загружаем скрипт с сайта форума HMS sHtml = HmsUtf8Decode(HmsDownloadURL('http://homemediaserver.ru/forum/viewtopic.php?f=15&t=2793&p=17395#p17395', '', true)); HmsRegExMatch('BeginDynamicSearchScript\\*/(.*?)/\\*EndDynamicSearchScript', sHtml, sScript, 1, PCRE_SINGLELINE); sScript = HmsHtmlToText(sScript, 1251); sScript = ReplaceStr(sScript, #160, ' '); // И меняем значения переменных на свои ReplaceVarValue(sScript, 'gsSuggestQuery' , 'http://kinokrad.co/index.php?do=search&subaction=search&titleonly=3&story='); ReplaceVarValue(sScript, 'gsSuggestRegExpr', '<span class="searchheading">(.*?)</span>'); ReplaceVarValue(sScript, 'gsSuggestMethod' , 'GET'); sScript = ReplaceStr(sScript, 'gnSuggestNoUTFEnc = 0', 'gnSuggestNoUTFEnc = 1'); Folder = prntItem.AddFolder(sTitle, true); Folder[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); Folder[mpiFolderSortOrder] = "-mpCreateDate"; gnTotalItems++; CreateDynamicItem(Folder, '"Набрать текст"', '-SearchCommands', sScript); } /////////////////////////////////////////////////////////////////////////////// // Создание подкаста или папки THmsScriptMediaItem CreateItem(THmsScriptMediaItem Parent, char sTitle='', char sLink='') { THmsScriptMediaItem Item; bool bForceFolder = false; if (sLink=='') { sLink = sTitle; bForceFolder = true; } else sLink = HmsExpandLink(sLink, gsUrlBase); Item = Parent.AddFolder(sLink, bForceFolder); Item[mpiTitle ] = sTitle; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); Item[mpiFolderSortOrder] = -mpiCreateDate; gnTotalItems++; return Item; } /////////////////////////////////////////////////////////////////////////////// // --------------------- M A I N P R O C E D U R E ------------------------- { THmsScriptMediaItem Folder, Item; FolderItem.DeleteChildItems(); CreateSearchFolder (FolderItem, '00. Поиск'); Folder = CreateItem(FolderItem, '01. Последние поступления', '/'); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '02. Жанры'); CreateItem(Folder, 'Боевики' , "/boevik/"); CreateItem(Folder, 'Комедии' , "/komediya/"); CreateItem(Folder, 'Семейные' , "/semeynyy/"); CreateItem(Folder, 'Фантастика' , "/fantastika/"); CreateItem(Folder, 'Приключения' , "/priklyucheniya/"); CreateItem(Folder, 'Исторические', "/istoriya/"); CreateItem(Folder, 'Мелодрама' , "/melodrama/"); CreateItem(Folder, 'Детективы' , "/detektiv/"); CreateItem(Folder, 'Триллеры' , "/triller/"); CreateItem(Folder, 'Криминал' , "/kriminal/"); CreateItem(Folder, 'Военные' , "/voennyy/"); CreateItem(Folder, 'Фэнтези' , "/fentezi/"); CreateItem(Folder, 'Драма' , "/drama/"); CreateItem(Folder, 'Вестерны' , "/vestern/"); CreateItem(Folder, 'Ужасы' , "/uzhasy/"); CreateItem(Folder, 'Мистические' , "/mistika/"); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '03. По годам'); CreateItem(Folder, '2018 года' , "/filmy-novinki-2018/"); CreateItem(Folder, '2017 года' , "/filmy-novinki-2017/"); CreateItem(Folder, '2016 года' , "/filmy-novinki-2016/"); CreateItem(Folder, '2015 года' , "/filmy-2015/"); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '04. Аниме' , '/anime/'); Folder = CreateItem(FolderItem, '05. Сериалы' , '/serial/'); Folder = CreateItem(FolderItem, '06. Мультфильмы' , '/multfilm/'); Folder = CreateItem(FolderItem, '07. Мюзиклы' , '/myuzikl/'); Folder = CreateItem(FolderItem, '08. Спортивные' , '/sport/'); Folder = CreateItem(FolderItem, '09. Документальные' , '/dokumentalnyy/'); Folder = CreateItem(FolderItem, '10. Биография' , '/biografiya/'); Folder = CreateItem(FolderItem, '11. ТВ - передачи' , '/tvperedachi/'); Folder = CreateItem(FolderItem, '12. Зарубежные проекты', '/zarubezhnye/'); Folder = CreateItem(FolderItem, '13. Русские проекты' , '/otechestvennyy/'); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '14. HD фильмы'); CreateItem(Folder, 'HDRip' , "/xfsearch/hdrip"); CreateItem(Folder, 'BDRip' , "/xfsearch/bdrip"); CreateItem(Folder, 'HDTVrip' , "/xfsearch/hdtvrip"); CreateItem(Folder, 'DVDRip' , "/xfsearch/dvdrip"); CreateItem(Folder, 'DVDscr' , "/xfsearch/dvdscr"); CreateItem(Folder, 'SATrip' , "/xfsearch/satrip"); CreateItem(Folder, 'CAMrip' , "/xfsearch/camrip"); CreateItem(Folder, 'TS' , "/xfsearch/ts"); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '15. Лучшие подборки!'); CreateItem(Folder, 'Про ВОВ' , "/films-of-war/"); CreateItem(Folder, 'Про снайперов' , "/sniper/"); CreateItem(Folder, 'Для взрослых' , "/vzroslye/"); CreateItem(Folder, 'Для детей' , "/detskiy/"); CreateItem(Folder, 'Дисней' , "/disney/"); CreateItem(Folder, 'Марвел' , "/marvel/"); CreateItem(Folder, 'Про супергероев' , "/supergeroi/"); CreateItem(Folder, 'Про боевые исскуства' , "/boevye-iskusstva/"); CreateItem(Folder, 'Про призраков и демонов' , "/prizraki-i-demony/"); CreateItem(Folder, 'Про вампиров и оборотней' , "/vampiry-i-oborotni/"); CreateItem(Folder, 'Про зомби' , "/zombi-i-mertvecy/"); CreateItem(Folder, 'Про мутантов' , "/mutanty-i-monstry/"); CreateItem(Folder, 'Про ведьм' , "/vedmy/"); CreateItem(Folder, 'Про НЛО' , "/nlo-i-prishelcy/"); CreateItem(Folder, 'Про мафию' , "/mafiyu-i-gangsterov/"); CreateItem(Folder, 'Про тюрьму' , "/tyurma/"); CreateItem(Folder, 'Про индейцев,викингов' , "/indeycy-i-vikingi/"); CreateItem(Folder, 'Про роботов' , "/robotov/"); CreateItem(Folder, 'Про маньяков' , "/manyaki/"); CreateItem(Folder, 'Про шпионов' , "/shpiony/"); CreateItem(Folder, 'Про динозавров' , "/dinozavry/"); CreateItem(Folder, 'Про животных' , "/zhivotnye/"); CreateItem(Folder, 'Про лошадей' , "/loshadi/"); CreateItem(Folder, 'Про собак и кошек' , "/sobaki/"); CreateItem(Folder, 'Про подростков' , "/podrostki/"); CreateItem(Folder, 'Про школу' , "/shkolniki/"); CreateItem(Folder, 'Про студентов' , "/studenty/"); CreateItem(Folder, 'Про любовь' , "/lyubov/"); CreateItem(Folder, 'Про выживание' , "/vyzhivanie/"); CreateItem(Folder, 'Про ограбления' , "/ogrableniya/"); CreateItem(Folder, 'Про гонки' , "/gonki/"); CreateItem(Folder, 'Про мотоциклы' , "/motocikly/"); CreateItem(Folder, 'Про самолеты' , "/samolety/"); CreateItem(Folder, 'Про космос' , "/kosmos/"); CreateItem(Folder, 'Про катастрофы' , "/katastrofy/"); CreateItem(Folder, 'Про конец света' , "/konec-sveta-i-apokalipsis/"); CreateItem(Folder, 'На реальных событиях' , "/na-realnyh-sobytiyah/"); CreateItem(Folder, 'Про новый год и рождество', "/novyy-god/"); CreateItem(Folder, 'Путешествия во времени' , "/puteshestviya-vo-vremeni/"); CreateItem(Folder, 'Про футбол' , "/futbol/"); CreateItem(Folder, 'Про танцы' , "/tancy/"); CreateItem(Folder, 'Сказки' , "/skazki/"); CreateItem(Folder, 'Про рыцарей' , "/rycari/"); Folder[mpiPodcastParameters] = '--group=alph'; HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnTotalItems)); } 572 C++Script 55 C:\Users\mixai\Desktop\пллроооддэдпсситрррррррррррооооооооооооооо.jpg 50 Фильмы - LIVESTREAM - FFMPEG - STREAM 51 536ca5b6ba8716502d3f3e3074c7f487 00. Поиск 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 1 700 2 553 2 42 3 35 43433,0247685185 215 -mpCreateDate 93 43433,0247825579 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 530 string gsUrlBase = 'http://kinokrad.co'; // База для относительных ссылок int gnTotalItems = 0; // Счётчик созданных элементов TDateTime gStart = Now; // Время начала запуска скрипта int gnMaxPages=10, gnMaxInGroup=100; bool gbYearInTitle=false; char gsGroupMode=''; // Регулярные выражения для поиска на странице блоков с информацией о видео string gsPatternBlock = '<div class="postershort" style="height:150px; width:120px;">(.*?)</div>', // Искомые блоки gsCutPage = '<fromCut>(.*?)<toCut>' , // Обрезка загруженной страницы gsPatternTitle = 'alt="(.*?)"' , // Название gsPatternLink = '<a href="(.*?)"' , // Ссылка gsPatternImg = '<img[^>]+src="(.*?)"' , // Картинка gsPatternYear = 'shortinfo.*?>(\\d{4})<' , // Год gsPatternAudio = '' , // Озвучка / Перевод gsPatternPages = '.*/page/\\d+/">(\\d+)' , // Регулярное выражение для поиска максимального номера страницы для дозагрузки gsPagesParams = 'page/<PN>/' , // Параметр с номером страницы, который добавляется к ссылке ; /////////////////////////////////////////////////////////////////////////////// // Создание папки или подкаста THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sName, string sLink, string sImg='') { THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); // Создаём папку с указанной ссылкой Item[mpiTitle ] = sName; // Присваиваем наименование Item[mpiThumbnail ] = sImg; // Картинка Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания gnTotalItems++; // Увеличиваем счетчик созданных элементов return Item; // Возвращаем созданный объект } /////////////////////////////////////////////////////////////////////////////// // Получение имени группировки по имени видео (первая буква, "A..Z" или "#") string GetGroupName(string sName) { string sGrp = '#'; if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = UpperCase(sGrp); if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z'; if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#'; return sGrp; } /////////////////////////////////////////////////////////////////////////////// // Загрузка страниц и парсинг void LoadAndParse() { string sHtml, sData, sName, sLink, sImg, sYear, sPage, sVal, sPost, sServ; // Объявляем переменные THmsScriptMediaItem Item, Folder = FolderItem; TRegExpr RegEx; int i, n, nPages=0, iCnt=0, nGrp=0; char sGrp=""; bool bGroup=false; if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal); if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal); HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupMode); gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters)>0); if (LeftCopy(mpFilePath, 4) != "http") { // Если нет ссылки - делаем поиск названия sLink = 'http://kinokrad.co/index.php?do=search&subaction=search&titleonly=3&story='+HmsPercentEncode(HmsUtf8Encode(mpTitle)); sHtml = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true); } else { // Иначе просто, загружаем страницу по ссылке sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true); } sHtml = HmsUtf8Decode(sHtml); // Декодируем страницу из UTF-8 sHtml = HmsRemoveLineBreaks(sHtml); // Удаляем переносы строк, для облегчения работы с регулярными выражениями // Если указан шаблон поиска максимального номера страницы - применяем if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal)) nPages = StrToIntDef(sVal, 0); // Вырезаем только нужный участок текста HTML, где будем искать блоки. // Вместо <fromCut> и <toCut> вставляем начало и конец участка HTML, между которыми // будем искать блоки текста с сылкой, наименованием и проч. HmsRegExMatch(gsCutPage, sHtml, sHtml); // ищем в sHtml, результат кладём обратно в sHtml // ========================================================================= // Дозагрузка страниц if ((gnMaxPages!=0) && (nPages>gnMaxPages)) nPages = gnMaxPages; for (i=2; i<=nPages; i++) { HmsSetProgress(Trunc(i*100/nPages)); HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages])); sLink = mpFilePath + ReplaceStr(gsPagesParams, '<PN>', IntToStr(i)); sPage = HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true); sPage = HmsUtf8Decode(sPage); if (gsCutPage!='') HmsRegExMatch(gsCutPage, sPage, sPage); sHtml += sPage; if (HmsCancelPressed) break; } HmsHideProgress(); // ========================================================================= // Создаём объект для поиска блоков текста по регулярному выражению, // в которых есть информация: ссылка, наименование, ссылка на картинку и проч. // Обычно, определяем начало и конец блока и вставляем их вместо <section> и </section> RegEx = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE); try { // Определяем, если блоков в загруженном более чем gnMaxInGroup, включаем группировку i=0; if (RegEx.Search(sHtml)) do i++; while (RegEx.SearchAgain()); bGroup = (i > gnMaxInGroup); // Главный цикл поиска блоков if (RegEx.Search(sHtml)) do { sLink=''; sImg=''; sYear=''; sName=''; HmsRegExMatch(gsPatternTitle, RegEx.Match, sName); HmsRegExMatch(gsPatternLink , RegEx.Match, sLink); HmsRegExMatch(gsPatternImg , RegEx.Match, sImg ); HmsRegExMatch(gsPatternYear , RegEx.Match, sYear); if (Trim(sLink)=="") continue; sName = ReplaceStr(HmsHtmlToText(sName), "/", "-"); sLink = HmsExpandLink(sLink, gsUrlBase); if (sImg!='') sImg = HmsExpandLink(sImg, gsUrlBase); // Если в ссылках встречаются русские символы - делаем их безопасными if (HmsRegExMatch('^.*?([а-яА-Я].*)', sImg, sVal)) sImg = ReplaceStr(sImg, sVal, HmsPercentEncode(HmsUtf8Encode(sVal))); // Если указано добавлять год вназвание и в названии его нет, добавляем if (gbYearInTitle && (sYear!='') && (Pos(sYear, sName)<1)) sName += ' ('+sYear+')'; // Контроль группировки (создаём папку с именем группы) if (gsGroupMode=='alph') { Folder = FolderItem.AddFolder(GetGroupName(sName)); Folder[mpiFolderSortOrder] = "mpTitle"; } else if (gsGroupMode=='year') { Folder = FolderItem.AddFolder(sYear); Folder[mpiFolderSortOrder] = "mpTitle"; Folder[mpiYear ] = sYear; } else if (bGroup) { iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; } Folder = FolderItem.AddFolder(Format('%.2d', [nGrp])); } CreateFolder(Folder, sName, sLink, sImg); // Создание ссылки (папки с фильмом) } while (RegEx.SearchAgain); } finally { RegEx.Free(); } if (gsGroupMode=='alph') FolderItem.Sort('mpTitle'); else if (gsGroupMode=='year') FolderItem.Sort('-mpYear'); HmsLogMessage(1, mpTitle+': создано элементов - '+IntToStr(gnTotalItems)); } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // { FolderItem.DeleteChildItems(); // Удаляем созданные ранее элементы в текущей папке LoadAndParse(); // Запускаем загрузку страниц и создание папок видео } 531 C++Script 522 0 570 0 245 536ca5b6ba8716502d3f3e3074c7f487 32 70255b30e7eddfef0d1ffcc638bbb3b9 -SearchCommands 536ca5b6ba8716502d3f3e3074c7f487 515 2 512 2 532 2 700 2 553 2 42 3 4 "Набрать текст" 35 43433,0240856481 200 5 500 // Var 21.12.2014 int mpiFolderType = 200; int mpiDynamicScript = 500; int mpiDynamicSyntaxType = 501; int mpiPreviousItemID = 200104; int mpiDoNothing = 201100; char gsSpace = 'Пробел'; char gsDelLastChar = 'Удалить последний символ'; char gsClearSearch = 'Очистить текст поиска'; char gsClearHystoryIn = 'Очистить историю поиска в папке "%s"'; char gsMsgClearHistory = 'История поиска в папке "%s" очищена'; char gsMsgTextSaved = 'Подкаст "%s" добавлен в "%s"'; char gsMsgNothingSaved = 'Текст поиска не набран! Добавлять нечего.'; char gsMsgSearchText = 'Текст поиска: %s'; char gsAddSearchTo = 'Добавить в папку "%s"'; char gsSuggestQuery = 'http://kinokrad.co/index.php?do=search&subaction=search&titleonly=3&story='; char gsSuggestResultCut= ''; char gsSuggestRegExpr = '<span class="searchheading">(.*?)</span>'; char gsSuggestMethod = 'GET'; int gnSuggestNoUTFEnc = 1; char gsSuggestMessage = 'Вариант: '; int gnTotalItems=0; TDateTime gTimeStart = Now; char gsTextSearch, gsMsg=''; THmsScriptMediaItem goRootItem, goCmdItem; // ------------------------------------------ Создание папок команд поиска ---- void CreateSearchCommands() { int i; char sText; THmsScriptMediaItem Item; CreateDynamicItem(FolderItem, '#', '-SearchCreateChars=From:32To:58'); CreateDynamicItem(FolderItem, 'A-Z', '-SearchCreateChars=From:65To:91'); CreateDynamicItem(FolderItem, 'А-Я', '-SearchCreateChars=From:192To:224'); CreateDynamicItem(FolderItem, gsClearSearch, '-SearchCmd=ClearSearchText'); // Создание команды добавления в корневую папку поиска CreateDynamicItem(FolderItem, Format(gsAddSearchTo, [goRootItem[mpiTitle]]), '-SearchCmd=SaveSearchText'); // Создание команд добавления в папки, находящиеся в корневой, если поле "Файл" (mpiFilePath) у них пустое for (i=0; i<goRootItem.ChildCount; i++) { Item = goRootItem.ChildItems[i]; if (Item.ItemClassID!=51) continue; CreateDynamicItem(FolderItem, Format(gsAddSearchTo, [Item[mpiTitle]]), '-SaveSearchTextTo='+Item.ItemID); } // Создание команды очистки истории в корневой папке поиска CreateDynamicItem(FolderItem, Format(gsClearHystoryIn, [goRootItem[mpiTitle]]), '-SearchCmd=ClearSearchHistory'); // Создание команд очистки истории в папках, которые наодятся в корневой for (i=0; i<goRootItem.ChildCount; i++) { Item = goRootItem.ChildItems[i]; if (Item.ItemClassID!=51) continue; CreateDynamicItem(FolderItem, Format(gsClearHystoryIn, [Item[mpiTitle]]), '-ClearSearchHistoryIn='+Item.ItemID); } // Создание ссылки, информирующей о текущем набранном тексте поиска sText = Format(gsMsgSearchText, [gsTextSearch]); Item = HmsCreateMediaItem(sText, goCmdItem.ItemID); Item[mpiTitle ] = sText; Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; } // ---------------------------- Добавление подкаста с именем текста поиска ---- void AddPodcastSearch(THmsScriptMediaItem prntItem) { THmsScriptMediaItem Item; if (Trim(gsTextSearch)=='') {gsMsg = gsMsgNothingSaved; return;} if (LowerCase(gsTextSearch)==gsTextSearch) gsTextSearch = NameCase(gsTextSearch); Item = prntItem.AddFolder(gsTextSearch, false); Item[mpiFilePath ] = Format('search="%s"', [gsTextSearch]); Item[mpiTitle ] = gsTextSearch; HmsDatabaseAutoSave(false); gsMsg = Format(gsMsgTextSaved, [gsTextSearch, prntItem[mpiTitle]]); //gsTextSearch = ''; } // --------- Функция создания динамической папки с унаследованным скриптом ---- void CreateDynamicItem(THmsScriptMediaItem prntItem, char sTitle, char sLink) { char s; THmsScriptMediaItem Folder; if (Trim(sTitle)=='') sTitle = gsSpace; Folder = prntItem.AddFolder(sLink, true); Folder[mpiTitle ] = sTitle; Folder[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++; Folder[mpiFolderType ] = prntItem[mpiFolderType]; Folder[mpiDynamicScript ] = prntItem[mpiDynamicScript]; Folder[mpiDynamicSyntaxType] = prntItem[mpiDynamicSyntaxType]; Folder[mpiFolderSortOrder ] = prntItem[mpiFolderSortOrder]; } // ---------------------------- MAIN PROCEDURE ------------------------------ { int i, nCnt; char sCh, sCh1, sCh2, sText; THmsScriptMediaItem Item; char s, sUrlServer = '', sRequestPage = '/', sPostData = '', sHeaders = ''; if (LeftCopy(mpFilePath, 1) != '-') return; // Если это не команда - то и не обрабатываем // Поиск корневого каталога поиска (папки, которая содержит динамическую папку с путем "-SearchCommands") goRootItem = FolderItem; goCmdItem = FolderItem; while ((goRootItem.ItemParent != HmsDatabaseRootItem) && (goRootItem.ItemParent != nil)) { if (goRootItem[mpiFilePath] == '-SearchCommands') {goCmdItem=goRootItem; goRootItem=goCmdItem.ItemParent; break;} goRootItem = goRootItem.ItemParent; } // Если это повторный вызов, смены папки не произошло - ничего не делаем if ((FolderItem.ItemID==goRootItem[mpiPreviousItemID]) && !DebugMode && (FolderItem!=goCmdItem)) return; FolderItem.DeleteChildItems(); goRootItem[mpiPreviousItemID] = FolderItem.ItemID; gsTextSearch = HmsGetUserSearchText(); // Получаем текущее значение текста поиска // ---- Проверяем команды - по значению в mpFilePath ---- if (goRootItem[mpiDoNothing]=='1') { // Флаг "Ничего не делать" - например, при возврате goRootItem[mpiDoNothing] = ''; // в команду набирания буквы из подпапки варианта } else if (HmsRegExMatch('-SearchCommands', mpFilePath, sCh1)) { // Создание корневых команд поиска CreateSearchCommands(); return; } else if (HmsRegExMatch('-SearchChar=(\\d+)', mpFilePath, sCh1)) { // Добавление буквы (символа) к набираемому тексту поиска gsTextSearch += Chr(StrToInt(sCh1)); } else if (HmsRegExMatch('-SetSearchText=(.*)', mpFilePath, gsTextSearch)) { // Назначить текст поиска значением варианта подсказки goRootItem[mpiDoNothing] = '1'; gsSuggestQuery = ''; // включаем флаг не выполнять команду при возврате из этой папки } else if (HmsRegExMatch('-SaveSearchTextTo=(.*)', mpFilePath, sCh1)) { // Добавление в папку Х. Поиск этой папки по ItemID. Item = goRootItem; // Ищем папку с ItemID равному идентификатору, переданному в mpFilePath for (i=0; i<goRootItem.ChildCount; i++) { if (goRootItem.ChildItems[i].ItemID==sCh1) {Item = goRootItem.ChildItems[i]; break;} } AddPodcastSearch(Item); // и добавляем в найденную папку подкаст текстом поиска } else if (HmsRegExMatch('-ClearSearchHistoryIn=(.*)', mpFilePath, sCh1)) { // Очистка истории (добавленных ранее) поисковых значений Item = goRootItem; // Ищем папку с ItemID равному идентификатору, переданному в mpFilePath for (i=0; i<goRootItem.ChildCount; i++) { if (goRootItem.ChildItems[i].ItemID==sCh1) {Item = goRootItem.ChildItems[i]; break;} } for(i=0; i<Item.ChildCount; i++) { // Удаляем все элементы с начинающимся словом 'search' в поле mpiFilePath if (LeftCopy(Item.ChildItems[i].Properties[mpiFilePath], 6)=='search') {Item.ChildItems[i].Delete();i--;} } gsMsg = Format(gsMsgClearHistory, [Item[mpiTitle]]); // вывод сообщения, что история очищена } else if (HmsRegExMatch('-SearchCmd=(\\w+)', mpFilePath, sCh1)) { if (sCh1=='DeleteLastChar' ) gsTextSearch = LeftCopy(gsTextSearch, Length(gsTextSearch)-1); // Удаление последнего символа else if (sCh1=='SaveSearchText' ) AddPodcastSearch(goRootItem); // Добавить текст поиска в корневую папку else if (sCh1=='ClearSearchText') gsTextSearch = ''; // Очистка текста поиска else if (sCh1=='ClearSearchHistory') { // Очистка истории (добавленных значений поиска) for(i=0; i<goRootItem.ChildCount; i++) { Item = goRootItem.ChildItems[i]; // Ищем все элементы, у которых значение mpiFilePath начиначется с 'search' if (LeftCopy(Item[mpiFilePath], 6)=='search') {goRootItem.ChildItems[i].Delete();i--;} } gsMsg = Format(gsMsgClearHistory, [goRootItem[mpiTitle]]); } } else if (HmsRegExMatch2('-SearchCreateChars=From:(\\d+)To:(\\d+)', mpFilePath, sCh1, sCh2)) { // Создание списка букв/символов CreateDynamicItem(FolderItem, gsDelLastChar, '-SearchCmd=DeleteLastChar Suggestions'); // В начало - команда удаления символа CreateDynamicItem(FolderItem, ' ', '-SearchChar=32 Suggestions'); // Пробел for (i= StrToInt(sCh1); i<StrToInt(sCh2); i++) CreateDynamicItem(FolderItem, Chr(i), '-SearchChar='+IntToStr(i)+' Suggestions'); // слово "Suggestions" добавлено к значению mpiFilePath тек команд, в которых возможно использование подсказок } else return; // Если неизвестная нам команда - просто выходим HmsSetUserSearchText(gsTextSearch); // Устанавливаем значение текста поиска Item = HmsCreateMediaItem('-command=none', FolderItem.ItemID); if (gsMsg=='') { // Если сообщения небыло - просто выводим ссылку с текущим значением набранного текста Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; Item[mpiFilePath ] = Format(gsMsgSearchText, [gsTextSearch]); } else { // Выводим сообщение Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png'; Item[mpiFilePath ] = gsMsg; } Item = HmsCreateMediaItem('-command=none', FolderItem.ItemParent.ItemID); // В родительской папке (выше) обновляем информацию о текущем значении текста Item[mpiFilePath] = Format(gsMsgSearchText, [gsTextSearch]); Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; Item = HmsCreateMediaItem('-command=none', goCmdItem.ItemID); // Также в папке, содержащую главные команды поиска Item[mpiFilePath] = Format(gsMsgSearchText, [gsTextSearch]); Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/search-icon1.jpg'; // Suggestions ------ Блок работы с подсказками ------- if ((gsSuggestQuery!='') && (Pos('Suggestions', mpFilePath)>0) && (Length(gsTextSearch)>1) && !HmsRegExMatch("^\\s", gsTextSearch, "")) { int nPort = 80; if (LeftCopy(gsSuggestQuery, 5)=="https") nPort = 443; sText = gsTextSearch; if (gnSuggestNoUTFEnc==0) sText = HmsUtf8Encode(sText); // Если не указано не кодировать в UTF - кодируем sText = HmsHttpEncode(sText); string sUrlBase; // Если есть ключ <TEXT> в запросе - заменяем его на значение набранного текста, иначе просто добавляем в конец if (Pos('<TEXT>', gsSuggestQuery)>0) gsSuggestQuery = ReplaceStr(gsSuggestQuery, '<TEXT>', sText); else gsSuggestQuery = gsSuggestQuery + sText; HmsRegExMatch3('(https?://(.*?))(/.*)', gsSuggestQuery, sUrlBase, sUrlServer, sRequestPage); if (gsSuggestMethod=='POST') HmsRegExMatch2('^(.*?)\\?(.*)', sRequestPage, sRequestPage, sPostData); sHeaders = sUrlBase+'/\r\n'+ 'Accept-Encoding: gzip, deflate\r\n'+ 'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0\r\n'+ 'Connection: Keep-Alive\r\n'+ 'Origin: '+sUrlBase+'/\r\n'+ 'Accept: application/json, text/javascript, */*; q=0.01\r\n'; // Для включения возможности gzip в запросах sText = HmsSendRequestEx(sUrlServer, sRequestPage, gsSuggestMethod, 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, sPostData, nPort, 0x10, '', true); sText = HmsUtf8Decode(sText); if (gsSuggestResultCut!='') HmsRegExMatch(gsSuggestResultCut, sText, sText);// Если есть выражение обрезки - обрезаем sText = HmsJsonDecode(sText); TRegExpr t = TRegExpr.Create('(<[^>]+>)'); // Избавляемся от тегов в середине слов подсказки TRegExpr reSearch = TRegExpr.Create(gsSuggestRegExpr, PCRE_SINGLELINE); if (reSearch.Search(sText)) do { s = reSearch.Match; if (t.Search(s)) do s=ReplaceStr(s, t.Match, ''); while (t.SearchAgain());// (функция HmsHtmlToText не подходит т.к. ставит пробел в середине слова) if (HmsRegExMatch('^(.*?)[/\\(\\|]', s, sCh)) { // Обрезаем подсказку до знаков /, ( или | if (Pos(LowerCase(gsTextSearch), LowerCase(sCh))>0) s = sCh; // Если после этого в подсказке встречается набранный текст - то так и оставляем } if (LowerCase(s)==s) s = NameCase(s); // Если подсказки - все маленькие буквы, делаем NameCase // Если в подсказке больше одного слова - дополнительно создаём сначала подсказки из слов, которые содержат набранный текст (выделяем слова отдельно) if (WordCount(s, ' ')>1) { nCnt = WordCount(s, ' '); for (i=1; i<=nCnt; i++) { sCh=ExtractWord(i, s, ' '); if (Trim(sCh)=='') continue; if (Pos(LowerCase(gsTextSearch), LowerCase(sCh))<1) continue; if (LowerCase(gsTextSearch)==LowerCase(sCh)) continue; sCh = ReplaceStr(sCh, ':', ''); sCh=ReplaceStr(sCh, '\\', ''); CreateDynamicItem(FolderItem, gsSuggestMessage+sCh, '-SetSearchText='+sCh); } } // Создаём папку с предложением варианта (подсказку) if (LowerCase(s)!=LowerCase(gsTextSearch)) CreateDynamicItem(FolderItem, gsSuggestMessage+s, '-SetSearchText='+s); if (gnTotalItems>100) break; // Ограничиваем количество создаваемых элементов = 100 } while (reSearch.SearchAgain()); } HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания } 501 C++Script 215 -35 93 43433,0247825579 53 ee0c9b56836f29c66b87551cc03a3944 http://kinokrad.co/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 01. Последние поступления 35 43433,0240740741 215 -35 527 --group=alph 93 43433,0247825579 51 41f6aac4874469ca232c41d1366064b2 02. Жанры 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 35 43433,0233796296 215 -35 527 --group=alph 93 43433,0247825579 53 87537307b925096a86a6429b4f78cd22 http://kinokrad.co/boevik/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Боевики 35 43433,0226851852 215 -35 93 43433,0247825579 53 1394c906fd4173d7cd8ee524fa9fc3b6 http://kinokrad.co/komediya/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Комедии 35 43433,0219907407 215 -35 93 43433,0247825579 53 68bc078975529b88c8bc128b8faf59a4 http://kinokrad.co/semeynyy/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Семейные 35 43433,0212962963 215 -35 93 43433,0247825579 53 7990b5e852ccd0b0af4629e392262963 http://kinokrad.co/fantastika/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Фантастика 35 43433,0206018519 215 -35 93 43433,0247825579 53 7b4c570866009558b1b4acbbf378b05d http://kinokrad.co/priklyucheniya/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Приключения 35 43433,0199074074 215 -35 93 43433,0247825579 53 a36b8ea9d756e35da4fab2b28ba66f55 http://kinokrad.co/istoriya/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Исторические 35 43433,019212963 215 -35 93 43433,0247825579 53 5c761d75706fe202802f00d858df39fe http://kinokrad.co/melodrama/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Мелодрама 35 43433,0185185185 215 -35 93 43433,0247825579 53 625d8ccda729f24fc10b2468b25d35ed http://kinokrad.co/detektiv/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Детективы 35 43433,0178240741 215 -35 93 43433,0247825579 53 6979e20c6007729d395d089e83782611 http://kinokrad.co/triller/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Триллеры 35 43433,0171296296 215 -35 93 43433,0247825579 53 58f96b2210fe467da2c406ce01936732 http://kinokrad.co/kriminal/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Криминал 35 43433,0164351852 215 -35 93 43433,0247825579 53 6360bd7bea26f058829bf348f4b1314b http://kinokrad.co/voennyy/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Военные 35 43433,0157407407 215 -35 93 43433,0247825579 53 8f0f73b8ea8cadb989e1bc7aad6401b0 http://kinokrad.co/fentezi/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Фэнтези 35 43433,0150462963 215 -35 93 43433,0247825579 53 4fcdf9975c0a7ed0a3e56446176b0dad http://kinokrad.co/drama/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Драма 35 43433,0143518519 215 -35 93 43433,0247825579 53 3e5566f97c1ebbacb782ed5668a0e32a http://kinokrad.co/vestern/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Вестерны 35 43433,0136574074 215 -35 93 43433,0247825579 53 979d3cfaf834483be18d22e7098665ef http://kinokrad.co/uzhasy/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Ужасы 35 43433,012962963 215 -35 93 43433,0247825579 53 52405dcf903ae511db21f5126bf3e829 http://kinokrad.co/mistika/ 41f6aac4874469ca232c41d1366064b2 515 2 512 2 532 2 700 2 553 2 42 3 4 Мистические 35 43433,0122685185 215 -35 93 43433,0247825579 51 a7819b0d29e5929a52f99df54e8de81a 03. По годам 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 35 43433,0115740741 215 -35 527 --group=alph 93 43433,0247825579 53 e6d17b68f3c45eeb5e01a70c74ef06e9 http://kinokrad.co/filmy-novinki-2018/ a7819b0d29e5929a52f99df54e8de81a 515 2 512 2 532 2 700 2 553 2 42 3 4 2018 года 35 43433,0108796296 215 -35 93 43433,0247825579 53 36ff2c4567d6edb24f5a6be6aec7de0e http://kinokrad.co/filmy-novinki-2017/ a7819b0d29e5929a52f99df54e8de81a 515 2 512 2 532 2 700 2 553 2 42 3 4 2017 года 35 43433,0101851852 215 -35 93 43433,0247825579 53 3d319329b409f68186807eb1ffe02a7c http://kinokrad.co/filmy-novinki-2016/ a7819b0d29e5929a52f99df54e8de81a 515 2 512 2 532 2 700 2 553 2 42 3 4 2016 года 35 43433,0094907407 215 -35 93 43433,0247825579 53 91b5196ab12e48bf45cbf1721f9cc1e6 http://kinokrad.co/filmy-2015/ a7819b0d29e5929a52f99df54e8de81a 515 2 512 2 532 2 700 2 553 2 42 3 4 2015 года 35 43433,0087962963 215 -35 93 43433,0247825579 53 8571dda9fbb85469a9343de34233751f http://kinokrad.co/anime/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 04. Аниме 35 43433,0081018519 215 -35 93 43433,0247825579 53 855bbe466015d2238d10b76e641c4600 http://kinokrad.co/serial/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 05. Сериалы 35 43433,0074074074 215 -35 93 43433,0247825579 53 bf9d66621c9d6a369b5e48363ccf3f7c http://kinokrad.co/multfilm/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 06. Мультфильмы 35 43433,006712963 215 -35 93 43433,0247825579 53 458aa5cf57af698966727fcb000aa65f http://kinokrad.co/myuzikl/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 07. Мюзиклы 35 43433,0060185185 215 -35 93 43433,0247825579 53 a9a9e6374a6caa535b83eb5e443bde27 http://kinokrad.co/sport/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 08. Спортивные 35 43433,0053240741 215 -35 93 43433,0247825579 53 5cc3c2268931137fb2a4b3f75d440066 http://kinokrad.co/dokumentalnyy/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 09. Документальные 35 43433,0046296296 215 -35 93 43433,0247825579 53 14146953b0e0b7cae57e1341f735378d http://kinokrad.co/biografiya/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 10. Биография 35 43433,0039351852 215 -35 93 43433,0247825579 53 cae7e206d9a4167ac4a83201c65c5d07 http://kinokrad.co/tvperedachi/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 11. ТВ - передачи 35 43433,0032407407 215 -35 93 43433,0247825579 53 14bfb4a227c5aad2d46af7a3fcd5b19d http://kinokrad.co/zarubezhnye/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 12. Зарубежные проекты 35 43433,0025462963 215 -35 93 43433,0247825579 53 aaeada4eee2f8bb6059fbf878af50fff http://kinokrad.co/otechestvennyy/ 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 4 13. Русские проекты 35 43433,0018518519 215 -35 527 --group=alph 93 43433,0247825579 51 93ebc7e8c1a9fc9ba5d3013a9475e5df 14. HD фильмы 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 35 43433,0011574074 215 -35 527 --group=alph 93 43433,0247825579 53 c9816041d75e82c1e787c6e06043e3e9 http://kinokrad.co/xfsearch/hdrip 93ebc7e8c1a9fc9ba5d3013a9475e5df 515 2 512 2 532 2 700 2 553 2 42 3 4 HDRip 35 43433,000462963 215 -35 93 43433,0247825579 53 98a0c351bf3e2ffb92c557ac7b98a74b http://kinokrad.co/xfsearch/bdrip 93ebc7e8c1a9fc9ba5d3013a9475e5df 515 2 512 2 532 2 700 2 553 2 42 3 4 BDRip 35 43432,9997685185 215 -35 93 43433,0247825579 53 b07c02435160b435ee6d1c9b2e8fa72d http://kinokrad.co/xfsearch/hdtvrip 93ebc7e8c1a9fc9ba5d3013a9475e5df 515 2 512 2 532 2 700 2 553 2 42 3 4 HDTVrip 35 43432,9990740741 215 -35 93 43433,0247825579 53 0a5ca60eb509d9e76778a427f2f6fc5c http://kinokrad.co/xfsearch/dvdrip 93ebc7e8c1a9fc9ba5d3013a9475e5df 515 2 512 2 532 2 700 2 553 2 42 3 4 DVDRip 35 43432,9983796296 215 -35 93 43433,0247825579 53 96fcb7e2ec534fe066925ca6645e30a6 http://kinokrad.co/xfsearch/dvdscr 93ebc7e8c1a9fc9ba5d3013a9475e5df 515 2 512 2 532 2 700 2 553 2 42 3 4 DVDscr 35 43432,9976851852 215 -35 93 43433,0247825579 53 647b605daf3fa63762eb856eabfb7217 http://kinokrad.co/xfsearch/satrip 93ebc7e8c1a9fc9ba5d3013a9475e5df 515 2 512 2 532 2 700 2 553 2 42 3 4 SATrip 35 43432,9969907407 215 -35 93 43433,0247825579 53 4479225b361b0d737e6f197bab8be7dd http://kinokrad.co/xfsearch/camrip 93ebc7e8c1a9fc9ba5d3013a9475e5df 515 2 512 2 532 2 700 2 553 2 42 3 4 CAMrip 35 43432,9962962963 215 -35 93 43433,0247825579 53 7ee2e73c596de848306c06bc5d6c749f http://kinokrad.co/xfsearch/ts 93ebc7e8c1a9fc9ba5d3013a9475e5df 515 2 512 2 532 2 700 2 553 2 42 3 4 TS 35 43432,9956018518 215 -35 93 43433,0247825579 51 a0b1c2dd8dfe9b1659314fa50b2147dd 15. Лучшие подборки! 1bf6ecc8-bbff-4353-aaec-c0b6ecef3ac9 515 2 512 2 532 2 700 2 553 2 42 3 35 43432,9949074074 215 -35 527 --group=alph 93 43433,0247825579 53 d5062b981259fd5a107ed0e4a5f88e92 http://kinokrad.co/films-of-war/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про ВОВ 35 43432,994212963 215 -35 93 43433,0247825579 53 b5dc183eff6ac74f9288522583520d8e http://kinokrad.co/sniper/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про снайперов 35 43432,9935185185 215 -35 93 43433,0247825579 53 68705834c7d86a725a3c9294bb649ed4 http://kinokrad.co/vzroslye/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Для взрослых 35 43432,9928240741 215 -35 93 43433,0247825579 53 cc0706b06903b5d307c78f80706f013b http://kinokrad.co/detskiy/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Для детей 35 43432,9921296296 215 -35 93 43433,0247825579 53 44401e1a8c72e4f3095a1c3b9ea96195 http://kinokrad.co/disney/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Дисней 35 43432,9914351852 215 -35 93 43433,0247825579 53 ea25ed997664ffad8c75421c689f5e9a http://kinokrad.co/marvel/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Марвел 35 43432,9907407407 215 -35 93 43433,0247825579 53 1f0e0327e98d8f34c43d2ebb46f26081 http://kinokrad.co/supergeroi/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про супергероев 35 43432,9900462963 215 -35 93 43433,0247825579 53 21ceeb716cc51df1e6ac0a0394b25fd8 http://kinokrad.co/boevye-iskusstva/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про боевые исскуства 35 43432,9893518519 215 -35 93 43433,0247825579 53 d1e043f21afd47d0e276b6ee468d4b3b http://kinokrad.co/prizraki-i-demony/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про призраков и демонов 35 43432,9886574074 215 -35 93 43433,0247825579 53 165650978d667445887fe7111b2c18bd http://kinokrad.co/vampiry-i-oborotni/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про вампиров и оборотней 35 43432,987962963 215 -35 93 43433,0247825579 53 8fbe3456764dc3d66af4b799fdad03af http://kinokrad.co/zombi-i-mertvecy/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про зомби 35 43432,9872685185 215 -35 93 43433,0247825579 53 89387e81c1b64835eb7bec252193a60d http://kinokrad.co/mutanty-i-monstry/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про мутантов 35 43432,9865740741 215 -35 93 43433,0247825579 53 e3d87b73199320de154c3a58d610aceb http://kinokrad.co/vedmy/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про ведьм 35 43432,9858796296 215 -35 93 43433,0247825579 53 0b12630b39d5e260da71708ee26414c4 http://kinokrad.co/nlo-i-prishelcy/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про НЛО 35 43432,9851851852 215 -35 93 43433,0247825579 53 32ece74293d476bb66a8def6401570bf http://kinokrad.co/mafiyu-i-gangsterov/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про мафию 35 43432,9844907407 215 -35 93 43433,0247825579 53 a1a8635c8d566dbfb33b3d697c7df627 http://kinokrad.co/tyurma/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про тюрьму 35 43432,9837962963 215 -35 93 43433,0247825579 53 4249fda136dfb28e7592ea5a0109a0bf http://kinokrad.co/indeycy-i-vikingi/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про индейцев,викингов 35 43432,9831018519 215 -35 93 43433,0247825579 53 cb12552aeee511b11f20a6d7c5594d0e http://kinokrad.co/robotov/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про роботов 35 43432,9824074074 215 -35 93 43433,0247825579 53 139c7dbf533f8eb187e06907469dc3ef http://kinokrad.co/manyaki/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про маньяков 35 43432,981712963 215 -35 93 43433,0247825579 53 05f263f83555eac5cd99b09b08bffb71 http://kinokrad.co/shpiony/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про шпионов 35 43432,9810185185 215 -35 93 43433,0247825579 53 82af4611d0ddabb827e688e089fbca79 http://kinokrad.co/dinozavry/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про динозавров 35 43432,9803240741 215 -35 93 43433,0247825579 53 9c8347965574746fcd120eb07bc975fe http://kinokrad.co/zhivotnye/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про животных 35 43432,9796296296 215 -35 93 43433,0247825579 53 aba623f1fdca64276ce1c49e18de614b http://kinokrad.co/loshadi/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про лошадей 35 43432,9789351852 215 -35 93 43433,0247825579 53 abf7e32912ae0ad53ae6ebc28df115b9 http://kinokrad.co/sobaki/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про собак и кошек 35 43432,9782407407 215 -35 93 43433,0247825579 53 ecebc9d40fff28732b635afbdb6c67b7 http://kinokrad.co/podrostki/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про подростков 35 43432,9775462963 215 -35 93 43433,0247825579 53 0c821049f6c077607d40e1d7ace4c527 http://kinokrad.co/shkolniki/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про школу 35 43432,9768518519 215 -35 93 43433,0247825579 53 fb00b96d622cc4daa419ff2982fb9221 http://kinokrad.co/studenty/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про студентов 35 43432,9761574074 215 -35 93 43433,0247825579 53 c0a9a1a57778b24516e258458fde0c62 http://kinokrad.co/lyubov/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про любовь 35 43432,975462963 215 -35 93 43433,0247825579 53 8f54c671c943837fddb6f10d3f88eb29 http://kinokrad.co/vyzhivanie/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про выживание 35 43432,9747685185 215 -35 93 43433,0247825579 53 3cc1f81224c3c71368ec96ecf2290040 http://kinokrad.co/ogrableniya/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про ограбления 35 43432,9740740741 215 -35 93 43433,0247825579 53 fceb42df7b7639e9642f9c53ed4d7fbe http://kinokrad.co/gonki/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про гонки 35 43432,9733796296 215 -35 93 43433,0247825579 53 416167d70e18fbce184ad25225b8ad20 http://kinokrad.co/motocikly/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про мотоциклы 35 43432,9726851852 215 -35 93 43433,0247825579 53 e02b423f471a459ffb220b0a314fe45b http://kinokrad.co/samolety/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про самолеты 35 43432,9719907407 215 -35 93 43433,0247825579 53 e847311a2bd8ad4e1270d80ae86dfd48 http://kinokrad.co/kosmos/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про космос 35 43432,9712962963 215 -35 93 43433,0247825579 53 c17712035be17fa44b629387584f8a7e http://kinokrad.co/katastrofy/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про катастрофы 35 43432,9706018519 215 -35 93 43433,0247825579 53 e165c841ad966a8672a52a1a5810eb5d http://kinokrad.co/konec-sveta-i-apokalipsis/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про конец света 35 43432,9699074074 215 -35 93 43433,0247825579 53 1148d4faa32629f83f93a1be86dea8d1 http://kinokrad.co/na-realnyh-sobytiyah/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 На реальных событиях 35 43432,969212963 215 -35 93 43433,0247825579 53 2caf6fbb9467eade7e5c0141d6bff580 http://kinokrad.co/novyy-god/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про новый год и рождество 35 43432,9685185185 215 -35 93 43433,0247825579 53 4f7afbf8f8a2a83b653ced63b304c5bb http://kinokrad.co/puteshestviya-vo-vremeni/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Путешествия во времени 35 43432,9678240741 215 -35 93 43433,0247825579 53 1b81d97f6b5457b2ba014482c3a6cd84 http://kinokrad.co/futbol/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про футбол 35 43432,9671296296 215 -35 93 43433,0247825579 53 dc07e4cb8b7aadf0f5dfcf2514eca69d http://kinokrad.co/tancy/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про танцы 35 43432,9664351852 215 -35 93 43433,0247825579 53 24c304397bf0c7f9331c60d25db66057 http://kinokrad.co/skazki/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Сказки 35 43432,9657407407 215 -35 93 43433,0247825579 53 d36e46e689bc5d905ad3ded3ce137c7f http://kinokrad.co/rycari/ a0b1c2dd8dfe9b1659314fa50b2147dd 515 2 512 2 532 2 700 2 553 2 42 3 4 Про рыцарей 35 43432,9650462963 215 -35 93 43433,0247825579 HMSMPEG hmsmpeg.exe http://www.ffmpeg.org/ HmsMPEG Hmsmpeg.exe http://www.ffmpeg.org/ hmsMPEG hmsmpeg.exe http://www.ffmpeg.org/ HMSMPEG PascalScript Транскодирование для интернет медиа-ресурсов 3 cfgTranscodingVideoMimeType PascalScript 1 // Версия 2.02 (HMS pipe) // Профиль берет ссылку на медиаресурс через скрипт получения ссылки, // используя: HmsGetItemProperty(mpiMediaResourceLink) и получает поток // напрямую, минуя встроенные в livestreamer плагины, используя конструкцию: // protocol://path [key=value] // Например: // livestreamer "rtmp://streaming.server.net/playpath live=1 swfVfy=http://server.net/flashplayer.swf" // livestreamer hds://streaming.server.net/playpath/manifest.f4m // За определение типа потока отвечает функция GetStreamType // 04.06 - В код добавлены параметры командной строки на будущее // Добавлен параметр --default-stream на случай пустой переменной csQuality // // Stream transport options // --hds-live-edge SECONDS // --hds-segment-attempts ATTEMPTS // --hds-segment-threads THREADS // --hds-segment-timeout TIMEOUT // --hds-timeout TIMEOUT // --hls-live-edge SEGMENTS // --hls-segment-attempts ATTEMPTS // --hls-segment-threads THREADS // --hls-segment-timeout TIMEOUT // --hls-timeout TIMEOUT // --http-stream-timeout TIMEOUT // --ringbuffer-size SIZE // // --rtmp-proxy PROXY, --rtmpdump-proxy PROXY // --rtmp-rtmpdump FILENAME, --rtmpdump FILENAME, -r FILENAME // --rtmp-timeout TIMEOUT // --stream-segment-attempts ATTEMPTS // --stream-segment-threads THREADS // --stream-segment-timeout TIMEOUT // --stream-timeout TIMEOUT // HTTP PROXY // --http-proxy HTTP_PROXY // --https-proxy HTTPS_PROXY // --http-cookie KEY=VALUE // --http-header KEY=VALUE // --http-query-param KEY=VALUE // --http-ignore-env // --http-no-ssl-verify // --http-ssl-cert FILENAME // --http-ssl-cert-crt-key CRT_FILENAME KEY_FILENAME // --http-timeout TIMEOUT // Plugin options // --twitch-oauth-token TOKEN // --twitch-oauth-authenticate // --twitch-cookie COOKIES // --ustream-password PASSWORD // --crunchyroll-username USERNAME // --crunchyroll-password [PASSWORD] // --crunchyroll-purge-credentials // --livestation-email EMAIL // --livestation-password PASSWORD // Полное описание тут: http://docs.livestreamer.io/cli.html const csDumpParams = '%s "%s" --default-stream "best" --hls-segment-threads 3 --hls-segment-attempts 1 -l %s -f -o "%s"'; csQuality = "720p,480p,best"; //Предпочитаемое качество потока cbDebug = False; //Активация режима отладки csPathToLog = 'd:\tmp\livestream-ffmpeg-stream.log'; //Путь в файлу для записи отладочной информации //его содержимое выслать автору procedure DoDebug(const strToLog: string); var sCurrLog: String; begin if cbDebug then begin if FileExists(csPathToLog) then sCurrLog := HmsStringFromFile(csPathToLog); HmsStringToFile(sCurrLog+#13+VarToStr(Now)+' '+strToLog, csPathToLog); HmsLogMessage(1, strToLog); end; end; // На вход функция принимает декодированную ссылку, возвращает тип потока function GetStreamType(const aInputLink: String): String; var sInputFileName: String; begin DoDebug("Getting stream type"); Result := ''; if EndPos(aInputLink,'.m3u8') then Result := 'hls://' else if EndPos(aInputLink,'.f4m') then Result := 'hds://' end; // На вход функция принимает ссылку и тип потока, возвращает True или False, а так же имя файла pipe function ExecuteLivestreamer(const aCommandLine, aLinkType: string; var aInputFileName: string): boolean; var sDumpParams, sReadPipeName, sWritePipeName, sDebugKey: string; bTest: Boolean; begin Result := False; if (HmsCreateDualPipe(sReadPipeName, sWritePipeName)) then begin DoDebug("Executing livestreamer stage, creating pipes: for WRITE "+sWritePipeName+" and for READ "+sReadPipeName); bTest := HmsFileLocked(sWritePipeName); DoDebug("Is pipe "+sWritePipeName+" writable: "+Str(bTest)); if bTest then Begin if cbDebug then sDebugKey := 'debug' else sDebugKey := 'none'; sDumpParams := Format('"%s" "%s" --default-stream "best" --hls-segment-threads 3 --hls-segment-attempts 1 -l %s -f -o "%s"', [aLinkType+aCommandLine, csQuality, sDebugKey, sWritePipeName]); DoDebug("Livestreamer exec params: "+sDumpParams); Result := HmsTranscodingExecute('LSTREAMER', sDumpParams, False); DoDebug("Result of execution: "+Str(Result)); if Result then aInputFileName := sReadPipeName end; end end; // На вход принимает ссылку, возвращает True, если livestreamer может обработать ссылку или False, если не может function CheckForValidLink(const aInputFileName: string) : boolean; begin Result := False; //Result := HmsTranscodingExecute('LSTREAMER','--can-handle-url '+InputFileName); DoDebug("Is link valid: "+str(Result)); end; var bSuccess, bLinkValid: Boolean; sLinkType, sFileType, sInputFileName, sRtmpServer, sRtmpFile, sTranscodingParams: string; begin TranscodingResult := False; DoDebug("Обработка для профиля устройства: "+Str(cfgDeviceType)); if HmsGetStreamCount = 0 then HmsRetrieveProperties; InputFileName := Trim(HmsGetItemProperty(mpiMediaResourceLink)); if InputFileName = '' then InputFileName := HmsGetItemProperty(mpiFilePath); DoDebug("URI ресурса: "+InputFileName); sLinkType := GetStreamType(InputFileName); if sLinkType <> '' then begin bSuccess := ExecuteLivestreamer(InputFileName, sLinkType, sInputFileName); DoDebug("Livestreamer part worked, going to transcode pipe: "+sInputFileName); end else begin bSuccess := False; DoDebug("Livestreamer didn't found any valid stream on URL: "+InputFileName); end; // Берем базовые параметры транскодирования из профиля Фильмы (основной) sTranscodingParams := HmsTranscodingProfileParams('Фильмы (основной)'); if bSuccess then begin mpInternetItem := False; sTranscodingParams := ReplaceStr(sTranscodingParams, '<HMSMPEG> ', ''); end else begin sInputFileName := InputFileName; DoDebug("Transcoding without livestreamer") end; sTranscodingParams := sTranscodingParams + ' -strict experimental "<OUTPUT FILE>"'; DoDebug("Starting transcode with commandline: "+sTranscodingParams); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True, sInputFileName, OutputFileName); DoDebug("Finishing transcode with result: "+Str(TranscodingResult)); end. PascalScript Фильмы - LIVESTREAM - FFMPEG - STREAM -1 49 ef6d6aeb-f4d1-4f52-b3c0-ee64a7562ef3