3 51 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 https://ofx.xyz 234DF17B-418C-4FDC-9DFE-CD0C586D2E76 4 OFX.xyz 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 532 1 553 1 522 0 570 1 245 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 93 42918,5251253704 50 Фильмы (основной)_480x270 527 --addinfoitems--quality=high--pages=10 530 string gsUrlBase = 'https://ofx.xyz'; // База для относительных ссылок int gnTotalItems = 0; // Счётчик созданных элементов TDateTime gStart = Now; // Время начала запуска скрипта int gnMaxPages=10, gnMaxInGroup=100; bool gbYearInTitle=false; char gsGroupMode=''; // Регулярные выражения для поиска на странице блоков с информацией о видео string gsPatternBlock = '"pic relative"(.*?)</span>' , // Искомые блоки gsCutPage = '<fromCut>(.*?)<toCut>' , // Обрезка загруженной страницы gsPatternTitle = 'title="(.*?)"' , // Название gsPatternLink = '<a href="(.*?)"' , // Ссылка gsPatternImg = '<img src="(.*?)"' , // Картинка gsPatternYear = 'shortinfo.*?>(\\d{4})<' , // Год gsPatternAudio = '<li data-moonwalk="" id="0">(.*?)</li>' , // Озвучка / Перевод 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") { // Если нет ссылки - делаем поиск названия if (Length(mpTitle)<4) mpTitle += " :::"; // Фишка обхода ограничения на минимальную длину в 4 символа (двоеточие при самом поиске не учитывается) HmsRegExMatch('//(.*)', gsUrlBase, sServ); // получаем доменное имя из gsUrlBase в sServ sPost = 'search_text='+HmsHttpEncode(mpTitle); sHtml = HmsSendRequestEx(sServ, '/search', 'POST', 'application/x-www-form-urlencoded; Charset=UTF-8', gsUrlBase+'/\r\nAccept-Encoding: gzip, deflate\r\nOrigin: '+gsUrlBase, sPost, 80, 0, '', true); gnMaxPages = 1; } 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 550 string gsUrlBase = "https://ofx.xyz"; // База для относительных ссылок int mpiVideoMessage = 1001001; string gsPodcastName = "ofx.xyz"; string gsPreviewPrefix = 'ofx'; // Префикс кеша информационных картинок на сервере wonky.lostcut.net int gnTotalItems = 0; TDateTime gTimeStart = Now; bool gbQualityLog = false; // Счётчик созданных элементов TDateTime gStart = Now; // Время начала запуска скрипта string gsTime = "01:40:00.000"; // Продолжительность видео int mpiCountry = 10012; // Идентификаторы для хранения дополнительной int mpiTranslate = 10013; // информации в свойствах подкаста int mpiQuality = 10014; bool gbUseSerialKPInfo = false; string gsTVDBInfo = ""; string gsHeaders = gsUrlBase+'/\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'; /////////////////////////////////////////////////////////////////////////////// // Формирование ссылки для воспроизведения через HDSDump.exe void HDSLink(string sLink, string sQual = '') { string sData, sExePath, sVal; sExePath = ProgramPath+'\\Transcoders\\hdsdump.exe'; MediaResourceLink = Format('cmd://"%s" --manifest "%s" --outfile "<OUTPUT FILE>"', [sExePath, sLink]); if (sQual != '') MediaResourceLink += ' --quality ' + sQual; if (mpTimeStart != '') MediaResourceLink += ' --skip ' + mpTimeStart; PodcastItem[mpiTimeSeekDisabled] = true; // Получение длительности видео, если она не установлена if ((Trim(PodcastItem[mpiTimeLength])=='') || (RightCopy(PodcastItem[mpiTimeLength], 6)=='00.000')) { sData = HmsDownloadUrl(sLink, 'Referer: '+sLink, true); if (HmsRegExMatch('<duration>(\\d+)', sData, sVal)) PodcastItem.Properties[mpiTimeLength] = StrToInt(sVal); } } /////////////////////////////////////////////////////////////////////////////// // Получение ссылки с moonwalk.cc void GetLink_Moonwalk(string sLink) { string sHtml, sData, sPage, sPost, sVer, sQual, sVal, sServ, sRet, sVar; int i; float f; TRegExpr RE; bool bHdsDump, bQualLog; string sHeaders = sLink+'\r\n'+ 'Accept-Encoding: identity\r\n'+ 'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0) Gecko/20100101 Firefox/13.0\r\n'; // Проверка установленных дополнительных параметров HmsRegExMatch('--quality=(\\w+)', mpPodcastParameters, sQual); bHdsDump = Pos('--hdsdump' , mpPodcastParameters) > 0; bQualLog = Pos('--qualitylog' , mpPodcastParameters) > 0; sLink = ReplaceStr(sLink, 'moonwalk.co', 'moonwalk.cc'); sLink = ReplaceStr(sLink, 'moonwalk.pw', 'moonwalk.cc'); HmsRegExMatch2('//(.*?)(/.*)', sLink, sServ, sPage); sHtml = HmsSendRequestEx(sServ, sPage, 'GET', 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, '', 80, 0, sRet, true); if (HmsRegExMatch('<iframe[^>]+src="(http.*?)"', sHtml, sLink)) { sLink = ReplaceStr(sLink, 'moonwalk.co', 'moonwalk.cc'); sLink = ReplaceStr(sLink, 'moonwalk.pw', 'moonwalk.cc'); HmsRegExMatch2('//(.*?)(/.*)', sLink, sServ, sPage); sHtml = HmsSendRequestEx(sServ, sPage, 'GET', 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, '', 80, 0, sRet, true); } if (HmsRegExMatch('"csrf-token"\\s+content="(.*?)"', sHtml, sVal)) sHeaders += 'X-CSRF-Token:'+sVal+'\r\n'; if (!HmsRegExMatch('(https?://.*?)/', sLink, sVal)) sVal = 'http://moonwalk.cc'; sHeaders += 'Origin: '+sVal+'\r\n'+ 'X-Requested-With: XMLHttpRequest\r\n'; if (!HmsRegExMatch('src="(.*?)"', sHtml, sPage)) { HmsLogMessage(2, mpTitle+': Не найдена ссылка на параметры в iframe.'); return; } HmsRegExMatch('(.*?//.*?)/', sLink, sServ); sPage = HmsExpandLink(sPage, sServ); sData = HmsDownloadURL(sPage, 'Referer: '+sLink); // Поиск дополнительных HTTP заголовков, которые нужно установить HmsRegExMatch('url:"(/manifests.*?)"', sData, sPage); HmsRegExMatch("video_token\\s*:\\s*'(.*?)'", sHtml, sVal); sPage += sVal + '/all'; HmsRegExMatch("user_token\\s*:\\s*'(.*?)'", sHtml, sVal); sHeaders += 'X-Access-Level: '+sVal+'\r\n'; if (!HmsRegExMatch('var e=\\{(mw_key.*?)\\}', sData, sData)) { HmsLogMessage(2, mpTitle+': Не найдены параметры для POST запроса.'); return; } sPost = sData; sPost = ReplaceStr(sPost, ':', '='); sPost = ReplaceStr(sPost, ' ', '' ); sPost = ReplaceStr(sPost, "'", '' ); sPost = ReplaceStr(sPost, '"', '' ); sPost = ReplaceStr(sPost, 'this.options.', ''); sPost = ReplaceStr(sPost, ',', '&'); // Замена имён переменных их значениями в параметрах запроса sData = sPost; while(HmsRegExMatch2('.(=(\\w+).*)', sData, sData, sVar)) { if (HmsRegExMatch('\\b'+sVar+'\\s*:\\s*(.*?),', sHtml, sVal)) sPost = ReplaceStr(sPost, '='+sVar, '='+sVal); } HmsRegExMatch('//(.*?)/', sLink, sServ); sData = HmsSendRequest(sServ, sPage, 'POST', 'application/x-www-form-urlencoded; Charset=UTF-8', sHeaders, sPost, 80, true); sData = ReplaceStr(HmsJsonDecode(sData), "\\r\\n", ""); if (bHdsDump && HmsRegExMatch('"manifest_f4m"\\s*?:\\s*?"(.*?)"', sData, sLink)) { HDSLink(sLink, sQual); } else if (HmsRegExMatch('"manifest_m3u8"\\s*?:\\s*?"(.*?)"', sData, sLink)) { MediaResourceLink = ' ' + sLink; // Получение длительности видео, если она не установлена // ------------------------------------------------------------------------ sData = HmsDownloadUrl(sLink, 'Referer: '+sHeaders, true); sVal = Trim(PodcastItem.ItemOrigin[mpiTimeLength]); if ((sVal=='') || (RightCopy(sVal, 6)=='00.000')) { if (HmsRegExMatch('(http.*?)[\r\n$]', sData, sLink)) { sHtml = HmsDownloadUrl(sLink, 'Referer: '+sHeaders, true); RE = TRegExpr.Create('#EXTINF:(\\d+.\\d+)', PCRE_SINGLELINE); f=0; if (RE.Search(sHtml)) do f += StrToFloatDef(RE.Match(1), 0); while (RE.SearchAgain()); RE.Free; if (f > 0) PodcastItem.ItemOrigin[mpiTimeLength] = HmsTimeFormat(Round(f))+'.000'; } } // ------------------------------------------------------------------------ // Если установлен ключ --quality или в настройках подкаста выставлен приоритет выбора качества // ------------------------------------------------------------------------ string sSelectedQual = '', sMsg, sHeight; int iMinPriority = 99, iPriority; if ((sQual!='') || (mpPodcastMediaFormats!='')) { TStringList QLIST = TStringList.Create(); // Собираем список ссылок разного качества RE = TRegExpr.Create('#EXT-X-STREAM-INF:RESOLUTION=\\d+x(\\d+).*?[\r\n](http.+)$', PCRE_MULTILINE); if (RE.Search(sData)) do { sHeight = Format('%.5d', [StrToInt(RE.Match(1))]); sLink = RE.Match(2); QLIST.Values[sHeight] = sLink; iPriority = HmsMediaFormatPriority(StrToInt(sHeight), mpPodcastMediaFormats); if ((iPriority >= 0) && (iPriority < iMinPriority)) { iMinPriority = iPriority; sSelectedQual = sHeight; } } while (RE.SearchAgain()); RE.Free; QLIST.Sort(); if (QLIST.Count > 0) { if (sQual=='low' ) sSelectedQual = QLIST.Names[0]; else if (sQual=='medium') sSelectedQual = QLIST.Names[Round((QLIST.Count-1) / 2)]; else if (sQual=='high' ) sSelectedQual = QLIST.Names[QLIST.Count - 1]; else if (HmsRegExMatch('(\\d+)', sQual, sQual)) { extended minDiff = 999999; // search nearest quality for (i=0; i < QLIST.Count; i++) { extended diff = StrToInt(QLIST.Names[i]) - StrToInt(sQual); if (Abs(diff) < minDiff) { minDiff = Abs(diff); sSelectedQual = QLIST.Names[i]; } } } } if (sSelectedQual != '') MediaResourceLink = ' ' + QLIST.Values[sSelectedQual]; if (bQualLog) { sMsg = 'Доступное качество: '; for (i = 0; i < QLIST.Count; i++) { if (i>0) sMsg += ', '; sMsg += IntToStr(StrToInt(QLIST.Names[i])); // Обрезаем лидирующие нули } if (sSelectedQual != '') sSelectedQual = IntToStr(StrToInt(sSelectedQual)); else sSelectedQual = 'Auto'; sMsg += '. Выбрано: ' + sSelectedQual; HmsLogMessage(1, mpTitle+'. '+sMsg); } QLIST.Free; } // ------------------------------------------------------------------------ } else if (HmsRegExMatch('"manifest_mp4"\\s*?:\\s*?"(.*?)"', sData, sLink)) { sData = HmsDownloadURL(sLink, 'Referer: '+sHeaders); // Поддержка установленных приоритетов качества в настройках подкаста TJsonObject JSON = TJsonObject.Create(); int height, selHeight=0, minPriority=99, priority, maxHeight; if (sQual=='medium') sQual='480'; if (sQual=='low') sQual='360'; maxHeight = StrToIntDef(sQual, 4320); try { JSON.LoadFromString(sData); for (i=0; i<JSON.Count; i++) { sVer = JSON.Names[i]; sLink = JSON.S[sVer]; height = StrToIntDef(sVer, 0); if ((sQual!='') && (sQual==sVer)) { MediaResourceLink = sLink; selHeight = height; break; } 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; } } } finally { JSON.Free(); } } else { HmsLogMessage(2, mpTitle+': Ошибка получения данных от new_session.'); //if (DEBUG==1) { if (ServiceMode) sVal = SpecialFolderPath(0x37); // Общая папака "Видео" else sVal = SpecialFolderPath(0); // Рабочий стол sVal = IncludeTrailingBackslash(sVal)+'Moonwalk.log'; HmsStringToFile(sHeaders+'\r\nsHtml:\r\n'+sHtml+'\r\nsPost:\r\n'+sPost+'\r\nsData:\r\n'+sData, sVal); HmsLogMessage(1, mpTitle+': Создан лог файл '+sVal); } } //} // Конец функции поулчения ссылки с moonwalk.cc /////////////////////////////////////////////////////////////////////////////// // Создание информационной ссылки 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; // Возвращаем созданный объект } // -------------------------------------------- Получение ссылки на vk.com ---- bool GetLink_VK2(char sLink) { char sHtml, sVal, host, uid, vkid, vtag, max_hd, no_flv, res; char ResolutionList='0:240, 1:360, 2:480, 3:720', sQAval, sQSel; int i, iPriority=0, iMinPriority=99; int nFlag=0; string sRet='', sPost='', sOid, sID, sLnk2=''; sHtml = HmsDownloadUrl(sLink, 'Referer: '+gsHeaders, true); sHtml = ReplaceStr(sHtml, '\\', ''); host = ''; max_hd = '2'; if (!HmsRegExMatch('vtag["\':=\\s]+([0-9a-z]+)', sHtml, vtag)) { if (HmsRegExMatch('<div style="position:absolute; top:50%; text-align:center; right:0pt; left:0pt;.*?>(.*?)</div>', sHtml, sLink)) { HmsLogMessage(2, PodcastItem.ItemOrigin.ItemParent[mpiTitle]+': vk.com сообщает - '+HmsHtmlToText(sLink)); if (random > 0.5) MediaResourceLink = 'http://wonky.lostcut.net/vids/enotallow.avi'; //else VideoMessage('', 'VK.COM СООБЩАЕТ:\n\n'+HmsHtmlToText(sLink)); } else { HmsLogMessage(2, mpTitle+': не удалось обработать ссылку на vk.com'); MediaResourceLink = 'http://wonky.lostcut.net/vids/error_getlink.avi'; } return true; } HmsRegExMatch('[^a-z]host[=:"\'\\s]+(.*?)["\'&;,]', sHtml, host ); HmsRegExMatch('[^a-z]uid[=:"\'\\s]+([0-9]+)', sHtml, uid ); HmsRegExMatch('no_flv.*?(\\d)' , sHtml, no_flv); HmsRegExMatch('(?>hd":"|hd=|video_max_hd.*?)(\\d)', sHtml, max_hd); HmsRegExMatch('[^a-z]vkid[=:"\'\\s]+([0-9]+)', sHtml, vkid ); HmsRegExMatch(max_hd+':(\\d+)', ResolutionList, res ); sQAval = 'Доступное качество: '; sQSel = ''; HmsRegExMatch('--quality=(\\d+)', mpPodcastParameters, sQSel); // Если включен приоритет форматов, то ищем ссылку на более приоритетное качество if (gbQualityLog || (mpPodcastMediaFormats!='')) for (i=StrToIntDef(max_hd, 3); i>=0; i--) { HmsRegExMatch(IntToStr(i)+':(\\d+)', ResolutionList, sVal); sQAval += sVal + ' '; if (sQSel != '') { if (StrToIntDef(res, 0)>StrToIntDef(sQSel, 0)) res = sVal; } else if (mpPodcastMediaFormats != '') { iPriority = HmsMediaFormatPriority(StrToIntDef(sVal, 0), mpPodcastMediaFormats); if ((iPriority>=0)&&(iPriority<iMinPriority)) {iMinPriority = iPriority; res=sVal;} } } if (gbQualityLog) HmsLogMessage(1, mpTitle+': '+sQAval+'Выбрано: '+res); if (LeftCopy(uid, 1)!='u') uid = 'u' + Trim(uid); if (Trim(host)=='') HmsRegExMatch('ajax.preload.*?<img[^>]+src="(http://.*?/)', sHtml, host); if (uid=='0') MediaResourceLink = host+'assets/videos/'+vtag+''+vkid+'.vk.flv'; else MediaResourceLink = host + uid+'/videos/'+vtag+'.'+res+'.mp4'; HmsRegExMatch(";url"+res+"=(.*?)&", sHtml, MediaResourceLink); return true; } // --------------------------------------------------- Вход на сайт vk.com ---- bool LogInSiteVK() { string sHtml, sData, sName, sVal, sPost, sServ, sRet; int nFlag; bool success = true; TRegExpr RE = TRegExpr.Create('<input[^>]+name="(.*?)"[^>]+value="(.*?)"', PCRE_SINGLELINE); sHtml = HmsDownloadURL("https://vk.com", "Referer: "+gsHeaders, true); sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); sPost = ""; if (HmsRegExMatch('<form[^>]+quick_login(.*?)</form>', sHtml, sData)) { if (RE.Search(sData)) do { sName = RE.Match(1); sVal = RE.Match(2); if ((sName=="email") || (sName=="pass")) continue; sPost += Format("%s=%s&", [sName, sVal]); } while (RE.SearchAgain()); sPost += Format("email=%s&pass=%s", [HmsHttpEncode(mpPodcastProxyUserName), HmsHttpEncode(mpPodcastProxyPassword)]); nFlag = StrToInt('$80000000'); // INTERNET_FLAG_RELOAD; sHtml = HmsSendRequestEx('login.vk.com', '/?act=login', 'POST', 'application/x-www-form-urlencoded; Charset=UTF-8', gsHeaders, sPost, 443, nFlag, sRet, true); sHtml = sRet + Trim(sHtml); success = HmsRegExMatch("onLoginDone", sHtml, ''); } RE.Free(); if (!success) { HmsLogMessage(2, "Неверно введён логин или пароль от vk.com в поля Использования прокси-сервера подкаста."); } return success; } // -------------------------------------------- Получение ссылки на vk.com ---- bool GetLink_VK(string sLink) { string sHtml, sVal, host, uid, vkid, vtag, max_hd, no_flv, res, extra, cat; string ResolutionList='0:240, 1:360, 2:480, 3:720', sQAval, sQSel, sID; int i, iPriority=0, iMinPriority=99; int nFlag=0; sHtml = HmsDownloadURL(sLink, 'Referer: '+sLink, true); if ((sHtml=="") || !HmsRegExMatch('vtag["\':=\\s]+([0-9a-z]+)', sHtml, vtag)) { LogInSiteVK(); if (HmsRegExMatch2("oid=(.*?)&.*?id=(.*?)&", sLink, sVal, sID)) sLink = "https://vk.com/video"+sVal+"_"+sID; sHtml = HmsDownloadUrl(sLink, 'Referer: '+gsHeaders, true); } sHtml = ReplaceStr(sHtml, '\\', ''); host = ''; max_hd = '2'; sLink = ''; HmsRegExMatch('--quality=(\\d+)', mpPodcastParameters, sQSel); if (sQSel!='') HmsRegExMatch('"url'+sQSel+'":"(.*?)"', sHtml, sLink); if (sLink=='') HmsRegExMatch('"url720":"(.*?)"', sHtml, sLink); if (sLink=='') HmsRegExMatch('"url480":"(.*?)"', sHtml, sLink); if (sLink=='') HmsRegExMatch('"url360":"(.*?)"', sHtml, sLink); if (sLink=='') HmsRegExMatch('"url240":"(.*?)"', sHtml, sLink); if (sLink!='') { MediaResourceLink = HmsJsonDecode(sLink); return; } if (!HmsRegExMatch('vtag["\':=\\s]+([0-9a-z]+)', sHtml, vtag)) { if (HmsRegExMatch('(<div[^>]+video_ext_msg.*?</div>)', sHtml, sLink) || HmsRegExMatch('<div style="position:absolute; top:50%; text-align:center; right:0pt; left:0pt;.*?>(.*?)</div>', sHtml, sLink)) { HmsLogMessage(2, PodcastItem.ItemOrigin.ItemParent[mpiTitle]+': vk.com сообщает - '+HmsHtmlToText(sLink)); if (random > 0.5) MediaResourceLink = 'http://wonky.lostcut.net/vids/enotallow.avi'; //else VideoMessage('', 'VK.COM СООБЩАЕТ:\n\n'+HmsHtmlToText(sLink)); } else { HmsLogMessage(2, mpTitle+': не удалось обработать ссылку на vk.com'); MediaResourceLink = 'http://wonky.lostcut.net/vids/error_getlink.avi'; } return true; } HmsRegExMatch('[^a-z]host[=:"\'\\s]+(.*?)["\'&;,]', sHtml, host ); HmsRegExMatch('[^a-z]uid[=:"\'\\s]+([0-9]+)' , sHtml, uid ); HmsRegExMatch('no_flv.*?(\\d)' , sHtml, no_flv); HmsRegExMatch('(?>hd":"|hd=|video_max_hd.*?)(\\d)', sHtml, max_hd); HmsRegExMatch('[^a-z]vkid[=:"\'\\s]+([0-9]+)' , sHtml, vkid ); HmsRegExMatch('extra=([\\w-]+)' , sHtml, extra ); HmsRegExMatch('/(\\d+)/u\\d+/' , sHtml, cat ); HmsRegExMatch(max_hd+':(\\d+)', ResolutionList, res ); sQAval = 'Доступное качество: '; sQSel = ''; // Если включен приоритет форматов, то ищем ссылку на более приоритетное качество if (gbQualityLog || (mpPodcastMediaFormats!='')) for (i=StrToIntDef(max_hd, 3); i>=0; i--) { HmsRegExMatch(IntToStr(i)+':(\\d+)', ResolutionList, sVal); sQAval += sVal + ' '; if (sQSel != '') { if (StrToIntDef(res, 0)>StrToIntDef(sQSel, 0)) res = sVal; } else if (mpPodcastMediaFormats != '') { iPriority = HmsMediaFormatPriority(StrToIntDef(sVal, 0), mpPodcastMediaFormats); if ((iPriority>=0)&&(iPriority<iMinPriority)) {iMinPriority = iPriority; res=sVal;} } } if (gbQualityLog) HmsLogMessage(1, mpTitle+': '+sQAval+'Выбрано: '+res); if (LeftCopy(uid, 1)!='u') uid = 'u' + Trim(uid); if (Trim(host)=='') HmsRegExMatch('ajax.preload.*?<img[^>]+src="(http://.*?/)', sHtml, host); if (uid=='0') MediaResourceLink = host+'assets/videos/'+vtag+''+vkid+'.vk.flv'; else MediaResourceLink = host + uid+'/videos/'+vtag+'.'+res+'.mp4'; if (Trim(extra)!='') MediaResourceLink += '?extra='+extra; if (Trim(cat )!='') MediaResourceLink = ReplaceStr(MediaResourceLink, '/'+uid, '/'+cat+'/'+uid); HmsRegExMatch(";url"+res+"=(.*?)&", sHtml, MediaResourceLink); return true; } /////////////////////////////////////////////////////////////////////////////// // Получение ссылки на 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']); } /////////////////////////////////////////////////////////////////////////////// // Получение реального названия и картинки для серии сериала из gsTVDBInfo void GetSerialInfo(THmsScriptMediaItem Item, int nSeason, int nEpisode) { string sName, sImg; if (!gbUseSerialKPInfo ) return; if (gsTVDBInfo=='') LoadKPSerialInfo(); if (HmsRegExMatch2('s'+Str(nSeason)+'e'+Str(nEpisode)+'=(.*?);t=(.*?)\\|', gsTVDBInfo, sImg, sName)) { if (sImg !="") Item[mpiThumbnail] = sImg; if (sName!="") Item[mpiTitle ] = Format("%.2d %s", [nEpisode, sName]); Item[mpiSeriesEpisodeNo ] = nEpisode; Item[mpiSeriesSeasonNo ] = nSeason; Item[mpiSeriesEpisodeTitle] = sName; Item[mpiSeriesTitle ] = PodcastItem[mpiSeriesTitle]; } } /////////////////////////////////////////////////////////////////////////////// // Получение информации с Kinopoisk о сериале void LoadKPSerialInfo() { string sID, sData, sHtml, sName, sVal, sHeaders, sYear; int nEpisode, nSeason, n; TRegExpr RE; if (gsTVDBInfo!='') return; sID = Trim(PodcastItem[100500]); // Получаем запомненный kinopoisk ID if (sID=='') HmsRegExMatch('/images/(film|film_big)/(\\d+)', mpThumbnail, sID, 2); // Или пытаемся его получить из картинки if ((sID!='') && (sID!='0')) { // Проверяем, была ли уже загружена информация для такого количества серий if ((PodcastItem[100508]!='') && (PodcastItem[100508]==PodcastItem[100509])) { gsTVDBInfo = PodcastItem[100507]; return; } sHeaders = 'Referer: https://kinopoisk.ru/\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'; sHtml = HmsDownloadURL("https://www.kinopoisk.ru/film/"+sID+"/episodes/", sHeaders, true); if (HmsRegExMatch2('<td[^>]+class="news">([^<]+),\\s+(\\d{4})', sHtml, sName, sYear)) { // Если получили оригинальное название сериала - пробуем загрузить инфу с картинками sName = ReplaceStr(sName, ' ', '_'); gsTVDBInfo = HmsUtf8Decode(HmsDownloadURL('http://wonky.lostcut.net/tvdb.php?n='+sName+'&y='+sYear, sHeaders, true)); } if (gsTVDBInfo=='') { RE = TRegExpr.Create('(<h[^>]+moviename-big.*?)</h', PCRE_SINGLELINE); nSeason = 1; nEpisode = 1; if (RE.Search(sHtml)) do { sName = HmsHtmlToText(re.Match()); if (HmsRegExMatch("Сезон\\s*?(\\d+)", sName, sVal)) { nSeason=StrToInt(sVal); nEpisode=1; continue; } gsTVDBInfo += 's'+Str(nSeason)+'e'+Str(nEpisode)+'=;t='+sName+'|'; nEpisode++; } while (RE.SearchAgain()); } if (gsTVDBInfo=='') gsTVDBInfo = '-'; } PodcastItem[100507] = gsTVDBInfo; // Запоминаем инфу PodcastItem[100509] = PodcastItem[100508]; // для такого количества серий } /////////////////////////////////////////////////////////////////////////////// // Вывод вместо видео заданного сообщения 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, 65001), "\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 CreateMediaItem(Folder, sName, sLink); // Иначе просто создаём ссылки на видео } } // 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(); } } // -------------------------------- Создание дерева ссылок из объекта Json ---- void CreateItemsFromJson(TJsonObject jsonParent, THmsScriptMediaItem Folder) { char sTitle, sLink, sVal; int i; TJsonObject jsonObject; THmsScriptMediaItem Item; if (jsonParent == nil) return; for (i=0; i<jsonParent.Count; i++) { jsonObject = jsonParent.Values[i]; if (jsonObject["playlist"] != nil) { sTitle = Trim(HmsHtmlToText(jsonObject.S["comment"])); sTitle = ReplaceStr(ReplaceStr(sTitle, '\r', ''), '\n', '-'); Item = Folder.AddFolder(sTitle); Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0)); gnTotalItems++; CreateItemsFromJson(jsonObject["playlist"], Item); } else { sLink = jsonObject.S["file"]; sTitle = Trim(HmsHtmlToText(jsonObject.S["comment"])); sTitle = ReplaceStr(ReplaceStr(sTitle, '\r', ''), '\n', '-'); // Форматируем номер в два знака if (HmsRegExMatch("(\\d+)", sTitle, sVal)) sTitle = ReplaceStr(sTitle, sVal, Format("%.2d", [StrToInt(sVal)])); Item = HmsCreateMediaItem(sLink, Folder.ItemID); Item[mpiTitle ] = sTitle; Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0)); Item[mpiTimeLength] = gsTime; Item[mpiThumbnail ] = mpThumbnail; gnTotalItems++; } } } // ------------------------------------- создание плейлиста из строки json ---- void PlaylistFromJsonString(char sData, THmsScriptMediaItem PrntItem) { HmsRegExMatch("({.*})", sData, sData); // Избавляемся от UTF BOM если есть TJsonObject JSON = TJsonObject.Create(); try { JSON.LoadFromString(sData); CreateItemsFromJson(JSON["playlist"], PrntItem); } finally { JSON.Free(); } } /////////////////////////////////////////////////////////////////////////////// // Создание списка серий сериала с Moonwalk.cc void CreateMoonwallkLinks(string sLink) { String sHtml, sData, sServ, sRef, sSerie, sVal, sHeaders, sID, sSub, sFile; int n, nEpisode, nSeason; THmsScriptMediaItem Item, Folder = PodcastItem; TJsonObject JSON; TJsonArray JARRAY, EPISODE; bool bOneSeason; sHeaders = sLink+'/\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'+ 'X-Requested-With: XMLHttpRequest\r\n'; gbUseSerialKPInfo = Pos("--usekpinfo", mpPodcastParameters) > 0; sHtml = HmsDownloadURL(sLink, 'Referer: '+sHeaders, true); if (HmsRegExMatch('<body>\\s*?</body>', sHtml, '')) { HmsRegExReplace('(.*?moonwalk.)(co|pw)(.*)', sLink, '$1cc$3', sLink); sHtml = HmsDownloadURL(sLink, 'Referer: '+sHeaders, true); } if (HmsRegExMatch('<iframe[^>]+src="(http.*?)"', sHtml, sLink)) sHtml = HmsDownloadURL(sLink, 'Referer: '+sHeaders, true); sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); if (Trim(mpSeriesTitle)=='') { PodcastItem[mpiSeriesTitle] = mpTitle; HmsRegExMatch('^(.*?)[\\(\\[]', mpTitle, PodcastItem[mpiSeriesTitle]); } if (!HmsRegExMatch('VideoBalancer\\((.*?)\\);', sHtml, sData)) { HmsLogMessage(2, mpTitle+': Не найдены данные VideoBalancer в iframe.'); return; } JSON = TJsonObject.Create(); try { JSON.LoadFromString(sData); HmsRegExMatch("'(.*?)'", JSON.S['ref'], sRef); nSeason = 0; if (HmsRegExMatch2('^(.*?)\\?season=(\\d+)', sLink, sLink, sVal)) nSeason = StrToInt(sVal); // Подсчитываем количество серий и запоминаем в укромном месте n = JSON['episodes'].Count; PodcastItem[100508] = Str(n); JARRAY = JSON.A['seasons']; // Если в ссылке указан номер сезона - показываем только серии этого сезона // Если сезон всего один и номер его = 1, то сразу выкатываем серии if (JARRAY != nil) bOneSeason = (JARRAY.Length == 1) && (JARRAY.I[0] == 1); if ((nSeason > 0) || bOneSeason) { gsTime = '00:45:00.000'; JARRAY = JSON.A['episodes']; for (n=0; n < JARRAY.Length; n++) { EPISODE = JARRAY[n].AsArray; nSeason = EPISODE.I[0]; nEpisode = EPISODE.I[1]; sSerie = Format("%.2d серия", [nEpisode]); // Форматируем номер в два знака Item = CreateMediaItem(Folder, sSerie, sLink+'?season='+Str(nSeason)+'&episode='+Str(nEpisode)+'&ref='+sRef); if (JSON.S["subtitles\\master_vtt"]!="") Item[mpiSubtitleLanguage] = HmsSubtitlesDirectory+'\\'+PodcastItem.ItemID+'.srt'; GetSerialInfo(Item, nSeason, nEpisode); } } else if (JARRAY != nil) { // Создаём список сезонов как папки for (n=0; n < JARRAY.Length; n++) { nSeason = JARRAY.I[n]; sSerie = Format("%d сезон", [nSeason]); // Форматируем номер в два знака Item = CreateFolder(Folder, sSerie, sLink+'?season='+Str(nSeason)+'&ref='+sRef, mpThumbnail); Item[mpiSeriesTitle] = PodcastItem[mpiSeriesTitle]; } } else { // Просто ссылка на фильм Item = CreateMediaItem(Folder, mpTitle, sLink); } } finally { JSON.Free; } } /////////////////////////////////////////////////////////////////////////////// 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; TStrings FilmInfo; if (Pos('/iframe?season=', mpFilePath)>0) { CreateMoonwallkLinks(mpFilePath); return; } sHtml = HmsUtf8Decode(HmsDownloadUrl(mpFilePath, 'Referer: '+gsUrlBase, true)); THmsScriptMediaItem ; TRegExpr RegEx; sSeason = ''; HmsRegExMatch('season=(\\d+)', mpFilePath, sSeason); sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+mpFilePath, true); sHtml = HmsUtf8Decode(sHtml); sHtml = HmsRemoveLineBreaks(sHtml); // ========================================================================= // Сбор информации о фильме if (HmsRegExMatch('Год выпуска :</dt><dd>.*?(\\d{4})</a></dd>', sHtml, sVal)) PodcastItem[mpiYear] = 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('<dt>Жанр :</dt><dd itemprop="genre">(.+?)</dd>' , sHtml, sVal)) PodcastItem[mpiGenre ] = NormVal(sVal); if (HmsRegExMatch('</dd><dt>Kинопоиск : </dt><dd>(.+?)<span style="font-size:9px;">(.+?)</span></dd></dl>' , sHtml, sVal)) PodcastItem[mpiRating ] = NormVal(sVal); if (HmsRegExMatch('<dt>Время :</dt><dd>(.+?)</dd>' , sHtml, sVal)) PodcastItem[mpiTimeLength ] = NormVal(sVal); if (HmsRegExMatch('</dd><dt>IMDB : </dt><dd>(.+?)<span style="font-size:9px;">(.+?)</span></dd></dl>' , sHtml, sVal)) PodcastItem[mpiIMDBInfo ] = NormVal(sVal); if (HmsRegExMatch('<dt>Страна :</dt><dd>(.+?)</dd>' , sHtml, sVal)) PodcastItem[mpiCountry ] = NormVal(sVal); if (HmsRegExMatch('<dt>Перевод :</dt><dd>(.+?)</dd>' , sHtml, sVal)) PodcastItem[mpiTranslate] = NormVal(sVal); if (HmsRegExMatch('<dt>Качество :</dt><dd>(.+?)</dd>', sHtml, sVal)) PodcastItem[mpiQuality ] = NormVal(sVal); if (HmsRegExMatch('<dt>Режиссер :</dt><dd itemprop="director">(.+?)</dd>', sHtml, sVal)) PodcastItem[mpiDirector ] = NormVal(sVal); if (HmsRegExMatch('<dt>В ролях :</dt><dd itemprop="actors">(.+?)</dd>' , sHtml, sVal)) PodcastItem[mpiActor ] = NormVal(sVal); if (HmsRegExMatch('<dt>Премьера :</dt><dd>(.+?)</dd>' , sHtml, sVal)) PodcastItem[mpiAlbum ] = NormVal(sVal); if (HmsRegExMatch('<dt>Студия :</dt><dd>(.+?)</dd>' , sHtml, sVal)) PodcastItem[mpiMood ] = NormVal(sVal); if (HmsRegExMatch('(<span itemprop="description">.*?)</div>', sHtml, sVal)) PodcastItem[mpiComment] = NormVal(sVal); if (HmsRegExMatch('<dt>Оригинальное название :</dt><dd>(.+?)</dd><br/>', 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('flashvars[^>]+file=(.*?)[&"]', sHtml, sLink)) { // Создаём ссылку на конкретный фильм CreateMediaItem(PodcastItem, mpTitle, sLink); } else if (HmsRegExMatch('flashvars[^>]+pl=(.*?)[&"]', sHtml, sLink)) { // Создаём ссылки на серии из плейлиста sData = HmsUtf8Decode(HmsDownloadURL(sLink, 'Referer: '+mpFilePath, true)); HmsRegExMatch('(\\{.*\\})', sData, sData); CreateSeriesFromPlaylist(PodcastItem, sData); } else if (HmsRegExMatch('vkArr=(\\[.*?\\]);', sHtml, sVal)) { // Создаём ссылки на серии из плейлиста в переменной vkArr CreateSeriesFromPlaylist(PodcastItem, sVal); } // Создаем ссылку на Moonwalk if (HmsRegExMatch('<iframe[^>]+src="([^"]+/(serial|video)/.*?/iframe)', sHtml, sLink)) { CreateMediaItem(PodcastItem, mpTitle, sLink); if (HmsRegExMatch('"([^"]+/(serial|video)/.*?/iframe)', sData, sLink)); HmsRegExMatch('"title"\\s*:\\s*"(.*?)"', sData, mpTitle); CreateMoonwallkLinks(sLink); } // Содаем ссылку на видео if (HmsRegExMatch('<iframe src="(.*?)"', sHtml, sLink)) { CreateMediaItem(PodcastItem, mpTitle, sLink); } // Если на странице есть ссылка на трейлер - создаём такую ссылку if (HmsRegExMatch('<iframe class="z4" rel="nofollow" width="700" height="380" src="(.*?)"', sHtml, sLink)) { 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[mpiActor ])!='') CreateInfoItem('В ролях' , PodcastItem[mpiActor ]); if (Trim(PodcastItem[mpiQuality ])!='') CreateInfoItem('Качество', PodcastItem[mpiQuality ]); if (Trim(PodcastItem[mpiDirector ])!='') CreateInfoItem('Режиссер', PodcastItem[mpiDirector ]); if (Trim(PodcastItem[mpiMood ])!='') CreateInfoItem('Студия' , PodcastItem[mpiMood ]); if (Trim(PodcastItem[mpiAlbum ])!='') CreateInfoItem('Премьера', PodcastItem[mpiAlbum ]); if (Trim(PodcastItem[mpiTimeLength])!='') CreateInfoItem('Время', PodcastItem[mpiTimeLength ]); if (Trim(PodcastItem[mpiIMDBInfo ])!='') CreateInfoItem('IMDB' , PodcastItem[mpiIMDBInfo ]); if (Trim(PodcastItem[mpiRating ])!='') CreateInfoItem('Kинопоиск' , PodcastItem[mpiRating ]); } } void QualitySelection() { string sData, sLink, sQual = ''; TRegExpr RE; int i; // Проверка установленных дополнительных параметров HmsRegExMatch('--quality=(\\w+)', mpPodcastParameters, sQual); bool bQualLog = Pos('--qualitylog' , mpPodcastParameters) > 0; // Если установлен ключ --quality или в настройках подкаста выставлен приоритет выбора качества // ------------------------------------------------------------------------ string sSelectedQual = '', sMsg, sHeight; int iMinPriority = 99, iPriority; if ((sQual!='') || (mpPodcastMediaFormats!='')) { HmsRegExMatch('(https?://.*/)', MediaResourceLink, gsUrlBase); sData = HmsDownloadURL(MediaResourceLink, 'Referer: '+mpFilePath); TStringList QLIST = TStringList.Create(); // Собираем список ссылок разного качества RE = TRegExpr.Create('RESOLUTION=\\d+x(\\d+).*?[\r\n](.+)$', PCRE_MULTILINE); if (RE.Search(sData)) do { sHeight = Format('%.5d', [StrToInt(RE.Match(1))]); sLink = HmsExpandLink(RE.Match(2), gsUrlBase); QLIST.Values[sHeight] = sLink; iPriority = HmsMediaFormatPriority(StrToInt(sHeight), mpPodcastMediaFormats); if ((iPriority >= 0) && (iPriority < iMinPriority)) { iMinPriority = iPriority; sSelectedQual = sHeight; } } while (RE.SearchAgain()); RE.Free; QLIST.Sort(); if (QLIST.Count > 0) { if (sQual=='low' ) sSelectedQual = QLIST.Names[0]; else if (sQual=='medium') sSelectedQual = QLIST.Names[Round((QLIST.Count-1) / 2)]; else if (sQual=='high' ) sSelectedQual = QLIST.Names[QLIST.Count - 1]; else if (HmsRegExMatch('(\\d+)', sQual, sQual)) { // Поиск ближайшего значения extended minDiff = 999999; for (i=0; i < QLIST.Count; i++) { extended diff = StrToInt(QLIST.Names[i]) - StrToInt(sQual); if (Abs(diff) < minDiff) { minDiff = Abs(diff); sSelectedQual = QLIST.Names[i]; } } } } if (sSelectedQual != '') MediaResourceLink = ' ' + QLIST.Values[sSelectedQual]; if (bQualLog) { sMsg = 'Доступное качество: '; for (i = 0; i < QLIST.Count; i++) { if (i>0) sMsg += ', '; sMsg += IntToStr(StrToInt(QLIST.Names[i])); // Обрезаем лидирующие нули } if (sSelectedQual != '') sSelectedQual = IntToStr(StrToInt(sSelectedQual)); else sSelectedQual = 'Auto'; sMsg += '. Выбрано: ' + sSelectedQual; HmsLogMessage(1, mpTitle+'. '+sMsg); } QLIST.Free; } } /////////////////////////////////////////////////////////////////////////////// // Получение ссылки на медиаресурс в переменную MediaResourceLink void GetLink() { if (LeftCopy(mpFilePath, 4)=='Info') ShowVideoInfo(); else if (LeftCopy(mpFilePath, 3)=='Err' ) VideoMessage(gsPodcastName, mpTitle); else if (HmsRegExMatch('/(serial|video)/.*?/iframe', mpFilePath, '')) GetLink_Moonwalk(mpFilePath); else if (HmsRegExMatch('youtube', mpFilePath, '')) GetLink_YouTube31(mpFilePath); else if (HmsRegExMatch('vk.com' , mpFilePath, '')) GetLink_VK(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 571 char gsUrlBase="https://ofx.xyz"; 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' , 'https://ofx.xyz&text='); ReplaceVarValue(sScript, 'gsSuggestRegExpr', '<span class="searchheading">(.*?)</span>'); ReplaceVarValue(sScript, 'gsSuggestMethod' , 'POST'); 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, 'Комедии' , "/komedia/"); CreateItem(Folder, 'Катастрофа' , "/katastrofa/"); CreateItem(Folder, 'Фантастика' , "/fantastika/"); CreateItem(Folder, 'Мелодрама' , "/melodrama/"); CreateItem(Folder, 'Детективы' , "/detectiv/"); CreateItem(Folder, 'Триллеры' , "/triller/"); CreateItem(Folder, 'Фэнтези' , "/fentezi/"); CreateItem(Folder, 'Драма' , "/drama/"); CreateItem(Folder, 'Ужасы' , "/yjasu/"); CreateItem(Folder, 'Аниме' , "/anime/"); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '03. Советское кино' ,'/sssr/'); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '04. Короткометражка','/korotkometrazhka/'); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '05. Мультфильмы' ,'/multfilms/'); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '06. Экранки' ,'/cam/'); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '07. Новинки в кино' ,'/novinki/'); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '08. Документальный' ,'/documental/'); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '09. Эротика' ,'/erotik/'); Folder[mpiPodcastParameters] = '--group=alph'; Folder = CreateItem(FolderItem, '10. Исторический' ,'/istoric/'); Folder[mpiPodcastParameters] = '--group=alph'; HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnTotalItems)); } 572 C++Script 51 630f11abfa1fb60e7aae8a24e11e264f 00. Поиск 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 1 700 2 553 2 42 3 35 42918,6461111111 215 -mpCreateDate 93 42918,646145625 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 531 Нет скрипта 522 0 570 0 245 630f11abfa1fb60e7aae8a24e11e264f 32 290d864e81195c54ef4032ba8e024224 -SearchCommands 630f11abfa1fb60e7aae8a24e11e264f 515 2 512 2 532 2 700 2 553 2 42 3 4 "Набрать текст" 35 42918,6454282407 200 5 500 // Var 07.01.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://www.google.ru/complete/search?sclient=psy-ab&q='; char gsSuggestResultCut= ''; char gsSuggestRegExpr = '\\["(.*?)",'; char gsSuggestMethod = 'GET'; int gnSuggestNoUTFEnc = 0; 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.IsFolder || (Item[mpiFilePath]!='')) 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.IsFolder || (Item[mpiFilePath]!='')) 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)) { sText = gsTextSearch; if (gnSuggestNoUTFEnc==0) sText = HmsUtf8Encode(sText); // Если не указано не кодировать в UTF - кодируем sText = HmsHttpEncode(sText); // Если есть ключ <TEXT> в запросе - заменяем его на значение набранного текста, иначе просто добавляем в конец if (Pos('<TEXT>', gsSuggestQuery)>0) gsSuggestQuery = ReplaceStr(gsSuggestQuery, '<TEXT>', sText); else gsSuggestQuery = gsSuggestQuery + sText; HmsRegExMatch2('https?://(.*?)(/.*)', gsSuggestQuery, sUrlServer, sRequestPage); if (gsSuggestMethod=='POST') HmsRegExMatch2('^(.*?)\\?(.*)', sRequestPage, sRequestPage, sPostData); sHeaders = 'http://'+sUrlServer+'/\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'+ '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, 80, 0, '', 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 -mpCreateDate 93 42918,646145625 245 290d864e81195c54ef4032ba8e024224 53 f978010cefca2c91bee58d18101c997d https://ofx.xyz/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 01. Последние поступления 35 42918,6454166667 215 -35 527 --group=alph 93 42918,646145625 525 43009,8123512037 51 221b2328d04a9d99730a9a2edadf61ae 02. Категории 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 35 42918,6447222222 215 -35 527 --group=alph 93 42918,646145625 53 59726aa6f1d6fcf0ae86dcb8ab6fed3d https://ofx.xyz/boevik/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Боевики 35 42918,6440277778 215 -35 93 42918,646145625 53 84c7156e50d578a97fa59cf317b83545 https://ofx.xyz/komedia/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Комедии 35 42918,6433333333 215 -35 93 42918,646145625 53 a6da4b8330c4949395e30e5c1bc78edd https://ofx.xyz/katastrofa/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Катастрофа 35 42918,6426388889 215 -35 93 42918,646145625 53 8fda22fe64de22566bc84675684fe4f5 https://ofx.xyz/fantastika/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Фантастика 35 42918,6419444444 215 -35 93 42918,646145625 53 3101bc7d18366ec648ceb3dd0e3ef647 https://ofx.xyz/melodrama/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Мелодрама 35 42918,64125 215 -35 93 42918,646145625 53 39a4742ab47e45e099227963f1170623 https://ofx.xyz/detectiv/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Детективы 35 42918,6405555556 215 -35 93 42918,646145625 53 7410d350477081f01d07123f16e0e689 https://ofx.xyz/triller/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Триллеры 35 42918,6398611111 215 -35 93 42918,646145625 53 99f10d4030b01d98b84c83600c89d1b5 https://ofx.xyz/fentezi/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Фэнтези 35 42918,6391666667 215 -35 93 42918,646145625 53 384c094a5485266032e9bd90c83ea17f https://ofx.xyz/drama/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Драма 35 42918,6384722222 215 -35 93 42918,646145625 53 c98fc9516d2b279a34d2f800a0b114b3 https://ofx.xyz/yjasu/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Ужасы 35 42918,6377777778 215 -35 93 42918,646145625 53 cbf5f6518a1beff37562648239b20e3c https://ofx.xyz/anime/ 221b2328d04a9d99730a9a2edadf61ae 515 2 512 2 532 2 700 2 553 2 42 3 4 Аниме 35 42918,6370833333 215 -35 93 42918,646145625 53 5496c888828e88b70474654e0d69da8b https://ofx.xyz/sssr/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 03. Советское кино 35 42918,6363888889 215 -35 527 --group=alph 93 42918,646145625 525 43009,812410463 53 62e36fc86b1e4ee2cbb8fb01ccefc3d4 https://ofx.xyz/korotkometrazhka/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 04. Короткометражка 35 42918,6356944444 215 -35 527 --group=alph 93 42918,646145625 53 4bf3d57e2eee9c572f7631e083d9de2a https://ofx.xyz/multfilms/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 05. Мультфильмы 35 42918,635 215 -35 527 --group=alph 93 42918,646145625 525 42980,7107894329 53 7f65b18ec38df1a0dfa6d476ad62851a https://ofx.xyz/cam/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 06. Экранки 35 42918,6343055556 215 -35 527 --group=alph 93 42918,646145625 525 42980,7816471528 53 4c0b69305095d757a8e0eef4815043f5 https://ofx.xyz/novinki/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 07. Новинки в кино 35 42918,6336111111 215 -35 527 --group=alph 93 42918,646145625 525 42980,7204808218 53 f49f869dfe6bea23a85dd09e61f36682 https://ofx.xyz/documental/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 08. Документальный 35 42918,6329166667 215 -35 527 --group=alph 93 42918,646145625 53 208fec81ff8d3628ded8b9106e16370c https://ofx.xyz/erotik/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 09. Эротика 35 42918,6322222222 215 -35 527 --group=alph 93 42918,646145625 53 397437b5ab26bc55c05a7f9bb65b6425 https://ofx.xyz/istoric/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 10. Исторический 35 42918,6315277778 215 -35 527 --group=alph 93 42918,646145625 53 5b875b13-2e29-4ed7-b745-4af316ec622f https://ofx.xyz/serials/ 6591a5c8-cebd-4e3d-813c-7d4d05b538e0 515 2 512 2 532 2 700 2 553 2 42 3 4 11. Сериалы 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 522 0 245 5b875b13-2e29-4ed7-b745-4af316ec622f 93 42980,7293580787 525 43010,6201436343