3
51
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
-ScienceAndEducation
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
4
Наука и образование
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
0
245
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
215
mpTitle
550
int LOG = 0; // Вывод сообшений в лог окно для замера производительности
string gsUrlBase="", gsVal; int gnMaxPages=20, gnMaxInGroup=100, gnTotalItems=0; int gnCacheDays=1, gnLongCacheDays=10;
TDateTime gStart=Now; bool gbQualityLog=false, gbNumerating=false;
string gsForumPost = "f=20&t=3697", // Тема и пост форума homemediaserver.ru, где выложен подкаст (для проверки обновлений)
gsAPIurl = 'https://www.googleapis.com/youtube/v3/%s?key=AIzaSyAdHF0s4Kl3LOTnEAnLaB-49-zRGckPzi4&maxResults=50&gl=ru®ionCode=ru&hl=ru&%s';
// Регулярные выражения для поиска на странице блоков с информацией о видео
string
gsPatternBlock = '', // Блок с информацией о видео
gsCutPage = '', // Обрезка загруженной страницы
gsPatternTitle = '', // Название
gsPatternLink = '', // Ссылка
gsPatternImg = '', // Картинка
gsPatternDesc = '', // Описание
gsPatternTime = '', // Длительность
gsPatternYear = '', // Год добавления
gsPatternGenre = '', // Жанр
gsSkipCond = '', // Условие пропуска блока
gsFolderCond = '', // Условие создания папки, а не ссылки
gsPatternPages = '', // Регулярка поиска максимального номера страницы для дозагрузки
gsPagesParams = '&page=%d'; // формат добавочного параметра номера страниц для дозагрузки
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки-ошибки
void CreateErrorItem(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem('Err'+IntToStr(PodcastItem.ChildCount), PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/symbol-error.png';
}
///////////////////////////////////////////////////////////////////////////////
// Создание папки или подкаста
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; // Возвращаем созданный объект
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки на видео
THmsScriptMediaItem CreateMediaItem(THmsScriptMediaItem Folder, string sTitle, string sLink, string sImg, string sTime='') {
THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID);
Item[mpiTitle ] = sTitle;
Item[mpiThumbnail ] = sImg;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
Item[mpiTimeLength] = sTime;
gnTotalItems++;
return Item;
}
////////////////////////////////////////////////////////////////////////////////
// Процедура формирования видеосообщения
void ShowInfo(char sLink='', char sImg='', char prefix='', int mode=0) {
string sData, sTitle, sInfo='', sCateg='', sDescr='', sVal, sID; TJsonObject JSON;
if (sLink!='') {
if (Pos('postnauka.ru', sLink)>0) {
HmsRegExMatch('.*/(\\d+)', sLink, sID);
sData = HmsDownloadURL('https://postnauka.ru/api/v1/posts/'+sID+'?expand=content,youtube,date,tagscloud,read_more,interesting,partner', 'Referer: '+sLink, true);
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sData);
sTitle = HmsHtmlToText(JSON.S["title" ], 65001);
sCateg = HmsHtmlToText(JSON.S["date" ], 65001);
sDescr = HmsHtmlToText(JSON.S["content" ], 65001);
sInfo = HmsHtmlToText(JSON.S["description"], 65001);
} finally { JSON.Free; }
} else {
sData = HmsUtf8Decode(HmsDownloadUrl(sLink, 'Referer: '+sLink, true));
sData = ReplaceStr(sData, '\n', ' ');
}
if (sTitle!='') {
sTitle = HmsHtmlToText(sTitle);
sCateg = HmsHtmlToText(sCateg);
sInfo = HmsHtmlToText(sInfo );
sDescr = HmsHtmlToText(sDescr);
sDescr = ReplaceStr(sDescr, '_blockquote_', '<f:constani.ttf>');
sDescr = ReplaceStr(sDescr, '_eblockquote_', '</f> ');
sDescr = ReplaceStr(sDescr, '_author_', '<f:Univers_Bold.ttf>');
MediaResourceLink = GenerateVideoInfo('postnauka', sTitle, sInfo, sCateg, sDescr, sImg, mode);
}
} else {
TStrings INFO = TStringList.Create();
INFO.Text = PodcastItem[1001001];
sTitle = INFO.Values['Title' ];
sCateg = INFO.Values['Categ' ];
sInfo = INFO.Values['Info' ];
sDescr = INFO.Values['Descr' ];
sImg = INFO.Values['Poster'];
INFO.Free();
MediaResourceLink = GenerateVideoInfo(prefix, sTitle, sInfo, sCateg, sDescr, sImg, mode);
}
}
////////////////////////////////////////////////////////////////////////////////
// Обновление подкаста
void UpdatePodcast() {
string sTitle, sData, sVal, sLink, sHtml, sMsg, sFile, sDir, sRootPath, sDescr='';
TXMLDocument xmlDoc; TXMLItem xmlItem; TStrings FILELIST; int i;
THmsScriptMediaItem Item, RootPodcast = PodcastItem;
sTitle = 'Обновление подкаста "Наука и образование"';
sRootPath = '-ScienceAndEducation';
// Поиск корневой папки подкаста
while ((RootPodcast[mpiFilePath]!=sRootPath) && (RootPodcast.ItemParent!=nil)) RootPodcast = RootPodcast.ItemParent;
if (RootPodcast[mpiFilePath]!=sRootPath) { ShowVideoMessage('Не найдена корневая папка подкаста с путём '+sRootPath, sTitle); return; }
// Загружаем страницу форума, где выложен данный подкаст
sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml));
// Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение
if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml);
// Пытаемся получить комментарий к файлу = версию подкаста на форуме
if (!HmsRegExMatch('(/download/file.php\\?id=.*?)"', sHtml, sLink)) {
ShowVideoMessage('Невозможно найти ссылку на скачивание файла.', sTitle, 1);
return;
}
sLink = HmsExpandLink(sLink, 'http://homemediaserver.ru/forum'); // Дополняем относительную ссылку до полной
sFile = ExtractShortPathName(HmsTempDirectory)+'\\update.zip'; // Файл, куда скачивается новый подкаст
sDir = ExtractShortPathName(HmsTempDirectory)+'\\update'; // Каталог, куда распаковывается файл
sMsg = '<c:#E22>При выполнении обновления возникла ошибка. Обновление не выполнено!'; // Сообщение, если возникнет ошибка
FILELIST = TStringList.Create(); xmlDoc = TXMLDocument.Create();
try {
while (true) {
if (!HmsDownloadURLToFile(sLink, sFile)); {sMsg='Неудаётся скачать файл обновления' ; break;}
if (!HmsExtractFiles(sFile, sDir, true)); {sMsg='Неудаётся распаковать файл обновления'; break;}
HmsGetFileList(sDir, FILELIST, '*.hdf'); // Получаем список файлов с расширением .hdf в FILELIST
if (FILELIST.Count < 1) {sMsg='В скачанном архиве нет нового файла подкаста'; break;}
xmlDoc.LoadFromFile(FILELIST[0]); // Загружаем первый файл в списке как TXMLDocument
LoadPodcastFromXML(xmlDoc.Root, RootPodcast); // Загружаем новый подкаст (применяем обновлнеие)
sMsg = '<s:'+IntToStr(Round(cfgTranscodingScreenHeight/9))+'>Обновление выполнено! </s>'; // Если мы дошли до сюда без Exception, значит всё прошло норм
PodcastItem[mpiTitle ] = 'Подкаст обновлён';
PodcastItem[mpiFilePath ] = 'Info';
PodcastItem[mpiThumbnail] = 'http://wonky.lostcut.net/vids/info.jpg';
sDescr = '||Было обновлено (добавлено) '+IntToStr(gnTotalItems)+' элементов подкаста.'+
'|На некоторых устройствах необходимо выйти из подкаста вообще и обновить текушую ветку подкаста.'+
'|Помните, что выставленные или убранные ключи в поле "Дополнительные параметры" были сброшены на "по-умолчанию" (как выставлено в скачанном подкасте).'+
'|Самостоятельно добавленные ссылки не удалены, только добавлены новые. Если были ссылки изменены, могут появиться "дубликаты".'+
'|Если что-то не так при обновлении - сообщайте автору подкаста.';
HmsDatabaseAutoSave();
break;
}
} finally { FILELIST.Free(); TXMLDocument.Free(); }
ShowVideoMessage(sMsg, sTitle, 0, sDescr); // Показываем сообщение
HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания
}
////////////////////////////////////////////////////////////////////////////////
// Загрузка подкаста из XML
void LoadPodcastFromXML(TXMLItem xmlParentItem, Variant ParentItem, int nNest=0) {
int i, n; TXMLItem xmlItem, xmlCollection, xml; string sClassID, sItemPath, sName, sItemID; THmsScriptMediaItem Item;
// Получаем коллекцию 'Properties', если не нашли - то это не то, что нужно
xmlCollection = xmlParentItem.Find('Properties'); if (xmlCollection==nil) return;
for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех параметров и применяем их к ParentItem
xmlItem = xmlCollection.Items[i];
n = StrToIntDef(xmlItem.ChildValues["ID"], 0); if (n==0) continue;
if ((n==245) || (n==517)) continue; // Parent ItemID и настройки приоритета качества пропускаем
if ((nNest==0) && (n==4)) continue; // Не меняем имя подкаста верхнего уровня
ParentItem[n] = xmlItem.ChildValues["Value"];
}
xmlCollection = xmlParentItem.Find('ChildItems'); if (xmlCollection==nil) return;
for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех дочерних элементов (подпапок) и добавляем их в ParentItem
xmlItem = xmlCollection.Items[i];
sClassID = xmlItem.ChildValues["ClassID" ];
sItemPath = xmlItem.ChildValues["ItemPath"];
sItemID = xmlItem.ChildValues["ItemID" ];
if (sItemPath=='') {
// Путь пустой, ну тогда ищем существующий сначала по ItemID и, если не найдём, по имени
sName=''; Item=nil;
for (n=0; n<ParentItem.ChildCount; n++) if (ParentItem.ChildItems[n].ItemID==sItemID) {Item=ParentItem.ChildItems[n]; break;}
if (Item==nil) {
xml = xmlParentItem.Find('Properties'); if (xml==nil) continue;
for (n=0; n<xml.Count; n++) if (xml.Items[n].ChildValues["ID"]=='4') {sName=xml.Items[n].ChildValues["Value"]; break;}
if (sName=='') continue;
Item = ParentItem.FindItemByProperty(mpiTitle, sName);
}
if (Item==nil) Item = ParentItem.AddFolder(sName, false, StrToInt(sClassID));
Item[mpiFilePath] = '';
} else {
if (sClassID=='5') Item = HmsCreateMediaItem(sItemPath, ParentItem.ItemID);
else Item = ParentItem.AddFolder(sItemPath, false, StrToInt(sClassID));
}
if ((Item!=ParentItem) && (Item!=nil)) LoadPodcastFromXML(xmlItem, Item, nNest+1);
}
gnTotalItems++;
}
////////////////////////////////////////////////////////////////////////////////
// Формирование видео сообщения
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[1001001] = INFO.Text;
INFO.Free();
ShowInfo();
}
///////////////////////////////////////////////////////////////////////////////
// Вывод вместо видео заданного сообщения
bool VideoMessage(char sCaption, char sMessage) {
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 RemoveBlock(char &sData, char sPattern) {
TRegExpr RE = TRegExpr.Create(sPattern);
try {
if (RE.Search(sData)) do {
RE.Replace('');
sData = RE.Subject;
} while (RE.SearchAgain());
} finally { RE.Free(); }
}
////////////////////////////////////////////////////////////////////////////////
// Генерирование картинок и строки для ffmpeg
string GenerateVideoInfo(char prefix, char sTitle, char sInfo='', char sCateg='', char sDescr='', char sImg='', int mode=0, char sDirID='') {
char sHtml, sPost, sVal, sCol, sLink, sData, sPos, sImagesDir;
int i, n, nSeconds, nSecDel, nMaxImages, nMaxTextLength, nPage=0; double nH, nW;
char sFileImage, sCmd, sColor, sTime; TRegExpr reChannel, reCast;
int xMargin=15, yMargin=15;
nSeconds = 0; nMaxImages = 4; nMaxTextLength = 0;
if (HmsRegExMatch('--xmargin=(\\d+)', mpPodcastParameters, sVal)) xMargin=StrToInt(sVal);
if (HmsRegExMatch('--ymargin=(\\d+)', mpPodcastParameters, sVal)) yMargin=StrToInt(sVal);
if (Pos('--lq', mpPodcastParameters)>0) {
nH = cfgTranscodingScreenHeight / 2;
nW = cfgTranscodingScreenWidth / 2;
} else if (HmsRegExMatch2('--pr=(\\d+)x(\\d+)', mpPodcastParameters, sVal, sPos)) {
nH = StrToInt(sPos);
nW = StrToInt(sVal);
} else {
nH = cfgTranscodingScreenHeight;
nW = cfgTranscodingScreenWidth;
}
if (sDirID=='') sDirID = 'info_'+PodcastItem.ItemID;
sImagesDir = IncludeTrailingBackslash(ExtractShortPathName(HmsTempDirectory))+Trim(prefix);
sImagesDir = IncludeTrailingBackslash(sImagesDir)+sDirID;
ForceDirectories(sImagesDir);
sFileImage = IncludeTrailingBackslash(sImagesDir)+'info_';
sPost = '';
TStrings INFO = TStringList.Create();
INFO.Values['prfx' ] = prefix;
INFO.Values['title'] = sTitle;
INFO.Values['info' ] = sInfo;
INFO.Values['categ'] = sCateg;
INFO.Values['descr'] = sDescr;
INFO.Values['xpic' ] = '15';
INFO.Values['ypic' ] = '15';
INFO.Values['w' ] = IntToStr(Round(nW));
INFO.Values['h' ] = IntToStr(Round(nH));
INFO.Values['xm' ] = IntToStr(xMargin);
INFO.Values['ym' ] = IntToStr(yMargin);
INFO.Values['fz' ] = '3';
INFO.Values['fzdescr'] = IntToStr(Round(nH/22));
INFO.Values['fztitle'] = IntToStr(Round(nH/18));
INFO.Values['fzinfo' ] = IntToStr(Round(nH/25));
if (mode==1) {
INFO.Values['fzdescr'] = IntToStr(Round(nH/16));
INFO.Values['fztitle'] = IntToStr(Round(nH/10));
INFO.Values['fzinfo' ] = IntToStr(Round(nH/14));
INFO.Values['xm'] = IntToStr(Round(nH/14));
} else if ((mode==2) || (mode==3)) {
INFO.Values['ct' ] = '000';
INFO.Values['ctitle'] = '822';
INFO.Values['cinfo' ] = '223';
INFO.Values['ccateg'] = '255';
INFO.Values['fz'] = '6';
INFO.Values['ns'] = '1';
INFO.Values['bg'] = './backgrounds/white.png';
INFO.Values['wpic' ] = IntToStr(Round(nH/3));
if (mode==2) INFO.Values['wpic'] = IntToStr(Round(nH/2));
}
if (sImg !='') {
INFO.Values['urlpic'] = sImg;
INFO.Values['wpic' ] = IntToStr(Round(nH/2));
}
n = 0; TStrings FILELIST = TStringList.Create();
try {
HmsGetFileList(sImagesDir, FILELIST, '*.jpg');
n = FILELIST.Count;
} finally { FILELIST.Free(); }
if (n<4) {
// Получаем ссылки на сформированные картинки, пока в параметрах встречаем lastpos=N
sPos = '0'; nPage = 0;
do {
sColor = ''; sTime = ''; nPage++;
if (nPage>1) {
sData = Copy(sDescr, 1, StrToInt(sPos)); // Блок, успевший попасть на экран
// Определяем последний использующийся цвет
HmsRegExMatch('.*(\\d{2}:\\d{2}\\s*?-\\s*?\\d{2}:\\d{2})', sData, sTime, 1, PCRE_SINGLELINE);
sTime += ' ... ';
}
sDescr = sColor+sTime+Trim(Copy(sDescr, StrToInt(sPos), 999999));
INFO.Values['descr'] = sDescr;
sPost = '';
for (n=0; n<INFO.Count; n++) sPost += '&'+Trim(INFO.Names[n])+'='+HmsHttpEncode(INFO.Values[INFO.Names[n]]);
sLink = HmsSendRequestEx('wonky.lostcut.net', '/videopreview.php', 'POST',
'application/x-www-form-urlencoded', '', sPost, 80, 0, '', true);
if (LeftCopy(sLink, 4)!='http') {HmsLogMessage(2, 'Ошибка получения картинки видеоинформации'); return;}
HmsDownloadURLToFile(sLink, sFileImage);
for (n=0; n<5; n++) { nSeconds++; CopyFile(sFileImage, sFileImage+Format('%.3d.jpg', [nSeconds]), false); }
if (nPage>=nMaxImages) break;
} while (HmsRegExMatch2('^(.*?)\\?lastpos=(\\d+)', sLink, sLink, sPos));
}
INFO.Free();
char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3';
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'"';
} except { sFileMP3=''; }
sLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -r 30 -pix_fmt yuv420p ', [sFileMP3, sFileImage+'%03d.jpg']);
PodcastItem[mpiTimeLength] = HmsTimeFormat(nSeconds)+'.000';
return sLink;
}
////////////////////////////////////////////////////////////////////////////////
// Загрузка страниц, поиск и создание ссылок univer.tv и проч.
void LoadPagesAndCreateLinksUniversal(char sMainLink, THmsScriptMediaItem Parent) {
char sHtml, sPage, sLink, sTitle, sVal, sYear, sTime, sDesc, sImg, sGenre;
TRegExpr re; bool bGroup=false; THmsScriptMediaItem Item, Folder=Parent;
int i, n, nPages=0, iCnt=0, nGrp=0, nCount; char sGrp=""; bool bFolderMode=false;
if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal);
if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal);
if (HmsRegExMatch('--pages=(\\d+)' , mpPodcastParameters, sVal)) nPages = StrToInt(sVal);
bFolderMode = (Pos('--foldermode', mpPodcastParameters)>0);
sHtml = HmsDownloadURL(sMainLink, 'Referer: '+gsUrlBase, true);
if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal, 1, PCRE_SINGLELINE))
nPages = StrToInt(sVal);
if (gsCutPage!='') HmsRegExMatch(gsCutPage, sHtml, sHtml, 1, PCRE_SINGLELINE);
sHtml = HmsUtf8Decode(sHtml);
// --- Дозагрузка страниц ---------------------------------------------------
if (nPages > gnMaxPages) nPages = gnMaxPages;
for (i=2; i <= nPages; i++) {
HmsSetProgress(Trunc(i*100/nPages));
HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages]));
sPage = HmsUtf8Decode(HmsDownloadURL(sMainLink+Format(gsPagesParams, [i]), 'Referer: '+gsUrlBase, true));
HmsRegExMatch(gsCutPage, sPage, sPage, 1, PCRE_SINGLELINE);
sHtml+= HmsUtf8Decode(sPage);
if (HmsCancelPressed()) break;
}
HmsHideProgress();
// --------------------------------------------------------------------------
sHtml = ReplaceStr(sHtml, '\n', ' ');
Folder.DeleteChildItems();
// Создание ссылок
re = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE);
try {
// Определяем, если блоков в загруженном более чем gnMaxInGroup, включаем группировку
i = 0; if (re.Search(sHtml)) do i++; while (re.SearchAgain()); // Подсчет блоков
bGroup = (i>gnMaxInGroup); nCount = 0;
if (re.Search(sHtml)) do {
sLink=""; sTime=""; sDesc=""; sYear=""; sImg=""; sGenre="";
if ((gsSkipCond!='') && HmsRegExMatch(gsSkipCond, re.Match, '')) continue;
if (gsPatternTitle!='') HmsRegExMatch(gsPatternTitle, re.Match, sTitle);
if (gsPatternLink !='') HmsRegExMatch(gsPatternLink , re.Match, sLink );
if (gsPatternImg !='') HmsRegExMatch(gsPatternImg , re.Match, sImg );
if (gsPatternDesc !='') HmsRegExMatch(gsPatternDesc , re.Match, sDesc );
if (gsPatternTime !='') HmsRegExMatch(gsPatternTime , re.Match, sTime );
if (gsPatternGenre!='') HmsRegExMatch(gsPatternGenre, re.Match, sGenre);
if (gsPatternYear !='') HmsRegExMatch(gsPatternYear , re.Match, sYear );
if (Length(Trim(sLink))<4) continue;
sLink = HmsExpandLink(sLink, gsUrlBase); nCount++;
if (sImg!='') sImg = HmsExpandLink(sImg , gsUrlBase);
sTitle = ReplaceStr(HmsHtmlToText(HmsUtf8Decode(sTitle)), "/", "-");
sTitle = ReplaceStr(ReplaceStr(sTitle, '\n', ' '), '\r', '');
sDesc = Trim(HmsHtmlToText(HmsUtf8Decode(sDesc )));
sGenre = Trim(HmsHtmlToText(HmsUtf8Decode(sGenre)));
sTime = Trim(ReplaceStr(sTime, ' ', ''));
if (HmsRegExMatch('^0?:(.*)' , sTime, sTime)) sTime = '00:'+Trim(sTime);
if (sTime=='') sTime = '00:40:00';
if ((sImg=='') && (mpThumbnail!='')) sImg = mpThumbnail;
if (sTitle=='') sTitle = mpTitle;
if (gbNumerating)
if (HmsRegExMatch('^[\\d\\.]+(.*)', sTitle, sTitle)) sTitle = Format('%.2d %s', [nCount, sTitle]);
if (bGroup) {
iCnt++; if (iCnt>=gnMaxInGroup) { nGrp++; iCnt=0; }
sGrp = Format('%.2d', [nGrp]);
Folder = Parent.AddFolder(sGrp, true);
Folder[mpiCreateDate ] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
Folder[mpiFolderSortOrder] = -mpiCreateDate;
}
if ((gsFolderCond!='') && HmsRegExMatch(gsFolderCond, re.Match, '')) {
if (Pos('lektorium.tv', mpFilePath)>0) Folder = Parent.AddFolder('Курсы');
Item = Folder.AddFolder(sLink);
} else {
Item = HmsCreateMediaItem(sLink, Folder.ItemID);
if (sImg=='') sImg = 'http://wonky.lostcut.net/icons/play.png';
}
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gStart,0,-gnTotalItems,0,0));
Item[mpiTimeLength] = sTime+'.000';
Item[mpiThumbnail ] = sImg;
Item[mpiComment ] = sDesc;
Item[mpiYear ] = sYear;
Item[mpiGenre ] = sGenre;
gnTotalItems++;
if ((sImg=='')||(sTime=='')) GetKnownVideoInfo(Item);
} while (re.SearchAgain());
} finally { re.Free(); }
}
////////////////////////////////////////////////////////////////////////////////
// Получение недостающей информации о видео
void GetKnownVideoInfo(THmsScriptMediaItem Item) {
char sData, sVal, sID='', sLink = Item[mpiFilePath];
if (Pos('youtube.com', sLink)>0) {
if (!HmsRegExMatch('[\\?&]v=([^&]+)' , sLink, sID))
HmsRegExMatch('/(?:embed|v)/([^\\?]+)', sLink, sID);
if (sID!='') {
sData = HmsDownloadUrl('http://gdata.youtube.com/feeds/api/videos/'+sID, '', true);
if (HmsRegExMatch("duration='(\\d+)'", sData, sVal)) PodcastItem[mpiTimeLength] = HmsTimeFormat(StrToInt(sVal))+'.000';
}
}
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки на vk.com
bool GetLink_VK(string sLink) {
string sHtml, sVal, host, uid, vkid, vtag, max_hd, no_flv, res;
string 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: '+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: '+sLink, 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));
VideoMessage('', 'VK.COM СООБЩАЕТ:\n\n'+HmsHtmlToText(sLink));
} else if (HmsRegExMatch("ajax.preload\\('al_video.php.*?src=\\\"(.*?)\\\"", sHtml, sLink)) {
sLink = HmsJsonDecode(sLink);
if (LeftCopy(sLink, 2)=="//") sLink = "http:" + Trim(sLink);
return CheckKnownLinks(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 (LeftCopy(host, 4)!='http') host = "http://cs"+host+".vk.me/";
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;
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки на Youtube
bool GetLink_Youtube31(string sLink) {
string sData, sVideoID='', sMaxHeight='', sAudio='', sSubtitlesLanguage='ru',
sSubtitlesUrl, sFile, sVal, sMsg, sConfig, sHeaders, ttsDef;
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(1, 'Невозможно получить Video ID в ссылке Youtube'); return true; }
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 ((Trim(mpTimeLength)=='') || (RightCopy(mpTimeLength, 6)=='00.000')) {
if (HmsRegExMatch2('itemprop="duration"[^>]+content="..(\\d+)M(\\d+)S', sData, sVal, sMsg)) {
PodcastItem[mpiTimeLength] = StrToInt(sVal)*60+StrToInt(sMsg);
} else {
sVal = HmsDownloadURL('http://www.youtube.com/get_video_info?html5=1&c=WEB&cver=html5&cplayer=UNIPLAYER&hl=ru&video_id='+sVideoID, sHeaders, true);
if (HmsRegExMatch('length_seconds=(\\d+)', sData, sMsg))
PodcastItem[mpiTimeLength] = StrToInt(sMsg);
}
}
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);
return true;
} else {
sData = HmsJsonDecode(sData);
HmsRegExMatch('"url":"(.*?)"', sData, MediaResourceLink);
return true;
}
}
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\\caption_tracks'], 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;
} else if ((height>=selHeight) && (height<= maxHeight) && (itag in ([18,22,37,38,82,83,84,85]))) {
// Если выоста такая же, но формат MP4 - то выбираем именно его (делаем приоритет MP4)
MediaResourceLink = sLink; selHeight = height;
}
}
}
if (bAdaptive && (sAudio!='')) MediaResourceLink = '-i "'+Trim(MediaResourceLink)+'" -i "'+Trim(sAudio)+'"';
}
// Если есть субтитры и в дополнительных параметрах указано их показывать - загружаем
if (bSubtitles && (ttsUrl!='')) {
string sTime1, sTime2; float nStart, nDur;
sLink = ''; n = WordCount(ttsUrl, ',');
for (i=1; i <= n; i++) {
sData = ExtractWord(i, ttsUrl, ',');
sType = HmsPercentDecode(ExtractParam(sData, 'lc', '', '&'));
sVal = HmsPercentDecode(ExtractParam(sData, 'u' , '', '&'));
if (sType == 'en') sLink = sVal;
if (sType == sSubtitlesLanguage) { sLink = sVal; break; }
}
if (sLink != '') {
sData = HmsDownloadURL(sLink, sHeaders, true);
sMsg = ''; i = 0;
RegEx = TRegExpr.Create('(<(text|p).*?</(text|p)>)', PCRE_SINGLELINE); // Convert to srt format
try {
if (RegEx.Search(sData)) do {
if (HmsRegExMatch('start="([\\d\\.]+)', RegEx.Match, sVal)) nStart = StrToFloat(ReplaceStr(sVal, '.', ','))*1000;
else if (HmsRegExMatch('t="(\\d+)' , RegEx.Match, sVal)) nStart = StrToFloat(sVal);
if (HmsRegExMatch('dur="([\\d\\.]+)' , RegEx.Match, sVal)) nDur = StrToFloat(ReplaceStr(sVal, '.', ','))*1000;
else if (HmsRegExMatch('d="(\\d+)' , RegEx.Match, sVal)) nDur = StrToFloat(sVal);
sTime1 = HmsTimeFormat(Int(nStart/1000))+','+RightCopy(Str(nStart), 3);
sTime2 = HmsTimeFormat(Int((nStart+nDur)/1000))+','+RightCopy(Str(nStart+nDur), 3);
sMsg += Format("%d\n%s --> %s\n%s\n\n", [i, sTime1, sTime2, HmsHtmlToText(HmsHtmlToText(RegEx.Match(0), 65001))]);
i++;
} while (RegEx.SearchAgain());
} finally { RegEx.Free(); }
sFile = HmsSubtitlesDirectory+'\\Youtube\\'+PodcastItem.ItemID+'.'+sSubtitlesLanguage+'.srt';
HmsStringToFile(sMsg, sFile);
PodcastItem[mpiSubtitleLanguage] = sFile;
}
}
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки ресурса видео univertv.ru
bool GetLink_TheoryandPractice(string sLink) {
string sHtml, sData, sTitle, sVal, sID, sHost, sWar, sSubId, sFile;
sHtml = HmsDownloadUrl(sLink, 'Referer: '+sLink, true);
if (HmsRegExMatch('data-id="(.*?)"[^>]+data-provider="youtube"', sHtml, sID)) {
GetLink_Youtube31('http://www.youtube.com/watch?v='+sID);
return;
//} else if (HmsRegExMatch('<video[^>]+src="(.*?)"', sHtml, MediaResourceLink))
// return;
} else if (HmsRegExMatch('<iframe[^>]+class=[\'"]video[\'"][^>]+src=[\'"](.*?)[\'"]', sHtml, sLink)) {
return CheckKnownLinks(sLink);
} else {
VideoMessage('Наука и образование', 'Видео "'+mpTitle+'" на странце ресурса "Теории и практики" удалено или недоступно.|Нам всем очень жаль :(');
}
return true;
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки c video.yandex.ru
bool GetLink_VideoYandex(char sLink) {
char sHtml, sUser, sVideoId = '', sToken;
if (!HmsRegExMatch('video.yandex.ru/.*?/(.*?)/', sLink, sUser)) {HmsLogMessage(2, mpTitle+' Не смог получить поле user в ссылке на файл видео video.yandex.ru'); return true;}
if (Pos('static.video.yandex.ru', sLink)>0) {
HmsRegExMatch('video.yandex.ru/[a-z]+/.*?/(.*?)/', sLink+'/', sVideoId);
} else if (HmsRegExMatch('video.yandex.ru/iframe/.*?/(.*?)/', sLink+'/', sVideoId)) {
} else {
if (LeftCopy(sLink, 4)!='http') sLink = 'http://' + Trim(sLink);
sHtml = HmsDownLoadUrl(sLink, 'Referer: '+sLink, true);
sHtml = ReplaceStr(sHtml, '\\/', '/');
HmsRegExMatch('video.yandex.ru/[a-z]+/.*?/(.*?)/', sHtml, sVideoId);
}
if (sVideoId=='') {HmsLogMessage(2, mpTitle+' Не смог получить поле VideoId в ссылке на файл видео video.yandex.ru'); return true;}
sHtml = HmsDownLoadUrl('http://static.video.yandex.ru/get-token/'+sUser+'/'+sVideoId, 'Referer: '+sLink, true);
if (!HmsRegExMatch('<token>(.*?)</token>', sHtml, sToken)) {HmsLogMessage(2, mpTitle+' Не смог получить token на файл видео в video.yandex.ru'); return true;}
sLink = 'http://streaming.video.yandex.ru/get/'+sUser+'/'+sVideoId+'/m450x334.flv?token='+sToken;
MediaResourceLink=sLink;
return true;
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки на rutube.ru ----
bool GetLink_RuTube(string sLink) {
string sData, sVideoId = '';
// Восполняем неуказанный протол http, если нужно
if (LeftCopy(sLink, 2)=='//' ) sLink = 'http:' + Trim(sLink);
if (LeftCopy(sLink, 4)!='http') sLink = 'http://' + Trim(sLink);
HmsRegExMatch('video.rutube.ru/([\\w\\d]{20,})', sLink, sVideoId);
HmsRegExMatch('rutube.ru/video/([\\w\\d]{20,})', sLink, sVideoId);
if (sVideoId == '') {
sData = HmsDownloadUrl(sLink, 'Referer: '+mpFilePath, true);
HmsRegExMatch('video.rutube.ru/([\\w\\d]{20,})', sLink, sVideoId);
HmsRegExMatch('rutube.ru/video/([\\w\\d]{20,})', sLink, sVideoId);
}
if (sVideoId != '') {
sLink = 'http://rutube.ru/api/play/options/' + sVideoId;
sLink+= '?format=json&no_404=true&sqr4374_compat=1&referer=' + HmsHttpEncode(mpFilePath) + '&_='+ReplaceStr(VarToStr(random), ',', '.');
sData = HmsDownloadUrl(sLink, 'Referer: '+mpFilePath, true);
if (HmsRegExMatch('(http[^">\']+m3u8[^"}>\']+)', sData, sLink)) {
MediaResourceLink = ' '+sLink;
return true;
}
}
HmsLogMessage(2, mpTitle+': не удалось получить ссылку на видео rutube.ru по '+sLink);
return false;
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки видео vimeo.com
bool GetLink_VimeoCom(char sLink) {
char sData, sID; bool bSuccess = false;
if (HmsRegExMatch('vimeo.com/(\\d+)', sLink, sID)) sLink = 'http://player.vimeo.com/video/'+sID;
sData = HmsRemoveLineBreaks(HmsDownloadUrl(sLink, 'Referer: '+sLink, true));
if (HmsRegExMatch('"duration":(\\d+)', sData, sID)) {
PodcastItem[mpiTimeLength] = HmsTimeFormat(StrToInt(sID))+'.000';
//mpTimeLength = PodcastItem[mpiTimeLength];
}
if (HmsRegExMatch('video/mp4[^}]+"url":"(.*?)"', sData, MediaResourceLink)) {
bSuccess = true;
} else if (HmsRegExMatch('"hls":{"all":"(http.*?)"', sData, sLink)) {
MediaResourceLink = ' '+sLink;
bSuccess = true;
} else if (HmsRegExMatch('"hls":{"url":"(http.*?)"', sData, sLink)) {
MediaResourceLink = ' '+sLink;
bSuccess = true;
} else {
HmsLogMessage(2, "Не удалось обнаружить ссылку на поток по ссылке c Vimeo.com");
}
return true;
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки ресурс видео univertv.ru
char ConvertSubtitlesJson2Srt(char sJsonData, int nIntroDuration=0) {
char sData='', sText, sStart, sEnd; TJsonObject jObject, JSON = TJsonObject.Create();
int i, nStart;
try {
JSON.LoadFromString(sJsonData);
for(i=0; i<JSON["captions"].Count; i++) {
jObject = JSON["captions"].AsArray[i];
nStart = jObject.I["startTime"]+nIntroDuration;
sStart = HmsTimeFormat(Int(nStart/1000))+',000';
sEnd = HmsTimeFormat(Int((nStart+jObject.I["duration"])/1000))+',000';
sText = jObject.S["content"];
sData += Format('%d\r\n%s --> %s\r\n%s\r\n\r\n', [i+1, sStart, sEnd, sText]);
}
} finally {
JSON.Free();
}
return sData;
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки ресурс видео univertv.ru
bool GetLink_UniverTV(char sLink) {
char sHtml, sData, sTitle, sVal, sID, sHost, sWar, sSubId, sFile;
MediaResourceLink = '';
//loadVideo(1, 10, 'http://univertv.ru', '160467', '2', '')
sHtml = HmsRemoveLineBreaks(HmsDownloadUrl(sLink, 'Referer: '+sLink, true));
if (!HmsRegExMatch3("loadVideo\\((\\d+),.*?,\\s'(.*?)',\\s*?'(\\d+)'", sHtml, sWar, sHost, sID)) return true;
if (sWar=='1') {
sData = HmsDownloadUrl(sHost+'/xml.php?id='+sID, 'Referer: '+sLink, true);
HmsRegExMatch("File=['\"](.*?)['\"]", sData, MediaResourceLink, 1, PCRE_CASELESS);
} else {
sData = HmsDownloadUrl(sHost+'/ajax.php?tpl=3&id='+sID, 'Referer: '+sLink, true);
HmsRegExMatch("(?:<iframe|<embed)[^>]+src=['\"](.*?)['\"]", sData, MediaResourceLink);
}
if (HmsRegExMatch("vu=(http[^\"'&]+)", sData, MediaResourceLink)) {
HmsRegExMatch("ti=(.*?)&", sData, sID);
sData = HmsDownloadUrl('http://www.ted.com/talks/subtitles/id/'+sID+'/lang/ru', 'Referer: http://www.ted.com/', true);
if (Trim(sData)!='') {
sHtml = HmsDownloadUrl('http://www.ted.com/talks/subtitleInfo/id/'+sID, 'Referer: http://www.ted.com/', true);
sVal = '0'; HmsRegExMatch('"introDuration":(\\d+)', sHtml, sVal);
sHtml = ConvertSubtitlesJson2Srt(sData, StrToInt(sVal));
sFile = IncludeTrailingBackslash(HmsSubtitlesDirectory)+'UniverTV\\'+PodcastItem.ItemID+'.srt';
HmsStringToFile(sHtml, sFile);
PodcastItem[mpiSubtitleLanguage] = sFile;
PodcastItem[mpiSubtitleList ] = sFile;
}
}
return CheckKnownLinks(MediaResourceLink);
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки видео ресурса nkj.ru
bool GetLink_NkjRu(char sLink) {
char sData, sID='', sVal, sTime=''; bool bSuccess=false;
if (HmsRegExMatch('\\?num=(\\d+)', sLink, sID)) {
sLink = 'http://www.nkj.ru/nkjnew/templates/xml/xml_video.php?num='+sID;
sData = HmsUtf8Decode(HmsDownloadUrl(sLink, 'Referer: '+sLink, true));
bSuccess = HmsRegExMatch('<file>(.*?)</file>', sData, MediaResourceLink);
} else {
sData = HmsUtf8Decode(HmsDownloadUrl(sLink, 'Referer: '+sLink, true));
if (HmsRegExMatch('<(?:iframe|embed)[^>]+src=["\'](.*?)["\']', sData, sLink)) CheckKnownLinks(sLink);
}
return bSuccess;
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки видео ресурса popmech.ru
bool GetLink_PopMechRu(char sLink) {
char sHtml, sID='', sVal, sTime=''; bool bSuccess=false;
sHtml = HmsRemoveLineBreaks(HmsDownloadUrl(sLink, 'Referer: '+sLink, true));
if (!HmsRegExMatch('video_player[^>]+num=(\\d+)', sHtml, sID))
HmsRegExMatch('player_rate2\\([\'"](\\d+)' , sHtml, sID);
if (sID!='') {
sHtml = HmsDownloadUrl('http://www.popmech.ru/templates/xml/xml_video.php?num='+sID, 'Referer: '+sLink, true);
sHtml = HmsRemoveLineBreaks(sHtml);
if (HmsRegExMatch('<duration>(\\d+)</duration>', sHtml, sVal)) PodcastItem[mpiTimeLength] = HmsTimeFormat(StrToInt(sVal))+'.000';
HmsRegExMatch('<file>(.*?)</file>', sHtml, MediaResourceLink);
bSuccess = true;
}
return bSuccess;
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки видео InternetUrok.ru
bool GetLink_InternetUrokRu() {
string sData, sVal; bool bResult = false;
if (HmsRegExMatch('interneturok.ru/lesson/(\\d+)', mpFilePath, sVal)) {
sData = HmsDownloadURL('http://interneturok.ru/mapi/lessons/'+sVal+'.json?sid=vault13secret', '', true);
bResult = HmsRegExMatch('"video".*"url":"(.*?)"', sData, MediaResourceLink);
} else {
sData = HmsDownloadURL(mpFilePath, 'Referer: '+mpFilePath, true);
if (HmsRegExMatch('<iframe[^>]+src="([^"]*?/embed/.*?)"', sData, sVal))
sData = HmsDownloadURL(HmsExpandLink(sVal, gsUrlBase), 'Referer: '+mpFilePath, true);
bResult = HmsRegExMatch('"videos".*"(http[^"]+mp4)', sData, MediaResourceLink);
HmsRegExMatch('"duration":(\\d+)', sData, PodcastItem[mpiTimelength]);
}
return bResult;
}
////////////////////////////////////////////////////////////////////////////////
// Получение ссылки на ustream.tv
bool GetLink_UstreamTv(string sLink) {
//http://api.ustream.tv/json/channel/live-iss-stream/getInfo?key=D9B39696EF3F310EA840C3A8EFC8306D
string sHtml, sMgid, sVideoId, sStreamName, sCdnUrl, siLink, sAmfLink;
siLink = 'http://iphone-streaming.ustream.tv/uhls/%s/streams/live/iphone/playlist.m3u8';
sAmfLink = 'http://cdngw.ustream.tv/Viewer/getStream/1/%s.amf';
if (HmsRegExMatch('ustream.tv/\\w+/(\\d+)$', sLink, sVideoId)) {
// Recorded
MediaResourceLink = 'http://tcdn.ustream.tv/video/'+sVideoId;
return true;
} else {
if (!HmsRegExMatch('ustream.tv/(\\d+)$', sLink, sVideoId)) {
sHtml = HmsDownloadUrl(sLink, 'Referer: '+sLink, true);
if (!HmsRegExMatch('contentId=(\\d+)', sHtml, sVideoId)) {
HmsLogMessage(2, mpTitle+' Не смог найти VideoId в ссылке ustream.tv');
return true;
}
if (HmsRegExMatch('"stream":{[^}]*"hls":"(.*?)"', sHtml, sLink)) {
MediaResourceLink = ' '+HmsJsonDecode(sLink);
return true;
}
}
}
siLink = Format(siLink, [sVideoId]); sAmfLink = Format(sAmfLink, [sVideoId]);
// Live
sHtml = HmsDownloadUrl(sAmfLink, 'Referer: '+sLink, true);
//HmsStringToFile(sHtml, 'D:\\'+sVideoId+'.amf');
sLink = '';
if (Pos('fmsUrl', sHtml)>0) {
HmsRegExMatch('fmsUrl.*?(rtmp:[^\\x00]+)', sHtml, sCdnUrl);
if (sCdnUrl=='') {HmsLogMessage(2, mpTitle+' Не смог получить fmsUrl в amf файле. Канал отключен?'); return true;}
sLink = Format('rtmpdump.exe -v -W "http://www.ustream.tv/flash/viewer.swf" -r "%s" -a "ustreamVideo/%s" -y "streams/live" -p "%s"', [sCdnUrl, sVideoId, sLink]);
} else if (Pos('cdnUrl', sHtml)>0) {
HmsRegExMatch('cdnUrl.*?(rtmp:[^\\x00]+)', sHtml, sCdnUrl);
HmsRegExMatch('streamName.*?(\\w+)', sHtml, sStreamName);
HmsRegExMatch('(http://www.ustream.tv/channel/[^\\x00]+)', sHtml, sLink);
if (sCdnUrl=='') {HmsLogMessage(2, mpTitle+' Не смог найти cdnUrl в amf файле. Канал отключен?'); return true;}
if (RightCopy(sCdnUrl, 1)=='/') sCdnUrl = LeftCopy(sCdnUrl, Length(sCdnUrl)-1);
sLink = Format('rtmpdump.exe -v -W "http://www.ustream.tv/flash/viewer.swf" -r "%s/%s" -p "%s"', [sCdnUrl, sStreamName, sLink]);
} else if (Pos('EXTM3U', HmsDownloadUrl(siLink, '', true))>0) {
sLink = ' '+siLink;
} else {
// Канал отключен от прямого вещания? пробуем показать то было в записи
sLink = 'http://tcdn.ustream.tv/video/'+sVideoId;
}
MediaResourceLink=sLink;
return true;
}
///////////////////////////////////////////////////////////////////////////////
// Конвертация длительности из формата youtube в формат 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';
}
///////////////////////////////////////////////////////////////////////////////
// Конвертация даты-времени из формата youtube в формат HMS
string ConvertYoutubeDate(string sDate) {
string sY, sM, sD, sTime;
HmsRegExMatch3('(\\d{4}).(\\d{2}).(\\d{2})', sDate, sY, sM, sD);
HmsRegExMatch ('T(\\d{2}:\\d{2}:\\d{2})' , sDate, sTime );
return Format('%s.%s.%s %s', [sD, sM, sY, sTime]);
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок на видео из скписка json от googleapis
string CreateItems(string sPath, string sObject, string sParam, string sFiltr='') {
string sLink, sData, sName, sID, sImg, sCh, sVal, sResult='', sTime;
int i; TJsonObject JSON, ITEM; TJsonArray ITEMS;
if (HmsRegExMatch('pageToken=([\\w-_]+)', mpFilePath, sID)) sParam += '&pageToken='+sID;
sLink = Format(gsAPIurl, [sObject, sParam]);
sData = HmsDownloadUrl(sLink, '', true);
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sData);
sID = JSON.S('nextPageToken');
if (sID!='') {
if (sObject=='search') mpFilePath = '-search='+sParam;
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
sCh = '?'; if (Pos('?', mpFilePath)>0) sCh = '&';
CreateFolder(PodcastItem, 'Следующая страница', mpFilePath+sCh+'pageToken='+sID);
}
ITEMS = JSON.A('items');
if (ITEMS != nil) {
for (i=0; i<ITEMS.Length; i++) {
ITEM = ITEMS[i];
// Хоть playlistItems и возвращает список видео, но там нет длительности
// Поэтому собираем ID видео, чтобы потом вызвать videos со списком этих ID
if (sObject=='playlistItems') {
if (sResult!='') sResult += ',';
sResult += ITEM.S('contentDetails\\videoId');
continue;
} else if (sObject=='activities') {
if (sFiltr!='') if (ITEM.S[sFiltr]=='') continue;
if (sResult!='') sResult += ',';
sID = ITEM.S('contentDetails\\recommendation\\resourceId\\videoId');
if (sID=='') sID = ITEM.S('contentDetails\\playlistItem\\resourceId\\videoId');
if (sID=='') sID = ITEM.S('contentDetails\\upload\\videoId');
if (sID!='') sResult += sID;
continue;
} else if (sObject=='search') {
sVal = ITEM.S('id\\kind');
if (sVal=='youtube#playlist') {
sID = ITEM.S('id\\playlistId');
sPath = 'http://www.youtube.com/playlist?list=';
} else if (sVal=='youtube#channel') {
sID = ITEM.S('id\\channelId');
sPath = 'http://www.youtube.com/channel/';
} else {
sID = ITEM.S('id\\videoId');
sPath = 'video';
if (sResult!='') sResult += ',';
if (sID!='') sResult += sID;
continue;
}
} else if (sObject=='videoCategories') {
if (!ITEM.B('snippet\\assignable')) continue;
sID = ITEM.S('id');
if (sID=='1') sID = '30';
} else if (sObject=='subscriptions') {
sID = ITEM.S('snippet\\resourceId\\channelId');
} else {
sID = ITEM.S('id');
}
if (sID=='') continue;
sName = ITEM.S('snippet\\localized\\title');
if (sName=='') sName = ITEM.S('snippet\\title');
sImg = ITEM.S('snippet\\thumbnails\\medium\\url');
sName = HmsUtf8Decode(sName);
sVal = ITEM.S('contentDetails\\itemCount'); if (sVal=='0') continue;
if (sVal!='') sName += ' ['+sVal+']';
if (Pos(sPath, '%s')>0) sLink = Format(sPath, [sID]);
else sLink = sPath + sID;
if (sPath=='video' ) {
if (ITEM.S('snippet\\liveBroadcastContent')=='live') sTime = '04:00:00.000';
else sTime = ConvertYoutubeTime(ITEM.S('contentDetails\\duration'));
if (Pos('DE', ITEM.S('contentDetails\\regionRestriction\\blocked'))>0) sID += '¬de=1';
}
if (sPath=='video' ) CreateYoutubeVideo(sID, sName, sImg, sTime, ConvertYoutubeDate(ITEM.S('snippet\\publishedAt')), HmsUtf8Decode(ITEM.S('snippet\\description')));
else CreateFolder(PodcastItem, sName, sLink, sImg);
}
}
} finally { JSON.Free(); }
return sResult;
}
///////////////////////////////////////////////////////////////////////////////
// Создание видео-ссылки
THmsScriptMediaItem CreateYoutubeVideo(string sID, string sTitle, string sImg, string sTime, string sDate, string sComment='') {
if (LeftCopy(sID, 4)!='http') sID = 'http://www.youtube.com/watch?v='+Trim(sID);
THmsScriptMediaItem Item = HmsCreateMediaItem(sID, PodcastItem.ItemID);
Item[mpiTitle ] = sTitle;
Item[mpiThumbnail ] = sImg;
Item[mpiTimeLength] = sTime;
Item[mpiCreateDate] = sDate;
Item[mpiComment ] = sComment;
Item[mpiPartNo ] = gnTotalItems;
//Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnTotalItems++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок на видео по ID плейлиста youtube
void CreatePlaylistVideos(string sID) {
string sIDs, sVal;
sIDs = CreateItems('getids', 'playlistItems', 'part=contentDetails&fields=nextPageToken,items(contentDetails%2FvideoId)&playlistId='+sID);
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
///////////////////////////////////////////////////////////////////////////////
void CreateChannelVideos(string sChannelID) {
SearchVideosByParam('&q=&part=snippet&type=video&order=date&channelId='+sChannelID);
}
///////////////////////////////////////////////////////////////////////////////
void SearchVideosByParam(string sParam) {
string sIDs, sVal;
sIDs = CreateItems('video', 'search', sParam);
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
///////////////////////////////////////////////////////////////////////////////
void SearchVideos(string sName, bool bContinue=false) {
string sVal='', sParam = '', sIDs, sPodcastParams, sKey, sPossibleKeys; int i, nCnt;
if (!bContinue) {
sPodcastParams = mpFilePath + ' ' + PodcastItem.ItemParent[mpiFilePath] + ' ' + mpPodcastParameters;
sPossibleKeys = 'channelId,channelType,eventType,location,locationRadius,maxResults,order,publishedAfter,publishedBefore,regionCode,relevanceLanguage,safeSearch,topicId,type,videoCaption,videoCategoryId,videoDefinition,videoDimension,videoDuration,videoEmbeddable,videoLicense,videoSyndicated,videoType';
for (i=1; i<=WordCount(sPossibleKeys, ','); i++) {
sKey = ExtractWord(i, sPossibleKeys, ',');
if (HmsRegExMatch('-'+sKey+'=([\\w_\\-\\.,:]+)', sPodcastParams, sVal)) sParam += '&'+sKey+'=' +sVal;
}
if (PodcastItem.ItemParent[mpiComment]=='+') sName = PodcastItem.ItemParent[mpiTitle] + ' ' + Trim(sName);
sIDs = CreateItems('video', 'search', 'part=snippet&q='+HmsHttpEncode(HmsUtf8Encode(sName))+sParam);
} else {
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', sName, sVal)) sName = ReplaceStr(sName, sVal, '');
sIDs = CreateItems('video', 'search', sName);
}
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
///////////////////////////////////////////////////////////////////////////////
void CreateChannelSections(string sChannelID, bool bForUser=false) {
string sLink, sData, sIDs='', sType, sID, sName, sChannelData;
int i, nCnt, nMax; TJsonObject JSON, ITEM; TJsonArray ITEMS; TStrings CHANNELS;
if (bForUser)
sLink = Format(gsAPIurl, ['channels', 'part=snippet,contentDetails&forUsername='+sChannelID]);
else
sLink = Format(gsAPIurl, ['channels', 'part=snippet,contentDetails&id='+sChannelID]);
sChannelData = HmsDownloadUrl(sLink, '', true);
HmsRegExMatch('"id":\\s*?"(.*?)"', sChannelData, sChannelID);
sLink = Format(gsAPIurl, ['channelSections', 'part=snippet,contentDetails&fields=items(id,snippet/type,snippet/title,snippet/localized/title,contentDetails)&channelId='+sChannelID]);
sData = HmsDownloadUrl(sLink, '', true);
JSON = TJsonObject.Create();
CHANNELS = TStringList.Create();
try {
JSON.LoadFromString(sData);
ITEMS = JSON.A('items');
if (ITEMS != nil) {
for (i=0; i<ITEMS.Length; i++) {
ITEM = ITEMS[i];
sType = ITEM.S('snippet\\type');
if (sType=='singlePlaylist') {
sID = ITEM.S('contentDetails\\playlists[0]');
CHANNELS.Values[sID] = '1';
} else if ((sType=='multiplePlaylists')||(sType=='multipleChannels')) {
sID = ITEM.S('id');
sName = ITEM.S('snippet\\localized\\title');
if (sName=='') sName = ITEM.S('snippet\\title');
sName = HmsUtf8Decode(sName);
CreateFolder(PodcastItem, sName, '-channelSection='+sID);
}
}
}
} finally { JSON.Free(); }
// Create single playlists
nCnt = 0; nMax = 4;
for (i=0; i<CHANNELS.Count; i++) {
sID = CHANNELS.Names[i];
nCnt++; if (nCnt>=50) {
CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&id='+sIDs);
nCnt = 1; sIDs = sID; nMax --; if (nMax<=0) break;
}
if (sIDs!='') sIDs += ','; sIDs += sID;
}
if (sIDs!='') CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&id='+sIDs);
CHANNELS.Free();
CreateFolder(PodcastItem, 'Плейлисты', '-channelPlaylists='+sChannelID);
sLink = 'http://www.youtube.com/playlist?list=';
if (HmsRegExMatch('"uploads":\\s*?"(.*?)"' , sChannelData, sID)) CreateFolder(PodcastItem, 'Загруженные видео', sLink+sID);
if (HmsRegExMatch('"likes":\\s*?"(.*?)"' , sChannelData, sID)) CreateFolder(PodcastItem, 'Понравившиеся' , sLink+sID);
if (HmsRegExMatch('"favorites":\\s*?"(.*?)"', sChannelData, sID)) CreateFolder(PodcastItem, 'Любимые' , sLink+sID);
}
///////////////////////////////////////////////////////////////////////////////
// Получение ссылки с lectoriy.mipt.ru
bool GetLink_LectoriyMipt(string sLink) {
string sHtml = HmsDownloadURL(sLink, 'Referer: '+mpFilePath, true);
if (HmsRegExMatch('"og:video"[^>]+content="(.*?)"', sHtml, MediaResourceLink))
return true;
}
///////////////////////////////////////////////////////////////////////////////
// Получение ссылки с ted.com
void GetLink_TedCom(string sLink) {
string sHtml, sID, sSubtitlesLanguage='ru', sQuality='high'; //low,high
HmsRegExMatch('--sublanguage=(\\w+)', mpPodcastParameters, sSubtitlesLanguage);
HmsRegExMatch('--quality=(\\w+)' , mpPodcastParameters, sQuality);
sHtml = HmsDownloadUrl(sLink, 'Referer: '+sLink, True); // Загрузка страницы по ссылке
if (HmsRegExMatch('"'+sQuality+'":"([^"]+-ru.mp4)', sHtml, MediaResourceLink)) return;
HmsRegExMatch('"'+sQuality+'":"(.*?)"', sHtml, MediaResourceLink);
HmsRegExMatch('"id":(\\d+)' , sHtml, sID);
PodcastItem[mpiSubtitleLanguage] = 'http://www.ted.com/talks/subtitles/id/'+sID+'/lang/'+sSubtitlesLanguage+'/format/srt';
}
///////////////////////////////////////////////////////////////////////////////
// Получение ссылки с postnauka.ru
bool GetLink_Postnauka(string sLink) {
string sData, sID;
HmsRegExMatch('.*/(\\d+)', sLink, sID);
sData = HmsDownloadURL('https://postnauka.ru/api/v1/posts/'+sID+'?expand=content,youtube,date,tagscloud,read_more,interesting,partner', 'Referer: '+sLink, true);
if (HmsRegExMatch('"youtube":"(.*?)"', sData, sID))
GetLink_Youtube31('http://www.youtube.com/watch?v='+sID);
else
HmsLogMessage(1, mpTitle+": Невозможно найти ID на youtube видео.");
return true;
}
////////////////////////////////////////////////////////////////////////////////
// Проверка ссылки на известные нам ресурсы видео
bool CheckKnownLinks(string sLink) {
if (HmsFileMediaType(sLink)==mtVideo) { MediaResourceLink = sLink; return true; }
else if (HmsRegExMatch('(vk.com|vkontakte.ru)', sLink, '')) { GetLink_VK(sLink); return true; }
else if (Pos('theoryandpractice.ru/video', sLink)>0) { GetLink_TheoryandPractice(sLink); return true; }
else if (Pos('univertv.ru/video' , sLink)>0) { GetLink_UniverTV(sLink); return true; }
else if (Pos('interneturok.ru' , sLink)>0) { GetLink_InternetUrokRu(); return true; }
else if (Pos('postnauka.ru', sLink)>0) { GetLink_Postnauka(sLink); return true; }
else if (Pos('youtu' , sLink)>0) { GetLink_YouTube31(sLink); return true; }
else if (Pos('vimeo.com' , sLink)>0) { GetLink_VimeoCom(sLink); return true; }
else if (Pos('popmech.ru/' , sLink)>0) { GetLink_PopMechRu(sLink); return true; }
else if (Pos('nkj.ru/' , sLink)>0) { GetLink_NkjRu(sLink); return true; }
else if (Pos('yandex.ru/' , sLink)>0) { GetLink_VideoYandex(sLink); return true; }
else if (Pos('rutube.ru/' , sLink)>0) { GetLink_RuTube(sLink); return true; }
else if (Pos('ted.com/' , sLink)>0) { GetLink_TedCom(sLink); return true; }
else if (Pos('ustream.tv/' , sLink)>0) { GetLink_UstreamTv(sLink); return true; }
return false;
}
////////////////////////////////////////////////////////////////////////////////
// Проверка значения текущей пути (в gsVal получаем группировку рег. выражен.)
bool CheckPath(string sPattern) { return HmsRegExMatch(sPattern, mpFilePath, gsVal); }
////////////////////////////////////////////////////////////////////////////////
// M A I N P R O C E D U R E //
{
string sData, sHtml, sLink, sVal, sImg, sName, sID; int i, nCount; THmsScriptMediaItem Item;
TJsonObject JSON, JSONITEM; TJsonArray JSONLIST; bool bNotLoad=false; TRegExpr RE;
HmsRegExMatch('(https?://.*?)/', mpFilePath, gsUrlBase);
if (LOG==1) HmsLogMessage(1, '+++ Начало получения ссылки');
if (PodcastItem.IsFolder) {
if (CheckPath('/channel/([\\w-_]+)/videos')) CreateChannelVideos(gsVal);
else if (CheckPath('/channel/([\\w-_]+)' )) CreateChannelSections(gsVal);
else if (CheckPath('/user/([\\w-_]+)' )) CreateChannelSections(gsVal, true);
else if (CheckPath('\\?list=([\\w-_]+)' )) CreatePlaylistVideos(gsVal);
else if (CheckPath('-search="(.*?)"' )) SearchVideos(gsVal); // Просто поиск значения
else if (CheckPath('-search=(.*)' )) SearchVideos(gsVal, true); // Продожение поиска (техническая ссылка, создаётся сама)
//else if (!CheckPath('^http')) SearchVideos(mpTitle); // Иначе, если в ссылке не http адрес - поиск названия
else if (Pos('univertv.ru', mpFilePath)>0) {
if (RightCopy(mpFilePath, 1)=='/') mpFilePath += '?lang=4';
gsPatternBlock = '<div[^>]+class="item">(.*?)</table>';
gsCutPage = 'listItem1Box(.*?)End listItem1Box';
gsPatternTitle = '(<h\\d.*?</h\\d>)';
gsPatternLink = '<a[^>]+href="(.*?)"';
gsPatternImg = '<img[^>]+src="(.*?)"';
gsPatternDesc = '</h\\d>(.*?)</td>';
gsPatternTime = '>(\\d?\\d?\\s*?:\\s*?\\d{2}\\s*?:\\s*?\\d{2})<';
gsPatternYear = '\\d\\d\\.\\d\\d\\.(\\d{4})';
gsPatternGenre = '(<a[^>]+class="catalog".*?</a>)';
gsFolderCond = 'src="/images/kurs';
gsPatternPages = '.*page=(\\d+)">\\d+<';
LoadPagesAndCreateLinksUniversal(mpFilePath, PodcastItem);
} else if (Pos('lektorium.tv', mpFilePath)>0) {
gsPatternBlock = 'views-row(.*?)</div>\\s*?</div>\\s*?</div>';
gsPatternTitle = '(<a.*?</a>)';
gsPatternLink = '<a[^>]+href="(.*?)"';
gsPatternImg = '<img[^>]+src="(.*?)"';
gsPatternTime = '>(\\d?\\d?\\s*?:\\s*?\\d{2}\\s*?:\\s*?\\d{2})<';
gsFolderCond = 'href="/course/';
LoadPagesAndCreateLinksUniversal(mpFilePath, PodcastItem);
} else if (Pos('lectoriy.mipt.ru', mpFilePath)>0) {
gsPatternBlock = '(<div[^>]+(lecturer-lecture|course-lecture)".*?-title.*?</div>\\s*?</div>)';
gsPatternTitle = '(<div[^>]+title.*)';
gsPatternLink = '<a[^>]+href="([^#].*?)"';
gsPatternImg = '<img[^>]+src="(.*?)"';
gsPatternTime = 'duration">(.*?)<';
//gsFolderCond = 'href="/(course|collection)/';
//gsSkipCond = '(?!href="/lecture/)';
LoadPagesAndCreateLinksUniversal(mpFilePath, PodcastItem);
} else if (Pos('postnauka.ru', mpFilePath)>0) {
if (Pos('/courses/', mpFilePath)>0) {
if (!HmsRegExMatch('/courses/([\\w+-]+)', mpFilePath, sVal))
HmsRegExMatch('.*/([\\w+-]+)' , mpFilePath, sVal);
sData = HmsDownloadURL('https://postnauka.ru/api/v1/courses/'+sVal, 'Referer: '+mpFilePath, true);
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sData);
JSONLIST = JSON["courses"].AsArray;
for (i=0; i<JSONLIST.Length; i++) {
JSONITEM = JSONLIST[i];
if (!HmsRegExMatch('/(video|tv|lectures)/', JSONITEM.S["link"], '')) continue;
if (JSONITEM.S["attachment\\source"]=="youtube") {
sLink = 'http://www.youtube.com/watch?v='+JSONITEM.S["attachment\\path"];
sImg = "http://img.youtube.com/vi/" +JSONITEM.S["attachment\\path"]+"/0.jpg";
} else {
if (JSONITEM.S["attachment\\source"]=="image")
sImg = JSONITEM.S["attachment\\path"];
else
sImg = JSONITEM.S["authors\\0\\image"];
sLink = 'https://postnauka.ru'+JSONITEM.S["link"];
}
sName = Format('%.2d %s', [i+1, HmsUtf8Decode(JSONITEM.S["title"])]);
if (HmsRegExMatch('/(lectures)/', sLink, ''))
CreateFolder(PodcastItem, sName, sLink, sImg);
else
CreateMediaItem(PodcastItem, sName, sLink, sImg, '00:40:00.000');
}
} finally { JSON.Free; }
//return;
} else if (HmsRegExMatch('/lectures/(\\d+)', mpFilePath, sID)) {
sLink = 'https://postnauka.ru/api/v1/posts/'+sID+'?expand=content,youtube,date,tagscloud,read_more,interesting,partner';
sData = HmsDownloadURL(sLink, 'Referer: '+mpFilePath, true);
JSON = TJsonObject.Create(); RE = TRegExpr.Create('post__content__youtube.*?<iframe[^>]+src="([^"]+embed/(.*?))"', PCRE_SINGLELINE);
try {
JSON.LoadFromString(sData);
sVal = JSON.S["youtube"];
if (sVal=='') {
sHtml = JSON.S["content"];
i=1; nCount=0; if (RE.Search(sHtml)) do nCount++; while (RE.SearchAgain());
if (RE.Search(sHtml)) do {
if (nCount>1) sName = Format('%d-я часть', [i]);
else sName = mpTitle;
sLink = RE.Match(1);
sImg = "http://img.youtube.com/vi/"+RE.Match(2)+"/0.jpg";
CreateMediaItem(PodcastItem, sName, sLink, sImg, '00:40:00.000');
i++;
} while (RE.SearchAgain());
} else {
sLink = 'http://www.youtube.com/watch?v='+sVal;
sImg = "http://img.youtube.com/vi/"+sVal+"/0.jpg";
CreateMediaItem(PodcastItem, mpTitle, sLink, sImg, '00:40:00.000');
}
} finally { JSON.Free; RE.Free; }
} else {
CreateMediaItem(PodcastItem, mpTitle, mpFilePath, mpThumbnail, '00:40:00.000');
}
CreateMediaItem(PodcastItem, 'Info', 'Info="'+mpFilePath+'" pic="'+mpThumbnail+'"', 'http://wonky.lostcut.net/vids/info.jpg', '00:00:15.000');
}
} else {
if (HmsRegExMatch2('Info="(.*)" pic="(.*?)"', mpFilePath, sLink, sImg)) {
ShowInfo(sLink, sImg);
return;
}
else if (LeftCopy(mpFilePath, 4)=='Info') {
ShowInfo();
return;
}
else if (mpFilePath=='Обновить подкаст' ) UpdatePodcast();
else if (!CheckKnownLinks(mpFilePath)) {
if (HmsRegExMatch('lectoriy.mipt.ru', mpFilePath, sVal)) {
GetLink_LectoriyMipt(mpFilePath);
return;
}
sHtml = HmsRemoveLineBreaks(HmsDownloadUrl(mpFilePath, 'Referer: '+mpFilePath, true));
if (HmsRegExMatch('.*<video[^>]+src=["\'](.*?)["\']', sHtml, sLink))
MediaResourceLink = sLink;
else if (HmsRegExMatch('<(?:iframe|embed)[^>]+src=["\'](.*?)["\']', sHtml, sLink))
CheckKnownLinks(sLink);
else if (HmsRegExMatch('<param[^>]+name="movie"[^>]+value=["\'](.*?)["\']', sHtml, sLink))
CheckKnownLinks(sLink);
else if (HmsRegExMatch('(http://[^>"\']+\\.mp4)["\'<]', sHtml, sLink))
CheckKnownLinks(sLink);
}
}
if (LOG==1) HmsLogMessage(1, '--- Конец получения ссылки!');
}
551
C++Script
100801
1562
100802
20.04.2014
530
///////////////////////////////////////////////////////////////////////////////
// Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е //
int
gnMaxPages = 10, // Максимальное количество страниц для загрузки по-умочанию
gnMaxInGroup = 100, // Максимальное количество ссылок в группе по-умочанию
gnItemsAdded = 0, // Глобальный счетчик созданных ссылок
gnUpdateMode = 1; // Режим обновления: 0-Только сообщать о вышедшем обновлении, 1-Включить возможность обновить "с пульта телевизора"
string
gsUrlBase = "", // База для относительных ссылок страницы
gsForumPost = "f=20&t=3697", // Тема и пост форума homemediaserver.ru, где выложен подкаст (для проверки обновлений)
gsVersion = "2017.02.24", // Версия подкаста (то, что должно быть в комментарии к файлу на форуме)
gsGroupingKey = "none", // Группировка по-умочанию (none - выключена)
gsAPIurl = 'https://www.googleapis.com/youtube/v3/%s?key=AIzaSyAdHF0s4Kl3LOTnEAnLaB-49-zRGckPzi4&maxResults=50&gl=ru®ionCode=ru&hl=ru&%s',
gsHeaders = "";
TDateTime
gTimeStart = Now; // Время запуска скрипта
bool
gbYearInTitle = false; // Флаг добавления года к названию
// Регулярные выражения для поиска на странице блоков с информацией о видео
string
gsPatternBlock = '(<div[^>]+movie.*?<div[^>]+clear)', // Искомые блоки с информацией
gsCutPage = '',
// Шаблоны получения информации из искомых блоков
gsPatternTitle = '',
gsPatternTitle2= '',
gsPatternLink = '',
gsPatternYear = '',
gsPatternDesc = '',
gsPatternTime = '',
gsPatternGenre = '',
gsPatternImg = '<img[^>]+src=["\'](.*?)["\']',
gsRemoveWords = '',
gsFolderCond = '',
gsPatternGroup = '',
// Регулярка поиска максимального номера страницы для дозагрузки
gsPatternPages = '',
gsPagesParam = ''; // Добавляемый параметр для дозагрузки страниц
///////////////////////////////////////////////////////////////////////////////
// Ф У Н К Ц И И //
// ------------------------------------------ Проверка обновлений подкаста ----
bool CheckUpdates() {
string sHtml, sVer, sVal, sText; THmsScriptMediaItem Folder, Item;
if ((Pos('--chkupdates', mpPodcastParameters)<1) || (gsForumPost=='')) return;
sVal = gsUrlBase+DateToStr(gTimeStart); // Формируем идентификатор подкаста с датой старта
if ((gsUserVariable4==sVal) && !DebugMode) return; // Если уже проверяли сегодяня, выходим
gsUserVariable4 = sVal; // Запоминаем эту дату проверки обновления, дабы не проверять каждый раз
// Загружаем страницу форума, где выложен данный подкаст
sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml));
// Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение
if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml);
// Пытаемся получить комментарий к файлу = версию подкаста на форуме
if (!HmsRegExMatch('Комментарий к файлу:</b>(.*?)</span>', sHtml, sVer)) return;
if (Pos('*', sVer)>0) gnUpdateMode = 0; // Если версия помечена звездочкой, не даём автоматом обновлять
if (sVer!=gsVersion) {
// Версия не совпадает, формируем из сообщения текст информации о подкасте.
HmsRegExMatch('<div[^>]+class="postbody">(.*?)<table', sHtml, sText);
sText = HmsHtmlToText(sText);
// В данном случае, вырезаем лишнее из текста информации о подкасте
if (HmsRegExMatch('^(.*?)UPD', sText, sVal, 1, PCRE_SINGLELINE)) sText=ReplaceStr(sText, sVal, '');
sText = ReplaceStr(sText, 'UPD', '|UPD');
TStrings INFO = TStringList.Create(); // Создаём объект TStrings для информации
//INFO.Values['Poster'] = '';
INFO.Values['Title' ] = 'Обновление подкаста "Наука и образование"';
INFO.Values['Info' ] = 'Текущая версия подкаста: '+gsVersion+'|Версия подкаста на сайте: '+sVer;
INFO.Values['Descr' ] = ReplaceStr(sText, '\r\n', '|');
Folder = CreateFolder(FolderItem, 'Есть обновления подкаста');
if (gnUpdateMode>0) {
Item = HmsCreateMediaItem('Обновить подкаст', Folder.ItemID);
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/refresh.png';
Item[mpiTimeLength] = '00:00:10.000';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
}
Item = HmsCreateMediaItem('InfoUpdate', Folder.ItemID);
Item[mpiTitle ] = 'Информация';
Item[1001001 ] = INFO.Text;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiTimeLength] = '00:00:10.000';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
INFO.Free();
}
}
// ------------------------------------------------- Создание ссылки-ошибки ---
void CreateErrorItem(string sTitle) {
THmsScriptMediaItem Item = HmsCreateMediaItem('Err', FolderItem.ItemID);
Item[mpiTitle ] = sTitle;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/symbol-error.png';
}
// ------------------------------------ Получение название группы по имени ----
string GetGroupName(string sName) {
string sGroupName = '#';
sName = Uppercase(sName);
// Пропускаем первые не алфавитные символы
if (HmsRegExMatch('([A-ZА-Я].*)', sName, sName )) sGroupName = sName[1];
if (HmsRegExMatch('[A-Z]', sGroupName , sGroupName)) sGroupName = 'A..Z'; // Начинается на латинскую букву
return sGroupName;
}
// -------------------------------------------- Создание ссылки (подкаста) ----
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder,
char sLink, char sTitle="", char sYear="", char sImg="") {
THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink);
Item[mpiTitle ] = sTitle;
Item[mpiFolderSortOrder] = "-mpCreateDate";
Item[mpiThumbnail ] = sImg;
Item[mpiYear ] = sYear; // Для сортировки по годам
Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
return Item;
}
// ------------------------------------------ Проверка параметров подкаста ----
void CheckParameters () {
string sVal;
// Устанавливаем значения глобальных переменных, если они указаны в параметрах подкаста
gbYearInTitle = (Pos('--yearintitle', mpPodcastParameters) > 0); // Добавлять год к названию
HmsRegExMatch('--group=(\\w+)', mpPodcastParameters, gsGroupingKey); // Режим группировки ("alph", "year", "none")
if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal); // Максимальное количество ссылок в группе
if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal); // Максимальное количество страниц для загрузки
}
// ------------------------ Восстановление отностительной ссылки до полной ----
string RightExpandLink(string sLink, string sUrlBase='') {
if (Trim(sLink)=='') return '';
if (sUrlBase=='') HmsRegExMatch('^(.*)/', mpFilePath, sUrlBase);
if (LeftCopy(sLink, 4)!='http') {
if (HmsRegExMatch('^\\.(/.*)', sLink, sLink)) sLink = sUrlBase + Trim(sLink);
else if (gsUrlBase[Length(gsUrlBase)] == '=') sLink = sUrlBase + Trim(sLink);
else if (sLink[1]!='/') sLink = sUrlBase + '/' + Trim(sLink);
else sLink = HmsExpandLink(sLink, gsUrlBase);
}
return ReplaceStr(sLink, 'amp;', '');
}
// ----------------------------------------------------------------------------
void InternetUrokCreateLessons(string sID) {
string sLink, sData, sName, sGrp; int i, n; THmsScriptMediaItem Folder, Item;
bool bNum = (Pos('--numiration', mpPodcastParameters)>0);
sData = HmsDownloadURL('http://interneturok.ru/mapi/schedules/'+sID+'/full.json?sid=vault13secret', '', true);
TJsonObject JSON = TJsonObject.Create(); TJsonArray SECTIONS, LESSONS;
try {
JSON.LoadFromString(sData);
SECTIONS = JSON['record'].A['sections'];
for (i=0; i<SECTIONS.Length; i++) {
sGrp = SECTIONS[i].S['name'];
LESSONS = SECTIONS[i].A['lessons'];
//if (bNum) sGrp = Format('%.2d '+Trim(sGrp), [i+1]);
for (n=0; n<LESSONS.Length; n++) {
sLink = 'http://interneturok.ru/lesson/'+LESSONS[n].S['id'];
sName = HmsHtmlToText(LESSONS[n].S['name']);
if (bNum) sName = Format('%.2d '+Trim(sName), [n+1]);
Item = HmsCreateMediaItem(sLink, FolderItem.ItemID, sGrp);
Item[mpiTitle ] = sName;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++;
Item[mpiTimeLength] = LESSONS[n].S['duration'];
Item[mpiThumbnail ] = LESSONS[n].S['thumb_small'];
Item[mpiYear ] = LESSONS[n].S['year'];
Item[mpiGenre ] = JSON.S['record\\subject\\name'];
}
}
} finally {JSON.Free;}
}
///////////////////////////////////////////////////////////////////////////////
// Конвертация длительности из формата youtube в формат 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';
}
///////////////////////////////////////////////////////////////////////////////
// Конвертация даты-времени из формата youtube в формат HMS
string ConvertYoutubeDate(string sDate) {
string sY, sM, sD, sTime;
HmsRegExMatch3('(\\d{4}).(\\d{2}).(\\d{2})', sDate, sY, sM, sD);
HmsRegExMatch ('T(\\d{2}:\\d{2}:\\d{2})' , sDate, sTime );
return Format('%s.%s.%s %s', [sD, sM, sY, sTime]);
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок на видео из скписка json от googleapis
string CreateItems(string sPath, string sObject, string sParam, string sFiltr='') {
string sLink, sData, sName, sID, sImg, sCh, sVal, sResult='', sTime;
int i; TJsonObject JSON, ITEM; TJsonArray ITEMS;
if (HmsRegExMatch('pageToken=([\\w-_]+)', mpFilePath, sID)) sParam += '&pageToken='+sID;
sLink = Format(gsAPIurl, [sObject, sParam]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sData);
sID = JSON.S('nextPageToken');
if (sID!='') {
if (sObject=='search') mpFilePath = '-search='+sParam;
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
sCh = '?'; if (Pos('?', mpFilePath)>0) sCh = '&';
CreateFolder(FolderItem, mpFilePath+sCh+'pageToken='+sID, 'Следующая страница');
}
ITEMS = JSON.A('items');
if (ITEMS != nil) {
for (i=0; i<ITEMS.Length; i++) {
ITEM = ITEMS[i];
// Хоть playlistItems и возвращает список видео, но там нет длительности
// Поэтому собираем ID видео, чтобы потом вызвать videos со списком этих ID
if (sObject=='playlistItems') {
if (sResult!='') sResult += ',';
sResult += ITEM.S('contentDetails\\videoId');
continue;
} else if (sObject=='activities') {
if (sFiltr!='') if (ITEM.S[sFiltr]=='') continue;
if (sResult!='') sResult += ',';
sID = ITEM.S('contentDetails\\recommendation\\resourceId\\videoId');
if (sID=='') sID = ITEM.S('contentDetails\\playlistItem\\resourceId\\videoId');
if (sID=='') sID = ITEM.S('contentDetails\\upload\\videoId');
if (sID!='') sResult += sID;
continue;
} else if (sObject=='search') {
sVal = ITEM.S('id\\kind');
if (sVal=='youtube#playlist') {
sID = ITEM.S('id\\playlistId');
sPath = 'http://www.youtube.com/playlist?list=';
} else if (sVal=='youtube#channel') {
sID = ITEM.S('id\\channelId');
sPath = 'http://www.youtube.com/channel/';
} else {
sID = ITEM.S('id\\videoId');
sPath = 'video';
if (sResult!='') sResult += ',';
if (sID!='') sResult += sID;
continue;
}
} else if (sObject=='videoCategories') {
if (!ITEM.B('snippet\\assignable')) continue;
sID = ITEM.S('id');
if (sID=='1') sID = '30';
} else if (sObject=='subscriptions') {
sID = ITEM.S('snippet\\resourceId\\channelId');
} else {
sID = ITEM.S('id');
}
if (sID=='') continue;
sName = ITEM.S('snippet\\localized\\title');
if (sName=='') sName = ITEM.S('snippet\\title');
sImg = ITEM.S('snippet\\thumbnails\\medium\\url');
sName = HmsUtf8Decode(sName);
sVal = ITEM.S('contentDetails\\itemCount'); if (sVal=='0') continue;
if (sVal!='') sName += ' ['+sVal+']';
if (Pos(sPath, '%s')>0) sLink = Format(sPath, [sID]);
else sLink = sPath + sID;
if (sPath=='video' ) {
if (ITEM.S('snippet\\liveBroadcastContent')=='live') sTime = '04:00:00.000';
else sTime = ConvertYoutubeTime(ITEM.S('contentDetails\\duration'));
if (Pos('DE', ITEM.S('contentDetails\\regionRestriction\\blocked'))>0) sID += '¬de=1';
}
if (sPath=='video' ) CreateYoutubeVideo(sID, sName, sImg, sTime, ConvertYoutubeDate(ITEM.S('snippet\\publishedAt')), HmsUtf8Decode(ITEM.S('snippet\\description')));
else CreateFolder(FolderItem, sLink, sName, '', sImg);
}
}
} finally { JSON.Free(); }
return sResult;
}
///////////////////////////////////////////////////////////////////////////////
// Создание видео-ссылки
THmsScriptMediaItem CreateYoutubeVideo(string sID, string sTitle, string sImg, string sTime, string sDate, string sComment='') {
if (LeftCopy(sID, 4)!='http') sID = 'http://www.youtube.com/watch?v='+Trim(sID);
THmsScriptMediaItem Item = HmsCreateMediaItem(sID, FolderItem.ItemID);
Item[mpiTitle ] = sTitle;
Item[mpiThumbnail ] = sImg;
Item[mpiTimeLength] = sTime;
Item[mpiCreateDate] = sDate;
Item[mpiComment ] = sComment;
Item[mpiPartNo ] = gnItemsAdded;
HmsRegExMatch('(\\d{4})', sDate, Item[mpiYear]);
//Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
return Item;
}
///////////////////////////////////////////////////////////////////////////////
// Создание ссылок на видео по ID плейлиста youtube
void CreatePlaylistVideos(string sID) {
string sIDs, sVal;
sIDs = CreateItems('getids', 'playlistItems', 'part=contentDetails&fields=nextPageToken,items(contentDetails%2FvideoId)&playlistId='+sID);
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
///////////////////////////////////////////////////////////////////////////////
void CreateChannelVideos(string sChannelID) {
SearchVideosByParam('&q=&part=snippet&type=video&order=date&channelId='+sChannelID);
}
///////////////////////////////////////////////////////////////////////////////
void SearchVideosByParam(string sParam) {
string sIDs, sVal;
sIDs = CreateItems('video', 'search', sParam);
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
///////////////////////////////////////////////////////////////////////////////
void SearchVideos(string sName, bool bContinue=false) {
string sVal='', sParam = '', sIDs, sPodcastParams, sKey, sPossibleKeys; int i, nCnt;
if (!bContinue) {
sPodcastParams = mpFilePath + ' ' + FolderItem.ItemParent[mpiFilePath] + ' ' + mpPodcastParameters;
sPossibleKeys = 'channelId,channelType,eventType,location,locationRadius,maxResults,order,publishedAfter,publishedBefore,regionCode,relevanceLanguage,safeSearch,topicId,type,videoCaption,videoCategoryId,videoDefinition,videoDimension,videoDuration,videoEmbeddable,videoLicense,videoSyndicated,videoType';
for (i=1; i<=WordCount(sPossibleKeys, ','); i++) {
sKey = ExtractWord(i, sPossibleKeys, ',');
if (HmsRegExMatch('-'+sKey+'=([\\w_\\-\\.,:]+)', sPodcastParams, sVal)) sParam += '&'+sKey+'=' +sVal;
}
if (FolderItem.ItemParent[mpiComment]=='+') sName = FolderItem.ItemParent[mpiTitle] + ' ' + Trim(sName);
sIDs = CreateItems('video', 'search', 'part=snippet&q='+HmsHttpEncode(HmsUtf8Encode(sName))+sParam);
} else {
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', sName, sVal)) sName = ReplaceStr(sName, sVal, '');
sIDs = CreateItems('video', 'search', sName);
}
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
///////////////////////////////////////////////////////////////////////////////
// -------------------- Загрузка страниц, поиск и создание ссылок на видео ----
void CreateLinks() {
string sHtml, sData, sPage, sName, sLink, sYear, sImg, sVal, sTime, sDesc, sGenre, ch;
int i, n, nPages, iCnt=0, nGrp=0; string sGrp=""; string sHeaders, sPostData;
TRegExpr RE; THmsScriptMediaItem Item, Folder = FolderItem; bool bNameCase = false, bNotLoad=false;
if (HmsRegExMatch('interneturok.ru/schedule=(\\d+)', mpFilePath, sVal)) {
InternetUrokCreateLessons(sVal);
return;
} else if (HmsRegExMatch('vimeo.com/([^/]+)$', mpFilePath, sVal)) {
mpFilePath = 'http://vimeo.com/api/v2/'+sVal+'/videos.xml';
} else if (HmsRegExMatch('youtube.com/playlist\\?list=([\\w\\d-_]+)', mpFilePath, sVal, 1, PCRE_CASELESS)) {
CreatePlaylistVideos(sVal);
return;
} else if (HmsRegExMatch('youtube.com/user/([\\w\\d-_]+)', mpFilePath, sVal)) {
sLink = Format(gsAPIurl, ['channels', 'part=contentDetails&forUsername='+sVal]);
sData = HmsDownloadUrl(sLink);
HmsRegExMatch('"uploads":\\s*?"(.*?)"', sData, sVal);
mpFilePath = 'http://youtube.com/playlist?list='+sVal;
CreatePlaylistVideos(sVal);
return;
} else if (HmsRegExMatch('youtube.com/channel/([\\w\\d-_]+)', mpFilePath, sVal, 1, PCRE_CASELESS)) {
CreateChannelVideos(sVal);
return;
}
gsHeaders = 'Referer: '+gsUrlBase+'\r\n'+
'Accept-Encoding: gzip\r\n'+
'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/56.0.2924.87 Safari/537.36\r\n';
sLink = mpFilePath; // Ссылка для загрузки страницы
if (HmsRegExMatch('interneturok.ru/ru/school/', mpFilePath, '')) {
gsPatternBlock = '(<li[^>]+list__item.*?</li>)';
gsPatternGroup = '(<h[^>]+items__header.*?</h\\d>)';
gsPatternTitle = '(<a.*?</a>)';
gsPatternLink = '<a[^>]+href="(.*?)"';
} else if (HmsRegExMatch('interneturok.ru', mpFilePath, '')) {
gsCutPage = 'article-page(.*?)colspan="6"';
gsPatternBlock = '(<h4[^<]+<a.*?</h4>)';
gsPatternTitle = '(<a.*?</a>)';
gsPatternLink = '<a[^>]+href="(.*?)"';
} else if (HmsRegExMatch('univertv.ru', mpFilePath, '')) {
gsCutPage = 'listItem1Box(.*?)End listItem1Box';
gsPatternBlock = '<div class="item">(.*?)</table>';
gsPatternTitle = '(<h\\d.*?</h\\d>)';
gsPatternLink = '<a[^>]+href="(.*?)"';
gsPatternDesc = '</h\\d>(.*?)</td>';
gsPatternTime = '>(\\d?\\d?\\s*?:\\s*?\\d{2}\\s*?:\\s*?\\d{2})<';
gsPatternYear = '\\d\\d\\.\\d\\d\\.(\\d{4})';
gsPatternGenre = '(<a[^>]+class="catalog".*?</a>)';
gsFolderCond = 'src="/images/kurs'; // Условие создания папки, а не ссылки
gsPatternPages = '.*page=(\\d+)">\\d+<';
gsPagesParam = '?page=<PN>'; // Добавляемый параметр для дозагрузки страниц
} else if (HmsRegExMatch('lektorium.tv', mpFilePath, '')) {
gsPatternBlock = 'views-row(.*?)class="clearfix"';
gsPatternTitle = '(<h.*?</h\\d>)';
gsPatternLink = '<h.*?<a[^>]+href="(.*?)"';
gsPatternImg = '<img[^>]+src="(.*?)"';
gsPatternTime = '>(\\d?\\d?\\s*?:\\s*?\\d{2}\\s*?:\\s*?\\d{2})<';
gsFolderCond = 'href="/course/';
gsPatternPages = '.*page=(\\d+)">';
gsPagesParam = '?page=<PN>'; // Добавляемый параметр для дозагрузки страниц
} else if (HmsRegExMatch('popmech.ru', mpFilePath, '')) {
gsCutPage = '<!-- video -->(.*?)<!-- /video -->';
gsPatternBlock = '<td[^>]+width="50%"[^>]+valign=top(.*?)class=date';
gsPatternTitle = '(<a[^>]+block2_th.*?</a>)';
gsPatternLink = '<a[^>]+href="(.*?)"';
gsPatternImg = '(images/upload/.*?)\\)';
gsPatternPages = '.*/page/(\\d+)/"[^>]+>\\d+<';
gsPagesParam = '/page/<PN>/';
bNameCase = true;
} else if (HmsRegExMatch('postnauka.ru', mpFilePath, '')) {
gsCutPage = '';
gsPatternBlock = '{("id":.*?)}},';
gsPatternTitle = '"title":"(.*?)"';
gsPatternLink = '"link":"(/(tv|video|lectures|courses).*?)"';
gsPatternImg = '"image":{"url":"(.*?)"';
gsFolderCond = '/';
gsRemoveWords = '(Курс \\|)';
if (!HmsRegExMatch('/themes/([\\w+-]+)', mpFilePath, sVal))
HmsRegExMatch('.*/([\\w+-]+)' , mpFilePath, sVal);
sLink = 'https://postnauka.ru/api/v1/posts';
gsPagesParam = '?page=<PN>&term='+sVal;
bNotLoad = true;
sHtml = '5';
gsPatternPages = '(5)';
} else if (HmsRegExMatch('vimeo.com', mpFilePath, '')) {
string sSubtitlesLanguage='ru';
HmsRegExMatch('--sublanguage=(\\w+)', mpPodcastParameters, sSubtitlesLanguage);
mpFilePath = ReplaceStr(mpFilePath, 'language=ru', 'language='+sSubtitlesLanguage);
gsPatternBlock = '<video(.*?)</video>';
gsPatternTitle = '<title>(.*?)</';
gsPatternLink = '<url>(.*?)</';
gsPatternImg = '<thumbnail_medium>(.*?)</';
gsPatternTime = '<duration>(.*?)</';
} else if (HmsRegExMatch('gdata.youtube.com', mpFilePath, '')) {
gsPatternBlock = '(<entry.*?</entry>)';
gsPatternTitle = '<title.*?>(.*?)</title>';
gsPatternLink = '<media:content url=\'(.*?)\'';
gsPatternImg = 'thumbnail.*?(http.*?)[<\'"]';
gsPatternTime = 'duration seconds.*?(\\d+)';
gsPatternYear = 'published.*?(\\d{4})';
} else if (HmsRegExMatch('ted.com/', mpFilePath, '')) {
gsPatternBlock = 'media--sm-v(.*?)meta__item';
gsPatternTitle = '(<h\\d.*</h\\d>)';
gsPatternLink = '<a[^>]+href=[\'"](.*?)[\'"]';
gsPatternImg = '<img[^>]+src=[\'"](.*?)[\'"]';
gsPatternTime = 'duration.*?>(.*?)<';
gsPatternPages = '(5)';
gsPagesParam = '?page=<PN>';
} else if (HmsRegExMatch('lectoriy.mipt.ru/lecturer', mpFilePath, '')) {
gsPatternBlock = 'lecturer-item(.*?lecturer-title.*?)</div>';
gsPatternTitle = '(<div[^>]+title.*?</a>)';
gsPatternLink = '<a[^>]+href="(.*?)"';
gsPatternImg = '<img[^>]+src="(.*?)"';
gsPatternPages = '.*data-page="\\d+">(\\d+)<';
gsPagesParam = '<PN>';
gsFolderCond = '/';
} else if (HmsRegExMatch('lectoriy.mipt.ru', mpFilePath, '')) {
gsPatternBlock = 'object-item(.*?)object-lecturers';
gsPatternTitle = '(<div[^>]+title.*?</a>)';
gsPatternLink = '<a[^>]+href="(.*?)"';
gsPatternGenre = '(<div[^>]+category.*?</a>)';
gsPatternDesc = '(<div[^>]+description.*?</a>)';
gsPatternImg = '<img[^>]+src="(.*?)"';
gsPatternPages = '.*data-page="\\d+">(\\d+)<';
gsPagesParam = '<PN>';
gsFolderCond = '/';
} else if (HmsRegExMatch('theoryandpractice.ru', mpFilePath, '')) {
gsCutPage = 'class="content_list"(.*?)pagination';
gsPatternBlock = 'preview-box-platform(.*?)</div>\\s*?</div>\\s*?</div>';
gsPatternTitle = '(<[^>]+preview-box-platform-title.*?</div>)';
gsPatternLink = '<a[^>]+href="(.*?)"';
gsPatternImg = '<img[^>]+data-original="(.*?)"';
gsPatternDesc = '(<hgroup.*?</hgroup>)';
gsPatternTime = '>(\\d?\\d?\\s*?:\\s*?\\d{2}\\s*?:\\s*?\\d{2})<';
gsPatternYear = '\\d\\d\\.\\d\\d\\.(\\d{4})';
gsPatternGenre = '(<a[^>]+class="catalog".*?</a>)';
gsFolderCond = 'src="/images/kurs';
gsPatternPages = '(10)';
gsPagesParam = '?page=<PN>';
gsHeaders += 'X-PAGINATION: true\r\n'+
'X-DISABLE-LAYOUT: true\r\n'+
'X-Requested-With: XMLHttpRequest\r\n';
} else return;
if (!bNotLoad) sHtml = HmsUtf8Decode(HmsDownloadURL(sLink, gsHeaders, true));
// Дозагрузка страниц (если задан шаблон поиска максимального номера сраницы и мы найдём этот номер)
// --------------------------------------------------------------------------
if ((gsPatternPages!='') && HmsRegExMatch(gsPatternPages, sHtml, sVal, 1, PCRE_SINGLELINE)) {
if (gsCutPage!='') HmsRegExMatch(gsCutPage, sHtml, sHtml, 1, PCRE_SINGLELINE);
sHtml = HmsUtf8Decode(sHtml);
nPages = StrToInt(sVal); // Номер последней страницы
if (nPages > gnMaxPages) nPages = gnMaxPages; // Ограничиваем максимальное количество страниц
for (i=1; i <= nPages; i++) {
HmsSetProgress(Trunc(i*100/nPages));
HmsShowProgress(Format('%s: Загрузка страницы %d из %d', [mpTitle, i, nPages]));
sPage = ReplaceStr(gsPagesParam, '<PN>', IntToStr(i));
ch = '?'; if (Pos('?', gsPagesParam)>0) ch = '&';
if (Pos('?', sLink)>0) sPage = ReplaceStr(sLink, '?', sPage+ch);
else sPage = sLink + sPage;
sPage = HmsDownloadURL(sPage, gsHeaders, true);
if (gsCutPage!='') HmsRegExMatch(gsCutPage, sPage, sPage, 1, PCRE_SINGLELINE);
sHtml += HmsUtf8Decode(sPage);
if (HmsCancelPressed()) break;
}
HmsHideProgress(); // Убираем окно прогресса обновления
} else {
if (gsCutPage!='') HmsRegExMatch(gsCutPage, sHtml, sHtml, 1, PCRE_SINGLELINE);
}
// --------------------------------------------------------------------------
sHtml = ReplaceStr(sHtml, '\n', ' '); // Удаляем переносы строк, чтобы далее везде в регулярках не указывать PCRE_SINGLELINE
sHtml = ReplaceStr(sHtml, '?' , 'x');
if ((sHtml!='') && (sHtml[1]=='{')) sHtml = HmsJsonDecode(sHtml);
// Создание объекта Regular Expressions для поиска блоков с информацией о видео
RE = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE);
try {
// Если группировка не указана, подсчитываем количество блоков (ссылок на видео)
// Если это количество превышает максимальное значение gnMaxInGroup - включаем группировку по количеству
i=0; if ((gsGroupingKey=="none") && RE.Search(sHtml)) do if (HmsRegExMatch(gsPatternLink, RE.Match, sLink)) i++; while (RE.SearchAgain());
if (i>gnMaxInGroup) gsGroupingKey = "count";
// Начинаем искать блоки по шаблону gsPatternBlock
if (RE.Search(sHtml)) do {
sLink=""; sTime=""; sDesc=""; sYear=""; sImg=""; sGenre="";
HmsRegExMatch(gsPatternTitle, RE.Match, sName );
HmsRegExMatch(gsPatternLink , RE.Match, sLink );
HmsRegExMatch(gsPatternImg , RE.Match, sImg );
HmsRegExMatch(gsPatternDesc , RE.Match, sDesc );
HmsRegExMatch(gsPatternTime , RE.Match, sTime );
HmsRegExMatch(gsPatternGenre, RE.Match, sGenre);
HmsRegExMatch(gsPatternYear , RE.Match, sYear );
if (gsPatternGroup!='') {
HmsRegExMatch(gsPatternGroup, RE.Match, sGrp);
sGrp = HmsHtmlToText(sGrp);
}
if ((sLink=='') || (sLink=='#')) continue;
sLink = RightExpandLink(sLink, gsUrlBase);
sName = ReplaceStr(HmsHtmlToText(sName), "/", "-");
sDesc = Trim(HmsHtmlToText(sDesc));
sGenre = Trim(HmsHtmlToText(sGenre));
sTime = Trim(ReplaceStr(sTime, ' ', ''));
if (sImg!='') sImg = RightExpandLink(sImg, gsUrlBase);
if (bNameCase) sName = Uppercase(sName[1])+LowerCase(Copy(sName, 2, 99));
if (sTime!='') {
if (StrToIntDef(sTime, 0)==0) {
sTime = ReplaceStr(Trim(sTime), ".", ":");
if (HmsRegExMatch('(\\d:\\d{2}:\\d{2})' , sTime, sTime)) sTime = '0' +Trim(sTime);
else if (HmsRegExMatch('(\\d{2}:\\d{2})', sTime, sTime)) sTime = '00:' +Trim(sTime);
else if (HmsRegExMatch('(\\d:\\d{2})' , sTime, sTime)) sTime = '00:0'+Trim(sTime);
}
} else sTime = '6000';
if (gsRemoveWords!='') while (HmsRegExMatch(gsRemoveWords, sName, sVal)) sName = Trim(ReplaceStr(sName, sVal, ''));
// Добавляем год в название, если установлен флаг и этого года в названии нет
if (gbYearInTitle && (Pos(sYear, sName)<1) && (sYear!='')) sName = Trim(sName)+" ("+sYear+")";
// Если включена группировка - получаем в переменную sGrp имя группы
if (gsGroupingKey=="alph" ) sGrp = GetGroupName(sName);
else if (gsGroupingKey=="year" ) sGrp = sYear;
else if (gsGroupingKey=="count") {
iCnt++; if (iCnt>gnMaxInGroup) { nGrp++; iCnt=1; }
sGrp = Format("%.2d", [nGrp]);
}
// Если указана группа, создаём её
if (Trim(sGrp)!="") Folder = CreateFolder(FolderItem, sGrp);
if ((gsFolderCond!='') && HmsRegExMatch(gsFolderCond, re.Match, '')) {
Item = Folder.AddFolder(sLink);
} else {
Item = HmsCreateMediaItem(sLink, Folder.ItemID);
if (sImg=='') sImg = 'http://wonky.lostcut.net/icons/play3.png';
}
if (Length(sTime)==8) sTime += '.000';
Item[mpiTitle ] = sName;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Item[mpiTimeLength] = sTime;
Item[mpiThumbnail ] = sImg;
Item[mpiComment ] = sDesc;
Item[mpiYear ] = sYear;
Item[mpiGenre ] = sGenre;
gnItemsAdded++;
} while (RE.SearchAgain());
} finally { RE.Free(); }
// Если указана конкретная группировка - контролируем сортировку групп
if (gsGroupingKey=="alph") FolderItem.Sort("mpTitle" ); // По-возрастанию
else if (gsGroupingKey=="year") FolderItem.Sort("-mpTitle"); // По-убыванию
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
// ----------------------------------------------------------------------------
{
HmsRegExMatch('^(.*?//.*?)/', mpFilePath, gsUrlBase); // Получем базу Url из ссылки
FolderItem.DeleteChildItems(); // Удаление существующих ссылок
CheckParameters(); // Проверка установленных параметров подкаста
CheckUpdates(); // Проверка обновлений
CreateLinks(); // Загрузка страниц, поиск и создание ссылок
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded));
}
531
C++Script
527
--chkupdates
93
42010,0127439931
95
3
-
51
1c60fba3-947d-462f-b350-697ee2394da5
InternetUrok.ru
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
2
532
2
700
2
553
2
42
3
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
1
245
1c60fba3-947d-462f-b350-697ee2394da5
571
// *********** СОЗДАНИЕ СТРУКТУРЫ ПОДКАСТА interneturok.ru ************
string gsUrlBase="http://interneturok.ru"; int gnItemsAdded=0; TDateTime gTimeStart=Now;
// ----------------------------------------------- Создание папки подкаста ----
THmsScriptMediaItem CreateFolder(THmsScriptMediaItem Folder, string sName, string sLink='') {
if (sLink=='') sLink = sName; if (sLink[1]=='/') sLink = HmsExpandLink(sLink, gsUrlBase);
THmsScriptMediaItem Item = Folder.AddFolder(sLink, (sLink==sName));
Item[mpiTitle ] = sName;
Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));gnItemsAdded++;
Item[mpiFolderSortOrder] = "-mpCreateDate";
return Item;
}
// ---------------------------------------------------- Создание категорий ----
void CreateStructureInternetUrokRu() {
string sLink, sData, sName; int i, n; THmsScriptMediaItem Folder;
sData = HmsDownloadURL('http://interneturok.ru/mapi/subjects/ru/full.json?sid=vault13secret', '', true);
TJsonObject JSON = TJsonObject.Create(); TJsonArray SUBJECTS, SCHEDULES;
try {
JSON.LoadFromString(sData);
SUBJECTS = JSON['records'].AsArray();
for (i=0; i<SUBJECTS.Length; i++) {
sName = SUBJECTS[i].S['name'];
Folder = CreateFolder(FolderItem, sName);
SCHEDULES = SUBJECTS[i].A['schedules'];
for (n=0; n<SCHEDULES.Length; n++) {
sLink = 'http://interneturok.ru/schedule='+SCHEDULES[n].S['id'];
sName = SCHEDULES[n].S['name'];
CreateFolder(Folder, sName, sLink);
}
}
} finally {JSON.Free;}
CreateFolder(FolderItem, 'Учёные - детям', '/ru/school/uchyonye-detyam/uchyonye-detyam');
CreateFolder(FolderItem, 'Разбор ЕГЭ' , '/ru/school/ege/razbor-ege');
CreateFolder(FolderItem, 'Разбор ГИА' , '/ru/school/gia/razbor-gia');
Folder = CreateFolder(FolderItem, 'Полезные видеолекции');
CreateFolder(Folder, 'Детская психология' , '/ru/school/poleznye-videolektsii/detskaja-psihologija');
CreateFolder(Folder, 'Здоровье ребёнка' , '/ru/school/poleznye-videolektsii/zdorove-rebenka');
CreateFolder(Folder, 'Советы специалистов', '/ru/school/poleznye-videolektsii/sovety-specialistov');
CreateFolder(Folder, 'Открытые уроки' , '/ru/school/poleznye-videolektsii/otkrytye-uroki');
CreateFolder(FolderItem, 'Методический кабинет', '/ru/metod-kabinet');
}
// --------------------- M A I N P R O C E D U R E -------------------------
// ============================================================================
{
FolderItem.DeleteChildItems(); // Удаление существующих дочерних элементов
CreateStructureInternetUrokRu(); // Создание структуры заного
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded));
}
572
C++Script
215
-mpCreateDate
531
Нет скрипта
3
00:22:34.000
551
Нет скрипта
55
http://interneturok.ru/assets/modern-page/logo_ru-80a4fc8fa7ea72d98443024c67fe9ce4.png
527
--numiration
4
01. InternetUrok.ru
93
42010,0127439931
-
51
dc95a085d3509c8c6d767bc482890b27
Алгебра
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127439931
-
53
a9290790f092e520f81c3ab00df402ab
http://interneturok.ru/schedule=7
dc95a085d3509c8c6d767bc482890b27
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
525
42401,6946649769
93
42010,0127439931
-
53
8c0547d3f0a11900415eda8b06407af0
http://interneturok.ru/schedule=8
dc95a085d3509c8c6d767bc482890b27
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
525
42009,7613366898
93
42010,0127439931
-
53
e696c26ea4a60855d077a23b0109d54c
http://interneturok.ru/schedule=9
dc95a085d3509c8c6d767bc482890b27
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
525
42010,0059259722
93
42010,0127439931
-
53
97825ee23305508066c4fa567535ac15
http://interneturok.ru/schedule=10
dc95a085d3509c8c6d767bc482890b27
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
525
42009,9468610417
93
42010,0127439931
-
53
19aa9e473f24a829e106358daea57b1e
http://interneturok.ru/schedule=11
dc95a085d3509c8c6d767bc482890b27
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
525
42672,6826985417
93
42010,0127439931
-
51
779d797062cf7cec407e60a30e9eab9b
Геометрия
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
be71f16d29add8e36f6f3abe45e10cfa
http://interneturok.ru/schedule=73
779d797062cf7cec407e60a30e9eab9b
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
525
42789,4393817824
93
42010,0127441667
-
53
3614986907ecae27ebbea1797de54688
http://interneturok.ru/schedule=74
779d797062cf7cec407e60a30e9eab9b
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
525
42009,7647156713
93
42010,0127441667
-
53
9fc79b4fd72679b206c32c5eb684b64f
http://interneturok.ru/schedule=75
779d797062cf7cec407e60a30e9eab9b
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
525
42009,7662920486
93
42010,0127441667
-
53
5baa6515cac5758b857e9ef641a41f66
http://interneturok.ru/schedule=76
779d797062cf7cec407e60a30e9eab9b
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
525
42009,7351913773
93
42010,0127441667
-
53
16d1718bc77c06ebbd4bbc2d72344a0c
http://interneturok.ru/schedule=77
779d797062cf7cec407e60a30e9eab9b
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
-
51
156987f61efc40f7b7619dea798cb305
Математика
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
3d191010437a109a60319d5848600587
http://interneturok.ru/schedule=126
156987f61efc40f7b7619dea798cb305
515
2
512
2
532
2
700
2
553
2
42
3
4
1 класс
215
-mpCreateDate
525
42009,7327714352
93
42010,0127441667
-
53
37082bc687b4e051c9b888458f94bd70
http://interneturok.ru/schedule=127
156987f61efc40f7b7619dea798cb305
515
2
512
2
532
2
700
2
553
2
42
3
4
2 класс
215
-mpCreateDate
93
42010,0127441667
-
53
af6955355646c4dfb80813bafdc2ad07
http://interneturok.ru/schedule=128
156987f61efc40f7b7619dea798cb305
515
2
512
2
532
2
700
2
553
2
42
3
4
3 класс
215
-mpCreateDate
93
42010,0127441667
-
53
b832eaa0711cd4852a9ba018f7d3743b
http://interneturok.ru/schedule=129
156987f61efc40f7b7619dea798cb305
515
2
512
2
532
2
700
2
553
2
42
3
4
4 класс
215
-mpCreateDate
93
42010,0127441667
-
53
d8495bb575e262865250dee8a76f9723
http://interneturok.ru/schedule=130
156987f61efc40f7b7619dea798cb305
515
2
512
2
532
2
700
2
553
2
42
3
4
5 класс
215
-mpCreateDate
93
42010,0127441667
-
53
c8e6e1420beb3143514634a62c1acf03
http://interneturok.ru/schedule=131
156987f61efc40f7b7619dea798cb305
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
51
43c1b4b22875d86edff8dbccb8b5df77
Информатика
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
c6d231ec36cee427f3f38ffbb21b8ff6
http://interneturok.ru/schedule=119
43c1b4b22875d86edff8dbccb8b5df77
515
2
512
2
532
2
700
2
553
2
42
3
4
5 класс
215
-mpCreateDate
93
42010,0127441667
-
53
ab54d7e541effc2112bc9ea7ed6c93d5
http://interneturok.ru/schedule=120
43c1b4b22875d86edff8dbccb8b5df77
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
53
614e993b07f11c9e230db4a067662f0e
http://interneturok.ru/schedule=121
43c1b4b22875d86edff8dbccb8b5df77
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
18df8c8f93893ce61473a2c37b31e368
http://interneturok.ru/schedule=122
43c1b4b22875d86edff8dbccb8b5df77
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
52f0b3c21512a16073387f8c2602913d
http://interneturok.ru/schedule=123
43c1b4b22875d86edff8dbccb8b5df77
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
60d3a83e425495db1e7db6c37f28766f
http://interneturok.ru/schedule=344
43c1b4b22875d86edff8dbccb8b5df77
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
-
53
c6129ca0a02f94b079ee47d35914470e
http://interneturok.ru/schedule=125
43c1b4b22875d86edff8dbccb8b5df77
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
-
51
d8e84d947b8e5fcd875d6d9834bd5d2b
Физика
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
937b30aaccdeed59d9a27b032c5539b0
http://interneturok.ru/schedule=29
d8e84d947b8e5fcd875d6d9834bd5d2b
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
dbefb2cbf6b0bd7c99ba08787458a3f7
http://interneturok.ru/schedule=30
d8e84d947b8e5fcd875d6d9834bd5d2b
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
5dd10bf8964ecb5a50e61a3ba8a25af9
http://interneturok.ru/schedule=31
d8e84d947b8e5fcd875d6d9834bd5d2b
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
8d57f08ecd4060bcce23f926b1089c5d
http://interneturok.ru/schedule=32
d8e84d947b8e5fcd875d6d9834bd5d2b
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
-
53
fbbe9829d92dadf8767c159b6f6ffa38
http://interneturok.ru/schedule=33
d8e84d947b8e5fcd875d6d9834bd5d2b
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
525
42218,8798681019
-
51
7144f7c82dc7c37567fe8bed8485d926
Химия
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
628fbf1ba625d736f47f8e9f2c60039b
http://interneturok.ru/schedule=63
7144f7c82dc7c37567fe8bed8485d926
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
36003fbe7e1126039d84b7af1976690e
http://interneturok.ru/schedule=64
7144f7c82dc7c37567fe8bed8485d926
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
e808540cac8ebda03b41156e7340b9a7
http://interneturok.ru/schedule=65
7144f7c82dc7c37567fe8bed8485d926
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
-
53
68812e99514e36be5ac6047fc82f8e34
http://interneturok.ru/schedule=66
7144f7c82dc7c37567fe8bed8485d926
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
-
51
12813e9736558f8b13ccb799e24aa701
Окружающий мир
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
a4b921a51773ccc86edeb4a27bd4abd6
http://interneturok.ru/schedule=346
12813e9736558f8b13ccb799e24aa701
515
2
512
2
532
2
700
2
553
2
42
3
4
1 класс
215
-mpCreateDate
93
42010,0127441667
-
53
5e078474766bceb6b7eed569470ff4ec
http://interneturok.ru/schedule=347
12813e9736558f8b13ccb799e24aa701
515
2
512
2
532
2
700
2
553
2
42
3
4
2 класс
215
-mpCreateDate
93
42010,0127441667
-
53
ca6800084f4b826f64ac9a5e958ebb37
http://interneturok.ru/schedule=348
12813e9736558f8b13ccb799e24aa701
515
2
512
2
532
2
700
2
553
2
42
3
4
3 класс
215
-mpCreateDate
93
42010,0127441667
-
53
0d4650a9e56e0fa8bca33282c46eadeb
http://interneturok.ru/schedule=349
12813e9736558f8b13ccb799e24aa701
515
2
512
2
532
2
700
2
553
2
42
3
4
4 класс
215
-mpCreateDate
93
42010,0127441667
-
51
2ed96a70ad966b9216d36f36a61ff467
Природоведение
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
a8b534b0e9864b99383abd68b4b8bd1d
http://interneturok.ru/schedule=152
2ed96a70ad966b9216d36f36a61ff467
515
2
512
2
532
2
700
2
553
2
42
3
4
5 класс
215
-mpCreateDate
93
42010,0127441667
-
51
6480afc098a717697b5a759adba0b993
Биология
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
4831f6bfa122cadcadf0b3504f57596e
http://interneturok.ru/schedule=17
6480afc098a717697b5a759adba0b993
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
53
8338feb83198b8a366fcedc32d46db33
http://interneturok.ru/schedule=18
6480afc098a717697b5a759adba0b993
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
b9149e605aaff0883844f66f30abb825
http://interneturok.ru/schedule=19
6480afc098a717697b5a759adba0b993
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
5e3b4d97441b8a29111493dccab22a76
http://interneturok.ru/schedule=20
6480afc098a717697b5a759adba0b993
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
518c6f8abb0fc06b3ef45fdc27f8c73e
http://interneturok.ru/schedule=21
6480afc098a717697b5a759adba0b993
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
-
53
f1ecc9db5437cbc1b86718893bd42150
http://interneturok.ru/schedule=22
6480afc098a717697b5a759adba0b993
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
-
53
a7e6dba23cf8f426fcbc547e9866a175
http://interneturok.ru/schedule=391
6480afc098a717697b5a759adba0b993
515
2
512
2
532
2
700
2
553
2
42
3
4
Факультатив
215
-mpCreateDate
93
42010,0127441667
-
51
4fd95ccbabee88a3b5c67584f3dc0daf
География
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
d97dd2735b12329688e0b31948c57f8f
http://interneturok.ru/schedule=83
4fd95ccbabee88a3b5c67584f3dc0daf
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
53
3a68e0c2459a805b4a683a5958f11b54
http://interneturok.ru/schedule=84
4fd95ccbabee88a3b5c67584f3dc0daf
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
55afbf16f0e4d42dacdd07d454a64dbf
http://interneturok.ru/schedule=85
4fd95ccbabee88a3b5c67584f3dc0daf
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
1126513718c743647915d22037372823
http://interneturok.ru/schedule=86
4fd95ccbabee88a3b5c67584f3dc0daf
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
0509fba7dd1114694ff05bd28bd76f40
http://interneturok.ru/schedule=87
4fd95ccbabee88a3b5c67584f3dc0daf
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
-
51
268854b88bc3aeecae24b0348878a624
Всеобщая история
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
3297ef3909c6fa9d55cac3a3ef2c79c9
http://interneturok.ru/schedule=104
268854b88bc3aeecae24b0348878a624
515
2
512
2
532
2
700
2
553
2
42
3
4
5 класс
215
-mpCreateDate
93
42010,0127441667
-
53
b7ebc478ddd1e9465ad73c13ecb51aea
http://interneturok.ru/schedule=105
268854b88bc3aeecae24b0348878a624
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
53
325c02a526e4271bf1da2ad775bf5e07
http://interneturok.ru/schedule=106
268854b88bc3aeecae24b0348878a624
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
de9bfcc3bd4db6ca1860217b3aa3da2e
http://interneturok.ru/schedule=107
268854b88bc3aeecae24b0348878a624
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
1f155aff3f8b6156f254d3db2837f119
http://interneturok.ru/schedule=108
268854b88bc3aeecae24b0348878a624
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
39532234da106ce1eb383c5ec590adad
http://interneturok.ru/schedule=109
268854b88bc3aeecae24b0348878a624
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
-
53
edf42f13649afc05b09b6dcccfe4711d
http://interneturok.ru/schedule=110
268854b88bc3aeecae24b0348878a624
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
-
53
918063a2e6854adbf90edd480f03b221
http://interneturok.ru/schedule=342
268854b88bc3aeecae24b0348878a624
515
2
512
2
532
2
700
2
553
2
42
3
4
Спецкурс
215
-mpCreateDate
93
42010,0127441667
-
51
4f035d511fdda00a9a598b6ed5e73fb1
История России
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
f8fab6f4b161be56451c41d2aac2b5af
http://interneturok.ru/schedule=442
4f035d511fdda00a9a598b6ed5e73fb1
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
53
9678fcb5819efc16fd28707ff1698b9e
http://interneturok.ru/schedule=443
4f035d511fdda00a9a598b6ed5e73fb1
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
e7d01d2a64f2a33a8d7fdec449209260
http://interneturok.ru/schedule=444
4f035d511fdda00a9a598b6ed5e73fb1
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
aef73f8dec5b22b5034b1961a11c5acc
http://interneturok.ru/schedule=445
4f035d511fdda00a9a598b6ed5e73fb1
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
131f3576b2ad104013ebb357fd103e0c
http://interneturok.ru/schedule=446
4f035d511fdda00a9a598b6ed5e73fb1
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
-
53
63c2f179060a8d1d276f1d3630da11c0
http://interneturok.ru/schedule=447
4f035d511fdda00a9a598b6ed5e73fb1
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
-
51
4d97182ef98d20f17885f86f8bb7bf64
Чтение
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
380150be21e65c2d322c206052967c80
http://interneturok.ru/schedule=393
4d97182ef98d20f17885f86f8bb7bf64
515
2
512
2
532
2
700
2
553
2
42
3
4
1 класс
215
-mpCreateDate
93
42010,0127441667
-
53
00e8f29a3ec4490eb9661c8a1ac05957
http://interneturok.ru/schedule=394
4d97182ef98d20f17885f86f8bb7bf64
515
2
512
2
532
2
700
2
553
2
42
3
4
2 класс
215
-mpCreateDate
93
42010,0127441667
-
53
9280bbe64c5758a2ac0677e62dcd5e09
http://interneturok.ru/schedule=395
4d97182ef98d20f17885f86f8bb7bf64
515
2
512
2
532
2
700
2
553
2
42
3
4
3 класс
215
-mpCreateDate
93
42010,0127441667
-
53
b7996a38f9512190a85e6b53b98e80e1
http://interneturok.ru/schedule=396
4d97182ef98d20f17885f86f8bb7bf64
515
2
512
2
532
2
700
2
553
2
42
3
4
4 класс
215
-mpCreateDate
93
42010,0127441667
-
51
0c0d0178656c1fb3d16bfb93e5f390d9
Литература
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
6c46a5c61b4dd121d0c81fc322c9254d
http://interneturok.ru/schedule=93
0c0d0178656c1fb3d16bfb93e5f390d9
515
2
512
2
532
2
700
2
553
2
42
3
4
5 класс
215
-mpCreateDate
93
42010,0127441667
-
53
9dbeb8306d6add431b40e8f586f8efa6
http://interneturok.ru/schedule=94
0c0d0178656c1fb3d16bfb93e5f390d9
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
53
989e06c9749dac1e72616d466c398f9a
http://interneturok.ru/schedule=95
0c0d0178656c1fb3d16bfb93e5f390d9
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
99fe96f9092d18b5b3dc2108969efbb6
http://interneturok.ru/schedule=96
0c0d0178656c1fb3d16bfb93e5f390d9
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
5b3bdf2295525411122199ae4778a472
http://interneturok.ru/schedule=97
0c0d0178656c1fb3d16bfb93e5f390d9
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
2a431b63adcf8553395d4073a29bf02b
http://interneturok.ru/schedule=98
0c0d0178656c1fb3d16bfb93e5f390d9
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
-
53
1a72dc603c02a608204848fbb1d3bee9
http://interneturok.ru/schedule=99
0c0d0178656c1fb3d16bfb93e5f390d9
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
-
51
b11f35a4dd535102c1bdabe2c8b6ffe0
Русский язык
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
92d91e193d67baa6518ba231f3ff0a5c
http://interneturok.ru/schedule=45
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
1 класс
215
-mpCreateDate
93
42010,0127441667
-
53
4ade51aec5f08bf328bbbcb517d08e1d
http://interneturok.ru/schedule=46
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
2 класс
215
-mpCreateDate
93
42010,0127441667
-
53
5795d0382b549ab8e702a4149ebbb2a7
http://interneturok.ru/schedule=47
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
3 класс
215
-mpCreateDate
93
42010,0127441667
-
53
fb7175fb91454a3e69a4fc7dff1541f5
http://interneturok.ru/schedule=48
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
4 класс
215
-mpCreateDate
93
42010,0127441667
-
53
a25df8cafc3138ad37dba15107fb7263
http://interneturok.ru/schedule=49
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
5 класс
215
-mpCreateDate
93
42010,0127441667
-
53
c0fd8e5163561a4e9e2972a145b56bb0
http://interneturok.ru/schedule=50
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
53
c4924b184ba94bca75b5799c1f947110
http://interneturok.ru/schedule=51
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
d9a231dd58fe59b39cffc8eae31d6772
http://interneturok.ru/schedule=52
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
041314cb68cceb2a463682b651f66215
http://interneturok.ru/schedule=53
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
012b3ad41ec0ec9b53165431f77985b4
http://interneturok.ru/schedule=54
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
ЕГЭ
215
-mpCreateDate
93
42010,0127441667
-
53
e4cab2df5977b683a13666e3a74886a6
http://interneturok.ru/schedule=390
b11f35a4dd535102c1bdabe2c8b6ffe0
515
2
512
2
532
2
700
2
553
2
42
3
4
Факультатив
215
-mpCreateDate
93
42010,0127441667
-
51
8c90213abe0bc796841995f41505562c
Английский язык
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
d1649772181637dc42b53c554c530ccb
http://interneturok.ru/schedule=35
8c90213abe0bc796841995f41505562c
515
2
512
2
532
2
700
2
553
2
42
3
4
2 класс
215
-mpCreateDate
93
42010,0127441667
525
42136,9272132407
-
53
1e78387986604909eba7ad702b8c85e6
http://interneturok.ru/schedule=36
8c90213abe0bc796841995f41505562c
515
2
512
2
532
2
700
2
553
2
42
3
4
3 класс
215
-mpCreateDate
93
42010,0127441667
-
53
d5a4569da18f03672edf52bb1991e1d7
http://interneturok.ru/schedule=37
8c90213abe0bc796841995f41505562c
515
2
512
2
532
2
700
2
553
2
42
3
4
4 класс
215
-mpCreateDate
93
42010,0127441667
-
53
b74bf865f660ac4050ebdab5261e21cc
http://interneturok.ru/schedule=38
8c90213abe0bc796841995f41505562c
515
2
512
2
532
2
700
2
553
2
42
3
4
5 - 6 классы
215
-mpCreateDate
93
42010,0127441667
525
42653,7342605208
-
53
e12805aeb2e272342acc574e4606ae72
http://interneturok.ru/schedule=40
8c90213abe0bc796841995f41505562c
515
2
512
2
532
2
700
2
553
2
42
3
4
7 - 8 классы
215
-mpCreateDate
93
42010,0127441667
525
42136,9269137268
-
53
4ada79b03662e2023df86a61e9aff456
http://interneturok.ru/schedule=42
8c90213abe0bc796841995f41505562c
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
10955c70bc4d84fdb49042905fabb8eb
http://interneturok.ru/schedule=43
8c90213abe0bc796841995f41505562c
515
2
512
2
532
2
700
2
553
2
42
3
4
10 - 11 классы
215
-mpCreateDate
525
42010,0067873727
93
42010,0127441667
-
51
9ea9b8a0b2f9f8a67a377e4adfbbd0a3
Обществознание
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
17be3c43d852b862ceacbc99a019ed4e
http://interneturok.ru/schedule=142
9ea9b8a0b2f9f8a67a377e4adfbbd0a3
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
53
816a4e82aaa8ad3e0cca0e8973e4fe59
http://interneturok.ru/schedule=143
9ea9b8a0b2f9f8a67a377e4adfbbd0a3
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
3c4e90099f5a049b8ccc27bb9dded217
http://interneturok.ru/schedule=144
9ea9b8a0b2f9f8a67a377e4adfbbd0a3
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
c1f781c085d7d0648c2d1e4dbee3066e
http://interneturok.ru/schedule=145
9ea9b8a0b2f9f8a67a377e4adfbbd0a3
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
525
42367,8449740741
-
53
1b60a73ca59fda9ddfaff4496ca6353e
http://interneturok.ru/schedule=146
9ea9b8a0b2f9f8a67a377e4adfbbd0a3
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
525
42326,8151518287
-
53
3a86593889d0be3d931a4d480eeabe8d
http://interneturok.ru/schedule=147
9ea9b8a0b2f9f8a67a377e4adfbbd0a3
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
-
51
00a83355c4717f3ccd51de904bfe7342
ОБЖ
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
95957da3ce2600ad336874cd47fb3846
http://interneturok.ru/schedule=408
00a83355c4717f3ccd51de904bfe7342
515
2
512
2
532
2
700
2
553
2
42
3
4
5 класс
215
-mpCreateDate
93
42010,0127441667
-
53
c2fbbed09ec3eac8c784a114348e235b
http://interneturok.ru/schedule=409
00a83355c4717f3ccd51de904bfe7342
515
2
512
2
532
2
700
2
553
2
42
3
4
6 класс
215
-mpCreateDate
93
42010,0127441667
-
53
02777773f4d4e42e2fdb74a4e378c243
http://interneturok.ru/schedule=410
00a83355c4717f3ccd51de904bfe7342
515
2
512
2
532
2
700
2
553
2
42
3
4
7 класс
215
-mpCreateDate
93
42010,0127441667
-
53
52ebd2fb2016b698ea1473c601b64c91
http://interneturok.ru/schedule=411
00a83355c4717f3ccd51de904bfe7342
515
2
512
2
532
2
700
2
553
2
42
3
4
8 класс
215
-mpCreateDate
93
42010,0127441667
-
53
5931029eec47b7ebde4633dcb23a1634
http://interneturok.ru/schedule=412
00a83355c4717f3ccd51de904bfe7342
515
2
512
2
532
2
700
2
553
2
42
3
4
9 класс
215
-mpCreateDate
93
42010,0127441667
-
53
963a9213be5baba53ab4f838d0cb5446
http://interneturok.ru/schedule=413
00a83355c4717f3ccd51de904bfe7342
515
2
512
2
532
2
700
2
553
2
42
3
4
10 класс
215
-mpCreateDate
93
42010,0127441667
-
53
092515443030eea494366002d1ecb703
http://interneturok.ru/schedule=414
00a83355c4717f3ccd51de904bfe7342
515
2
512
2
532
2
700
2
553
2
42
3
4
11 класс
215
-mpCreateDate
93
42010,0127441667
-
53
b69ee9ad72560f3fac5f0e401f930867
http://interneturok.ru/ru/school/uchyonye-detyam/uchyonye-detyam
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
4
Учёные - детям
215
-mpCreateDate
93
42010,0127441667
-
53
3cfa8aba9af965c6563d50f9b2806861
http://interneturok.ru/ru/school/ege/razbor-ege
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
4
Разбор ЕГЭ
215
-mpCreateDate
93
42010,0127441667
-
53
9435d38bd43e707403e37824f0539a89
http://interneturok.ru/ru/school/gia/razbor-gia
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
4
Разбор ГИА
215
-mpCreateDate
93
42010,0127441667
-
51
1bf99223b8d382ddc945279ed9b3c9e0
Полезные видеолекции
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
-
53
fa8c02ded4034a743ced8820afc36139
http://interneturok.ru/ru/school/poleznye-videolektsii/detskaja-psihologija
1bf99223b8d382ddc945279ed9b3c9e0
515
2
512
2
532
2
700
2
553
2
42
3
4
Детская психология
215
-mpCreateDate
93
42010,0127441667
525
42091,8697591204
-
53
1859868eb0db8beed2bd1ebe666fc597
http://interneturok.ru/ru/school/poleznye-videolektsii/zdorove-rebenka
1bf99223b8d382ddc945279ed9b3c9e0
515
2
512
2
532
2
700
2
553
2
42
3
4
Здоровье ребёнка
215
-mpCreateDate
93
42010,0127441667
-
53
c23e6599a27cf3826fbbf04186317e6c
http://interneturok.ru/ru/school/poleznye-videolektsii/sovety-specialistov
1bf99223b8d382ddc945279ed9b3c9e0
515
2
512
2
532
2
700
2
553
2
42
3
4
Советы специалистов
215
-mpCreateDate
93
42010,0127441667
-
53
bb46db57fa0f35b667f271d867586780
http://interneturok.ru/ru/school/poleznye-videolektsii/otkrytye-uroki
1bf99223b8d382ddc945279ed9b3c9e0
515
2
512
2
532
2
700
2
553
2
42
3
4
Открытые уроки
215
-mpCreateDate
93
42010,0127441667
-
53
1a920ba0195f63e408610942dafa7796
http://interneturok.ru/ru/metod-kabinet
1c60fba3-947d-462f-b350-697ee2394da5
515
2
512
2
532
2
700
2
553
2
42
3
4
Методический кабинет
215
-mpCreateDate
93
42010,0127441667
525
42091,8696384144
-
51
2448bc3d-541b-40fb-9dfa-2f4177d987cb
http://www.lektorium.tv/
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
2
532
2
700
2
553
2
42
3
55
http://www.lektorium.tv/images/logo.png
4
02. Lektorium.tv
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
1
245
2448bc3d-541b-40fb-9dfa-2f4177d987cb
571
char gsUrlBase="http://www.lektorium.tv"; int gnItemsAdded=0; TDateTime gTimeStart=Now;
// ------------------------------------------------ Нахождение всех ссылок ----
void FindAndCreateLinks(char sHtml, string sGroupName, string sPattern='', string sLinkPattern) {
char sLink, sName; THmsScriptMediaItem Item, Folder;
Folder = FolderItem.AddFolder(sGroupName, true);
Folder[mpiFolderSortOrder] = "mpTitle";
TRegExpr RE = TRegExpr.Create(sPattern, PCRE_SINGLELINE);
try {
if (RE.Search(sHtml)) do {
sLink = sLinkPattern + RE.Match(2);
sName = ReplaceStr(HmsHtmlToText(RE.Match(1)), "/", "-");
Item = Folder.AddFolder(sLink);
Item[mpiTitle ] = sName;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); gnItemsAdded++;
Item[mpiFolderSortOrder] = "-mpCreateDate";
} while (RE.SearchAgain());
} finally { RE.Free(); }
}
// --------------------- M A I N P R O C E D U R E -------------------------
{
char sHtml, sData, sLinkPattern;
FolderItem.DeleteChildItems(); // Удаление существующих дочерних элементов
sHtml = HmsUtf8Decode(HmsDownloadURL(gsUrlBase+'/medialibrary', 'Referer: '+gsUrlBase, true));
sLinkPattern = gsUrlBase+'/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=';
FindAndCreateLinks(sHtml, '1 Предметы', '(<label[^>]+edit-subject-t-(\\d+).*?</label>)', sLinkPattern);
sLinkPattern = gsUrlBase+'/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=';
FindAndCreateLinks(sHtml, '2 Вузы (Партнёры)', '(<label[^>]+edit-university-t-(\\d+).*?</label>)', sLinkPattern);
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded));
}
572
C++Script
531
Нет скрипта
215
mpTitle
93
42010,0127441667
-
51
8f771624a1844879c9e52db0a0ce0ed5
1 Предметы
2448bc3d-541b-40fb-9dfa-2f4177d987cb
515
2
512
2
532
2
700
2
553
2
42
3
215
mpTitle
93
42010,0127441667
-
53
6280cd1eb9ceda9104fd50375b0a44ff
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2716
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Computer Science
215
-mpCreateDate
525
42789,4404050579
93
42010,0127441667
-
53
2933f4e6ddc920e89a7195665f092191
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3796
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
ESL (English as Second Language)
215
-mpCreateDate
93
42010,0127441667
-
53
04655dff21894a50fe0a93ddcc0a7ee5
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3369
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Software Engineering
215
-mpCreateDate
525
42007,9533252199
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
93
42010,0127441667
-
53
8082386fb5179e18b3b8657e5804da95
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2974
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Антропология
215
-mpCreateDate
93
42010,0127441667
-
53
6c1cd5a83d51cd1c05e1747b61dc31e1
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2798
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Архитектура
215
-mpCreateDate
93
42010,0127441667
-
53
c3d75679c050f97ea98c735985ec6a47
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3094
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Биоинформатика
215
-mpCreateDate
93
42010,0127441667
-
53
3cae0f4245299b2852bc708520be9c7a
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3287
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Биология
215
-mpCreateDate
93
42010,0127441667
-
53
60ac835b0ba50d968e8f8faca30877e0
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3288
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Гематология
215
-mpCreateDate
93
42010,0127441667
-
53
39585d6a8ed56fd3bd2455831922d8cc
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3269
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Генетика
215
-mpCreateDate
93
42010,0127441667
525
42218,8822802083
-
53
59d2ff220eb4b0c72a2e76371105482c
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2834
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
География
215
-mpCreateDate
93
42010,0127441667
-
53
231ce657c176e62f71b576c2d8e4c54e
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2909
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Геология
215
-mpCreateDate
93
42010,0127441667
-
53
ba6e54176d4e0a37a8a20719ab148941
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3647
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Геополитика
215
-mpCreateDate
93
42010,0127441667
-
53
e8c280f59bbef296d03258e5a4a957b9
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3271
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Геронтология
215
-mpCreateDate
93
42010,0127441667
-
53
c123b22e8de1d1f439202d1e3070b7d5
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3536
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Дизайн
215
-mpCreateDate
93
42010,0127441667
-
53
705da509f8e3050892cd0f55ee8e43a3
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2812
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Журналистика
215
-mpCreateDate
93
42010,0127441667
-
53
42f3db01a387150e1849503cf9547d4b
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3047
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Инновации
215
-mpCreateDate
93
42010,0127441667
-
53
0e051e52190d404a95f538c70c9c689d
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2730
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Искусство
215
-mpCreateDate
93
42010,0127441667
-
53
e61d69b8b6a80e03a49c36e51c9af77c
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2718
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
История
215
-mpCreateDate
93
42010,0127441667
-
53
d0317123a5a97dda3b155120e4fb1abe
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2799
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
История архитектуры
215
-mpCreateDate
93
42010,0127441667
-
53
59cac202f3156f49482a4db47389d793
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2880
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
История России
215
-mpCreateDate
525
42007,7825037268
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
93
42010,0127441667
-
53
429e230967a2f62b1b43b7dbf79c2156
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2721
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
История русского права ХV-ХVI вв
215
-mpCreateDate
93
42010,0127441667
-
53
7306cb528aa99b01f6cad0f6af4da533
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2714
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
История русской литературы (18 век)
215
-mpCreateDate
93
42010,0127441667
-
53
c7dbb929fc961dbe7290f4bbaff9ae7e
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2715
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
История русской литературы (19 век)
215
-mpCreateDate
93
42010,0127441667
-
53
2ef9f72852a2f1e1161498ca40367603
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2614
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Классическая механика
215
-mpCreateDate
93
42010,0127441667
-
53
2de8bfe20523fb34ae26bf09e5d9366b
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=14088
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Космонавтика
215
-mpCreateDate
93
42010,0127441667
-
53
49b324350d8e4317efbc5e169a7d1ab4
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2868
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Культурология
215
-mpCreateDate
93
42010,0127441667
-
53
73ade38a9f4c84efe8acebf1e2b94222
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2711
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Лингвистика
215
-mpCreateDate
93
42010,0127441667
-
53
e60bd15236cbc624fa0611e4568cbea5
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2713
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Литературоведение
215
-mpCreateDate
93
42010,0127441667
-
53
3dd102ceb568e675bdbf20d7d353ccc1
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2818
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Маркетинг
215
-mpCreateDate
93
42010,0127441667
-
53
139afb00bf4890e28b154eb5fc45823c
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2884
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Математика
215
-mpCreateDate
93
42010,0127441667
-
53
b0e8cfa973abd487db4128b39d414cb6
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3893
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Математическая статистика
215
-mpCreateDate
93
42010,0127441667
-
53
bdcf60f3d509cc4c2ac57ee2bfc53a38
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3267
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Медицина
215
-mpCreateDate
93
42010,0127441667
-
53
347b49c377e7d804d1ef160674dbaf06
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2810
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Менеджмент
215
-mpCreateDate
93
42010,0127441667
-
53
ef65ea440819018c81486933e6db2d2a
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3366
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Музыка
215
-mpCreateDate
93
42010,0127441667
-
53
cca0e9be8275a282ab1bab6fa9998751
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3268
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Офтальмология
215
-mpCreateDate
93
42010,0127441667
-
53
87216511ff62017c8ec299105e3923fe
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2907
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Педагогика
215
-mpCreateDate
93
42010,0127441667
-
53
53231c897c3c401415057565c7fdfedc
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2813
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Политология
215
-mpCreateDate
93
42010,0127441667
-
53
0774268bfa031aaf923986da9f819bfc
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3841
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Почвоведение
215
-mpCreateDate
93
42010,0127441667
-
53
b7d20fe45834c48c03808209c7a72b1a
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2720
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Право
215
-mpCreateDate
93
42010,0127441667
-
53
bba6b5fb7a0b39bb803883204588d931
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3480
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Психология
215
-mpCreateDate
93
42010,0127441667
-
53
f5878d349bc149a42c9b1437f82cc18f
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3163
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Робототехника
215
-mpCreateDate
93
42010,0127441667
-
53
1a2c7a1e13f43f9ecabd853ee2a0aa42
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=14917
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Русский язык
215
-mpCreateDate
93
42010,0127441667
-
53
93d298ae0088c5570887e1e1e6331078
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2908
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Социология
215
-mpCreateDate
93
42010,0127441667
-
53
373a57d419298192922196c04bea0480
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3903
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Технологии
215
-mpCreateDate
93
42010,0127441667
-
53
fcf71dbe136f0db276c4b460a35bea3c
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3266
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Трансплантология
215
-mpCreateDate
93
42010,0127441667
-
53
e50a14542ae77d17effdd971f5f150da
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3412
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Урбанистика
215
-mpCreateDate
93
42010,0127441667
-
53
3bce9a0361aae0198b92ce83bdb57c0b
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2613
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Физика
215
-mpCreateDate
93
42010,0127441667
-
53
125ad3e3ae88e1659843e76d1cf15c5a
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3057
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Филология
215
-mpCreateDate
93
42010,0127441667
-
53
814320558da325e6008794a149b52d5c
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2990
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Философия
215
-mpCreateDate
93
42010,0127441667
525
42157,0959062269
-
53
2f1413b9c735705bb161538234a60e5f
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3913
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Химия
215
-mpCreateDate
93
42010,0127441667
-
53
70bd4a63d5eb0cee91b1f5bedfc448bc
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=3899
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Экология
215
-mpCreateDate
93
42010,0127441667
-
53
d6f2365253e22216a3e53bc0023238ef
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2865
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Экономика
215
-mpCreateDate
93
42010,0127441667
-
53
78a68a6a991619e46a5243b386788d52
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2910
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Энергетика
215
-mpCreateDate
93
42010,0127441667
-
53
131e95b9fc22b3c51ea0c7d3fb157b33
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&subject_t%5B%5D=2712
8f771624a1844879c9e52db0a0ce0ed5
515
2
512
2
532
2
700
2
553
2
42
3
4
Этнолингвистика
215
-mpCreateDate
93
42010,0127441667
-
51
8deb2404148faee90caec14a701b9a7d
2 Вузы (Партнёры)
2448bc3d-541b-40fb-9dfa-2f4177d987cb
515
2
512
2
532
2
700
2
553
2
42
3
215
mpTitle
93
42010,0127441667
-
53
79b31b974a0e0a3af9bac8d9309a631e
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2932
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
-Computer Science Center
215
-mpCreateDate
93
42010,0127441667
525
42401,6981927778
-
53
c94090ab72bb854323fd99c7aca3f485
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2709
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
-Европейский университет в Санкт-Петербурге
215
-mpCreateDate
93
42010,0127441667
-
53
613da3ea0eafb9473d37c9a6b008d3f4
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2883
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
-Математичеcкая лаборатория имени П.Л.Чебышева
215
-mpCreateDate
93
42010,0127441667
-
53
cccff000ff498ba4af7965880c901720
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3393
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
-Международный математический институт им. Л. Эйлера
215
-mpCreateDate
93
42010,0127441667
-
53
cddcec4202463ed8123387015a7f2c29
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2977
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
-Московский государственный университет
215
-mpCreateDate
93
42010,0127441667
525
42672,6818935417
-
53
6297a9cd2dea68326f6c04b69a177ec0
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2867
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
-Музей Анны Ахматовой в Фонтанном доме
215
-mpCreateDate
525
42009,7359450231
93
42010,0127441667
-
53
33e81559869da61a2cc35bd9e6c474c4
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2615
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
-Санкт-Петербургский Государственный Университет (СПбГУ)
215
-mpCreateDate
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
33e81559869da61a2cc35bd9e6c474c4
525
42009,7370189005
93
42010,0127441667
-
53
bc92a887bfb07185d549c563c8e5d563
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3905
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
-СПбГУ Восточный факультет
215
-mpCreateDate
525
42009,7369686111
93
42010,0127441667
-
53
aa0d5df63fc3adf6ba9827cf5f03c2f0
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3087
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
-Сообщество CodeFreeze
215
-mpCreateDate
525
42009,737176713
93
42010,0127441667
-
53
a094e1bba7195069e3ec4664109cc302
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14059
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Cognition and Culture
215
-mpCreateDate
93
42010,0127441667
-
53
5c66976a35381822473e36287406bb92
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3915
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Computer Science Club при КФУ
215
-mpCreateDate
93
42010,0127441667
-
53
6bb019aca2404b4c44d352771f6c0154
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2677
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Computer Science клуб при ПОМИ РАН
215
-mpCreateDate
93
42010,0127441667
-
53
e4ae2a76bbbd181eaf76e4f05b22fe41
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3183
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
JetBrains
215
-mpCreateDate
93
42010,0127441667
525
42789,4415776273
-
53
ca8c6fdf9ec29f7af9bf817363fdaafd
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3526
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
KL10TCH
215
-mpCreateDate
93
42010,0127441667
-
53
e3ce4d143108f5c1715ef0b35d24ae81
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14060
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
NYI
215
-mpCreateDate
93
42010,0127441667
-
53
40ab0c6fd08f4d531486149caefe2f43
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3042
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
SeeMedia
215
-mpCreateDate
93
42010,0127441667
-
53
ce3de6d38136b8eb0c39cf1e6221643a
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3096
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Tbd2
215
-mpCreateDate
93
42010,0127441667
-
53
1461f0d8af4151fe2c3ee35395624658
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14058
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
The New York - St. Petersburg Institute of Linguistics
215
-mpCreateDate
93
42010,0127441667
-
53
91514dab8b467b851a9fc7c432453e98
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14296
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Академия постдипломного педагогического образования (АППО)
215
-mpCreateDate
93
42010,0127441667
-
53
5e101f69e8d1fdfc57d354b5dc76e114
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3700
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
БГТУ 'Военмех' им. Д.Ф. Устинова
215
-mpCreateDate
93
42010,0127441667
-
53
065122bbe32f13cf682e7f2df5b566c6
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3701
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
БГТУ Военмех Факультет международного промышленного менеджмента и коммуникации
215
-mpCreateDate
93
42010,0127441667
-
53
b497695613a79cdb6973d79415b61afb
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3900
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Биосеминары
215
-mpCreateDate
93
42010,0127441667
-
53
8ba095aacef2259b8c4df024d41e7168
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2838
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Вечера в Политехническом
215
-mpCreateDate
93
42010,0127441667
-
53
668dc8fc2dd3de547aef5398a1678192
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14294
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Всероссийская Ассоциация учителей литературы
215
-mpCreateDate
93
42010,0127441667
-
53
7b6d20778ea579057260cde675f3c3b4
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14295
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Всероссийская Ассоциация учителей литературы (АССУЛ)
215
-mpCreateDate
93
42010,0127441667
-
53
42dc456ae6741da590239e1646c4974c
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3244
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Высшая школа экономики
215
-mpCreateDate
93
42010,0127441667
-
53
399a1648c38cdd44b07b0ee584e7b445
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3006
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
ГНУ-Линуксцентр
215
-mpCreateDate
93
42010,0127441667
-
53
37ecc45c3965e27e87fe94a1804e9822
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3643
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Государственная полярная академия
215
-mpCreateDate
93
42010,0127441667
-
53
af991899ec29f20afd0b550af0d19b0b
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2797
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Государственный музей истории Санкт-Петербурга (Петропавловская крепость)
215
-mpCreateDate
93
42010,0127441667
-
53
caf2a0382921b25e45dc2bff4a4608e9
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3159
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Дальневосточный федеральный университет
215
-mpCreateDate
93
42010,0127441667
-
53
7434de2a660bfe0fc5c72e6a89c68fe0
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3054
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Еврейский общинный центр Санкт-Петербурга
215
-mpCreateDate
93
42010,0127441667
-
53
1282bfd8005233899be93ab277a6a9f8
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3140
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
ЕУСПб Факультет экономики
215
-mpCreateDate
93
42010,0127441667
-
53
9e49b1846251a0630395905ecb89fe90
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2617
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Инновационный форум Селигер
215
-mpCreateDate
93
42010,0127441667
-
53
10eec05f3ef8199b92fa388522259487
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3906
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Институт Биоинформатики
215
-mpCreateDate
93
42010,0127441667
-
53
e15b47eea4991d18b920d97a10e5b082
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3904
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Институт лингвистических исследований РАН
215
-mpCreateDate
93
42010,0127441667
-
53
a8ed17b33aecd14c75716f4de40871df
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3914
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Институт Химии Санкт-Петербургского государственного университета
215
-mpCreateDate
93
42010,0127441667
-
53
0314e64aa06f55006fcacfcb3e474d88
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3512
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
ИРЛИ РАН
215
-mpCreateDate
93
42010,0127441667
-
53
3d81a273eecdbdfe157db4e2656c0251
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2900
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Исследовательская лаборатория Майкельсона-Шварца
215
-mpCreateDate
93
42010,0127441667
-
53
036889cfd073e2e1bed0a8d3d56139fe
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3810
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Лекторий Петропавловской Крепости
215
-mpCreateDate
93
42010,0127441667
-
53
f0ad7c0d0e9877c11cab9c0f0b61a1a7
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2699
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Лекторий ФМЛ 239
215
-mpCreateDate
93
42010,0127441667
-
53
745ec021b2dcb26ce9d8fdfd082a0204
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2727
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Лофт проект Этажи
215
-mpCreateDate
93
42010,0127441667
-
53
40244b90d69d06489e900f09ac655b3b
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2978
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
МГУ Факультет вычислительной математики и кибернетики
215
-mpCreateDate
93
42010,0127441667
-
53
4d26bbee1a992038d9bed0cffe1c5a46
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14290
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Москва)
215
-mpCreateDate
93
42010,0127441667
-
53
791d6ccea12c14c625d43f5a2043e9b8
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3892
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Музей В.В. Набокова
215
-mpCreateDate
93
42010,0127441667
-
53
79ecedc65ac4b8ba3d67e85b7c221eb8
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14089
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Музей космонавтики и ракетной техники имени В.П. Глушко
215
-mpCreateDate
93
42010,0127441667
-
53
c66267c97afef46631fa0b21f324d042
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3901
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Научная Среда
215
-mpCreateDate
93
42010,0127441667
-
53
8392dd7ca9774bd895ab5a3ad118c268
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3898
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Открытое пространство Наблюдателей Петербурга
215
-mpCreateDate
93
42010,0127441667
-
53
69c36b8dc4976eb6fb8e602762b15505
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3828
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Российский экономический университет им. Г.В. Плеханова
215
-mpCreateDate
93
42010,0127441667
-
53
bfc823c46c4c11ca8ef34673bd2d496f
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3829
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
РЭУ Плеханова Международная школа бизнеса
215
-mpCreateDate
93
42010,0127441667
-
53
23a5589adafb82a91950aa2d58f514f0
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3795
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Санкт-Петербургская академия постдипломного педагогического образования (СПб АППО)
215
-mpCreateDate
93
42010,0127441667
-
53
67e3b9d11a8882ddd7945ee914decc6e
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2862
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Санкт-Петербургский академический университет
215
-mpCreateDate
93
42010,0127441667
-
53
52e8c07cae5dd5a49e9d95c95c49cf50
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3227
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Санкт-Петербургский государственная педиатрическая медицинская академия
215
-mpCreateDate
93
42010,0127441667
-
53
480ce9dbd59e512ca1dd032e3e8e5095
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3697
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Санкт-Петербургский государственный музей театрального и музыкального искусства
215
-mpCreateDate
93
42010,0127441667
-
53
d7fa41cc6d894b820a58614045d013ba
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2837
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Санкт-Петербургский государственный политехнический университет (СПбГПУ)
215
-mpCreateDate
93
42010,0127441667
-
53
4ff8593ab4557e212b5de58afb916e2d
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3046
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Санкт-Петербургский государственный университет экономики и финансов (ФИНЭК)
215
-mpCreateDate
93
42010,0127441667
-
53
825f4975c78b903551d36fda2d5e8724
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2821
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Санкт-Петербургский государственный электротехнический университет "ЛЭТИ"
215
-mpCreateDate
93
42010,0127441667
-
53
bcced718e03e03f13e89f685d6327a8a
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2861
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Санкт-Петербургский научный центр РАН
215
-mpCreateDate
93
42010,0127441667
-
53
ecaf6d0234351c5114e6264e33d448c8
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2696
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Селисах 2010
215
-mpCreateDate
93
42010,0127441667
-
53
ceb3116168e3312e5a95bccec60a6103
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2832
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Смольный институт свободных искусств и наук
215
-mpCreateDate
93
42010,0127441667
-
53
d0fb8991cdf08ee92bfc66ea6f4feb5b
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3089
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Сообщество JUG.ru
215
-mpCreateDate
93
42010,0127441667
-
53
89f446a3c5bf659cb0bcbdd76b476b04
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3289
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Биолого-почвенный факультет
215
-mpCreateDate
93
42010,0127441667
-
53
36eacd4ee5ed07150f73951238a4b805
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3840
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Институт наук о Земле
215
-mpCreateDate
93
42010,0127441667
-
53
c5ad99e5de70700c619e9abd640fc89e
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3652
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Исторический факультет
215
-mpCreateDate
93
42010,0127441667
-
53
6af0830e1a40a9c7c3ca55ba16780aa3
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3151
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Факультет журналистики
215
-mpCreateDate
93
42010,0127441667
-
53
b25f459182060e77b2d46edee524e7a6
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2991
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Факультет политических наук и социологии
215
-mpCreateDate
93
42010,0127441667
-
53
8a9c8b596351d433ea615bbe1032f394
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2835
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Факультет политологии
215
-mpCreateDate
93
42010,0127441667
-
53
2f620491283f9075f20bcd8c60423df7
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3481
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Факультет психологии
215
-mpCreateDate
93
42010,0127441667
-
53
9a7b8889f0640058fe8de482d095aead
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3300
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Факультет социологии
215
-mpCreateDate
93
42010,0127441667
-
53
baa044a4ba42ce606fb25f6908ecc3cc
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=2616
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Физический факультет
215
-mpCreateDate
93
42010,0127441667
-
53
7201395e6f11468a2a44ff4544652382
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3766
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
СПбГУ Философский факультет
215
-mpCreateDate
93
42010,0127441667
-
53
abe2d756286361002e48e13e6bdaaa06
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3902
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Старкон
215
-mpCreateDate
93
42010,0127441667
-
53
3b1ac6fd5b82311add0884b266166622
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14048
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Томский государственный университет (ТГУ)
215
-mpCreateDate
93
42010,0127441667
-
53
3fd4dfd2f610a1af87ef4dd175fb0a60
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3744
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Университет ИТМО
215
-mpCreateDate
93
42010,0127441667
-
53
2ce8b1999decf2ba15e9f2546f86e74c
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3916
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Фаблаб Политех
215
-mpCreateDate
93
42010,0127441667
-
53
8c66d9fc35a343c0f21fb78b174f3ab2
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3265
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Фонд УМА
215
-mpCreateDate
93
42010,0127441667
-
53
8c37e11f660cf47920a5dd13b7dc4a3b
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=14289
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Центр Педагогического Мастерства (ЦПМ, Москва)
215
-mpCreateDate
93
42010,0127441667
-
53
137d086407eed72146899f3e8cdb6828
http://www.lektorium.tv/medialibrary?sort_by=field_date_recorded&sort_order=DESC&university_t%5B%5D=3809
8deb2404148faee90caec14a701b9a7d
515
2
512
2
532
2
700
2
553
2
42
3
4
Центральная городская публичная библиотека им. В.В. Маяковского
215
-mpCreateDate
93
42010,0127441667
-
53
68a273de-96e0-4685-901b-cadd5293ba44
http://elementy.ru/video
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
2
532
1
700
2
553
2
42
3
55
http://elementy.ru/images/eltdesign/title.gif
4
03. Элементы.ru - Видеотека
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
68a273de-96e0-4685-901b-cadd5293ba44
530
string gsUrlBase ="http://elementy.ru"; int gnMaxPages=10, gnMaxInGroup=200, gnItemsAdded=0;
TDateTime gTimeStart=Now;
///////////////////////////////////////////////////////////////////////////////
// Загрузка страниц, поиск и создание ссылок
void LoadPagesAndCreateLinksElementyRu(string sMainLink, THmsScriptMediaItem ParentFolder, bool bDel=true) {
string sHtml, sPage, sLink, sName, sVal, sYear, sTime, sDesc, sImg, sGenre, sLink2, sData;
TRegExpr reGROUP, reVIDEOS; bool bGroup=false;
THmsScriptMediaItem Item, Folder;
int i, n, nPages=0, nCnt=0, nGrp=0; char sGrp="";
if (HmsRegExMatch('--maxingroup=(\\d+)', mpPodcastParameters, sVal)) gnMaxInGroup = StrToInt(sVal);
if (HmsRegExMatch('--maxpages=(\\d+)' , mpPodcastParameters, sVal)) gnMaxPages = StrToInt(sVal);
if (RightCopy(sMainLink, 1)=='/') sMainLink += '?lang=4';
sHtml = HmsUtf8Decode(HmsDownloadURL(sMainLink, 'Referer: '+gsUrlBase, true));
sHtml = HmsRemoveLineBreaks(sHtml);
if (bDel) ParentFolder.DeleteChildItems();
bool bNum = (Pos('--numiration', mpPodcastParameters)>0);
// Создание ссылок
if (bDel)
reGROUP = TRegExpr.Create('(<h[^>]+class="vt".*?</table>)(?!<div[^>]+class="Author">)', PCRE_SINGLELINE);
else
reGROUP = TRegExpr.Create('(<h1.*)', PCRE_SINGLELINE);
reVIDEOS = TRegExpr.Create('elthtml:(.*?)</span>\\s*?</td>', PCRE_SINGLELINE);
try {
if (reGROUP.Search(sHtml)) do {
sName=""; sLink="";
HmsRegExMatch('(<h\\d.*?</h\\d>)', reGROUP.Match, sName);
if (Pos('href=', sName)>0) continue;
sName = ReplaceStr(HmsHtmlToText(sName), "/", "-");
Folder = ParentFolder.AddFolder(sName);
nCnt = 0;
if (reVIDEOS.Search(reGROUP.Match)) do {
sLink=""; sTime="01:30:00.000"; sDesc=""; sYear=""; sImg=""; sGenre="";
HmsRegExMatch('<a[^>]+href="(http://(?:video|elementy.ru/download).*?)"', reVIDEOS.Match, sLink);
HmsRegExMatch('(<div[^>]+class="Author">.*?</b></div>)' , reVIDEOS.Match, sName);
HmsRegExMatch('preview\\s*?=\\s*?"(.*?)"' , reVIDEOS.Match, sImg );
HmsRegExMatch('<img[^>]+src="(.*?)"' , reVIDEOS.Match, sImg );
HmsRegExMatch('(<p[^>]+class="last">.*?</p>)', reVIDEOS.Match, sDesc);
HmsRegExMatch('\\d{2}.\\d{2}.(20\\d{2})' , reVIDEOS.Match, sYear);
if (HmsRegExMatch('duration\\s*?=\\s*?"(\\d+)"', reVIDEOS.Match, sTime)) sTime = HmsTimeFormat(StrToInt(sTime));
sDesc = ReplaceStr(HmsHtmlToText(sDesc), "/", "-");
if (Length(Trim(sLink))<4) continue;
sLink = HmsExpandLink(sLink, gsUrlBase);
sName = ReplaceStr(HmsHtmlToText(sName), "/", "-");
sName = ReplaceStr(ReplaceStr(sName, '\r', ''), '\n', '. ');
sName = ReplaceStr(sName, ' NEW', '');
if (bNum) {nCnt++; sName = Format('%.2d %s', [nCnt, sName]);}
Item = HmsCreateMediaItem(sLink, Folder.ItemID);
Item[mpiTitle ] = sName;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Item[mpiTimeLength] = sTime+'.000';
Item[mpiThumbnail ] = sImg;
Item[mpiComment ] = sDesc;
Item[mpiYear ] = sYear;
Item[mpiGenre ] = sGenre;
gnItemsAdded++;
} while (reVIDEOS.SearchAgain());
} while (reGROUP.SearchAgain());
} finally { reGROUP.Free(); reVIDEOS.Free(); }
}
///////////////////////////////////////////////////////////////////////////////
// M A I N P R O C E D U R E //
{
LoadPagesAndCreateLinksElementyRu(mpFilePath, FolderItem);
LoadPagesAndCreateLinksElementyRu('http://elementy.ru/video/ryzhikov', FolderItem, false);
LoadPagesAndCreateLinksElementyRu('http://elementy.ru/video/teachers', FolderItem, false);
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded));
}
531
C++Script
215
-mpCreateDate
525
42868,4132927083
527
--numiration
93
42010,0127441667
-
51
ddee8fe8-2010-4417-a3bb-59c1becdc1ed
http://lectoriy.mipt.ru/
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
2
532
2
700
2
553
2
42
3
55
http://lectoriy.mipt.ru/skins/miptliot/img/logo_website_.png
4
04. Лекторий МФТИ
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
2
245
ddee8fe8-2010-4417-a3bb-59c1becdc1ed
571
char gsUrlBase="http://lectoriy.mipt.ru"; int gnItemsAdded=0; TDateTime gTimeStart=Now;
// --------------------- M A I N P R O C E D U R E -------------------------
{
char sHtml, sLink, sTitle, sImg; TRegExpr re; bool bMax5=false;
THmsScriptMediaItem Item, Folder=FolderItem;
FolderItem.DeleteChildItems(); // Удаление существующих дочерних элементов
// Создание категории
Folder = FolderItem.AddFolder(gsUrlBase+'/video-day/');
Folder[mpiTitle ] = 'Видео дня';
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
Folder = FolderItem.AddFolder(gsUrlBase+'/video-article/');
Folder[mpiTitle ] = 'Видео в журнале';
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
Folder = FolderItem.AddFolder(gsUrlBase+'/lecture-video/');
Folder[mpiTitle ] = 'Видео лекций';
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
Folder = FolderItem.AddFolder(gsUrlBase+'/video-blogs/');
Folder[mpiTitle ] = 'Видео в блогах';
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
Folder = FolderItem.AddFolder('Future LAB', true);
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
sHtml = HmsUtf8Decode(HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true));
HmsRegExMatch('block_tab_header>FUTURE LAB<(.*?)class=t14', sHtml, sHtml);
re = TRegExpr.Create('(<td[^>]+class=t_little.*?</td>)', PCRE_SINGLELINE);
try {
if (re.Search(sHtml)) do {
sLink = "";
HmsRegExMatch('(<a.*?</a>)' , re.Match, sTitle); // Название
HmsRegExMatch('<a[^>]+href="(.*?)"' , re.Match, sLink ); // Ссылка
if (Trim(sLink)=="") continue;
sLink = HmsExpandLink('/'+sLink, gsUrlBase);
sTitle = ReplaceStr(HmsHtmlToText(sTitle), "/", "-");
if (Pos('channels', sLink)>0) Folder = FolderItem.AddFolder('Каналы', true);
Item = HmsCreateMediaItem(sLink, Folder.ItemID);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
//Item[mpiTimeLength] = sTime;
gnItemsAdded++;
} while (re.SearchAgain());
} finally { re.Free(); }
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded));
}
572
C++Script
531
Нет скрипта
215
mpTitle
93
42010,0127441667
-
53
224d09dd-206f-4e80-95d5-c5903ebd4e90
http://lectoriy.mipt.ru/course/
ddee8fe8-2010-4417-a3bb-59c1becdc1ed
515
2
512
2
532
2
700
2
553
2
42
3
4
Курсы
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
224d09dd-206f-4e80-95d5-c5903ebd4e90
531
Нет скрипта
525
42789,4863513079
215
-mpCreateDate
93
42010,0127441667
-
53
3cce9148-0691-4421-99e1-3854f6adb562
http://lectoriy.mipt.ru/lecturer/
ddee8fe8-2010-4417-a3bb-59c1becdc1ed
515
2
512
2
532
2
700
2
553
2
42
3
4
Лекторы
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
3cce9148-0691-4421-99e1-3854f6adb562
531
Нет скрипта
215
-mpCreateDate
525
42653,7552283796
93
42010,0127441667
-
53
65f8cd13-7461-427a-b794-1ed5b268165e
http://lectoriy.mipt.ru/collection/
ddee8fe8-2010-4417-a3bb-59c1becdc1ed
515
2
512
2
532
2
700
2
553
2
42
3
4
Коллекции
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
65f8cd13-7461-427a-b794-1ed5b268165e
93
42401,8688109954
525
42789,1233945139
-
51
bb8930aa-581a-4519-a35a-2495407ab896
http://postnauka.ru/
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
1
512
2
532
2
700
2
553
2
42
3
55
http://assets0.postnauka.ru/style/postnauka-logo.png
4
05. ПостНаука
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
572
C++Script
570
1
245
bb8930aa-581a-4519-a35a-2495407ab896
571
// *********** СОЗДАНИЕ СТРУКТУРЫ ПОДКАСТА postnauka.ru ************
char gsUrlBase="http://postnauka.ru"; int gnItemsAdded=0; TDateTime gTimeStart=Now;
// Шаблоны регулярных выражений для поиска информации на странице
char
gsPatternCut = 'tag-cloud(.*?)</div>', // Обрезка ненужного
gsPatternBlock = '(<li.*?</li>)', // Блок категории с данными
gsPatternTitle = '(<a.*?</a>)', // Название подкатегории
gsPatternLink = '<a[^>]+href="(.*?)"', // Ссылка подкатегории
;
// -------------------------------- Загрузка страницы и создание категорий ----
void CreateStructurePostNaukaRu() {
char sHtml, sLink, sTitle; TRegExpr RE;
THmsScriptMediaItem Item, Folder=FolderItem;
Item = FolderItem.AddFolder(gsUrlBase+'/video');
Item[mpiTitle ] = 'Видео';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Item[mpiFolderSortOrder ] = -mpiCreateDate; // Сортировка
Item[mpiPodcastParameters] = '--maxingroup=140';
gnItemsAdded++;
Item = FolderItem.AddFolder(gsUrlBase+'/tv');
Item[mpiTitle ] = 'TV';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Item[mpiFolderSortOrder] = -mpiCreateDate; // Сортировка
gnItemsAdded++;
Item = FolderItem.AddFolder(gsUrlBase+'/lectures');
Item[mpiTitle ] = 'Лекции';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Item[mpiFolderSortOrder] = -mpiCreateDate; // Сортировка
gnItemsAdded++;
Item = FolderItem.AddFolder(gsUrlBase+'/courses');
Item[mpiTitle ] = 'Курсы';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Item[mpiFolderSortOrder] = -mpiCreateDate; // Сортировка
gnItemsAdded++;
Folder = FolderItem.AddFolder('По категориям', true);
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Folder[mpiFolderSortOrder] = -mpiCreateDate; // Сортировка
gnItemsAdded++;
sHtml = HmsUtf8Decode(HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true));
if (gsPatternCut!='') HmsRegExMatch(gsPatternCut, sHtml, sHtml, 1, PCRE_SINGLELINE);
RE = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE);
try {
if (RE.Search(sHtml)) do {
sLink = "";
HmsRegExMatch(gsPatternTitle, RE.Match, sTitle); // Название
HmsRegExMatch(gsPatternLink , RE.Match, sLink ); // Ссылка
if (Trim(sLink)=="") continue;
sLink = HmsExpandLink(sLink, gsUrlBase); // Если ссылка относительная, дополняем
sTitle = NameCase(ReplaceStr(HmsHtmlToText(sTitle), "/", "-"));
// Создание категории
Item = Folder.AddFolder(sLink);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Item[mpiFolderSortOrder] = -mpiCreateDate; // Сортировка
gnItemsAdded++;
} while (RE.SearchAgain());
} finally { RE.Free(); }
}
// --------------------- M A I N P R O C E D U R E -------------------------
{
FolderItem.DeleteChildItems(); // Удаление существующих дочерних элементов
CreateStructurePostNaukaRu(); // Создание структуры заного
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded));
}
531
Нет скрипта
527
--foldermode --maxpages=10
93
42010,0127441667
-
53
33c0734fbe89c0496bc7439376fb3bc8
https://postnauka.ru/video
bb8930aa-581a-4519-a35a-2495407ab896
515
2
512
2
532
2
700
2
553
2
42
3
4
Видео
215
-35
527
--maxingroup=140
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
33c0734fbe89c0496bc7439376fb3bc8
525
42789,1666888426
93
42010,0127441667
-
53
8e0d64aecf33896a00243f9de4352aa0
http://postnauka.ru/tv
bb8930aa-581a-4519-a35a-2495407ab896
515
2
512
2
532
2
700
2
553
2
42
3
4
TV
215
-mpCreateDate
525
42789,167136088
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
8e0d64aecf33896a00243f9de4352aa0
93
42010,0127441667
-
53
12bab6cf3f4d2df9190aabb18b54260f
http://postnauka.ru/lectures
bb8930aa-581a-4519-a35a-2495407ab896
515
2
512
2
532
2
700
2
553
2
42
3
4
Лекции
215
-35
525
42789,1692870486
93
42010,0127441667
-
53
db26e5798fc0875622c3d1edfde5b46a
http://postnauka.ru/courses
bb8930aa-581a-4519-a35a-2495407ab896
515
2
512
2
532
2
700
2
553
2
42
3
4
Курсы
215
-35
525
42790,5350118519
93
42010,0127441667
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
-
51
fff127988f686a5e929fd33153f32246
По категориям
bb8930aa-581a-4519-a35a-2495407ab896
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
0
245
fff127988f686a5e929fd33153f32246
93
42010,0127441667
-
53
f0d8eeea6d9e00c4c7e46a377e154cda
http://postnauka.ru/themes/astronomy
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Астрономия
215
-35
525
42789,1702721991
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
93
42010,0127441667
245
f0d8eeea6d9e00c4c7e46a377e154cda
-
53
1e9986041c84f6258acbcb7b23ee38d8
http://postnauka.ru/themes/biology
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Биология
215
-35
93
42010,0127441667
525
42789,1703811458
-
53
6e30ed5aa063420e132f56df9eb4a03c
http://postnauka.ru/themes/istoriya
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
История
215
-35
93
42010,0127441667
525
42789,1704631481
-
53
96bdacedd775e1c6e0061832e06eefa6
http://postnauka.ru/themes/technology
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Технологии
215
-35
93
42010,0127441667
525
42789,1706110069
-
53
25099abd1912271a65b1c86e322a5adc
http://postnauka.ru/themes/culture
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Культура
215
-35
93
42010,0127441667
525
42789,1706851273
-
53
0312f9544368bab9b5efc03dd389e992
http://postnauka.ru/themes/math-2
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Математика
215
-35
93
42010,0127441667
525
42789,171488206
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
0312f9544368bab9b5efc03dd389e992
-
53
0ba72cf9717282681a68ff26636e2175
http://postnauka.ru/themes/medicine
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Медицина
215
-35
93
42010,0127441667
525
42789,1715759375
-
53
6d49c48d98a74eb0e398e6676d03aa73
http://postnauka.ru/themes/psihologiya
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Психология
215
-35
93
42010,0127441667
525
42789,1716580093
-
53
048ba84a9f3494373f64398c4ff32b7d
http://postnauka.ru/themes/pravo
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Право
215
-35
93
42010,0127441667
525
42789,1717257523
-
53
ee4d3ed0b5bcb394be8b75089d375c35
http://postnauka.ru/themes/sociology
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Социология
215
-35
93
42010,0127441667
525
42789,1719745718
-
53
d56dc9cfa71ef4d098cc5005042c63a5
http://postnauka.ru/themes/physics
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Физика
215
-35
93
42010,0127441667
525
42789,1720322338
-
53
dde45c81077913a8b72e8dd7e2d81241
http://postnauka.ru/themes/philosophy
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Философия
215
-35
93
42010,0127441667
525
42789,1720918287
-
53
c89e6e5c32a0da76092bf8f0ee6f2834
http://postnauka.ru/themes/chemistry
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Химия
215
-35
93
42010,0127441667
525
42789,172153669
-
53
b838ac7097f69f348f764d2220db8b2e
http://postnauka.ru/themes/ekonomika
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Экономика
215
-35
525
42789,1722281134
93
42010,0127441667
-
53
763e4502b4ca2f3ee49ac8ba47f4285d
http://postnauka.ru/themes/language
fff127988f686a5e929fd33153f32246
515
2
512
2
532
2
700
2
553
2
42
3
4
Язык
215
-35
93
42010,0127441667
525
42789,1722890972
-
51
bee5961a-5558-4348-9570-8a8250307c13
http://theoryandpractice.ru
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
2
532
2
700
2
553
2
42
3
4
06. Теории и практики
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
1
245
bee5961a-5558-4348-9570-8a8250307c13
571
char gsUrlBase="http://theoryandpractice.ru"; int gnItemsAdded=0; TDateTime gTimeStart=Now;
// --------------------- M A I N P R O C E D U R E -------------------------
{
char sHtml, sLink, sTitle, sImg; TRegExpr re; bool bMax5=false;
THmsScriptMediaItem Item, Folder=FolderItem;
//FolderItem.DeleteChildItems(); // Удаление существующих дочерних элементов
sHtml = HmsUtf8Decode(HmsDownloadURL(gsUrlBase+'/videos', 'Referer: '+gsUrlBase, true));
Item = Folder.AddFolder(gsUrlBase+'/videos');
Item[mpiTitle ] = '1 Новые видео';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Item[mpiFolderSortOrder] = "-mpCreateDate";
re = TRegExpr.Create('(<a[^>]+href="/videos\\?(?:category|channel).*?</a>)', PCRE_SINGLELINE);
if (re.Search(sHtml)) do {
sLink = "";
HmsRegExMatch('(<a.*?</a>)' , re.Match, sTitle); // Название
HmsRegExMatch('<a[^>]+href="(.*?)"' , re.Match, sLink ); // Ссылка
if (Trim(sLink)=="") continue;
sLink = HmsExpandLink(sLink, gsUrlBase);
sTitle = ReplaceStr(HmsHtmlToText(sTitle), "/", "-");
if (Pos('channel', sLink)>0) {
Folder = FolderItem.AddFolder('Каналы', true);
Folder[mpiFolderSortOrder] = "-mpCreateDate";
} else
sTitle = FOrmat('%d ', [Folder.ChildCount+1])+Trim(sTitle);
// Создание категории
Item = Folder.AddFolder(sLink);
Item[mpiTitle ] = sTitle;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
Item[mpiFolderSortOrder] = "-mpCreateDate";
gnItemsAdded++;
} while (re.SearchAgain());
re.Free();
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded));
}
572
C++Script
531
Нет скрипта
551
Нет скрипта
93
42010,0127441667
-
53
b94a0acdb2b34dbe956e9d31aa379806
http://theoryandpractice.ru/videos
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
4
1 Новые видео
215
-mpCreateDate
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
b94a0acdb2b34dbe956e9d31aa379806
525
42789,1996973032
527
--maxpages=5 --maxingroup=200
93
42010,0127441667
35
42157,0981712963
-
53
2aeda729003efe5473dfeae735eabb20
http://theoryandpractice.ru/videos?category=design
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
4
2 Дизайн
215
-mpCreateDate
525
42401,7893486111
93
42010,0127441667
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
2aeda729003efe5473dfeae735eabb20
-
53
751441f5131f8f5cbda13a865cd67553
http://theoryandpractice.ru/videos?category=city
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
4
3 Город
215
-mpCreateDate
525
42789,4873095139
93
42010,0127441667
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
751441f5131f8f5cbda13a865cd67553
-
53
58fa4531ec85406dcfba75409b822ede
http://theoryandpractice.ru/videos?category=science
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
4
4 Наука
215
-mpCreateDate
93
42010,0127441667
525
42789,4965019213
-
53
c30acdadb94d2d5f86ac83cf5710b7b7
http://theoryandpractice.ru/videos?category=art
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
4
5 Искусство
215
-mpCreateDate
93
42010,0127441667
-
53
cfe17d66759c540fcad3b720074a4464
http://theoryandpractice.ru/videos?category=business
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
4
6 Бизнес
215
-mpCreateDate
93
42010,0127441667
-
53
87e70ac32aedf4582bac0ed4b873c973
http://theoryandpractice.ru/videos?category=society
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
4
7 Общество
215
-mpCreateDate
93
42010,0127441667
-
53
f4b5718a4f1e7c8a4cac52780460b459
http://theoryandpractice.ru/videos?category=technology
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
4
8 Технологии
215
-mpCreateDate
93
42010,0127441667
-
53
a660c3949f2503747b699aa8dad245d6
http://theoryandpractice.ru/videos?category=media
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
4
9 Медиа
215
-mpCreateDate
93
42010,0127441667
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
a660c3949f2503747b699aa8dad245d6
-
51
48a77fd9f5c87a19bc36a4f90fd2fb51
Каналы
bee5961a-5558-4348-9570-8a8250307c13
515
2
512
2
532
2
700
2
553
2
42
3
215
-mpCreateDate
93
42010,0127441667
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
511
Нет скрипта
522
0
571
string gsUrlBase = "https://theoryandpractice.ru"; TDateTime gStart=Now; int gnTotalItems=0;
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
string sData, sName, sLink; TRegExpr RE; int i; THmsScriptMediaItem Item;
FolderItem.DeleteChildItems();
sData = HmsDownloadURL(gsUrlBase+'/videos');
RE = TRegExpr.Create('<a[^>]+href="(/videos\\?channel=.*?)".*?</a>', PCRE_SINGLELINE);
try {
if (RE.Search(sData)) do {
Item = FolderItem.AddFolder(gsUrlBase+RE.Match(1));
Item[mpiTitle ] = HmsHtmlToText(RE.Match(0), 65001);
Item[mpiCreateDate] = DateTimeToStr(IncTime(gStart, 0, -gnTotalItems, 0, 0)); // Для обратной сортировки по дате создания
gnTotalItems++;
} while (RE.SearchAgain());
} finally { RE.Free; }
HmsLogMessage(1, "Создано категорий: "+Str(gnTotalItems));
}
572
C++Script
570
1
245
48a77fd9f5c87a19bc36a4f90fd2fb51
-
53
c79aa6311332a7f70bb786bb932bf8c0
https://theoryandpractice.ru/videos?channel=theoryandpractice
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Теории и практики
35
42789,8020833333
93
42789,8025371991
-
53
e19c51c265c6be25c72f7ae18986f255
https://theoryandpractice.ru/videos?channel=tandp
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Theory and practice
35
42789,8013888889
93
42789,8025371991
-
53
8a42a69800402ebf934997abfaefe506
https://theoryandpractice.ru/videos?channel=garageccc
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Гараж
35
42789,8006944444
93
42789,8025371991
-
53
4f53b3d444ffee9185d6630ca03d7183
https://theoryandpractice.ru/videos?channel=bhsd
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Британская высшая школа дизайна
35
42789,8
93
42789,8025371991
525
42789,8026255556
-
53
0b383599427d233268eaddef41a39374
https://theoryandpractice.ru/videos?channel=strelka
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Стрелка
35
42789,7993055556
93
42789,8025371991
-
53
206f5da0a579ff669b7cc6d16d8f4d77
https://theoryandpractice.ru/videos?channel=mmoma
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Московский музей современного искусства
35
42789,7986111111
93
42789,8025371991
-
53
7009004f0cec64031b144dfc40408152
https://theoryandpractice.ru/videos?channel=hseinc
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Бизнес-инкубатор НИУ ВШЭ
35
42789,7979166667
93
42789,8025371991
-
53
e21dd6473f10fc0f6ef7420a743f6461
https://theoryandpractice.ru/videos?channel=goethe-institut
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Goethe-Institut
35
42789,7972222222
93
42789,8025371991
-
53
befaaa48535141f6eb0d4d410b196656
https://theoryandpractice.ru/videos?channel=britanskiy-sovet
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Британский совет
35
42789,7965277778
93
42789,8025371991
-
53
b31facb14512cc30e84f04be1ef3d09b
https://theoryandpractice.ru/videos?channel=unic
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Институт УНИК
35
42789,7958333333
93
42789,8025371991
-
53
9b4478227a91626fb3261e24712d1598
https://theoryandpractice.ru/videos?channel=politru
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Публичные лекции «Полит.Ру»
35
42789,7951388889
93
42789,8025371991
-
53
7ccca31bbc3bf165a3bce2c3eeb5a58a
https://theoryandpractice.ru/videos?channel=innovatsionno-obrazovatelnayakompaniya+rma
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Инновационно-образовательная компания RMA
35
42789,7944444444
93
42789,8025371991
-
53
df842e40568d0a192fa0874efd992838
https://theoryandpractice.ru/videos?channel=digital-october
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Digital October
35
42789,79375
93
42789,8025371991
-
53
2d2e56cbc3f8c5bbdfbcdc326b93037f
https://theoryandpractice.ru/videos?channel=social-media-club-moscow
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Social Media Club Moscow
35
42789,7930555556
93
42789,8025371991
-
53
c4ba2b4979187de12e424ea3f3dbeca9
https://theoryandpractice.ru/videos?channel=poryadok-slov
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Порядок слов
35
42789,7923611111
93
42789,8025371991
-
53
a6f1b7c7dabf50754b1510d1ad3dade6
https://theoryandpractice.ru/videos?channel=benua
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Дом Бенуа
35
42789,7916666667
93
42789,8025371991
-
53
bd9924782b24ec9d534e3fa530772206
https://theoryandpractice.ru/videos?channel=fwd
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
FWD>>
35
42789,7909722222
93
42789,8025371991
525
42789,8027963889
-
53
66bb6ad5dc6c00f070e07fdb198f643c
https://theoryandpractice.ru/videos?channel=polytech
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Политехнический музей
35
42789,7902777778
93
42789,8025371991
-
53
60cb59011729fd8326175237e5e59811
https://theoryandpractice.ru/videos?channel=novaya
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Новая Газета
35
42789,7895833333
93
42789,8025371991
-
53
922dd4226d1a266f201c47eaef8a4753
https://theoryandpractice.ru/videos?channel=rggu
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
РГГУ
35
42789,7888888889
93
42789,8025371991
-
53
776971f463137fc62fefd59b43eb56a6
https://theoryandpractice.ru/videos?channel=SciOne
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Sci-One
35
42789,7881944444
93
42789,8025371991
-
53
70f2b23800462040a2b6d66dbf9a9fa7
https://theoryandpractice.ru/videos?channel=directory
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Дирекция образовательных программ
35
42789,7875
93
42789,8025371991
-
53
a7710b3d9cd8f2acbcbbfb15038066bb
https://theoryandpractice.ru/videos?channel=http%3A%2F%2Fsmenagallery.ru
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
СМЕНА
35
42789,7868055556
93
42789,8025371991
-
53
60d7c05837cdeaa128f40a7bcbe568bd
https://theoryandpractice.ru/videos?channel=center_of_avant-garde
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Центр авангарда в Еврейском музее
35
42789,7861111111
93
42789,8025371991
-
53
a3f6eb8689f4952bb67b84bb9aac0de4
https://theoryandpractice.ru/videos?channel=lektoria
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
ЛектоРИА
35
42789,7854166667
93
42789,8025371991
-
53
3e91832934aed5052a41e8c6b042f5cf
https://theoryandpractice.ru/videos?channel=svop
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Совет по внешней и оборонной политике
35
42789,7847222222
93
42789,8025371991
-
53
2719d0cae4fa3f46f0604ba6d602adad
https://theoryandpractice.ru/videos?channel=premiaprosvetitel
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Премия «Просветитель»
35
42789,7840277778
93
42789,8025371991
-
53
c1400c96216296116da3c1e734d20116
https://theoryandpractice.ru/videos?channel=snob
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Проект «Сноб»
35
42789,7833333333
93
42789,8025371991
-
53
20c2bd5b8da3fd0248d7c2a0cd70d6e9
https://theoryandpractice.ru/videos?channel=hsevideos
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Публичные лекции НИУ ВШЭ
35
42789,7826388889
93
42789,8025371991
-
53
edc023536165bd08720c3eab075e7455
https://theoryandpractice.ru/videos?channel=tceh
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
#tceh
35
42789,7819444444
93
42789,8025371991
-
53
716106030b4264264ddf63a1cf40d1c6
https://theoryandpractice.ru/videos?channel=shagi
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Школа актуальных гуманитарных исследований
35
42789,78125
93
42789,8025371991
-
53
32f95138b6d8dc49333e07dbbb2eaeb4
https://theoryandpractice.ru/videos?channel=eshkolot
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Эшколот
35
42789,7805555556
93
42789,8025371991
-
53
a8cae897872a5cc58d59d2b7fd9768ce
https://theoryandpractice.ru/videos?channel=winzavod
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Винзавод
35
42789,7798611111
93
42789,8025371991
-
53
a8a17377c64e71744ae158a0587b4779
https://theoryandpractice.ru/videos?channel=iph
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Институт философии РАН
35
42789,7791666667
93
42789,8025371991
-
53
be2f8116ae2e35ec88604d3310d83c32
https://theoryandpractice.ru/videos?channel=sakharovskiy-tsentr
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Сахаровский центр
35
42789,7784722222
93
42789,8025371991
-
53
e57ecf9c6c44e286cf110b6127750723
https://theoryandpractice.ru/videos?channel=ncca
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
ГЦСИ
35
42789,7777777778
93
42789,8025371991
-
53
4d74db3762914f84be56395d9c3c821b
https://theoryandpractice.ru/videos?channel=smena
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Смена
35
42789,7770833333
93
42789,8025371991
-
53
cf6375bf640d84b42fca84c8f87bc14d
https://theoryandpractice.ru/videos?channel=lectorium
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Лекториум
35
42789,7763888889
93
42789,8025371991
-
53
98746dd86141dae708382dd9ff14e09a
https://theoryandpractice.ru/videos?channel=city
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Городской лекторий
35
42789,7756944444
93
42789,8025371991
-
53
376999ab44c0ea6e8c4577eff4121d86
https://theoryandpractice.ru/videos?channel=gorsredy
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Городские среды в Нижнем Новгороде
35
42789,775
93
42789,8025371991
-
53
3f184b7996e123c47ac34b2c7db92cd7
https://theoryandpractice.ru/videos?channel=inliberty
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
InLiberty
35
42789,7743055556
93
42789,8025371991
-
53
c234be352720bd56381057ef7ae6d029
https://theoryandpractice.ru/videos?channel=stanislavsky
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Электротеатр «Станиславский»
35
42789,7736111111
93
42789,8025371991
-
53
1c4af613b724accb771547a99d1681ad
https://theoryandpractice.ru/videos?channel=hseinmuseums
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Лекционные четверги НИУ ВШЭ
35
42789,7729166667
93
42789,8025371991
-
53
fccef8754a01ce72696c7cd4dc9984f7
https://theoryandpractice.ru/videos?channel=SetUp
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Set Up
35
42789,7722222222
93
42789,8025371991
-
53
6a6b07cb1a21bf135e837862a5e3638b
https://theoryandpractice.ru/videos?channel=open_Wednesday
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
«Открытая среда» в МВШСЭН
35
42789,7715277778
93
42789,8025371991
-
53
111a0d98ad8ec6e0b883ae742df8f349
https://theoryandpractice.ru/videos?channel=jewish-museum
48a77fd9f5c87a19bc36a4f90fd2fb51
515
2
512
2
532
2
700
2
553
2
42
3
4
Еврейский музей и Центр толерантности
35
42789,7708333333
93
42789,8025371991
-
51
9cef75c923c1f81556c0cdcacb444653
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
2
532
2
700
2
553
2
42
3
4
07. Научные каналы
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
2
245
e26a893f-3bb7-47fe-819f-277f4908db4d
215
mpTitle
93
42010,0127441667
-
53
11bb6a5544d4a3d359059b1da1168de5
http://www.youtube.com/user/eurekansk/videos
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
Эврика!
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
403a041c-8060-45ae-82ec-455a42b007cb
525
42789,5140476736
215
-mpCreateDate
93
42010,0127441667
-
53
5476bb3636c723029b103e3204294033
http://www.youtube.com/playlist?list=PLSyUEbqK6uQRMUcPZgDo8XRx22JHu0p93
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
Science Slam
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
8f7cb435-347e-48ed-a781-84f8c664d229
525
42789,5142059722
215
-mpCreateDate
93
42010,0127441667
-
53
01ae343c-7d28-4cb0-85e8-3ac4fc83872b
http://www.youtube.com/user/nowchpok
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
Научпок
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
01ae343c-7d28-4cb0-85e8-3ac4fc83872b
93
42401,9002492824
525
42789,5142992245
-
53
4d28093b-6482-40e8-b2a5-1ded7f6a10cd
https://www.youtube.com/channel/UCcFXfOGUaUFB-V8NX8dN5xA/videos
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
Курилка Гутенберга (Лекторий Образовача)
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
4d28093b-6482-40e8-b2a5-1ded7f6a10cd
93
42401,9026957407
525
42789,514433831
-
53
0981462d-28e5-4754-9ce2-f6ad84ad2d0a
http://www.youtube.com/user/Sciencetechnics/videos
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
Наука и Техника
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
0981462d-28e5-4754-9ce2-f6ad84ad2d0a
93
42401,904813912
525
42789,5146964468
-
53
b1ed02a8-da1f-45d7-b0d5-a5c7ad3c0c13
https://www.youtube.com/user/murfizle/
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
Vsauce на Русском
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
b1ed02a8-da1f-45d7-b0d5-a5c7ad3c0c13
93
42401,904813912
525
42789,5147899306
-
53
fca26dce-0388-4d81-91f0-83953107137d
http://www.youtube.com/user/AsapSCIENCE/videos
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
AsapSCIENCE (English)
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
fca26dce-0388-4d81-91f0-83953107137d
93
42401,9096420602
525
42789,5149651505
527
--subtitles
-
53
1c26c4b8-775d-4d79-b858-9d9dddc0622a
http://www.youtube.com/user/minutephysics
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
MinutePhysics (English)
527
--subtitles
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
1c26c4b8-775d-4d79-b858-9d9dddc0622a
93
42401,9167834375
525
42789,5150386227
-
53
3c6e5811-1d29-4e6e-9834-2895584c0a33
http://www.youtube.com/channel/UCeQEKFH31vvD-InkTGSvCrA
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
Brusspup (наука иллюзий)
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
3c6e5811-1d29-4e6e-9834-2895584c0a33
93
42401,9330330787
525
42789,5150900347
-
51
ee337193-3813-43e2-b3ad-e4b44ccb768d
9cef75c923c1f81556c0cdcacb444653
515
2
512
2
532
2
700
2
553
2
42
3
4
Студии переводов и озвучивания
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
0
245
ee337193-3813-43e2-b3ad-e4b44ccb768d
93
42401,9392345833
-
53
729141b3-5537-432a-a0dd-4d69556b52c2
http://www.youtube.com/user/InCorCadit13/videos
ee337193-3813-43e2-b3ad-e4b44ccb768d
515
2
512
2
532
2
700
2
553
2
42
3
4
In Cor Cadit
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
729141b3-5537-432a-a0dd-4d69556b52c2
93
42401,939455081
525
42789,5151882292
-
53
94c00ebb-2120-41c3-8ed1-fede3950d747
http://www.youtube.com/channel/UCY6zVRa3Km52bsBmpyQnk6A
ee337193-3813-43e2-b3ad-e4b44ccb768d
515
2
512
2
532
2
700
2
553
2
42
3
4
Vert Dider
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
94c00ebb-2120-41c3-8ed1-fede3950d747
93
42401,7011206366
525
42789,5152493634
-
53
f0b0e55f-704c-4d3a-acb8-3c82eb89991a
http://www.youtube.com/user/AceGrade
ee337193-3813-43e2-b3ad-e4b44ccb768d
515
2
512
2
532
2
700
2
553
2
42
3
4
InsaneSpaceMuffin
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
f0b0e55f-704c-4d3a-acb8-3c82eb89991a
93
42401,9422431829
-
53
88d92e72-7dec-4c30-a3e6-4bd05ce49f78
http://www.youtube.com/user/AlexandrShah/
ee337193-3813-43e2-b3ad-e4b44ccb768d
515
2
512
2
532
2
700
2
553
2
42
3
4
AlexTranslations
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
88d92e72-7dec-4c30-a3e6-4bd05ce49f78
93
42401,9422431829
-
53
b27166b6-8460-4322-a73a-d315950f3dbc
http://www.youtube.com/channel/UChh4KdOL_b1D5oc3yJiaq6A/videos
ee337193-3813-43e2-b3ad-e4b44ccb768d
515
2
512
2
532
2
700
2
553
2
42
3
4
VoicePower
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
b27166b6-8460-4322-a73a-d315950f3dbc
525
42401,941672419
93
42401,9422431829
-
51
cc1c015e-8d6f-4725-be4a-ee88f24df7ac
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
1
512
2
532
2
700
2
553
2
4
09. Live
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
0
245
cc1c015e-8d6f-4725-be4a-ee88f24df7ac
93
42010,0127441667
50
Фильмы (основной) - FFMPEG
-
5
84c7528e-93eb-4817-89e1-4bffe67ff516
http://www.ustream.tv/channel/live-iss-stream
cc1c015e-8d6f-4725-be4a-ee88f24df7ac
4
МКС Live
84
0
245
84c7528e-93eb-4817-89e1-4bffe67ff516
55
http://wonky.lostcut.net/icons/play3.png
93
42010,0127441667
94
42136,9258657176
-
5
15f5601a-9ed3-4487-b12e-969a907ec58a
http://www.ustream.tv/nasahdtv
cc1c015e-8d6f-4725-be4a-ee88f24df7ac
4
NASA HDTV
84
0
245
15f5601a-9ed3-4487-b12e-969a907ec58a
55
http://wonky.lostcut.net/icons/play3.png
93
42010,0127441667
-
5
06e753fa-ff94-4191-ad4e-677cc3a370f7
http://www.ustream.tv/channel/nasa-media-channel
cc1c015e-8d6f-4725-be4a-ee88f24df7ac
4
NASA TV Media
84
0
245
06e753fa-ff94-4191-ad4e-677cc3a370f7
55
http://wonky.lostcut.net/icons/play3.png
93
42010,0127441667
-
5
50bc5e036905c5262ecf078a4ae4da2d
http://www.ustream.tv/channel/iss-hdev-payload
cc1c015e-8d6f-4725-be4a-ee88f24df7ac
4
ISS HD Earth Viewing Experiment
84
0
55
http://wonky.lostcut.net/icons/play3.png
93
42010,0127441667
94
42246,8029558912
-
53
66c4f0a0-438a-42e3-a653-f14c13119e14
http://curiosityrover.com
cc1c015e-8d6f-4725-be4a-ee88f24df7ac
515
1
512
2
532
1
700
2
553
1
4
Curiosity rover
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
66c4f0a0-438a-42e3-a653-f14c13119e14
93
42789,5233657176
55
http://ttolk.ru/wp-content/uploads/2012/08/43.jpg
530
int gnTotalItems=0; TDateTime gTimeStart=Now;
char
gsCacheDir = IncludeTrailingBackslash(ExtractShortPathName(HmsTempDirectory))+'crsty',
gsHeaders = 'http://curiosityrover.com/\r\n'+
'Accept: */*\r\n'+
'X-Requested-With: XMLHttpRequest\r\n'+
'Accept-Encoding: gzip,deflate\r\n',
gsInfoTranscodingProfile = 'Фильмы (основной)',
;
// ----------------------------------------------------------------------------
{
char sData, sLink, sTime, sFile, sName, sPattern, sFileImage, sVal='', sSubtFile, sText='';
int i, n, nCnt=0, nSeconds=0, nW, nH, newW, newH, nPhotoFrames=5; THmsScriptMediaItem Item;
FolderItem.DeleteChildItems();
nW = cfgTranscodingScreenWidth;
nH = cfgTranscodingScreenHeight;
char sHeaders = gsHeaders;
sFileImage = IncludeTrailingBackslash(gsCacheDir) + 'image_.jpg';
sSubtFile = IncludeTrailingBackslash(gsCacheDir) + 'subs_' + FolderItem.ItemID + '.srt';
HmsSendRequestEx('curiosityrover.com', '/', 'HEAD', 'application/x-www-form-urlencoded; charset=UTF-8', gsHeaders, '', 80, 0, sData, true);
if (HmsRegExMatch('(PHPSESSID=.*?);', sData, sVal)) sHeaders+='Cookie: '+sVal+'\r\n';
sData = HmsSendRequestEx('curiosityrover.com', '/localphp/loadmore.php', 'POST',
'application/x-www-form-urlencoded; charset=UTF-8', sHeaders,
'q=%2Bmsl&z=UTC&l=large&s=ettaken&o=desc&n=80&start=0', 80, 0, sVal, true);
sData = HmsRemoveLinebreaks(sData);
Variant aCamLinkPatterns = [
"href='([^']+/ncam/NRB_.*?)'",
"href='([^']+/ncam/NLB_.*?)'",
"href='([^']+/rcam/RLB_.*?)'",
"href='([^']+/rcam/RRB_.*?)'",
"href='([^']+/fcam/FRB_.*?)'",
"href='([^']+/fcam/FLB_.*?)'",
"href='([^']+/ccam/CR0_.*?)'",
"href='([^']+/ccam/CL0_.*?)'",
"href='([^']+/mcam/[^']+E01_DXXX.jpg)'",
"href='([^']+/mcam/[^']+E02_DXXX.jpg)'",
"href='([^']+/mhli/[^']+E01_DXXX.jpg)'",
"href='([^']+/mhli/[^']+E02_DXXX.jpg)'",
"href='([^']+/mhli/[^']+S00_DXXX.jpg)'",
"href='([^']+/mhli/[^']+R00_DXXX.jpg)'",
"href='([^']+/mhli/[^']+C00_DXXX.jpg)'",
];
TBitMap32 bitmap1 = TBitMap32.Create();
TBitMap32 bitmap2 = TBitMap32.Create();
bitmap2.SetSize(nW, nH);
TRect rect;
TColor32 cGreen = 255*255*255*255; // Незнаю почему он зелёный
try {
for (i=0; i<Length(aCamLinkPatterns); i++) {
sPattern = aCamLinkPatterns[i];
if (HmsRegExMatch(sPattern, sData, sLink)) {
sFile = IncludeTrailingBackslash(gsCacheDir)+HmsMD5SumOfString(sLink)+'.jpg';
if (!FileExists(sFile)) {
HmsDownloadURLToFile(sLink, sFile);
bitmap1.LoadFromFile(sFile);
newW = nW; newH = nH;
HmsCalculateThumbnailDimension(bitmap1.Width, bitmap1.Height, nW, nH, newW, newH, 2);
rect = bitmap2.BoundsRect;
rect.Height = newH;
rect.Width = newW;
rect.Offset(Round((nW - newW)/2), Round((nH - newH)/2));
bitmap2.Clear();
bitmap1.DrawTo3(bitmap2, rect);
if (HmsRegExMatch("<a[^>]+title='([^']+)'[^>]+"+sPattern, sData, sVal)) {
bitmap2.Font.Size = 24;
int tw=bitmap2.TextWidth(sVal);
int x = Int(bitmap2.Width / 2) - Int(tw / 2);
int y = nH - Int(nH / bitmap2.Font.Size);
bitmap2.RenderText(x, y, sVal, 2, cGreen);
}
bitmap2.SaveToFile(sFile);
}
CopyFile(sFile, sFileImage, false);
for (n=0; n<nPhotoFrames; n++) { nSeconds++; CopyFile(sFileImage, ReplaceStr(sFileImage, '.jpg', '')+Format('%.3d.jpg', [nSeconds]), false); }
}
if (HmsRegExMatch2("<a[^>]+title='([^']+)'[^>]+"+sPattern, sData, sVal, sLink)) {
nCnt++;
sTime = HmsTimeFormat(nSeconds-nPhotoFrames) + ',000 --> ' + HmsTimeFormat(nSeconds-1)+',000';
sText+= Format('%d\r\n%s\r\n%s\r\n\r\n', [nCnt, sTime, sVal]);
}
}
} finally {bitmap1.Free; bitmap2.Free;}
HmsStringToFile(sText, sSubtFile);
char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3';
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'"';
} except { sFileMP3=''; }
sLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -r 30 -pix_fmt yuv420p ', [sFileMP3, ReplaceStr(sFileImage, '.jpg', '')+'%03d.jpg']);
//if (sText!='') sLink += Format('-vf "scale=%d:%d,setdar=%s" -vhook "hmssubt.dll %s,Arial,29,0,16777215,0,3,0,0,0,%d,%d,30.000,0,0,0,rus,0,204,0,12" ', [nW,nH,cfgTranscodingScreenFormat,ReplaceStr(sSubtFile, ' ', '<space>'),nW,nH]);
//sLink = 'cmd://"'+ProgramPath+'\\Transcoders\\ffmpeg.exe" '+Trim(sLink);
sTime = HmsTimeFormat(nSeconds)+'.000';
sName = 'Curiosity photos';
HmsRegExMatch('<b>taken:</b>(.*?)<', sData, sName);
Item = HmsCreateMediaItem(sLink, FolderItem.ItemID);
Item[mpiTitle ] = sName;
Item[mpiThumbnail ] = ReplaceStr(sFileImage, '.jpg', '001.jpg');
Item[mpiTimeLength] = sTime;
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Item[mpiTranscodingProfile] = gsInfoTranscodingProfile;
//Item[mpiSubtitleLanguage ] = sSubtFile;
HmsIncSystemUpdateID();
}
531
C++Script
550
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
{
MediaResourceLink = mpFilePath;
}
551
C++Script
525
42789,5608634954
FFMPEG
Transcoders\ffmpeg.exe
http://www.ffmpeg.org/
http://www.ffmpeg.org/
FFMPEG
Нет скрипта
Транскодирование с перекодированием видео
3
begin
if SameText(cfgTranscodingFileFormat, 'MPEG (DVD)') then
FileExt := 'mpg'
else if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then
FileExt := 'ts'
else if Pos('ASF', cfgTranscodingFileFormat) > 0 then
FileExt := 'wmv'
else if SameText(cfgTranscodingFileFormat, 'MP4') then
FileExt := 'mp4'
else if SameText(cfgTranscodingFileFormat, 'MPEG1') then
FileExt := 'mpeg'
else
FileExt := '';
if FileExt <> '' then
MimeType := HmsGetMimeType(FileExt)
else
MimeType := ''
end.
PascalScript
0
TranscodingParams := IfThen(mpInternetItem,
HmsTranscodingProfileParams('Интернет-телевидение'),
IfThen(mpSubItemsCount > 0,
HmsTranscodingDvdParams,
HmsTranscodingInputParams + HmsTranscodingVideoParams +
HmsTranscodingMapParams(mpAudioStreamNo)));
If HmsRegExMatch('(-vstreamid \d+)', TranscodingParams, gsUserVariable1) Then
TranscodingParams := ReplaceStr(TranscodingParams, gsUserVariable1, '');
If HmsRegExMatch('(-astreamid \d+)', TranscodingParams, gsUserVariable1) Then
TranscodingParams := ReplaceStr(TranscodingParams, gsUserVariable1, '');
PascalScript
Фильмы (основной) - FFMPEG
-1
2
b15ffc44-3c1b-4f7d-9c19-fbd75ab5b042
-
5
d182ae9f0f4c9018df3a5044ac928b81
InfoAbouts
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
4
О подкасте
1001001
Title=О подкасте "Наука и образование"
Info=Автор: WendyH. (L) Copyleft.
Descr=Здесь собрана коллекция ресурсов, касающихся тем науки и образования. Те, которые были или показались мне интересными.||Мир интересен, многогранен и на изучение его нехватает времени. Но любопытство, как же мир устроен и как это работает, не даёт покоя. Если вам тоже, то, надеюсь, этот подкаст поможет найти информацию от тех, кто этим занимается.||Если вы считаете, что здесь не хватает интересного ресурса или заметили, что подкаст в каких-то случаях работает не так как надо - можете написать мне на почтовый адрес nauka@wonky.lostcut.net или написать на неоффицальном форуме hms.lostcut.net.||Пожелания и замечания всячески приветствуются.||С уважением, автор подкаста. Павел.
55
http://wonky.lostcut.net/vids/info.jpg
3
00:00:00.000
93
42010,0127441667
240
1
1
mp3
8
2013
11
160293
34
1
19
2
20
44100
61
16
18
MP3
21
160000
47
A|0||86017|2||MP3|160000|||44100|||||1|0|16||0|MP3,V|0||8|||MJPEG||1920x1080|25.000||16:9||||1|0|||0|MJPEG
13
MJPEG
78
1920
79
1080
17
16:9
80
72:72
15
1920
16
1080
12
25.000
90
91
92
1
97
0
105
0
2
-1
245
d182ae9f0f4c9018df3a5044ac928b81
94
42790,4973201157
-
53
5e56dfc5-1c85-49e4-9e80-8675e675086f
https://www.ted.com/talks?language=ru
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
2
532
2
700
2
553
2
42
3
4
08. TED talks (субтитры)
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
5e56dfc5-1c85-49e4-9e80-8675e675086f
93
42406,6368868519
525
42868,4065934606
-
32
f037d42ccc70749b804d0c165febc73c
-SettingsFolder
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
2
532
2
700
2
553
2
42
3
4
Настройки
200
5
500
///////////////////////////////////////////////////////////////////////////////
// Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е //
THmsScriptMediaItem goRoot = FolderItem; // Корневая папка настроек
string gsRootPath = '-SettingsFolder', // Значение поля путь (ссылка) корневой папки настроек
gsKey = '', // Ключ (определяется ниже)
gsValue = ''; // Значение ключа (устанавливается ниже)
TDateTime gTimeStart = Now; // Время запуска скрипта
TStrings SETTINGS; // Объект TStrings для хранения описания настроек
int
gnTotalItems = 0, // Глобальный счетчик
// Константы параметров этой динамической папки
mpiFolderType = 200, // Тип папки
mpiDynamicScript = 500, // Скрипт
mpiDynamicSyntaxType = 501, // Язык скрипта
mpiPreviousItemID = 200104, // Предыдущий ItemID
;
///////////////////////////////////////////////////////////////////////////////
// Ф У Н К Ц И И //
// ----------------------------------------------------- Структура настроек ---
void SettingsStructure() {
// Указываем ключи и их наименования
// Также указываем ключ и далее знак ':' и после - значение ключа (или '+' - добавить, '-' - удалить ключ)
SETTINGS.Values["--chkupdates" ] = "Проверять обновления подкаста";
SETTINGS.Values["--chkupdates:-"] = 'Не проверять';
SETTINGS.Values["--chkupdates:+"] = 'Проверять';
}
// ---------------------------------- Проверка текущего состояния настройки ---
bool CheckKeyState(string sVal) {
string PARAMS = goRoot.ItemParent[mpiPodcastParameters]+' '; // Строка установленных параметров подкаста
bool bExist = (Pos(gsKey+' ', PARAMS)>0); // Проверяем, указан ли уже ключ
if (sVal=='-') return !bExist; // Если проверяемое значение '-' - ключ не должен быть указан
else if (sVal=='+') return bExist; // Если проверяемое значение '+' - указан ли ключ
else return (Pos(gsKey+'='+sVal+' ', PARAMS)>0); // Иначе проверяем, установлено ли в параметрах заданное значение
}
// ---------------------------------------------- Создание ссылки-сообщения ---
void ShowMessageLink(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem(sMsg, FolderItem.ItemID);
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/ok.png';
}
// ---------- Функция создания динамической папки с унаследованным скриптом ---
void CreateItem(string sTitle, string sLink) {
THmsScriptMediaItem Folder = FolderItem.AddFolder(sLink, true);
Folder[mpiTitle ] = sTitle;
Folder[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnTotalItems,0,0)); gnTotalItems++;
Folder.CopyProperties(FolderItem, [mpiFolderType, mpiDynamicScript, mpiDynamicSyntaxType, mpiFolderSortOrder]);
}
///////////////////////////////////////////////////////////////////////////////
// ----------------------------------------------- Создание списка настроек ---
void CreateMainMenu() {
for (int i=0; i<SETTINGS.Count; i++) { // Обходим в цикле все настройки
string sKey = SETTINGS.Names[i]; // Получаем ключ настроек
if (Pos(':', sKey)>0) continue; // Если там есть ':', то это вариант настройки - пропускаем
CreateItem(SETTINGS.Values[sKey], '-showValues='+sKey); // Создаём пункт настройки
}
}
// ------------------------------------ Создание списка вариантов настройки ---
void CreateValuesList() {
int i; string sVal, sKey, sName, sState; // При входе в процедуру в gsKey уже сам ключ
for (i=0; i<SETTINGS.Count; i++) { // Обходим в цикле все настройки
sKey = SETTINGS.Names[i]; // Получаем ключ настроек
sName = SETTINGS.Values[sKey]; // Наименование варианта настройки
if (!HmsRegExMatch('^'+gsKey+':(.*)', sKey, sVal)) continue; // Если не получили значение нашего ключа, пропускаем
if (CheckKeyState(sVal)) sState='[v]'; else sState='[ ]'; // Проверка: установлено ли данное значение, ставим пометку
CreateItem(sState+' '+sName, '-key='+gsKey+' -value='+sVal); // Создаём пункт варианта настройки
}
}
// ------------------------ Включение/Отключение настройки или его значения ---
void ApplyKeyValue() {
// При входе в процедуру уже в gsKey - ключ, в gsValue - его значение (может быть '+' или '-', это установить или удалить параметр)
bool bExist; string sOldVal=gsKey, sNewVal, PARAMS; // По-умолчанию в sOldVal сам ключ
PARAMS = goRoot.ItemParent[mpiPodcastParameters]+' '; // Строка установленных параметров подкаста
HmsRegExMatch('('+gsKey+'=.*?)\\s', PARAMS, sOldVal); // Вылавливаем в sOldVal установленное значение
bExist = (Pos(sOldVal, PARAMS)>0); // Устанавливаем флаг присутсвия ключа в параметрах
if (gsValue=='-') sNewVal = ''; // Замена на пустое значение = удалению
else if (gsValue=='+') sNewVal = gsKey; // Просто устанавливаем ключ
else sNewVal = gsKey+'='+gsValue; // Устанавливаем ключ с новым значением
if (bExist) PARAMS = ReplaceStr(PARAMS, sOldVal, sNewVal); // Если ключ уже присутствует - заменяем
else PARAMS += sNewVal; // Иначе просто добавляем
ShowMessageLink('ВЫБРАНО: '+Copy(mpTitle, 5, 99)); // Пропускаем '[ ] ' в mpTitle и сообщаем о выбранном варианте
goRoot.ItemParent[mpiPodcastParameters] = Trim(ReplaceStr(PARAMS, ' ', ' ')); // Сохраняем параметры подкаста
}
// ----------------------------------------------------------------------------
void CreateAboutLink() {
TStrings INFO = TStringList.Create(); // Создаём объект TStrings для информации
//INFO.Values['Poster'] = '';
INFO.Values['Title' ] = 'О подкасте "Наука и образование"';
INFO.Values['Info' ] = 'Автор: WendyH. (L) Copyleft.';
INFO.Values['Descr' ] = 'Здесь собрана коллекция ресурсов, касающихся тем науки и образования. Те, которые были или показались мне интересными.'+
'||Мир интересен, многогранен и на изучение его нехватает времени. Но любопытство, как же мир устроен и как это работает, не даёт покоя. '+
'Если вам тоже, то, надеюсь, этот подкаст поможет найти информацию от тех, кто этим занимается.'+
'||Если вы считаете, что здесь не хватает интересного ресурса или заметили, что подкаст в каких-то случаях работает не так как надо - можете написать мне на почтовый адрес nauka@wonky.lostcut.net или написать на неоффицальном форуме hms.lostcut.net.'+
'||Пожелания и замечания всячески приветствуются.'+
'||С уважением, автор подкаста. Павел.'+
'';
THmsScriptMediaItem Item = HmsCreateMediaItem('InfoAbouts', goRoot.ItemParent.ItemID);
Item[mpiTitle ] = 'О подкасте';
Item[1001001 ] = INFO.Text;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiTimeLength] = '00:00:10.000';
INFO.Free();
}
// ----------------------------------------------------------------------------
// Проверка значения ссылки текущей папки и извлечение группировок регулярного выражения в gsKey и gsValue
bool CheckPath(string sPattern) { return HmsRegExMatch2(sPattern, mpFilePath, gsKey, gsValue); }
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
// ----------------------------------------------------------------------------
{
// Поиск корневой динамической папки (ибо этот скрипт может выполнятся и в подпапках)
while ((goRoot[mpiFilePath]!=gsRootPath) && (goRoot.ItemParent!=nil)) goRoot = goRoot.ItemParent;
if (goRoot[mpiFilePath]!=gsRootPath) { ShowMessageLink('Не найдена папка настроек с путём '+gsRootPath); return; }
CreateAboutLink();
// Если это повторный вызов, смены папки не произошло - ничего не делаем
if ((FolderItem.ItemID==goRoot[mpiPreviousItemID]) && (FolderItem!=goRoot) && !DebugMode) return;
FolderItem.DeleteChildItems(); goRoot[mpiPreviousItemID] = FolderItem.ItemID;
SETTINGS = TStringList.Create();
try {
SettingsStructure();
if (CheckPath(gsRootPath)) CreateMainMenu(); // Если это корень - создаём список настроек
else if (CheckPath('-showValues=(.*)')) CreateValuesList(); // Зашли в настройку - показываем список вариантов значений
else if (CheckPath('-key=(.*?) -value=(.*)')) ApplyKeyValue(); // Зашли в вариант значения настройки - применяем этот вариант
} finally { SETTINGS.Free(); }
HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания
}
501
C++Script
215
-mpCreateDate
245
f037d42ccc70749b804d0c165febc73c
200104
f037d42ccc70749b804d0c165febc73c
93
42010,0127441667
-
53
11b80954-dc35-4ba2-a73b-369636b05224
https://www.youtube.com/channel/UCMIVE71tHEUDkuw8tPxtzSQ
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
2
532
2
700
2
553
2
42
3
4
10. Цікава наука (Интересная наука)
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
11b80954-dc35-4ba2-a73b-369636b05224
93
42868,4063592477
525
42868,4174893634
527
--numiration
215
mpTitle
-
51
cab57261a15e45e022c44d75b658806a
-SearchFolder
5adbc4e9-5cd8-4f69-87fe-91be2d0859b4
515
2
512
0
532
1
700
2
553
1
42
3
4
Поиск
35
42869,6223148148
93
42869,6223215394
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
0
245
cab57261a15e45e022c44d75b658806a
550
//THmsScriptMediaItem PodcastItem = FolderItem; string MediaResourceLink = '';
///////////////////////////////////////////////////////////////////////////////
// Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е //
int
gnItemsAdded = 0, // Глобальный счетчик созданных ссылок
gnUpdateMode = 1; // Режим обновления: 0-Только сообщать о вышедшем обновлении, 1-Включить возможность обновить "с пульта телевизора"
string
gsForumPost = "f=20&t=4336", // Тема и пост форума homemediaserver.ru, где выложен подкаст (для проверки обновлений)
gsVersion = "2017.03.25", // Версия подкаста (то, что должно быть в комментарии к файлу на форуме)
gsHeaders = 'Accept-Encoding: gzip, deflate\r\n',
gsVal = '',
gsPodcastName = 'HMS Youtube v3.1', // Заголовок видео-сообщения при ошибках
gsUserId = '',
gsAPIurl = 'https://www.googleapis.com/youtube/v3/%s?key=AIzaSyDY7NostuASg47evFG1OZvwbZiysnYsAwc&maxResults=50&gl=ru®ionCode=ru&hl=ru&%s',
gsClientId = '135465214286-a9r7p8stj7c7o7k4mk3c7vi4r9po4rna.apps.googleusercontent.com',
gsRedirectUrl = 'https://hms.lostcut.net/youtube/callback.php',
gsAccessToken = '',
gsRefreshToken= '',
;
bool gbSubtitles; THmsScriptMediaItem goRoot=PodcastItem; TDateTime gTimeStart=Now;
///////////////////////////////////////////////////////////////////////////////
// Ф У Н К Ц И И //
// ------------------------------------------ Проверка обновлений подкаста ----
bool CheckUpdates() {
string sHtml, sVer, sVal, sText; THmsScriptMediaItem Folder, Item;
if ((Pos('--chkupdates', mpPodcastParameters)<1) || (gsForumPost=='')) return;
sVal = gsClientId+DateToStr(gTimeStart); // Формируем идентификатор подкаста с датой старта
if ((gsUserVariable4==sVal) && !DebugMode) return; // Если уже проверяли сегодяня, выходим
gsUserVariable4 = sVal; // Запоминаем эту дату проверки обновления, дабы не проверять каждый раз
// Загружаем страницу форума, где выложен данный подкаст
sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml));
// Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение
if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml);
// Пытаемся получить комментарий к файлу = версию подкаста на форуме
if (!HmsRegExMatch('Комментарий к файлу:</b>(.*?)</span>', sHtml, sVer)) return;
if (Pos('*', sVer)>0) gnUpdateMode = 0; // Если версия помечена звездочкой, не даём автоматом обновлять
if (sVer!=gsVersion) {
// Версия не совпадает, формируем из сообщения текст информации о подкасте.
HmsRegExMatch('<div[^>]+class="postbody">(.*?)<table', sHtml, sText);
sText = HmsHtmlToText(sText);
// В данном случае, вырезаем лишнее из текста информации о подкасте
if (HmsRegExMatch('^(.*)UPD', sText, sVal, 1, PCRE_SINGLELINE)) sText=ReplaceStr(sText, sVal, '');
sText = ReplaceStr(sText, 'UPD', '|UPD');
TStrings INFO = TStringList.Create(); // Создаём объект TStrings для информации
INFO.Values['Poster'] = 'https://hms.lostcut.net/youtube/img/youtube.jpg';
INFO.Values['Title' ] = 'Обновление подкаста '+gsPodcastName;
INFO.Values['Info' ] = 'Текущая версия подкаста: '+gsVersion+'|Версия подкаста на сайте: '+sVer;
INFO.Values['Descr' ] = ReplaceStr(sText, '\r\n', '|');
Folder = CreateFolder('Есть обновления подкаста', '-upd');
if (gnUpdateMode>0) {
Item = HmsCreateMediaItem('Обновить подкаст', Folder.ItemID);
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/refresh.png';
Item[mpiTimeLength] = '00:00:10.000';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
}
Item = HmsCreateMediaItem('InfoUpdate', Folder.ItemID);
Item[mpiTitle ] = 'Информация';
Item[1001001 ] = INFO.Text;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiTimeLength] = '00:00:10.000';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
INFO.Free();
}
}
// --------------------------------------------------- Обновление подкаста ----
void UpdatePodcast() {
string sTitle, sData, sVal, sLink, sHtml, sMsg, sFile, sDir, sRootPath, sDescr='';
TXMLDocument xmlDoc; TXMLItem xmlItem; TStrings FILELIST; int i;
THmsScriptMediaItem Item;
// Загружаем страницу форума, где выложен данный подкаст
sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml));
// Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение
if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml);
// Пытаемся получить комментарий к файлу = версию подкаста на форуме
if (!HmsRegExMatch('(/download/file.php\\?id=.*?)"', sHtml, sLink)) {
VideoMessage('Невозможно найти ссылку на скачивание файла.');
return;
}
sLink = HmsHtmlToText(sLink);
sLink = HmsExpandLink(sLink, 'http://homemediaserver.ru/forum'); // Дополняем относительную ссылку до полной
sFile = HmsTempDirectory+'\\update.zip'; // Файл, куда скачивается новый подкаст
sDir = HmsTempDirectory+'\\update'; // Каталог, куда распаковывается файл
sMsg = '<c:#E22>При выполнении обновления возникла ошибка. Обновление не выполнено!'; // Сообщение, если возникнет ошибка
FILELIST = TStringList.Create(); xmlDoc = TXMLDocument.Create();
try {
while (true) {
HmsDownloadURLToFile(sLink, sFile);
HmsExtractFiles(sFile, sDir, true);
HmsGetFileList(sDir, FILELIST, '*.hdf'); // Получаем список файлов с расширением .hdf в FILELIST
if (FILELIST.Count < 1) {sMsg='Не удалось скачать и распаковать новую версию подкаста.'; break;}
xmlDoc.LoadFromFile(FILELIST[0]); // Загружаем первый файл в списке как TXMLDocument
LoadPodcastFromXML(xmlDoc.Root, goRoot); // Загружаем новый подкаст (применяем обновлнеие)
sMsg = '<s:'+IntToStr(Round(cfgTranscodingScreenHeight/9))+'>Обновление выполнено! </s>'; // Если мы дошли до сюда без Exception, значит всё прошло норм
PodcastItem[mpiTitle ] = 'Подкаст обновлён';
PodcastItem[mpiFilePath ] = 'Info';
PodcastItem[mpiThumbnail] = 'http://wonky.lostcut.net/vids/info.jpg';
sDescr = '||Было обновлено (добавлено) '+IntToStr(gnItemsAdded)+' элементов подкаста.'+
'|На некоторых устройствах необходимо выйти из подкаста вообще и обновить текушую ветку подкаста.'+
'|Помните, что выставленные или убранные ключи в поле "Дополнительные параметры" были сброшены на "по-умолчанию" (как выставлено в скачанном подкасте).'+
'|Самостоятельно добавленные ссылки не удалены, только добавлены новые. Если были ссылки изменены, могут появиться "дубликаты".'+
'|Если что-то не так при обновлении - сообщайте автору подкаста.';
HmsDatabaseAutoSave();
break;
}
} finally { FILELIST.Free(); TXMLDocument.Free(); }
VideoMessage(sMsg+'\r\n'+sDescr); // Показываем сообщение
HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания
}
// ---------------------------------------------- Загрузка подкаста из XML ----
void LoadPodcastFromXML(TXMLItem xmlParentItem, Variant ParentItem, int nNest=0) {
int i, n; TXMLItem xmlItem, xmlCollection, xml; string sClassID, sItemPath, sName, sItemID; THmsScriptMediaItem Item;
// Получаем коллекцию 'Properties', если не нашли - то это не то, что нужно
xmlCollection = xmlParentItem.Find('Properties'); if (xmlCollection==nil) return;
for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех параметров и применяем их к ParentItem
xmlItem = xmlCollection.Items[i];
n = StrToIntDef(xmlItem.ChildValues["ID"], 0); if (n==0) continue;
if ((n==245) || (n==517)) continue; // Parent ItemID и настройки приоритета качества пропускаем
if ((nNest==0) && (n==4)) continue; // Не меняем имя подкаста верхнего уровня
ParentItem[n] = xmlItem.ChildValues["Value"];
}
xmlCollection = xmlParentItem.Find('ChildItems'); if (xmlCollection==nil) return;
for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех дочерних элементов (подпапок) и добавляем их в ParentItem
xmlItem = xmlCollection.Items[i];
sClassID = xmlItem.ChildValues["ClassID" ];
sItemPath = xmlItem.ChildValues["ItemPath"];
sItemID = xmlItem.ChildValues["ItemID" ];
if (sItemPath=='') {
// Путь пустой, ну тогда ищем существующий сначала по ItemID и, если не найдём, по имени
sName=''; Item=nil;
for (n=0; n<ParentItem.ChildCount; n++) if (ParentItem.ChildItems[n].ItemID==sItemID) {Item=ParentItem.ChildItems[n]; break;}
if (Item==nil) {
xml = xmlParentItem.Find('Properties'); if (xml==nil) continue;
for (n=0; n<xml.Count; n++) if (xml.Items[n].ChildValues["ID"]=='4') {sName=xml.Items[n].ChildValues["Value"]; break;}
if (sName=='') continue;
Item = ParentItem.FindItemByProperty(mpiTitle, sName);
}
if (Item==nil) Item = ParentItem.AddFolder(sName, false, StrToInt(sClassID));
Item[mpiFilePath] = '';
} else {
if (sClassID=='5') Item = HmsCreateMediaItem(sItemPath, ParentItem.ItemID);
else Item = ParentItem.AddFolder(sItemPath, false, StrToInt(sClassID));
}
if ((Item!=ParentItem) && (Item!=nil)) LoadPodcastFromXML(xmlItem, Item, nNest+1);
}
gnItemsAdded++;
}
// -------------------------------- Показ информации, сохранённой в ссылке ----
void ShowInfo() {
string sTitle, sCateg, sInfo, sDescr, sImg, prefix='youtubev3';
TStrings INFO = TStringList.Create();
INFO.Text = PodcastItem[1001001];
sTitle = INFO.Values['Title' ];
sCateg = INFO.Values['Categ' ];
sInfo = INFO.Values['Info' ];
sDescr = INFO.Values['Descr' ];
sImg = INFO.Values['Poster'];
INFO.Free();
MediaResourceLink = GenerateVideoInfo(prefix, sTitle, sInfo, sCateg, sDescr, sImg);
}
// ---------------------------- Генерирование картинок и строки для ffmpeg ----
char GenerateVideoInfo(char prefix, char sTitle, char sInfo='', char sCateg='', char sDescr='', char sImg='', int mode=0, char sDirID='') {
char sHtml, sPost, sVal, sCol, sLink, sData, sPos, sImagesDir;
int i, n, nSeconds, nSecDel, nMaxImages, nMaxTextLength, nPage=0; double nH, nW;
char sFileImage, sCmd, sColor, sTime; TRegExpr reChannel, reCast;
int xMargin=15, yMargin=15;
nSeconds = 0; nMaxImages = 4; nMaxTextLength = 0;
if (HmsRegExMatch('--xmargin=(\\d+)', mpPodcastParameters, sVal)) xMargin=StrToInt(sVal);
if (HmsRegExMatch('--ymargin=(\\d+)', mpPodcastParameters, sVal)) yMargin=StrToInt(sVal);
if (Pos('--lq', mpPodcastParameters)>0) {
nH = cfgTranscodingScreenHeight / 2;
nW = cfgTranscodingScreenWidth / 2;
} else if (HmsRegExMatch2('--pr=(\\d+)x(\\d+)', mpPodcastParameters, sVal, sPos)) {
nH = StrToInt(sPos);
nW = StrToInt(sVal);
} else {
nH = cfgTranscodingScreenHeight;
nW = cfgTranscodingScreenWidth;
}
if (sDirID=='') sDirID = 'info_'+PodcastItem.ItemID;
sImagesDir = IncludeTrailingBackslash(ExtractShortPathName(HmsTempDirectory))+Trim(prefix);
sImagesDir = IncludeTrailingBackslash(sImagesDir)+sDirID;
ForceDirectories(sImagesDir);
sFileImage = IncludeTrailingBackslash(sImagesDir)+'info_';
sPost = '';
TStrings INFO = TStringList.Create();
INFO.Values['prfx' ] = prefix;
INFO.Values['title'] = sTitle;
INFO.Values['info' ] = sInfo;
INFO.Values['categ'] = sCateg;
INFO.Values['descr'] = sDescr;
INFO.Values['xpic' ] = '15';
INFO.Values['ypic' ] = '15';
INFO.Values['w' ] = IntToStr(Round(nW));
INFO.Values['h' ] = IntToStr(Round(nH));
INFO.Values['xm' ] = IntToStr(xMargin);
INFO.Values['ym' ] = IntToStr(yMargin);
INFO.Values['fz' ] = '3';
INFO.Values['fzdescr'] = IntToStr(Round(nH/22));
INFO.Values['fztitle'] = IntToStr(Round(nH/18));
INFO.Values['fzinfo' ] = IntToStr(Round(nH/25));
if (mode==1) {
INFO.Values['fzdescr'] = IntToStr(Round(nH/16));
INFO.Values['fztitle'] = IntToStr(Round(nH/10));
INFO.Values['fzinfo' ] = IntToStr(Round(nH/14));
INFO.Values['xm'] = IntToStr(Round(nH/14));
} else if ((mode==2) || (mode==3)) {
INFO.Values['ct' ] = '000';
INFO.Values['ctitle'] = '822';
INFO.Values['cinfo' ] = '223';
INFO.Values['ccateg'] = '255';
INFO.Values['fz'] = '6';
INFO.Values['ns'] = '1';
INFO.Values['bg'] = './backgrounds/white.png';
INFO.Values['wpic' ] = IntToStr(Round(nH/3));
if (mode==2) INFO.Values['wpic'] = IntToStr(Round(nH/2));
}
if (sImg !='') {
INFO.Values['urlpic'] = sImg;
INFO.Values['wpic' ] = IntToStr(Round(nH/2));
}
n = 0; TStrings FILELIST = TStringList.Create();
try {
HmsGetFileList(sImagesDir, FILELIST, '*.jpg');
n = FILELIST.Count;
} finally { FILELIST.Free(); }
if (n<4) {
// Получаем ссылки на сформированные картинки, пока в параметрах встречаем lastpos=N
sPos = '0'; nPage = 0;
do {
sColor = ''; sTime = ''; nPage++;
if (nPage>1) {
sData = Copy(sDescr, 1, StrToInt(sPos)); // Блок, успевший попасть на экран
// Определяем последний использующийся цвет
HmsRegExMatch('.*(\\d{2}:\\d{2}\\s*?-\\s*?\\d{2}:\\d{2})', sData, sTime, 1, PCRE_SINGLELINE);
sTime += ' ... ';
}
sDescr = sColor+sTime+Trim(Copy(sDescr, StrToInt(sPos), 999999));
INFO.Values['descr'] = sDescr;
sPost = '';
for (n=0; n<INFO.Count; n++) sPost += '&'+Trim(INFO.Names[n])+'='+HmsHttpEncode(INFO.Values[INFO.Names[n]]);
sLink = HmsSendRequestEx('wonky.lostcut.net', '/videopreview.php', 'POST',
'application/x-www-form-urlencoded', '', sPost, 80, 0, '', true);
if (LeftCopy(sLink, 4)!='http') {HmsLogMessage(2, 'Ошибка получения картинки видеоинформации'); return;}
HmsDownloadURLToFile(sLink, sFileImage);
for (n=0; n<5; n++) { nSeconds++; CopyFile(sFileImage, sFileImage+Format('%.3d.jpg', [nSeconds]), false); }
if (nPage>=nMaxImages) break;
} while (HmsRegExMatch2('^(.*?)\\?lastpos=(\\d+)', sLink, sLink, sPos));
}
INFO.Free();
char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3';
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'"';
} except { sFileMP3=''; }
sLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -r 30 -pix_fmt yuv420p ', [sFileMP3, sFileImage+'%03d.jpg']);
PodcastItem[mpiTimeLength] = HmsTimeFormat(nSeconds)+'.000';
return sLink;
}
// ------------------------ Установка в заголовках HTTP токена авторизации ----
void SetHeadersToken() {
gsHeaders += 'Authorization: Bearer '+gsAccessToken+'\r\n';
}
// -- Поиск корневой папки подкаста, где мы будем хранить в mpiAccessToken ----
void SearchRoot() {
// goRoot - считается элемент, у которого установлен пароль или напроч корневой
while ((goRoot.ItemParent!=nil)&&(Trim(goRoot[594])!='1')) goRoot=goRoot.ItemParent;
}
// -------------------- Запрос на открытие окна для получения кода доступа ----
void AuthCodeQuery() {
string sMsg, sLink; Variant objShell;
if (Pos('--alert', mpPodcastParameters)<1) return;
sMsg = 'ТРЕБУЕТСЯ РАЗРЕШЕНИЕ ДОСТУПА ПРИЛОЖЕНИЯ К УЧЕТНОЙ ЗАПИПИ GOOGLE.\n\n'+
'Для работы с аккаунтом youtube нужно получить код авторизации\n'+
'данного приложения для вашей учетной записи Goolge.\n'+
'Код разовый, имеет дступ только на чтение ваших данных.\n'+
'\nОткрыть браузер для авторизации и получения кода???';
if (MessageDlg(sMsg, 0, 1+8, 0)==mrCancel) return;
try {objShell = CreateOleObject('WScript.Shell');} except {}
if (VarType(objShell)!=varDispatch) {
HmsLogMessage(1, 'Не могу создать ActiveXObject WScript.Shell');
return;
}
sLink = 'https://accounts.google.com/o/oauth2/auth?response_type=code&scope=https://www.googleapis.com/auth/youtube.readonly+https://picasaweb.google.com/data/+https://www.googleapis.com/auth/userinfo.profile&redirect_uri='+gsRedirectUrl+'&client_id='+gsClientId+'&hl=ru&approval_prompt=force&access_type=offline';
objShell.Run(sLink);
}
// ----------------------------------------------------------- Авторизация ----
bool Login(bool bSilent=false) {
int INTERNET_FLAG_RELOAD = StrToInt('$80000000'), nFlag=0;
string sData, sPost, sServ, sRet, sVal, sLink, s='6avodhg99rd';
if (Trim(mpPodcastAuthorizationPassword)=='') {
if (!bSilent) ErrorItem('Не указан пароль (код авторизации)! Перейдите по ссылке https://hms.lostcut.net/youtube');
return false;
}
// Устанавливаем значение goRoot как корневой элемент подкаста
SearchRoot();
sData = Trim(goRoot[591]);
if (Pos('access_token', sData)==0) sData = mpPodcastAuthorizationPassword;
if (Pos('access_token', sData)>0) {
HmsRegExMatch('"access_token"\\s*?:\\s*?"(.*?)"' , sData, gsAccessToken );
HmsRegExMatch('"refresh_token"\\s*?:\\s*?"(.*?)"', sData, gsRefreshToken);
}
if (Trim(gsAccessToken)!='') {
sData = HmsDownloadUrl('https://www.googleapis.com/oauth2/v2/tokeninfo?access_token='+HmsHttpEncode(gsAccessToken));
if (!HmsRegExMatch('"issued_to"\\s*?:\\s*?"(.*?)"', sData, '')) {
gsAccessToken = '';
if (gsRefreshToken!='') {
sServ = 'accounts.google.com';
sPost = Format('client_id=%s&client_secret=%s&refresh_token=%s&grant_type=refresh_token', [gsClientId, s+'-WacPOSm3arjO', gsRefreshToken]);
sData = HmsSendRequestEx(sServ, '/o/oauth2/token', 'POST', 'application/x-www-form-urlencoded', '', sPost, 443, nFlag, sRet, true);
if (HmsRegExMatch('"access_token"\\s*?:\\s*?"(.*?)"', sData, gsAccessToken)) {
goRoot[591] = sData + '"refresh_token":"'+gsRefreshToken+'"';
}
}
}
if (Trim(gsAccessToken)!='') {
SetHeadersToken();
return true;
}
}
sVal = '';
nFlag = INTERNET_FLAG_RELOAD;
sServ = 'accounts.google.com';
sPost = Format('code=%s&client_id=%s&client_secret=%s&redirect_uri=%s&grant_type=authorization_code', [mpPodcastAuthorizationPassword, gsClientId, s+'-WacPOSm3arjO', gsRedirectUrl]);
sData = HmsSendRequestEx(sServ, '/o/oauth2/token', 'POST', 'application/x-www-form-urlencoded', '', sPost, 443, nFlag, sRet, true);
if (HmsRegExMatch('"access_token"\\s*?:\\s*?"(.*?)"', sData, gsAccessToken)) {
HmsRegExMatch('"refresh_token"\\s*?:\\s*?"(.*?)"', sData, gsRefreshToken);
goRoot[591] = sData;
SetHeadersToken();
} else {
gsAccessToken = '';
gsRefreshToken = '';
if (!bSilent) {
ErrorItem('Не верный код авторизации! Получить код на https://hms.lostcut.net/youtube');
AuthCodeQuery();
}
}
return (Trim(gsAccessToken)!='');
}
// ------------------------------------------- Получение ссылки на Youtube ----
bool GetLink_Youtube31(string sLink) {
string sData, sVideoID='', sMaxHeight='', sAudio='', sSubtitlesLanguage='ru',
sSubtitlesUrl, sFile, sVal, sMsg, sConfig, sHeaders, ttsDef;
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=='') return VideoMessage('Невозможно получить Video ID в ссылке Youtube');
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 ((Trim(mpTimeLength)=='') || (RightCopy(mpTimeLength, 6)=='00.000')) {
if (HmsRegExMatch2('itemprop="duration"[^>]+content="..(\\d+)M(\\d+)S', sData, sVal, sMsg)) {
PodcastItem[mpiTimeLength] = StrToInt(sVal)*60+StrToInt(sMsg);
} else {
sVal = HmsDownloadURL('http://www.youtube.com/get_video_info?html5=1&c=WEB&cver=html5&cplayer=UNIPLAYER&hl=ru&video_id='+sVideoID, sHeaders, true);
if (HmsRegExMatch('length_seconds=(\\d+)', sData, sMsg))
PodcastItem[mpiTimeLength] = StrToInt(sMsg);
}
}
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 true;
}
}
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\\caption_tracks'], 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;
} else if ((height>=selHeight) && (height<= maxHeight) && (itag in ([18,22,37,38,82,83,84,85]))) {
// Если выоста такая же, но формат MP4 - то выбираем именно его (делаем приоритет MP4)
MediaResourceLink = sLink; selHeight = height;
}
}
}
if (bAdaptive && (sAudio!='')) MediaResourceLink = '-i "'+Trim(MediaResourceLink)+'" -i "'+Trim(sAudio)+'"';
}
// Если есть субтитры и в дополнительных параметрах указано их показывать - загружаем
if (bSubtitles && (ttsUrl!='')) {
string sTime1, sTime2; float nStart, nDur;
sLink = ''; n = WordCount(ttsUrl, ',');
for (i=1; i <= n; i++) {
sData = ExtractWord(i, ttsUrl, ',');
sType = HmsPercentDecode(ExtractParam(sData, 'lc', '', '&'));
sVal = HmsPercentDecode(ExtractParam(sData, 'u' , '', '&'));
if (sType == 'en') sLink = sVal;
if (sType == sSubtitlesLanguage) { sLink = sVal; break; }
}
if (sLink != '') {
sData = HmsDownloadURL(sLink, sHeaders, true);
sMsg = ''; i = 0;
RegEx = TRegExpr.Create('(<(text|p).*?</(text|p)>)', PCRE_SINGLELINE); // Convert to srt format
try {
if (RegEx.Search(sData)) do {
if (HmsRegExMatch('start="([\\d\\.]+)', RegEx.Match, sVal)) nStart = StrToFloat(ReplaceStr(sVal, '.', ','))*1000;
else if (HmsRegExMatch('t="(\\d+)' , RegEx.Match, sVal)) nStart = StrToFloat(sVal);
if (HmsRegExMatch('dur="([\\d\\.]+)' , RegEx.Match, sVal)) nDur = StrToFloat(ReplaceStr(sVal, '.', ','))*1000;
else if (HmsRegExMatch('d="(\\d+)' , RegEx.Match, sVal)) nDur = StrToFloat(sVal);
sTime1 = HmsTimeFormat(Int(nStart/1000))+','+RightCopy(Str(nStart), 3);
sTime2 = HmsTimeFormat(Int((nStart+nDur)/1000))+','+RightCopy(Str(nStart+nDur), 3);
sMsg += Format("%d\n%s --> %s\n%s\n\n", [i, sTime1, sTime2, HmsHtmlToText(HmsHtmlToText(RegEx.Match(0), 65001))]);
i++;
} while (RegEx.SearchAgain());
} finally { RegEx.Free(); }
sFile = HmsSubtitlesDirectory+'\\Youtube\\'+PodcastItem.ItemID+'.'+sSubtitlesLanguage+'.srt';
HmsStringToFile(sMsg, sFile);
PodcastItem[mpiSubtitleLanguage] = sFile;
}
}
}
// ------------------------------------------------- Показ видео сообщения ----
bool VideoMessage(string sMsg) {
string sFileMP3 = HmsTempDirectory+'\\sa.mp3';
string sFileImg = HmsTempDirectory+'\\youtubemsg_';
sMsg = HmsHtmlToText(HmsJsonDecode(sMsg));
int nH = cfgTranscodingScreenHeight;
int nW = cfgTranscodingScreenWidth;
HmsLogMessage(2, mpTitle+': '+sMsg);
string sLink = Format('http://wonky.lostcut.net/videomessage.php?h=%d&w=%d&captsize=%d&fontsize=%d&caption=%s&msg=%s', [nH, nW, Round(nH/8), Round(nH/17), gsPodcastName, HmsHttpEncode(sMsg)]);
HmsDownloadURLToFile(sLink, sFileImg);
for (int i=1; i<=7; i++) CopyFile(sFileImg, sFileImg+Format('%.3d.jpg', [i]), false);
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/sa.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'" ';
} except { sFileMP3 = ''; }
MediaResourceLink = Format('%s-f image2 -r 1 -i "%s" -c:v libx264 -r 30 -pix_fmt yuv420p ', [sFileMP3, sFileImg+'%03d.jpg']);
return false;
}
// ------------------------------------------------- Создание ссылки-ошибки ---
void ErrorItem(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem('Err', PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/symbol-error.png';
HmsLogMessage(2, sMsg);
}
// ------------------------------------------------- Создание видео-ссылки ----
THmsScriptMediaItem CreateVideo(string sID, string sTitle, string sImg, string sTime, string sDate, string sComment='') {
if (LeftCopy(sID, 4)!='http') sID = 'http://www.youtube.com/watch?v='+Trim(sID);
THmsScriptMediaItem Item = HmsCreateMediaItem(sID, PodcastItem.ItemID);
Item[mpiTitle ] = sTitle;
Item[mpiThumbnail ] = sImg;
Item[mpiTimeLength] = sTime;
Item[mpiCreateDate] = sDate;
Item[mpiComment ] = sComment;
Item[mpiPartNo ] = gnItemsAdded;
gnItemsAdded++;
return Item;
}
// --------------------------------------------- Создание папки (подкаста) ----
THmsScriptMediaItem CreateFolder(string sTitle, string sLink, string sImg="", ) {
THmsScriptMediaItem Item = PodcastItem.AddFolder(sLink);
Item[mpiTitle ] = sTitle;
//Item[mpiFolderSortOrder] = "mpPartNo";
Item[mpiThumbnail ] = sImg;
Item[mpiPartNo ] = gnItemsAdded;
gnItemsAdded++;
return Item;
}
// ------------------------------------ Проверка дополнительных параметров ----
void CheckParameters() {
if (HmsRegExMatch('--language=(\\w+)', mpPodcastParameters, gsVal))
ReplaceStr(gsAPIurl, '&hl=ru', '&hl='+gsVal);
if (HmsRegExMatch('--regionCode=(\\w+)', mpPodcastParameters, gsVal))
ReplaceStr(gsAPIurl, 'regionCode=ru', 'regionCode='+gsVal);
}
// ----------------------------------------------------------------------------
string Translate(string sText) {
string sResult=sText; TStrings DICT = TStringList.Create();
DICT.Values['Best of YouTube'] = 'Лучшее на YouTube';
DICT.Values['Paid channels' ] = 'Платные каналы';
DICT.Values['Top YouTube Collections'] = 'Лучшие коллекции YouTube';
DICT.Values['Popular Artists'] = 'Популярные исполнители';
if (Trim(DICT.Values[sText])!='') sResult = DICT.Values[sText];
DICT.Free();
if (HmsRegExMatch('(Popular Artist Mixes)', sResult, gsVal)) sResult = ReplaceStr(sResult, gsVal, 'Миксы популярных исполнителей');
return sResult;
}
// ----------------------------------------------------------------------------
string SafeName(string sName) {
sName = ReplaceStr(sName, '/' , '-');
sName = ReplaceStr(sName, '\\', '-');
sName = Translate(sName);
return sName;
}
// ----------------------------------------------------------------------------
string ConvertTime(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';
}
// ----------------------------------------------------------------------------
string ConvertDate(string sDate) {
string sY, sM, sD, sTime;
HmsRegExMatch3('(\\d{4}).(\\d{2}).(\\d{2})', sDate, sY, sM, sD);
HmsRegExMatch ('T(\\d{2}:\\d{2}:\\d{2})' , sDate, sTime );
return Format('%s.%s.%s %s', [sD, sM, sY, sTime]);
}
// ----------------------------------------------------------------------------
string CreateItems(string sPath, string sObject, string sParam, string sFiltr='') {
string sLink, sData, sName, sID, sImg, sCh, sVal, sResult='', sTime;
int i; TJsonObject JSON, ITEM; TJsonArray ITEMS;
if (HmsRegExMatch('pageToken=([\\w-_]+)', mpFilePath, sID)) sParam += '&pageToken='+sID;
sLink = Format(gsAPIurl, [sObject, sParam]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sData);
sID = JSON.S('nextPageToken');
if (sID!='') {
if (sObject=='search') mpFilePath = '-search='+sParam;
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
sCh = '?'; if (Pos('?', mpFilePath)>0) sCh = '&';
CreateFolder('Следующая страница', mpFilePath+sCh+'pageToken='+sID);
}
ITEMS = JSON.A('items');
if (ITEMS != nil) {
for (i=0; i<ITEMS.Length; i++) {
ITEM = ITEMS[i];
// Хоть playlistItems и возвращает список видео, но там нет длительности
// Поэтому собираем ID видео, чтобы потом вызвать videos со списком этих ID
if (sObject=='playlistItems') {
if (sResult!='') sResult += ',';
sResult += ITEM.S('contentDetails\\videoId');
continue;
} else if (sObject=='activities') {
if (sFiltr!='') if (ITEM.S[sFiltr]=='') continue;
if (sResult!='') sResult += ',';
sID = ITEM.S('contentDetails\\recommendation\\resourceId\\videoId');
if (sID=='') sID = ITEM.S('contentDetails\\playlistItem\\resourceId\\videoId');
if (sID=='') sID = ITEM.S('contentDetails\\upload\\videoId');
if (sID!='') sResult += sID;
continue;
} else if (sObject=='search') {
sVal = ITEM.S('id\\kind');
if (sVal=='youtube#playlist') {
sID = ITEM.S('id\\playlistId');
sPath = 'http://www.youtube.com/playlist?list=';
} else if (sVal=='youtube#channel') {
sID = ITEM.S('id\\channelId');
sPath = 'http://www.youtube.com/channel/';
} else {
sID = ITEM.S('id\\videoId');
sPath = 'video';
if (sResult!='') sResult += ',';
if (sID!='') sResult += sID;
continue;
}
} else if (sObject=='videoCategories') {
if (!ITEM.B('snippet\\assignable')) continue;
sID = ITEM.S('id');
if (sID=='1') sID = '30';
} else if (sObject=='subscriptions') {
sID = ITEM.S('snippet\\resourceId\\channelId');
} else {
sID = ITEM.S('id');
}
if (sID=='') continue;
if (LeftCopy(sPath, 6)=='getids') { if (sResult!='') sResult+=','; sResult += sID; continue; }
sName = ITEM.S('snippet\\localized\\title');
if (sName=='') sName = ITEM.S('snippet\\title');
sImg = ITEM.S('snippet\\thumbnails\\medium\\url');
sName = SafeName(HmsUtf8Decode(sName));
sVal = ITEM.S('contentDetails\\itemCount'); if (sVal=='0') continue;
if (sVal!='') sName += ' ['+sVal+']';
if (Pos(sPath, '%s')>0) sLink = Format(sPath, [sID]);
else sLink = sPath + sID;
if (sPath=='video' ) {
if (ITEM.S('snippet\\liveBroadcastContent')=='live') sTime = '04:00:00.000';
else sTime = ConvertTime(ITEM.S('contentDetails\\duration'));
if (Pos('DE', ITEM.S('contentDetails\\regionRestriction\\blocked'))>0) sID += '¬de=1';
}
if (sPath=='video' ) CreateVideo(sID, sName, sImg, sTime, ConvertDate(ITEM.S('snippet\\publishedAt')), HmsUtf8Decode(ITEM.S('snippet\\description')));
else CreateFolder(sName, sLink, sImg);
}
}
} finally { JSON.Free(); }
return sResult;
}
// ----------------------------------------------------------------------------
void CreateChannels(string sID) {
CreateItems('http://www.youtube.com/channel/', 'channels', 'part=snippet,contentDetails&categoryId='+sID);
}
// ----------------------------------------------------------------------------
void CreateGuideCategories() {
Login(true);
CreateItems('http://www.youtube.com/channels/', 'guideCategories', 'part=snippet');
}
// ----------------------------------------------------------------------------
void CreateVideoCategories() {
CreateItems('-category=', 'videoCategories', 'part=snippet');
}
// ----------------------------------------------------------------------------
void CreateVideosByCategory(string sID) {
CreateItems('video', 'videos', 'part=snippet,contentDetails&chart=mostPopular&videoCategoryId='+sID);
}
// ----------------------------------------------------------------------------
void CreatePlaylistVideos(string sID) {
string sIDs, sVal;
sIDs = CreateItems('getids', 'playlistItems', 'part=contentDetails&fields=nextPageToken,items(contentDetails%2FvideoId)&playlistId='+sID);
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateMySubscriptions() {
if (!Login()) return;
CreateItems('http://www.youtube.com/channel/', 'subscriptions', 'part=snippet,contentDetails&mine=true');
}
// ----------------------------------------------------------------------------
void CreateMySubscribers() {
if (!Login()) return;
CreateItems('http://www.youtube.com/channel/', 'subscriptions', 'part=snippet,contentDetails&mySubscribers=true');
}
// ----------------------------------------------------------------------------
void CreateMyPlaylist(string sKey) {
string sData, sLink, sID;
if (!Login()) return;
sLink = Format(gsAPIurl, ['channels', 'part=snippet,contentDetails&mine=true']);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
if (HmsRegExMatch('"'+sKey+'":\\s*?"(.*?)"', sData, sID)) CreatePlaylistVideos(sID);
}
// ----------------------------------------------------------------------------
void CreateMyRecommendations() {
string sIDs, sVal;
if (!Login()) return;
sIDs = CreateItems('getids', 'activities', 'part=contentDetails&home=true');
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateMyNewVideos() {
string sIDs, sDate, sID, sLink, sData, sPlaylistIDs, sName, sImg, sTime='10';
int i, n; TJsonObject JSON, VIDEO; TJsonArray VIDEOS; TStringList LIST;
if (!Login()) return;
sPlaylistIDs = CreateItems('getids', 'subscriptions', 'part=snippet,contentDetails&mine=true');
LIST = TStringList.Create();
JSON = TJsonObject.Create();
for (i=1; i<=WordCount(sPlaylistIDs, ','); i++) {
sID = ExtractWord(i, sPlaylistIDs, ','); // ИД плейлиста, на который мы подписаны
sLink = Format(gsAPIurl, ['search', 'part=snippet&order=date&channelId='+sID]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
JSON.LoadFromString(sData);
VIDEOS = JSON["items"].AsArray;
if (VIDEOS!=nil) {
for (n=0; n < VIDEOS.Length; n++) {
VIDEO = VIDEOS[n];
if (VIDEO.S['id\\kind']!='youtube#video') continue;
sID = VIDEO.S['id\\videoId'];
sDate = VIDEO.S['snippet\\publishedAt'];
sName = VIDEO.S['snippet\\title'];
LIST.Add(sDate+';'+sID+';'+HmsUtf8Decode(sName));
}
}
}
LIST.Sort();
for (i=LIST.Count-1; i>=0; i--) {
HmsRegExMatch3('(.*?);(.*?);(.*)', LIST[i], sDate, sID, sName);
if (sIDs!='') sIDs += ','; sIDs += sID;
if (LIST.Count-i >= 50) break;
}
LIST.Free(); JSON.Free();
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateChannelVideos(string sChannelID) {
SearchVideosByParam('&q=&part=snippet&type=video&order=date&channelId='+sChannelID);
}
// ----------------------------------------------------------------------------
void SearchVideosByParam(string sParam) {
string sIDs, sVal;
Login(true);
sIDs = CreateItems('video', 'search', sParam);
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateVideosByRegion(string sRegion) {
string sVal, sParam;
if (HmsRegExMatch('(®ionCode=[\\w-_]+)', gsAPIurl, sVal)) gsAPIurl = ReplaceStr(gsAPIurl, sVal, '');
sParam = '&q=&part=snippet&type=video&order=rating®ionCode='+sRegion+'&relevanceLanguage='+sRegion;
if (HmsRegExMatch('category=([\\w-_]+)', mpFilePath, sVal)) sParam += '&videoCategoryId=' + sVal;
SearchVideosByParam(sParam);
}
// ----------------------------------------------------------------------------
void CreateMyActivities() {
string sIDs, sVal;
if (!Login()) return;
sIDs = CreateItems('getids', 'activities', 'part=contentDetails&mine=true');
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateChannelPlaylists(string sChannelID) {
CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&channelId='+sChannelID);
}
// ----------------------------------------------------------------------------
void CreateChannelSections(string sChannelID, bool bForUser=false) {
string sLink, sData, sIDs='', sType, sID, sName, sChannelData;
int i, nCnt, nMax; TJsonObject JSON, ITEM; TJsonArray ITEMS; TStrings CHANNELS;
if (bForUser)
sLink = Format(gsAPIurl, ['channels', 'part=snippet,contentDetails&forUsername='+sChannelID]);
else
sLink = Format(gsAPIurl, ['channels', 'part=snippet,contentDetails&id='+sChannelID]);
sChannelData = HmsDownloadUrl(sLink, gsHeaders, true);
HmsRegExMatch('"id":\\s*?"(.*?)"', sChannelData, sChannelID);
sLink = Format(gsAPIurl, ['channelSections', 'part=snippet,contentDetails&fields=items(id,snippet/type,snippet/title,snippet/localized/title,contentDetails)&channelId='+sChannelID]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
JSON = TJsonObject.Create();
CHANNELS = TStringList.Create();
try {
JSON.LoadFromString(sData);
ITEMS = JSON.A('items');
if (ITEMS != nil) {
for (i=0; i<ITEMS.Length; i++) {
ITEM = ITEMS[i];
sType = ITEM.S('snippet\\type');
if (sType=='singlePlaylist') {
sID = ITEM.S('contentDetails\\playlists[0]');
CHANNELS.Values[sID] = '1';
} else if ((sType=='multiplePlaylists')||(sType=='multipleChannels')) {
sID = ITEM.S('id');
sName = ITEM.S('snippet\\localized\\title');
if (sName=='') sName = ITEM.S('snippet\\title');
sName = SafeName(HmsUtf8Decode(sName));
CreateFolder(sName, '-channelSection='+sID);
}
}
}
} finally { JSON.Free(); }
// Create single playlists
nCnt = 0; nMax = 4;
for (i=0; i<CHANNELS.Count; i++) {
sID = CHANNELS.Names[i];
nCnt++; if (nCnt>=50) {
CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&id='+sIDs);
nCnt = 1; sIDs = sID; nMax --; if (nMax<=0) break;
}
if (sIDs!='') sIDs += ','; sIDs += sID;
}
if (sIDs!='') CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&id='+sIDs);
CHANNELS.Free();
CreateFolder('Плейлисты', '-channelPlaylists='+sChannelID);
sLink = 'http://www.youtube.com/playlist?list=';
if (HmsRegExMatch('"uploads":\\s*?"(.*?)"' , sChannelData, sID)) CreateFolder('Загруженные видео', sLink+sID);
if (HmsRegExMatch('"likes":\\s*?"(.*?)"' , sChannelData, sID)) CreateFolder('Понравившиеся' , sLink+sID);
if (HmsRegExMatch('"favorites":\\s*?"(.*?)"', sChannelData, sID)) CreateFolder('Любимые' , sLink+sID);
}
// ----------------------------------------------------------------------------
void CreateByChannelSection(string sSectionID) {
string sLink, sData, sIDs='', sType, sID, sName;
int i; TJsonObject JSON, ITEM; TJsonArray ITEMS;
sLink = Format(gsAPIurl, ['channelSections', 'part=contentDetails&id='+sSectionID]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sData);
sLink = 'http://www.youtube.com/channel/';
sIDs = JSON.S('items[0]\\contentDetails\\channels');
HmsRegExMatch('\\[(.*?)\\]', sIDs, sIDs);
sIDs = ReplaceStr(sIDs, '"', '');
if (WordCount(sIDs, ',')>50) {
sID = Copy(sIDs, 1, WordPosition(51, sIDs, ',')-2);
CreateItems(sLink, 'channels', 'part=snippet,contentDetails&id='+sID);
sIDs = Copy(sIDs, WordPosition(51, sIDs, ','), 99999);
if (WordCount(sIDs, ',')>50) sIDs = Copy(sIDs, 1, WordPosition(51, sIDs, ',')-2);
}
if (sIDs!='') CreateItems(sLink, 'channels', 'part=snippet,contentDetails&id='+sIDs);
sLink = 'http://www.youtube.com/playlist?list=';
sIDs = JSON.S('items[0]\\contentDetails\\playlists');
HmsRegExMatch('\\[(.*?)\\]', sIDs, sIDs);
sIDs = ReplaceStr(sIDs, '"', '');
if (WordCount(sIDs, ',')>50) {
sID = Copy(sIDs, 1, WordPosition(51, sIDs, ',')-2);
CreateItems(sLink, 'playlists', 'part=snippet,contentDetails&id='+sID);
sIDs = Copy(sIDs, WordPosition(51, sIDs, ','), 99999);
if (WordCount(sIDs, ',')>50) sIDs = Copy(sIDs, 1, WordPosition(51, sIDs, ',')-2);
}
if (sIDs!='') CreateItems(sLink, 'playlists', 'part=snippet,contentDetails&id='+sIDs);
} finally { JSON.Free(); }
}
// ----------------------------------------------------------------------------
void CreateMyPlaylists() {
string sData, sLink, sID;
if (!Login()) return;
CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&mine=true');
}
// ----------------------------------------------------------------------------
void SearchVideos(string sName, bool bContinue=false) {
string sVal='', sParam = '', sIDs, sPodcastParams, sKey, sPossibleKeys; int i, nCnt;
if (!bContinue) {
sPodcastParams = mpFilePath + ' ' + PodcastItem.ItemParent[mpiFilePath] + ' ' + mpPodcastParameters;
sPossibleKeys = 'channelId,channelType,eventType,location,locationRadius,maxResults,order,publishedAfter,publishedBefore,regionCode,relevanceLanguage,safeSearch,topicId,type,videoCaption,videoCategoryId,videoDefinition,videoDimension,videoDuration,videoEmbeddable,videoLicense,videoSyndicated,videoType';
for (i=1; i<=WordCount(sPossibleKeys, ','); i++) {
sKey = ExtractWord(i, sPossibleKeys, ',');
if (HmsRegExMatch('-'+sKey+'=([\\w_\\-\\.,:]+)', sPodcastParams, sVal)) sParam += '&'+sKey+'=' +sVal;
}
if (PodcastItem.ItemParent[mpiComment]=='+') sName = PodcastItem.ItemParent[mpiTitle] + ' ' + Trim(sName);
sIDs = CreateItems('video', 'search', 'part=snippet&q='+HmsHttpEncode(HmsUtf8Encode(sName))+sParam);
} else {
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', sName, sVal)) sName = ReplaceStr(sName, sVal, '');
sIDs = CreateItems('video', 'search', sName);
}
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void GetUserID() {
string sData = HmsDownloadUrl('https://www.googleapis.com/oauth2/v2/userinfo', gsHeaders, true);
HmsRegExMatch('"id"\\s*?:\\s*?"(.*?)"', sData, gsUserId);
}
// ----------------------------------------------------------------------------
void CreateMyPhotos() {
string sData, sLink, sName, sID, sImg; TRegExpr RE;
if (!Login()) return;
GetUserID();
sData = HmsDownloadUrl('https://picasaweb.google.com/data/feed/api/user/'+gsUserId+'?prettyprint=true&access=all', gsHeaders, true);
RE = TRegExpr.Create('<entry>(.*?)</entry>', PCRE_SINGLELINE);
try {
if (RE.Search(sData)) do {
sID=''; sName=''; sImg='';
HmsRegExMatch('<id>(.*?)</id>' , RE.Match, sID );
HmsRegExMatch('<title.*?>(.*?)</title>' , RE.Match, sName);
HmsRegExMatch('thumbnai.*?url=["\'](.*?)["\']', RE.Match, sImg );
CreateFolder(HmsUtf8Decode(sName), sID, sImg);
} while (RE.SearchAgain());
} finally { RE.Free(); }
}
// ----------------------------------------------------------------------------
void CreateMyAlbumPhotos() {
string sData, sLink, sName, sImg, sUserID, sAlbumID, sDate, sSize, sVal, sTime;
THmsScriptMediaItem Item; TRegExpr RE; string sMime;
if (!Login()) return;
GetUserID();
HmsRegExMatch2('/user/(.*?)/albumid/([^/\\?&]+)', mpFilePath, sUserID, sAlbumID);
sLink = Format('https://picasaweb.google.com/data/feed/api/user/%s/albumid/%s?access=all&prettyprint=true', [sUserID, sAlbumID]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
RE = TRegExpr.Create('<entry>(.*?)</entry>', PCRE_SINGLELINE);
try {
if (RE.Search(sData)) do {
sLink=''; sName=''; sImg=''; sMime='';
HmsRegExMatch('.*thumbnail[^>]+url=["\'](.*?)["\']', RE.Match, sLink);
HmsRegExMatch('<title.*?>(.*?)</title>' , RE.Match, sName);
HmsRegExMatch('thumbnail[^>]+url=["\'](.*?)["\']', RE.Match, sImg );
HmsRegExMatch('timestamp>(\\d+)<' , RE.Match, sDate);
HmsRegExMatch(':size>(\\d+)<' , RE.Match, sSize);
if (HmsRegExMatch('media:content[^>]+type=\'video', RE.Match, '')) {
HmsRegExMatch2('.*media:content[^>]+url=["\']([^"\']+)[^>]+type=\'(video.*?)\'', RE.Match, sLink, sMime);
if (!HmsRegExMatch('duration=["\'](\\d+)', RE.Match, sTime)) sTime = '00:20:00.000';
} else {
if (HmsRegExMatch('(/s\\d+/)', sLink, sVal)) sLink = ReplaceStr(sLink, sVal, '/s'+IntToStr(cfgTranscodingScreenWidth)+'/');
sTime = '7';
}
sDate = VarToStr(TimeStamp1970ToDateTime(StrToInt64(sDate), true));
sLink = HmsHtmlToText(sLink);
sName = HmsHtmlToText(sName);
sName = HmsUtf8Decode(sName);
Item = CreateVideo(sLink, sName, sImg, sTime, sDate);
Item[mpiFileSize] = StrToInt64(sSize);
Item[mpiMimeType] = sMime;
if ((Pos('--photoasimage', mpPodcastParameters)>0) && (Pos('video', sMime)<1)) {
Item[38 ] = 'object.item.imageItem';
Item[mpiMimeType] = 'image/jpeg';
}
} while (RE.SearchAgain());
} finally { RE.Free(); }
}
// ----------------------------------------------------------------------------
void GetLink_Picasaweb(string sLink) {
string sData, sFileMP3, sFileImg, sServ, sRet='';
int nH=cfgTranscodingScreenHeight, nW=cfgTranscodingScreenWidth, nFlag=0;
int INTERNET_FLAG_NO_AUTO_REDIRECT = 0x00200000, INTERNET_FLAG_RELOAD = StrToInt('$80000000');
TBitmap32 BM, BMPic, BMtmp; int nPicX, nPicY, nNewW=0, nNewH=0;
Login();
sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3';
sFileImg = ExtractShortPathName(HmsTempDirectory)+'\\pic_';
if ((HmsFileMediaType(sLink)==mtVideo) || (Pos('video', mpMimeType)>0)) {
MediaResourceLink = '-headers "Authorization: Bearer '+gsAccessToken+'" -i "'+sLink+'"';
return;
}
HmsDownloadURLToFile(sLink, sFileImg);
// Resize picture to fit our resolution
BM = TBitmap32.Create();
BMPic = TBitmap32.Create();
BMtmp = TBitmap32.Create();
try {
BM.SetSize(nW, nH);
BM.ClearEx(0);
BMPic.LoadFromFile(sFileImg);
HmsCalculateThumbnailDimension(BMPic.Width, BMPic.Height, nW, nH, nNewW, nNewH, 2);
BMtmp.SetSize(nNewW, nNewH);
BMPic.DrawTo3(BMtmp, BMtmp.BoundsRect);
nPicX = Round(nW/2 - nNewW/2);
nPicY = Round(nH/2 - nNewH/2);
BMtmp.DrawTo2(BM, nPicX, nPicY);
BM.SaveToFile(sFileImg+'tmp.jpg');
CopyFile(sFileImg+'tmp.jpg', sFileImg, false);
} finally { BMtmp.Free(); BM.Free(); BMPic.Free(); }
for (int i=1; i<=7; i++) CopyFile(sFileImg, sFileImg+Format('%.3d.jpg', [i]), false);
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 -r 30 -pix_fmt yuv420p ', [sFileMP3, sFileImg+'%03d.jpg']);
}
// ----------------------------------------------------------------------------
void CreateMyFolders() {
THmsScriptMediaItem Item;
CreateFolder('Новые видео в подписках', '-newVideos', 'https://hms.lostcut.net/youtube/icons/play.png');
CreateFolder('Мои подписки' , 'https://www.youtube.com/feed/subscriptions', 'https://hms.lostcut.net/youtube/icons/mychannel.png');
CreateFolder('Плейлисты' , '-playlists' , 'https://hms.lostcut.net/youtube/icons/playlists.png');
CreateFolder('Посмотреть позже' , 'https://www.youtube.com/playlist?list=WL', 'https://hms.lostcut.net/youtube/icons/clock.png');
CreateFolder('Загруженные видео', '-uploads' , 'https://hms.lostcut.net/youtube/icons/uploads.png');
Item = CreateFolder('Фотографии', '-photos' , 'https://hms.lostcut.net/youtube/icons/photos.png');
Item[mpiTranscodingProfile] = 'Фильмы (основной)';
CreateFolder('Понравившиеся' , '-likes' , 'https://hms.lostcut.net/youtube/icons/like.png');
CreateFolder('Просмотренные' , 'http://www.youtube.com/feed/history', 'https://hms.lostcut.net/youtube/icons/history.png');
CreateFolder('Рекомендации' , '-recommend' , 'https://hms.lostcut.net/youtube/icons/home.png');
//CreateFolder('Любимые' , '-favorites' , 'https://hms.lostcut.net/youtube/icons/favorite.png');
CreateFolder('Мои подписчики' , '-mySubscribers', 'https://hms.lostcut.net/youtube/icons/subscribers.png');
//CreateFolder('Очистка токенов (при смене кода доступа)', '-clearToteks', '');
}
// ----------------------------------------------------------------------------
void ClearAllTokens() {
THmsScriptMediaItem Item;
SearchRoot();
goRoot[591] = '';
for (int i=0; i<PodcastItem.ItemParent.ChildCount; i++) {
Item = PodcastItem.ItemParent.ChildItems[i];
Item[591] = '';
}
gsAccessToken = '';
gsRefreshToken = '';
ErrorItem('Токены очищены!');
}
// ----------------------------------------------------------------------------
// Проверка значения текущей пути (в gsVal получаем группировку рег. выражен.)
bool CheckPath(string sPattern) { return HmsRegExMatch(sPattern, mpFilePath, gsVal); }
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
// ----------------------------------------------------------------------------
{
CheckParameters(); // Проверка установленных параметров подкаста
if (PodcastItem.IsFolder) {
PodcastItem.DeleteChildItems(); // Удаление существующих ссылок
// if (Trim(PodcastItem[mpiFolderSortOrder])=='') PodcastItem[mpiFolderSortOrder]="mpPartNo";
CheckUpdates();
// Анализ текущей ссылки
if (CheckPath('/feed/subscriptions' )) CreateMySubscriptions();
else if (CheckPath('-MyChannel' )) CreateMyFolders();
else if (CheckPath('-playlists' )) CreateMyPlaylists();
else if (CheckPath('/playlist\\?list=WL' )) CreateMyPlaylist('watchLater');
else if (CheckPath('-likes' )) CreateMyPlaylist('likes');
else if (CheckPath('-favorites' )) CreateMyPlaylist('favorites');
else if (CheckPath('-uploads' )) CreateMyPlaylist('uploads');
else if (CheckPath('/feed/history' )) CreateMyPlaylist('watchHistory');
else if (CheckPath('/feed/music' )) CreateMyPlaylist('music');
else if (CheckPath('-mySubscribers' )) CreateMySubscribers();
else if (CheckPath('-recommend' )) CreateMyRecommendations();
else if (CheckPath('-activities' )) CreateMyActivities();
else if (CheckPath('-newVideos' )) CreateMyNewVideos();
else if (CheckPath('-photos' )) CreateMyPhotos();
else if (CheckPath('picasaweb.google.com' )) CreateMyAlbumPhotos();
else if (CheckPath('-clearToteks' )) ClearAllTokens();
else if (CheckPath('-videosByRegion=([\\w-_]+)')) CreateVideosByRegion(gsVal);
else if (CheckPath('youtube.com/channels$')) CreateGuideCategories();
else if (CheckPath('-videoCategories' )) CreateVideoCategories();
else if (CheckPath('-category=(.*) ' )) CreateVideosByCategory(gsVal);
else if (CheckPath('-channelSection=(.*)' )) CreateByChannelSection(gsVal);
else if (CheckPath('-channelPlaylists=(.*)')) CreateChannelPlaylists(gsVal);
else if (CheckPath('/channels/([\\w-_]+)' )) CreateChannels(gsVal);
else if (CheckPath('/channel/([\\w-_]+)/videos')) CreateChannelVideos(gsVal);
else if (CheckPath('/channel/([\\w-_]+)' )) CreateChannelSections(gsVal);
else if (CheckPath('/user/([\\w-_]+)' )) CreateChannelSections(gsVal, true);
else if (CheckPath('\\?list=([\\w-_]+)' )) CreatePlaylistVideos(gsVal);
else if (CheckPath('-search="(.*?)"' )) SearchVideos(gsVal); // Просто поиск значения
else if (CheckPath('-search=(.*)' )) SearchVideos(gsVal, true); // Продожение поиска (техническая ссылка, создаётся сама)
else if (!CheckPath('^http')) SearchVideos(mpTitle); // Иначе, если в ссылке не http адрес - поиск названия
else ErrorItem('Не умею обрабатывать ссылку :(');
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded));
} else {
// Устанавливаем значение goRoot как корневой элемент подкаста
SearchRoot();
if (LeftCopy(mpFilePath, 4)=='Info') { ShowInfo(); return; }
if (CheckPath('youtu.?be')) GetLink_Youtube31(mpFilePath);
else if (CheckPath('(picasaweb|googleusercontent)')) GetLink_Picasaweb(mpFilePath);
else if (CheckPath('Обновить подкаст')) UpdatePodcast();
else MediaResourceLink = mpFilePath;
}
}
551
C++Script
572
Нет скрипта
530
THmsScriptMediaItem PodcastItem = FolderItem; string MediaResourceLink = '';
///////////////////////////////////////////////////////////////////////////////
// Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е //
int
gnItemsAdded = 0, // Глобальный счетчик созданных ссылок
gnUpdateMode = 1; // Режим обновления: 0-Только сообщать о вышедшем обновлении, 1-Включить возможность обновить "с пульта телевизора"
string
gsForumPost = "f=20&t=4336", // Тема и пост форума homemediaserver.ru, где выложен подкаст (для проверки обновлений)
gsVersion = "2017.03.25", // Версия подкаста (то, что должно быть в комментарии к файлу на форуме)
gsHeaders = 'Accept-Encoding: gzip, deflate\r\n',
gsVal = '',
gsPodcastName = 'HMS Youtube v3.1', // Заголовок видео-сообщения при ошибках
gsUserId = '',
gsAPIurl = 'https://www.googleapis.com/youtube/v3/%s?key=AIzaSyDY7NostuASg47evFG1OZvwbZiysnYsAwc&maxResults=50&gl=ru®ionCode=ru&hl=ru&%s',
gsClientId = '135465214286-a9r7p8stj7c7o7k4mk3c7vi4r9po4rna.apps.googleusercontent.com',
gsRedirectUrl = 'https://hms.lostcut.net/youtube/callback.php',
gsAccessToken = '',
gsRefreshToken= '',
;
bool gbSubtitles; THmsScriptMediaItem goRoot=PodcastItem; TDateTime gTimeStart=Now;
///////////////////////////////////////////////////////////////////////////////
// Ф У Н К Ц И И //
// ------------------------------------------ Проверка обновлений подкаста ----
bool CheckUpdates() {
string sHtml, sVer, sVal, sText; THmsScriptMediaItem Folder, Item;
if ((Pos('--chkupdates', mpPodcastParameters)<1) || (gsForumPost=='')) return;
sVal = gsClientId+DateToStr(gTimeStart); // Формируем идентификатор подкаста с датой старта
if ((gsUserVariable4==sVal) && !DebugMode) return; // Если уже проверяли сегодяня, выходим
gsUserVariable4 = sVal; // Запоминаем эту дату проверки обновления, дабы не проверять каждый раз
// Загружаем страницу форума, где выложен данный подкаст
sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml));
// Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение
if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml);
// Пытаемся получить комментарий к файлу = версию подкаста на форуме
if (!HmsRegExMatch('Комментарий к файлу:</b>(.*?)</span>', sHtml, sVer)) return;
if (Pos('*', sVer)>0) gnUpdateMode = 0; // Если версия помечена звездочкой, не даём автоматом обновлять
if (sVer!=gsVersion) {
// Версия не совпадает, формируем из сообщения текст информации о подкасте.
HmsRegExMatch('<div[^>]+class="postbody">(.*?)<table', sHtml, sText);
sText = HmsHtmlToText(sText);
// В данном случае, вырезаем лишнее из текста информации о подкасте
if (HmsRegExMatch('^(.*)UPD', sText, sVal, 1, PCRE_SINGLELINE)) sText=ReplaceStr(sText, sVal, '');
sText = ReplaceStr(sText, 'UPD', '|UPD');
TStrings INFO = TStringList.Create(); // Создаём объект TStrings для информации
INFO.Values['Poster'] = 'https://hms.lostcut.net/youtube/img/youtube.jpg';
INFO.Values['Title' ] = 'Обновление подкаста '+gsPodcastName;
INFO.Values['Info' ] = 'Текущая версия подкаста: '+gsVersion+'|Версия подкаста на сайте: '+sVer;
INFO.Values['Descr' ] = ReplaceStr(sText, '\r\n', '|');
Folder = CreateFolder('Есть обновления подкаста', '-upd');
if (gnUpdateMode>0) {
Item = HmsCreateMediaItem('Обновить подкаст', Folder.ItemID);
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/icons/refresh.png';
Item[mpiTimeLength] = '00:00:10.000';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
}
Item = HmsCreateMediaItem('InfoUpdate', Folder.ItemID);
Item[mpiTitle ] = 'Информация';
Item[1001001 ] = INFO.Text;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/vids/info.jpg';
Item[mpiTimeLength] = '00:00:10.000';
Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0));
gnItemsAdded++;
INFO.Free();
}
}
// --------------------------------------------------- Обновление подкаста ----
void UpdatePodcast() {
string sTitle, sData, sVal, sLink, sHtml, sMsg, sFile, sDir, sRootPath, sDescr='';
TXMLDocument xmlDoc; TXMLItem xmlItem; TStrings FILELIST; int i;
THmsScriptMediaItem Item;
// Загружаем страницу форума, где выложен данный подкаст
sHtml = HmsDownloadUrl('http://homemediaserver.ru/forum/viewtopic.php?'+gsForumPost, '', true);
sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml));
// Если указан номер сообщения на форуме - вырезаем из всей страницы только это сообщение
if (HmsRegExMatch('(#p\\d+)', gsForumPost, sVal)) HmsRegExMatch(sVal+'(.*?)Скачиваний:', sHtml, sHtml);
// Пытаемся получить комментарий к файлу = версию подкаста на форуме
if (!HmsRegExMatch('(/download/file.php\\?id=.*?)"', sHtml, sLink)) {
VideoMessage('Невозможно найти ссылку на скачивание файла.');
return;
}
sLink = HmsHtmlToText(sLink);
sLink = HmsExpandLink(sLink, 'http://homemediaserver.ru/forum'); // Дополняем относительную ссылку до полной
sFile = HmsTempDirectory+'\\update.zip'; // Файл, куда скачивается новый подкаст
sDir = HmsTempDirectory+'\\update'; // Каталог, куда распаковывается файл
sMsg = '<c:#E22>При выполнении обновления возникла ошибка. Обновление не выполнено!'; // Сообщение, если возникнет ошибка
FILELIST = TStringList.Create(); xmlDoc = TXMLDocument.Create();
try {
while (true) {
HmsDownloadURLToFile(sLink, sFile);
HmsExtractFiles(sFile, sDir, true);
HmsGetFileList(sDir, FILELIST, '*.hdf'); // Получаем список файлов с расширением .hdf в FILELIST
if (FILELIST.Count < 1) {sMsg='Не удалось скачать и распаковать новую версию подкаста.'; break;}
xmlDoc.LoadFromFile(FILELIST[0]); // Загружаем первый файл в списке как TXMLDocument
LoadPodcastFromXML(xmlDoc.Root, goRoot); // Загружаем новый подкаст (применяем обновлнеие)
sMsg = '<s:'+IntToStr(Round(cfgTranscodingScreenHeight/9))+'>Обновление выполнено! </s>'; // Если мы дошли до сюда без Exception, значит всё прошло норм
PodcastItem[mpiTitle ] = 'Подкаст обновлён';
PodcastItem[mpiFilePath ] = 'Info';
PodcastItem[mpiThumbnail] = 'http://wonky.lostcut.net/vids/info.jpg';
sDescr = '||Было обновлено (добавлено) '+IntToStr(gnItemsAdded)+' элементов подкаста.'+
'|На некоторых устройствах необходимо выйти из подкаста вообще и обновить текушую ветку подкаста.'+
'|Помните, что выставленные или убранные ключи в поле "Дополнительные параметры" были сброшены на "по-умолчанию" (как выставлено в скачанном подкасте).'+
'|Самостоятельно добавленные ссылки не удалены, только добавлены новые. Если были ссылки изменены, могут появиться "дубликаты".'+
'|Если что-то не так при обновлении - сообщайте автору подкаста.';
HmsDatabaseAutoSave();
break;
}
} finally { FILELIST.Free(); TXMLDocument.Free(); }
VideoMessage(sMsg+'\r\n'+sDescr); // Показываем сообщение
HmsIncSystemUpdateID(); // Говорим устройству об обновлении содержания
}
// ---------------------------------------------- Загрузка подкаста из XML ----
void LoadPodcastFromXML(TXMLItem xmlParentItem, Variant ParentItem, int nNest=0) {
int i, n; TXMLItem xmlItem, xmlCollection, xml; string sClassID, sItemPath, sName, sItemID; THmsScriptMediaItem Item;
// Получаем коллекцию 'Properties', если не нашли - то это не то, что нужно
xmlCollection = xmlParentItem.Find('Properties'); if (xmlCollection==nil) return;
for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех параметров и применяем их к ParentItem
xmlItem = xmlCollection.Items[i];
n = StrToIntDef(xmlItem.ChildValues["ID"], 0); if (n==0) continue;
if ((n==245) || (n==517)) continue; // Parent ItemID и настройки приоритета качества пропускаем
if ((nNest==0) && (n==4)) continue; // Не меняем имя подкаста верхнего уровня
ParentItem[n] = xmlItem.ChildValues["Value"];
}
xmlCollection = xmlParentItem.Find('ChildItems'); if (xmlCollection==nil) return;
for (i=0; i<xmlCollection.Count; i++) { // Делаем обход всех дочерних элементов (подпапок) и добавляем их в ParentItem
xmlItem = xmlCollection.Items[i];
sClassID = xmlItem.ChildValues["ClassID" ];
sItemPath = xmlItem.ChildValues["ItemPath"];
sItemID = xmlItem.ChildValues["ItemID" ];
if (sItemPath=='') {
// Путь пустой, ну тогда ищем существующий сначала по ItemID и, если не найдём, по имени
sName=''; Item=nil;
for (n=0; n<ParentItem.ChildCount; n++) if (ParentItem.ChildItems[n].ItemID==sItemID) {Item=ParentItem.ChildItems[n]; break;}
if (Item==nil) {
xml = xmlParentItem.Find('Properties'); if (xml==nil) continue;
for (n=0; n<xml.Count; n++) if (xml.Items[n].ChildValues["ID"]=='4') {sName=xml.Items[n].ChildValues["Value"]; break;}
if (sName=='') continue;
Item = ParentItem.FindItemByProperty(mpiTitle, sName);
}
if (Item==nil) Item = ParentItem.AddFolder(sName, false, StrToInt(sClassID));
Item[mpiFilePath] = '';
} else {
if (sClassID=='5') Item = HmsCreateMediaItem(sItemPath, ParentItem.ItemID);
else Item = ParentItem.AddFolder(sItemPath, false, StrToInt(sClassID));
}
if ((Item!=ParentItem) && (Item!=nil)) LoadPodcastFromXML(xmlItem, Item, nNest+1);
}
gnItemsAdded++;
}
// -------------------------------- Показ информации, сохранённой в ссылке ----
void ShowInfo() {
string sTitle, sCateg, sInfo, sDescr, sImg, prefix='youtubev3';
TStrings INFO = TStringList.Create();
INFO.Text = PodcastItem[1001001];
sTitle = INFO.Values['Title' ];
sCateg = INFO.Values['Categ' ];
sInfo = INFO.Values['Info' ];
sDescr = INFO.Values['Descr' ];
sImg = INFO.Values['Poster'];
INFO.Free();
MediaResourceLink = GenerateVideoInfo(prefix, sTitle, sInfo, sCateg, sDescr, sImg);
}
// ---------------------------- Генерирование картинок и строки для ffmpeg ----
char GenerateVideoInfo(char prefix, char sTitle, char sInfo='', char sCateg='', char sDescr='', char sImg='', int mode=0, char sDirID='') {
char sHtml, sPost, sVal, sCol, sLink, sData, sPos, sImagesDir;
int i, n, nSeconds, nSecDel, nMaxImages, nMaxTextLength, nPage=0; double nH, nW;
char sFileImage, sCmd, sColor, sTime; TRegExpr reChannel, reCast;
int xMargin=15, yMargin=15;
nSeconds = 0; nMaxImages = 4; nMaxTextLength = 0;
if (HmsRegExMatch('--xmargin=(\\d+)', mpPodcastParameters, sVal)) xMargin=StrToInt(sVal);
if (HmsRegExMatch('--ymargin=(\\d+)', mpPodcastParameters, sVal)) yMargin=StrToInt(sVal);
if (Pos('--lq', mpPodcastParameters)>0) {
nH = cfgTranscodingScreenHeight / 2;
nW = cfgTranscodingScreenWidth / 2;
} else if (HmsRegExMatch2('--pr=(\\d+)x(\\d+)', mpPodcastParameters, sVal, sPos)) {
nH = StrToInt(sPos);
nW = StrToInt(sVal);
} else {
nH = cfgTranscodingScreenHeight;
nW = cfgTranscodingScreenWidth;
}
if (sDirID=='') sDirID = 'info_'+PodcastItem.ItemID;
sImagesDir = IncludeTrailingBackslash(ExtractShortPathName(HmsTempDirectory))+Trim(prefix);
sImagesDir = IncludeTrailingBackslash(sImagesDir)+sDirID;
ForceDirectories(sImagesDir);
sFileImage = IncludeTrailingBackslash(sImagesDir)+'info_';
sPost = '';
TStrings INFO = TStringList.Create();
INFO.Values['prfx' ] = prefix;
INFO.Values['title'] = sTitle;
INFO.Values['info' ] = sInfo;
INFO.Values['categ'] = sCateg;
INFO.Values['descr'] = sDescr;
INFO.Values['xpic' ] = '15';
INFO.Values['ypic' ] = '15';
INFO.Values['w' ] = IntToStr(Round(nW));
INFO.Values['h' ] = IntToStr(Round(nH));
INFO.Values['xm' ] = IntToStr(xMargin);
INFO.Values['ym' ] = IntToStr(yMargin);
INFO.Values['fz' ] = '3';
INFO.Values['fzdescr'] = IntToStr(Round(nH/22));
INFO.Values['fztitle'] = IntToStr(Round(nH/18));
INFO.Values['fzinfo' ] = IntToStr(Round(nH/25));
if (mode==1) {
INFO.Values['fzdescr'] = IntToStr(Round(nH/16));
INFO.Values['fztitle'] = IntToStr(Round(nH/10));
INFO.Values['fzinfo' ] = IntToStr(Round(nH/14));
INFO.Values['xm'] = IntToStr(Round(nH/14));
} else if ((mode==2) || (mode==3)) {
INFO.Values['ct' ] = '000';
INFO.Values['ctitle'] = '822';
INFO.Values['cinfo' ] = '223';
INFO.Values['ccateg'] = '255';
INFO.Values['fz'] = '6';
INFO.Values['ns'] = '1';
INFO.Values['bg'] = './backgrounds/white.png';
INFO.Values['wpic' ] = IntToStr(Round(nH/3));
if (mode==2) INFO.Values['wpic'] = IntToStr(Round(nH/2));
}
if (sImg !='') {
INFO.Values['urlpic'] = sImg;
INFO.Values['wpic' ] = IntToStr(Round(nH/2));
}
n = 0; TStrings FILELIST = TStringList.Create();
try {
HmsGetFileList(sImagesDir, FILELIST, '*.jpg');
n = FILELIST.Count;
} finally { FILELIST.Free(); }
if (n<4) {
// Получаем ссылки на сформированные картинки, пока в параметрах встречаем lastpos=N
sPos = '0'; nPage = 0;
do {
sColor = ''; sTime = ''; nPage++;
if (nPage>1) {
sData = Copy(sDescr, 1, StrToInt(sPos)); // Блок, успевший попасть на экран
// Определяем последний использующийся цвет
HmsRegExMatch('.*(\\d{2}:\\d{2}\\s*?-\\s*?\\d{2}:\\d{2})', sData, sTime, 1, PCRE_SINGLELINE);
sTime += ' ... ';
}
sDescr = sColor+sTime+Trim(Copy(sDescr, StrToInt(sPos), 999999));
INFO.Values['descr'] = sDescr;
sPost = '';
for (n=0; n<INFO.Count; n++) sPost += '&'+Trim(INFO.Names[n])+'='+HmsHttpEncode(INFO.Values[INFO.Names[n]]);
sLink = HmsSendRequestEx('wonky.lostcut.net', '/videopreview.php', 'POST',
'application/x-www-form-urlencoded', '', sPost, 80, 0, '', true);
if (LeftCopy(sLink, 4)!='http') {HmsLogMessage(2, 'Ошибка получения картинки видеоинформации'); return;}
HmsDownloadURLToFile(sLink, sFileImage);
for (n=0; n<5; n++) { nSeconds++; CopyFile(sFileImage, sFileImage+Format('%.3d.jpg', [nSeconds]), false); }
if (nPage>=nMaxImages) break;
} while (HmsRegExMatch2('^(.*?)\\?lastpos=(\\d+)', sLink, sLink, sPos));
}
INFO.Free();
char sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3';
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/silent.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'"';
} except { sFileMP3=''; }
sLink = Format('%s -f image2 -r 1 -i "%s" -c:v libx264 -r 30 -pix_fmt yuv420p ', [sFileMP3, sFileImage+'%03d.jpg']);
PodcastItem[mpiTimeLength] = HmsTimeFormat(nSeconds)+'.000';
return sLink;
}
// ------------------------ Установка в заголовках HTTP токена авторизации ----
void SetHeadersToken() {
gsHeaders += 'Authorization: Bearer '+gsAccessToken+'\r\n';
}
// -- Поиск корневой папки подкаста, где мы будем хранить в mpiAccessToken ----
void SearchRoot() {
// goRoot - считается элемент, у которого установлен пароль или напроч корневой
while ((goRoot.ItemParent!=nil)&&(Trim(goRoot[594])!='1')) goRoot=goRoot.ItemParent;
}
// -------------------- Запрос на открытие окна для получения кода доступа ----
void AuthCodeQuery() {
string sMsg, sLink; Variant objShell;
if (Pos('--alert', mpPodcastParameters)<1) return;
sMsg = 'ТРЕБУЕТСЯ РАЗРЕШЕНИЕ ДОСТУПА ПРИЛОЖЕНИЯ К УЧЕТНОЙ ЗАПИПИ GOOGLE.\n\n'+
'Для работы с аккаунтом youtube нужно получить код авторизации\n'+
'данного приложения для вашей учетной записи Goolge.\n'+
'Код разовый, имеет дступ только на чтение ваших данных.\n'+
'\nОткрыть браузер для авторизации и получения кода???';
if (MessageDlg(sMsg, 0, 1+8, 0)==mrCancel) return;
try {objShell = CreateOleObject('WScript.Shell');} except {}
if (VarType(objShell)!=varDispatch) {
HmsLogMessage(1, 'Не могу создать ActiveXObject WScript.Shell');
return;
}
sLink = 'https://accounts.google.com/o/oauth2/auth?response_type=code&scope=https://www.googleapis.com/auth/youtube.readonly+https://picasaweb.google.com/data/+https://www.googleapis.com/auth/userinfo.profile&redirect_uri='+gsRedirectUrl+'&client_id='+gsClientId+'&hl=ru&approval_prompt=force&access_type=offline';
objShell.Run(sLink);
}
// ----------------------------------------------------------- Авторизация ----
bool Login(bool bSilent=false) {
int INTERNET_FLAG_RELOAD = StrToInt('$80000000'), nFlag=0;
string sData, sPost, sServ, sRet, sVal, sLink, s='6avodhg99rd';
if (Trim(mpPodcastAuthorizationPassword)=='') {
if (!bSilent) ErrorItem('Не указан пароль (код авторизации)! Перейдите по ссылке https://hms.lostcut.net/youtube');
return false;
}
// Устанавливаем значение goRoot как корневой элемент подкаста
SearchRoot();
sData = Trim(goRoot[591]);
if (Pos('access_token', sData)==0) sData = mpPodcastAuthorizationPassword;
if (Pos('access_token', sData)>0) {
HmsRegExMatch('"access_token"\\s*?:\\s*?"(.*?)"' , sData, gsAccessToken );
HmsRegExMatch('"refresh_token"\\s*?:\\s*?"(.*?)"', sData, gsRefreshToken);
}
if (Trim(gsAccessToken)!='') {
sData = HmsDownloadUrl('https://www.googleapis.com/oauth2/v2/tokeninfo?access_token='+HmsHttpEncode(gsAccessToken));
if (!HmsRegExMatch('"issued_to"\\s*?:\\s*?"(.*?)"', sData, '')) {
gsAccessToken = '';
if (gsRefreshToken!='') {
sServ = 'accounts.google.com';
sPost = Format('client_id=%s&client_secret=%s&refresh_token=%s&grant_type=refresh_token', [gsClientId, s+'-WacPOSm3arjO', gsRefreshToken]);
sData = HmsSendRequestEx(sServ, '/o/oauth2/token', 'POST', 'application/x-www-form-urlencoded', '', sPost, 443, nFlag, sRet, true);
if (HmsRegExMatch('"access_token"\\s*?:\\s*?"(.*?)"', sData, gsAccessToken)) {
goRoot[591] = sData + '"refresh_token":"'+gsRefreshToken+'"';
}
}
}
if (Trim(gsAccessToken)!='') {
SetHeadersToken();
return true;
}
}
sVal = '';
nFlag = INTERNET_FLAG_RELOAD;
sServ = 'accounts.google.com';
sPost = Format('code=%s&client_id=%s&client_secret=%s&redirect_uri=%s&grant_type=authorization_code', [mpPodcastAuthorizationPassword, gsClientId, s+'-WacPOSm3arjO', gsRedirectUrl]);
sData = HmsSendRequestEx(sServ, '/o/oauth2/token', 'POST', 'application/x-www-form-urlencoded', '', sPost, 443, nFlag, sRet, true);
if (HmsRegExMatch('"access_token"\\s*?:\\s*?"(.*?)"', sData, gsAccessToken)) {
HmsRegExMatch('"refresh_token"\\s*?:\\s*?"(.*?)"', sData, gsRefreshToken);
goRoot[591] = sData;
SetHeadersToken();
} else {
gsAccessToken = '';
gsRefreshToken = '';
if (!bSilent) {
ErrorItem('Не верный код авторизации! Получить код на https://hms.lostcut.net/youtube');
AuthCodeQuery();
}
}
return (Trim(gsAccessToken)!='');
}
// ------------------------------------------- Получение ссылки на Youtube ----
bool 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))
HmsRegExMatch('/(?:embed|v)/([^\\?]+)', sLink, sVideoID);
if (sVideoID=='') return VideoMessage('Невозможно получить Video ID в ссылке Youtube');
sLink = 'http://www.youtube.com/watch?v='+sVideoID+'&hl=ru&persist_hl=1&has_verified=1';
sData = HmsUtf8Decode(HmsDownloadURL(sLink));
sData = HmsRemoveLineBreaks(sData);
HmsRegExMatch('player.config\\s*?=\\s*?({.*?});', sData, sConfig);
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, adaptive;
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 (adaptive && JSON.B['args\\adaptive_fmts'])
streamMap = JSON.S['args\\adaptive_fmts'];
if ((streamMap=='') && (hlsUrl=='')) {
HmsLogMessage(2, "Can not found stream map in player config");
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 (sLink!='') {
if ((Pos('flv', sType)>0) || (Pos('mp4', sType)>0)) {
height = 0;
if (itag in ([13,17,160,36 ])) height = 144;
else if (itag in ([5,83,133,242 ])) height = 240;
else if (itag in ([6 ])) height = 270;
else if (itag in ([18,34,43,82,100,134,243])) height = 360;
else if (itag in ([35,44,101,135,244,43 ])) height = 480;
else if (itag in ([22,45,84,102,136,247 ])) height = 720;
else if (itag in ([37,46,137,248 ])) height = 1080;
else if (itag in ([264,271 ])) height = 1440;
else if (itag in ([266 ])) height = 2160;
else if (itag in ([138,272 ])) height = 2304;
else if (itag in ([38 ])) height = 3072;
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 (bSubtitles && (ttsUrl!='')) {
sFile = HmsSubtitlesDirectory+'\\Youtube\\'+PodcastItem.ItemID+'.'+sSubtitlesLanguage+'.srt';
sLink = ttsUrl+'&format=srt&lang=';
if (!HmsDownloadURLToFile(sLink+sSubtitlesLanguage, sFile, 'Accept-Encoding: gzip, deflate')) {
HmsDownloadURLToFile(sLink+'en' , sFile, 'Accept-Encoding: gzip, deflate');
}
PodcastItem[mpiSubtitleLanguage] = sFile;
}
}
// ------------------------------------------------- Показ видео сообщения ----
bool VideoMessage(string sMsg) {
string sFileMP3 = HmsTempDirectory+'\\sa.mp3';
string sFileImg = HmsTempDirectory+'\\youtubemsg_';
sMsg = HmsHtmlToText(HmsJsonDecode(sMsg));
int nH = cfgTranscodingScreenHeight;
int nW = cfgTranscodingScreenWidth;
HmsLogMessage(2, mpTitle+': '+sMsg);
string sLink = Format('http://wonky.lostcut.net/videomessage.php?h=%d&w=%d&captsize=%d&fontsize=%d&caption=%s&msg=%s', [nH, nW, Round(nH/8), Round(nH/17), gsPodcastName, HmsHttpEncode(sMsg)]);
HmsDownloadURLToFile(sLink, sFileImg);
for (int i=1; i<=7; i++) CopyFile(sFileImg, sFileImg+Format('%.3d.jpg', [i]), false);
try {
if (!FileExists(sFileMP3)) HmsDownloadURLToFile('http://wonky.lostcut.net/mp3/sa.mp3', sFileMP3);
sFileMP3 = '-i "'+sFileMP3+'" ';
} except { sFileMP3 = ''; }
MediaResourceLink = Format('%s-f image2 -r 1 -i "%s" -c:v libx264 -r 30 -pix_fmt yuv420p ', [sFileMP3, sFileImg+'%03d.jpg']);
return false;
}
// ------------------------------------------------- Создание ссылки-ошибки ---
void ErrorItem(string sMsg) {
THmsScriptMediaItem Item = HmsCreateMediaItem('Err', PodcastItem.ItemID);
Item[mpiTitle ] = sMsg;
Item[mpiThumbnail] = 'http://wonky.lostcut.net/icons/symbol-error.png';
HmsLogMessage(2, sMsg);
}
// ------------------------------------------------- Создание видео-ссылки ----
THmsScriptMediaItem CreateVideo(string sID, string sTitle, string sImg, string sTime, string sDate, string sComment='') {
if (LeftCopy(sID, 4)!='http') sID = 'http://www.youtube.com/watch?v='+Trim(sID);
THmsScriptMediaItem Item = HmsCreateMediaItem(sID, PodcastItem.ItemID);
Item[mpiTitle ] = sTitle;
Item[mpiThumbnail ] = sImg;
Item[mpiTimeLength] = sTime;
Item[mpiCreateDate] = sDate;
Item[mpiComment ] = sComment;
Item[mpiPartNo ] = gnItemsAdded;
gnItemsAdded++;
return Item;
}
// --------------------------------------------- Создание папки (подкаста) ----
THmsScriptMediaItem CreateFolder(string sTitle, string sLink, string sImg="", ) {
THmsScriptMediaItem Item = PodcastItem.AddFolder(sLink);
Item[mpiTitle ] = sTitle;
//Item[mpiFolderSortOrder] = "mpPartNo";
Item[mpiThumbnail ] = sImg;
Item[mpiPartNo ] = gnItemsAdded;
gnItemsAdded++;
return Item;
}
// ------------------------------------ Проверка дополнительных параметров ----
void CheckParameters() {
if (HmsRegExMatch('--language=(\\w+)', mpPodcastParameters, gsVal))
ReplaceStr(gsAPIurl, '&hl=ru', '&hl='+gsVal);
if (HmsRegExMatch('--regionCode=(\\w+)', mpPodcastParameters, gsVal))
ReplaceStr(gsAPIurl, 'regionCode=ru', 'regionCode='+gsVal);
}
// ----------------------------------------------------------------------------
string Translate(string sText) {
string sResult=sText; TStrings DICT = TStringList.Create();
DICT.Values['Best of YouTube'] = 'Лучшее на YouTube';
DICT.Values['Paid channels' ] = 'Платные каналы';
DICT.Values['Top YouTube Collections'] = 'Лучшие коллекции YouTube';
DICT.Values['Popular Artists'] = 'Популярные исполнители';
if (Trim(DICT.Values[sText])!='') sResult = DICT.Values[sText];
DICT.Free();
if (HmsRegExMatch('(Popular Artist Mixes)', sResult, gsVal)) sResult = ReplaceStr(sResult, gsVal, 'Миксы популярных исполнителей');
return sResult;
}
// ----------------------------------------------------------------------------
string SafeName(string sName) {
sName = ReplaceStr(sName, '/' , '-');
sName = ReplaceStr(sName, '\\', '-');
sName = Translate(sName);
return sName;
}
// ----------------------------------------------------------------------------
string ConvertTime(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';
}
// ----------------------------------------------------------------------------
string ConvertDate(string sDate) {
string sY, sM, sD, sTime;
HmsRegExMatch3('(\\d{4}).(\\d{2}).(\\d{2})', sDate, sY, sM, sD);
HmsRegExMatch ('T(\\d{2}:\\d{2}:\\d{2})' , sDate, sTime );
return Format('%s.%s.%s %s', [sD, sM, sY, sTime]);
}
// ----------------------------------------------------------------------------
string CreateItems(string sPath, string sObject, string sParam, string sFiltr='') {
string sLink, sData, sName, sID, sImg, sCh, sVal, sResult='', sTime;
int i; TJsonObject JSON, ITEM; TJsonArray ITEMS;
if (HmsRegExMatch('pageToken=([\\w-_]+)', mpFilePath, sID)) sParam += '&pageToken='+sID;
sLink = Format(gsAPIurl, [sObject, sParam]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sData);
sID = JSON.S('nextPageToken');
if (sID!='') {
if (sObject=='search') mpFilePath = '-search='+sParam;
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
sCh = '?'; if (Pos('?', mpFilePath)>0) sCh = '&';
CreateFolder('Следующая страница', mpFilePath+sCh+'pageToken='+sID);
}
ITEMS = JSON.A('items');
if (ITEMS != nil) {
for (i=0; i<ITEMS.Length; i++) {
ITEM = ITEMS[i];
// Хоть playlistItems и возвращает список видео, но там нет длительности
// Поэтому собираем ID видео, чтобы потом вызвать videos со списком этих ID
if (sObject=='playlistItems') {
if (sResult!='') sResult += ',';
sResult += ITEM.S('contentDetails\\videoId');
continue;
} else if (sObject=='activities') {
if (sFiltr!='') if (ITEM.S[sFiltr]=='') continue;
if (sResult!='') sResult += ',';
sID = ITEM.S('contentDetails\\recommendation\\resourceId\\videoId');
if (sID=='') sID = ITEM.S('contentDetails\\playlistItem\\resourceId\\videoId');
if (sID=='') sID = ITEM.S('contentDetails\\upload\\videoId');
if (sID!='') sResult += sID;
continue;
} else if (sObject=='search') {
sVal = ITEM.S('id\\kind');
if (sVal=='youtube#playlist') {
sID = ITEM.S('id\\playlistId');
sPath = 'http://www.youtube.com/playlist?list=';
} else if (sVal=='youtube#channel') {
sID = ITEM.S('id\\channelId');
sPath = 'http://www.youtube.com/channel/';
} else {
sID = ITEM.S('id\\videoId');
sPath = 'video';
if (sResult!='') sResult += ',';
if (sID!='') sResult += sID;
continue;
}
} else if (sObject=='videoCategories') {
if (!ITEM.B('snippet\\assignable')) continue;
sID = ITEM.S('id');
if (sID=='1') sID = '30';
} else if (sObject=='subscriptions') {
sID = ITEM.S('snippet\\resourceId\\channelId');
} else {
sID = ITEM.S('id');
}
if (sID=='') continue;
if (LeftCopy(sPath, 6)=='getids') { if (sResult!='') sResult+=','; sResult += sID; continue; }
sName = ITEM.S('snippet\\localized\\title');
if (sName=='') sName = ITEM.S('snippet\\title');
sImg = ITEM.S('snippet\\thumbnails\\medium\\url');
sName = SafeName(HmsUtf8Decode(sName));
sVal = ITEM.S('contentDetails\\itemCount'); if (sVal=='0') continue;
if (sVal!='') sName += ' ['+sVal+']';
if (Pos(sPath, '%s')>0) sLink = Format(sPath, [sID]);
else sLink = sPath + sID;
if (sPath=='video' ) {
if (ITEM.S('snippet\\liveBroadcastContent')=='live') sTime = '04:00:00.000';
else sTime = ConvertTime(ITEM.S('contentDetails\\duration'));
if (Pos('DE', ITEM.S('contentDetails\\regionRestriction\\blocked'))>0) sID += '¬de=1';
}
if (sPath=='video' ) CreateVideo(sID, sName, sImg, sTime, ConvertDate(ITEM.S('snippet\\publishedAt')), HmsUtf8Decode(ITEM.S('snippet\\description')));
else CreateFolder(sName, sLink, sImg);
}
}
} finally { JSON.Free(); }
return sResult;
}
// ----------------------------------------------------------------------------
void CreateChannels(string sID) {
CreateItems('http://www.youtube.com/channel/', 'channels', 'part=snippet,contentDetails&categoryId='+sID);
}
// ----------------------------------------------------------------------------
void CreateGuideCategories() {
Login(true);
CreateItems('http://www.youtube.com/channels/', 'guideCategories', 'part=snippet');
}
// ----------------------------------------------------------------------------
void CreateVideoCategories() {
CreateItems('-category=', 'videoCategories', 'part=snippet');
}
// ----------------------------------------------------------------------------
void CreateVideosByCategory(string sID) {
CreateItems('video', 'videos', 'part=snippet,contentDetails&chart=mostPopular&videoCategoryId='+sID);
}
// ----------------------------------------------------------------------------
void CreatePlaylistVideos(string sID) {
string sIDs, sVal;
sIDs = CreateItems('getids', 'playlistItems', 'part=contentDetails&fields=nextPageToken,items(contentDetails%2FvideoId)&playlistId='+sID);
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateMySubscriptions() {
if (!Login()) return;
CreateItems('http://www.youtube.com/channel/', 'subscriptions', 'part=snippet,contentDetails&mine=true');
}
// ----------------------------------------------------------------------------
void CreateMySubscribers() {
if (!Login()) return;
CreateItems('http://www.youtube.com/channel/', 'subscriptions', 'part=snippet,contentDetails&mySubscribers=true');
}
// ----------------------------------------------------------------------------
void CreateMyPlaylist(string sKey) {
string sData, sLink, sID;
if (!Login()) return;
sLink = Format(gsAPIurl, ['channels', 'part=snippet,contentDetails&mine=true']);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
if (HmsRegExMatch('"'+sKey+'":\\s*?"(.*?)"', sData, sID)) CreatePlaylistVideos(sID);
}
// ----------------------------------------------------------------------------
void CreateMyRecommendations() {
string sIDs, sVal;
if (!Login()) return;
sIDs = CreateItems('getids', 'activities', 'part=contentDetails&home=true');
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateMyNewVideos() {
string sIDs, sDate, sID, sLink, sData, sPlaylistIDs, sName, sImg, sTime='10';
int i, n; TJsonObject JSON, VIDEO; TJsonArray VIDEOS; TStringList LIST;
if (!Login()) return;
sPlaylistIDs = CreateItems('getids', 'subscriptions', 'part=snippet,contentDetails&mine=true');
LIST = TStringList.Create();
JSON = TJsonObject.Create();
for (i=1; i<=WordCount(sPlaylistIDs, ','); i++) {
sID = ExtractWord(i, sPlaylistIDs, ','); // ИД плейлиста, на который мы подписаны
sLink = Format(gsAPIurl, ['search', 'part=snippet&order=date&channelId='+sID]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
JSON.LoadFromString(sData);
VIDEOS = JSON["items"].AsArray;
if (VIDEOS!=nil) {
for (n=0; n < VIDEOS.Length; n++) {
VIDEO = VIDEOS[n];
if (VIDEO.S['id\\kind']!='youtube#video') continue;
sID = VIDEO.S['id\\videoId'];
sDate = VIDEO.S['snippet\\publishedAt'];
sName = VIDEO.S['snippet\\title'];
LIST.Add(sDate+';'+sID+';'+HmsUtf8Decode(sName));
}
}
}
LIST.Sort();
for (i=LIST.Count-1; i>=0; i--) {
HmsRegExMatch3('(.*?);(.*?);(.*)', LIST[i], sDate, sID, sName);
if (sIDs!='') sIDs += ','; sIDs += sID;
if (LIST.Count-i >= 50) break;
}
LIST.Free(); JSON.Free();
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateChannelVideos(string sChannelID) {
SearchVideosByParam('&q=&part=snippet&type=video&order=date&channelId='+sChannelID);
}
// ----------------------------------------------------------------------------
void SearchVideosByParam(string sParam) {
string sIDs, sVal;
Login(true);
sIDs = CreateItems('video', 'search', sParam);
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateVideosByRegion(string sRegion) {
string sVal, sParam;
if (HmsRegExMatch('(®ionCode=[\\w-_]+)', gsAPIurl, sVal)) gsAPIurl = ReplaceStr(gsAPIurl, sVal, '');
sParam = '&q=&part=snippet&type=video&order=rating®ionCode='+sRegion+'&relevanceLanguage='+sRegion;
if (HmsRegExMatch('category=([\\w-_]+)', mpFilePath, sVal)) sParam += '&videoCategoryId=' + sVal;
SearchVideosByParam(sParam);
}
// ----------------------------------------------------------------------------
void CreateMyActivities() {
string sIDs, sVal;
if (!Login()) return;
sIDs = CreateItems('getids', 'activities', 'part=contentDetails&mine=true');
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void CreateChannelPlaylists(string sChannelID) {
CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&channelId='+sChannelID);
}
// ----------------------------------------------------------------------------
void CreateChannelSections(string sChannelID, bool bForUser=false) {
string sLink, sData, sIDs='', sType, sID, sName, sChannelData;
int i, nCnt, nMax; TJsonObject JSON, ITEM; TJsonArray ITEMS; TStrings CHANNELS;
if (bForUser)
sLink = Format(gsAPIurl, ['channels', 'part=snippet,contentDetails&forUsername='+sChannelID]);
else
sLink = Format(gsAPIurl, ['channels', 'part=snippet,contentDetails&id='+sChannelID]);
sChannelData = HmsDownloadUrl(sLink, gsHeaders, true);
HmsRegExMatch('"id":\\s*?"(.*?)"', sChannelData, sChannelID);
sLink = Format(gsAPIurl, ['channelSections', 'part=snippet,contentDetails&fields=items(id,snippet/type,snippet/title,snippet/localized/title,contentDetails)&channelId='+sChannelID]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
JSON = TJsonObject.Create();
CHANNELS = TStringList.Create();
try {
JSON.LoadFromString(sData);
ITEMS = JSON.A('items');
if (ITEMS != nil) {
for (i=0; i<ITEMS.Length; i++) {
ITEM = ITEMS[i];
sType = ITEM.S('snippet\\type');
if (sType=='singlePlaylist') {
sID = ITEM.S('contentDetails\\playlists[0]');
CHANNELS.Values[sID] = '1';
} else if ((sType=='multiplePlaylists')||(sType=='multipleChannels')) {
sID = ITEM.S('id');
sName = ITEM.S('snippet\\localized\\title');
if (sName=='') sName = ITEM.S('snippet\\title');
sName = SafeName(HmsUtf8Decode(sName));
CreateFolder(sName, '-channelSection='+sID);
}
}
}
} finally { JSON.Free(); }
// Create single playlists
nCnt = 0; nMax = 4;
for (i=0; i<CHANNELS.Count; i++) {
sID = CHANNELS.Names[i];
nCnt++; if (nCnt>=50) {
CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&id='+sIDs);
nCnt = 1; sIDs = sID; nMax --; if (nMax<=0) break;
}
if (sIDs!='') sIDs += ','; sIDs += sID;
}
if (sIDs!='') CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&id='+sIDs);
CHANNELS.Free();
CreateFolder('Плейлисты', '-channelPlaylists='+sChannelID);
sLink = 'http://www.youtube.com/playlist?list=';
if (HmsRegExMatch('"uploads":\\s*?"(.*?)"' , sChannelData, sID)) CreateFolder('Загруженные видео', sLink+sID);
if (HmsRegExMatch('"likes":\\s*?"(.*?)"' , sChannelData, sID)) CreateFolder('Понравившиеся' , sLink+sID);
if (HmsRegExMatch('"favorites":\\s*?"(.*?)"', sChannelData, sID)) CreateFolder('Любимые' , sLink+sID);
}
// ----------------------------------------------------------------------------
void CreateByChannelSection(string sSectionID) {
string sLink, sData, sIDs='', sType, sID, sName;
int i; TJsonObject JSON, ITEM; TJsonArray ITEMS;
sLink = Format(gsAPIurl, ['channelSections', 'part=contentDetails&id='+sSectionID]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
JSON = TJsonObject.Create();
try {
JSON.LoadFromString(sData);
sLink = 'http://www.youtube.com/channel/';
sIDs = JSON.S('items[0]\\contentDetails\\channels');
HmsRegExMatch('\\[(.*?)\\]', sIDs, sIDs);
sIDs = ReplaceStr(sIDs, '"', '');
if (WordCount(sIDs, ',')>50) {
sID = Copy(sIDs, 1, WordPosition(51, sIDs, ',')-2);
CreateItems(sLink, 'channels', 'part=snippet,contentDetails&id='+sID);
sIDs = Copy(sIDs, WordPosition(51, sIDs, ','), 99999);
if (WordCount(sIDs, ',')>50) sIDs = Copy(sIDs, 1, WordPosition(51, sIDs, ',')-2);
}
if (sIDs!='') CreateItems(sLink, 'channels', 'part=snippet,contentDetails&id='+sIDs);
sLink = 'http://www.youtube.com/playlist?list=';
sIDs = JSON.S('items[0]\\contentDetails\\playlists');
HmsRegExMatch('\\[(.*?)\\]', sIDs, sIDs);
sIDs = ReplaceStr(sIDs, '"', '');
if (WordCount(sIDs, ',')>50) {
sID = Copy(sIDs, 1, WordPosition(51, sIDs, ',')-2);
CreateItems(sLink, 'playlists', 'part=snippet,contentDetails&id='+sID);
sIDs = Copy(sIDs, WordPosition(51, sIDs, ','), 99999);
if (WordCount(sIDs, ',')>50) sIDs = Copy(sIDs, 1, WordPosition(51, sIDs, ',')-2);
}
if (sIDs!='') CreateItems(sLink, 'playlists', 'part=snippet,contentDetails&id='+sIDs);
} finally { JSON.Free(); }
}
// ----------------------------------------------------------------------------
void CreateMyPlaylists() {
string sLink, sChannelData, sChannelID;
if (!Login()) return; //gsUserId
//sLink = Format(gsAPIurl, ['channels', 'part=id&mine=true']);
//sChannelData = HmsDownloadUrl(sLink, gsHeaders, true);
//ShowMessage("sChannelData: "+sChannelData);
//HmsRegExMatch('"id":\\s*?"(.*?)"', sChannelData, sChannelID);
CreateItems('http://www.youtube.com/playlist?list=', 'playlists', 'part=snippet,contentDetails&mine=true&liked=true&saved=true');
}
// ----------------------------------------------------------------------------
void SearchVideos(string sName, bool bContinue=false) {
string sVal='', sParam = '', sIDs, sPodcastParams, sKey, sPossibleKeys; int i, nCnt;
if (!bContinue) {
sPodcastParams = mpFilePath + ' ' + PodcastItem.ItemParent[mpiFilePath] + ' ' + mpPodcastParameters;
sPossibleKeys = 'channelId,channelType,eventType,location,locationRadius,maxResults,order,publishedAfter,publishedBefore,regionCode,relevanceLanguage,safeSearch,topicId,type,videoCaption,videoCategoryId,videoDefinition,videoDimension,videoDuration,videoEmbeddable,videoLicense,videoSyndicated,videoType';
for (i=1; i<=WordCount(sPossibleKeys, ','); i++) {
sKey = ExtractWord(i, sPossibleKeys, ',');
if (HmsRegExMatch('-'+sKey+'=([\\w_\\-\\.,:]+)', sPodcastParams, sVal)) sParam += '&'+sKey+'=' +sVal;
}
if (PodcastItem.ItemParent[mpiComment]=='+') sName = PodcastItem.ItemParent[mpiTitle] + ' ' + Trim(sName);
sIDs = CreateItems('video', 'search', 'part=snippet&q='+HmsHttpEncode(HmsUtf8Encode(sName))+sParam);
} else {
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', sName, sVal)) sName = ReplaceStr(sName, sVal, '');
sIDs = CreateItems('video', 'search', sName);
}
if (HmsRegExMatch('(.pageToken=[\\w-_]+)', mpFilePath, sVal)) mpFilePath = ReplaceStr(mpFilePath, sVal, '');
CreateItems('video', 'videos', 'part=snippet,contentDetails&id='+sIDs);
}
// ----------------------------------------------------------------------------
void GetUserID() {
string sData = HmsDownloadUrl('https://www.googleapis.com/oauth2/v3/userinfo', gsHeaders, true);
HmsRegExMatch('"sub"\\s*?:\\s*?"(.*?)"', sData, gsUserId);
}
// ----------------------------------------------------------------------------
void CreateMyPhotos() {
string sData, sLink, sName, sID, sImg; TRegExpr RE;
if (!Login()) return;
GetUserID();
sData = HmsDownloadUrl('https://picasaweb.google.com/data/feed/api/user/'+gsUserId+'?prettyprint=true&access=all', gsHeaders, true);
RE = TRegExpr.Create('<entry>(.*?)</entry>', PCRE_SINGLELINE);
try {
if (RE.Search(sData)) do {
sID=''; sName=''; sImg='';
HmsRegExMatch('<id>(.*?)</id>' , RE.Match, sID );
HmsRegExMatch('<title.*?>(.*?)</title>' , RE.Match, sName);
HmsRegExMatch('thumbnai.*?url=["\'](.*?)["\']', RE.Match, sImg );
CreateFolder(HmsUtf8Decode(sName), sID, sImg);
} while (RE.SearchAgain());
} finally { RE.Free(); }
}
// ----------------------------------------------------------------------------
void CreateMyAlbumPhotos() {
string sData, sLink, sName, sImg, sUserID, sAlbumID, sDate, sSize, sVal, sTime;
THmsScriptMediaItem Item; TRegExpr RE;
if (!Login()) return;
GetUserID();
HmsRegExMatch2('/user/(.*?)/albumid/([^/\\?&]+)', mpFilePath, sUserID, sAlbumID);
sLink = Format('https://picasaweb.google.com/data/feed/api/user/%s/albumid/%s?access=all&prettyprint=true', [sUserID, sAlbumID]);
sData = HmsDownloadUrl(sLink, gsHeaders, true);
RE = TRegExpr.Create('<entry>(.*?)</entry>', PCRE_SINGLELINE);
try {
if (RE.Search(sData)) do {
sLink=''; sName=''; sImg='';
HmsRegExMatch('.*thumbnail[^>]+url=["\'](.*?)["\']', RE.Match, sLink);
HmsRegExMatch('<title.*?>(.*?)</title>' , RE.Match, sName);
HmsRegExMatch('thumbnail[^>]+url=["\'](.*?)["\']', RE.Match, sImg );
HmsRegExMatch('timestamp>(\\d+)<' , RE.Match, sDate);
HmsRegExMatch(':size>(\\d+)<' , RE.Match, sSize);
if (Pos('gphoto:originalvideo', RE.Match)>0) {
HmsRegExMatch('.*media:content[^>]+url=["\'](.*?)["\']', RE.Match, sLink);
HmsRegExMatch('duration=["\'](\\d+)', RE.Match, sTime);
} else {
if (HmsRegExMatch('(/s\\d+/)', sLink, sVal)) sLink = ReplaceStr(sLink, sVal, '/s'+IntToStr(cfgTranscodingScreenWidth)+'/');
sTime = '7';
}
sDate = VarToStr(TimeStamp1970ToDateTime(StrToInt64(sDate), true));
sLink = HmsHtmlToText(sLink);
sName = HmsHtmlToText(sName);
sName = HmsUtf8Decode(sName);
Item = CreateVideo(sLink, sName, sImg, sTime, sDate);
Item[mpiFileSize] = StrToInt64(sSize);
if (Pos('--photoasimage', mpPodcastParameters)>0) {
Item[38 ] = 'object.item.imageItem';
Item[mpiMimeType] = 'image/jpeg';
}
} while (RE.SearchAgain());
} finally { RE.Free(); }
}
// ----------------------------------------------------------------------------
void GetLink_Picasaweb(string sLink) {
string sData, sFileMP3, sFileImg, sServ, sRet='';
int nH=cfgTranscodingScreenHeight, nW=cfgTranscodingScreenWidth, nFlag=0;
int INTERNET_FLAG_NO_AUTO_REDIRECT = 0x00200000, INTERNET_FLAG_RELOAD = StrToInt('$80000000');
TBitmap32 BM, BMPic, BMtmp; int nPicX, nPicY, nNewW=0, nNewH=0;
Login();
sFileMP3 = ExtractShortPathName(HmsTempDirectory)+'\\silent.mp3';
sFileImg = ExtractShortPathName(HmsTempDirectory)+'\\pic_';
if (Pos( 'video', HmsGetMimeType(ExtractFileExt(sLink)))>0) {
MediaResourceLink = sLink + '&access_key='+gsAccessToken;
return;
}
HmsDownloadURLToFile(sLink, sFileImg);
// Resize picture to fit our resolution
BM = TBitmap32.Create();
BMPic = TBitmap32.Create();
BMtmp = TBitmap32.Create();
try {
BM.SetSize(nW, nH);
BM.ClearEx(0);
BMPic.LoadFromFile(sFileImg);
HmsCalculateThumbnailDimension(BMPic.Width, BMPic.Height, nW, nH, nNewW, nNewH, 2);
BMtmp.SetSize(nNewW, nNewH);
BMPic.DrawTo3(BMtmp, BMtmp.BoundsRect);
nPicX = Round(nW/2 - nNewW/2);
nPicY = Round(nH/2 - nNewH/2);
BMtmp.DrawTo2(BM, nPicX, nPicY);
BM.SaveToFile(sFileImg+'tmp.jpg');
CopyFile(sFileImg+'tmp.jpg', sFileImg, false);
} finally { BMtmp.Free(); BM.Free(); BMPic.Free(); }
for (int i=1; i<=7; i++) CopyFile(sFileImg, sFileImg+Format('%.3d.jpg', [i]), false);
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 -r 30 -pix_fmt yuv420p ', [sFileMP3, sFileImg+'%03d.jpg']);
}
// ----------------------------------------------------------------------------
void CreateMyFolders() {
THmsScriptMediaItem Item;
CreateFolder('Новые видео в подписках', '-newVideos', 'https://hms.lostcut.net/youtube/icons/play.png');
CreateFolder('Мои подписки' , 'https://www.youtube.com/feed/subscriptions', 'https://hms.lostcut.net/youtube/icons/mychannel.png');
CreateFolder('Плейлисты' , '-playlists' , 'https://hms.lostcut.net/youtube/icons/playlists.png');
CreateFolder('Посмотреть позже' , 'https://www.youtube.com/playlist?list=WL', 'https://hms.lostcut.net/youtube/icons/clock.png');
CreateFolder('Загруженные видео', '-uploads' , 'https://hms.lostcut.net/youtube/icons/uploads.png');
Item = CreateFolder('Фотографии', '-photos' , 'https://hms.lostcut.net/youtube/icons/photos.png');
Item[mpiTranscodingProfile] = 'Фильмы (основной)';
CreateFolder('Понравившиеся' , '-likes' , 'https://hms.lostcut.net/youtube/icons/like.png');
CreateFolder('Просмотренные' , 'http://www.youtube.com/feed/history', 'https://hms.lostcut.net/youtube/icons/history.png');
CreateFolder('Рекомендации' , '-recommend' , 'https://hms.lostcut.net/youtube/icons/home.png');
//CreateFolder('Любимые' , '-favorites' , 'https://hms.lostcut.net/youtube/icons/favorite.png');
CreateFolder('Мои подписчики' , '-mySubscribers', 'https://hms.lostcut.net/youtube/icons/subscribers.png');
//CreateFolder('Очистка токенов (при смене кода доступа)', '-clearToteks', '');
}
// ----------------------------------------------------------------------------
void ClearAllTokens() {
THmsScriptMediaItem Item;
SearchRoot();
goRoot[591] = '';
for (int i=0; i<PodcastItem.ItemParent.ChildCount; i++) {
Item = PodcastItem.ItemParent.ChildItems[i];
Item[591] = '';
}
gsAccessToken = '';
gsRefreshToken = '';
ErrorItem('Токены очищены!');
}
// ----------------------------------------------------------------------------
// Проверка значения текущей пути (в gsVal получаем группировку рег. выражен.)
bool CheckPath(string sPattern) { return HmsRegExMatch(sPattern, mpFilePath, gsVal); }
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
// ----------------------------------------------------------------------------
{
CheckParameters(); // Проверка установленных параметров подкаста
if (PodcastItem.IsFolder) {
PodcastItem.DeleteChildItems(); // Удаление существующих ссылок
//if (Trim(PodcastItem[mpiFolderSortOrder])=='') PodcastItem[mpiFolderSortOrder]="mpPartNo";
CheckUpdates();
// Анализ текущей ссылки
if (CheckPath('/feed/subscriptions' )) CreateMySubscriptions();
else if (CheckPath('-MyChannel' )) CreateMyFolders();
else if (CheckPath('-playlists' )) CreateMyPlaylists();
else if (CheckPath('/playlist\\?list=WL' )) CreateMyPlaylist('watchLater');
else if (CheckPath('-likes' )) CreateMyPlaylist('likes');
else if (CheckPath('-favorites' )) CreateMyPlaylist('favorites');
else if (CheckPath('-uploads' )) CreateMyPlaylist('uploads');
else if (CheckPath('/feed/history' )) CreateMyPlaylist('watchHistory');
else if (CheckPath('/feed/music' )) CreateMyPlaylist('music');
else if (CheckPath('-mySubscribers' )) CreateMySubscribers();
else if (CheckPath('-recommend' )) CreateMyRecommendations();
else if (CheckPath('-activities' )) CreateMyActivities();
else if (CheckPath('-newVideos' )) CreateMyNewVideos();
else if (CheckPath('-photos' )) CreateMyPhotos();
else if (CheckPath('picasaweb.google.com' )) CreateMyAlbumPhotos();
else if (CheckPath('-clearToteks' )) ClearAllTokens();
else if (CheckPath('-videosByRegion=([\\w-_]+)')) CreateVideosByRegion(gsVal);
else if (CheckPath('youtube.com/channels$')) CreateGuideCategories();
else if (CheckPath('-videoCategories' )) CreateVideoCategories();
else if (CheckPath('-category=(.*) ' )) CreateVideosByCategory(gsVal);
else if (CheckPath('-channelSection=(.*)' )) CreateByChannelSection(gsVal);
else if (CheckPath('-channelPlaylists=(.*)')) CreateChannelPlaylists(gsVal);
else if (CheckPath('/channels/([\\w-_]+)' )) CreateChannels(gsVal);
else if (CheckPath('/channel/([\\w-_]+)/videos')) CreateChannelVideos(gsVal);
else if (CheckPath('/channel/([\\w-_]+)' )) CreateChannelSections(gsVal);
else if (CheckPath('/user/([\\w-_]+)' )) CreateChannelSections(gsVal, true);
else if (CheckPath('\\?list=([\\w-_]+)' )) CreatePlaylistVideos(gsVal);
else if (CheckPath('-search="(.*?)"' )) SearchVideos(gsVal); // Просто поиск значения
else if (CheckPath('-search=(.*)' )) SearchVideos(gsVal, true); // Продожение поиска (техническая ссылка, создаётся сама)
else if (!CheckPath('^http')) SearchVideos(mpTitle); // Иначе, если в ссылке не http адрес - поиск названия
else ErrorItem('Не умею обрабатывать ссылку :(');
HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded));
} else {
// Устанавливаем значение goRoot как корневой элемент подкаста
SearchRoot();
if (LeftCopy(mpFilePath, 4)=='Info') { ShowInfo(); return; }
if (CheckPath('youtube')) GetLink_Youtube31(mpFilePath);
else if (CheckPath('(picasaweb|googleusercontent)')) GetLink_Picasaweb(mpFilePath);
else if (CheckPath('Обновить подкаст')) UpdatePodcast();
else MediaResourceLink = mpFilePath;
}
}
531
C++Script
41
2
-
32
aa37da8e84bf8b0a61d0f120a1944cbf
-SearchCommands
cab57261a15e45e022c44d75b658806a
515
2
512
2
532
2
700
2
553
2
42
3
4
"Набрать текст"
35
42869,6216203704
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://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.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)) {
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
-35
93
42869,6223215394
-
53
e9d8a35d-89df-4978-a8d6-df1a28ff74fe
cab57261a15e45e022c44d75b658806a
515
2
512
2
532
2
700
2
553
2
4
TED talks Русские субтитры
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
e9d8a35d-89df-4978-a8d6-df1a28ff74fe
93
42869,6295783796
525
42869,6318806829
50
Фильмы (основной)
527
--subtitles
-
53
14abeedf-ae00-4185-ad18-79c302e3d3d8
cab57261a15e45e022c44d75b658806a
515
2
512
2
532
2
700
2
553
2
42
3
4
TED talks Rus
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
14abeedf-ae00-4185-ad18-79c302e3d3d8
93
42869,6311506482
525
42869,6336622338
527
--sublanguage=ru