HMSMPEG hmsmpeg.exe http://www.ffmpeg.org/ HmsMPEG Hmsmpeg.exe http://www.ffmpeg.org/ hmsMPEG hmsmpeg.exe http://www.ffmpeg.org/ HMSMPEG Нет скрипта Транскодирование с перекодированием видео 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 // --------------------- Получение ссылки на Youtube (great senx 2 Eugeny) ---- Variant GetLink_Youtube2(char sLink, char sProc='') { char sData, sVideoID='', sTtsUrl='', sDashMpdLink='', sStreamMap='', sHlsUrl='', csVideoInfoLink, sVal; char sVideoLink, itag, sType, sVideo3D, sSourceLangCode='', s, sFile, sAudioLink, sYoutubeAuth=''; bool bSuccess=false; TRegExpr RE; int i, n, iMinPriority=100, iMaxHeight=-1, iMaxVal, iHeight, iPriority; bool bDashVideoLinks=false, bSubtitles=false, bTranslate=true, bCanTranslate=false, bSubtitlesTranslate=false; variant sig; TJsonObject JSON, FmtStreamMap, StreamInfo; TXMLDocument oXMLDoc; TXMLItem oXMLItem, AdaptationSetItem, AudioAdaptationSetItem, VideoAdaptationSetItem, PeriodItem, RepresentationItem; int iMaxQualHeight = 720; char sBitrate = '', sSubtitlesLanguage='ru'; char sHeaders = 'Referer: https://www.youtube.com/\r\nAccept: */*\r\nGData-Version: 2.1\r\n'; csVideoInfoLink = 'https://www.youtube.com/get_video_info?eurl=%s&video_id=%s&el=embedded&sts=16100&has_verified=1'; if (sYoutubeAuth!='') sHeaders += 'Authorization: GoogleLogin auth='+sYoutubeAuth+'\r\n'; if (HmsRegExMatch('--maxheight=(\\d+)', mpPodcastParameters, sVal)) iMaxQualHeight=StrToInt(sVal); HmsRegExMatch('--sublanguage=(\\w{2})', mpPodcastParameters, sSubtitlesLanguage); bSubtitles = (Pos('--subtitles' , mpPodcastParameters)>0); bSubtitlesTranslate = (Pos('--subtranslate', mpPodcastParameters)>0); bDashVideoLinks = (Pos('--dashmpd' , mpPodcastParameters)>0); if (sProc=='') { if (!HmsRegExMatch('[\\?&]v=([^&]+)' , sLink, sVideoID)) HmsRegExMatch('/(?:embed|v)/([^\\?]+)', sLink, sVideoID); if (sVideoID=='') { sData = HmsDownloadUrl(sLink, sHeaders, true); HmsRegExMatch('watch\\?v=([^&]+)', sData, sVideoID); } if (sVideoID!='') { if ((Trim(mpTimeLength)=='') || (RightCopy(mpTimeLength, 5)=='0.000')) { sVal = HmsDownloadUrl('http://gdata.youtube.com/feeds/api/videos/'+sVideoID, sHeaders, true); if (HmsRegExMatch("duration='(\\d+)'", sVal, sVal)) CurrentMediaItem[mpiTimeLength] = HmsTimeFormat(StrToInt(sVal))+'.000'; } if (HmsRegExMatch('has_cc=True.*?ttsurl=([^&]*)' , sData, sTtsUrl )) sTtsUrl = HmsHttpDecode(sTtsUrl ); if (HmsRegExMatch('dashmpd=([^&]*)' , sData, sDashMpdLink)) sDashMpdLink = HmsHttpDecode(sDashMpdLink); if (HmsRegExMatch('url_encoded_fmt_stream_map=([^&]*)', sData, sStreamMap )) sStreamMap = HmsHttpDecode(sStreamMap ); if (HmsRegExMatch('hlsvp=([^&]*)' , sData, sHlsUrl )) sHlsUrl = HmsHttpDecode(sHlsUrl ); } if (sStreamMap + sDashMpdLink + sHlsUrl == '') { if (sVideoID!='') sVideoLink = 'http://www.youtube.com/watch?v=' + sVideoID; else sVideoLink = sLink; sVideoLink += '&has_verified=1&bpctr='+IntToStr(DateTimeToTimeStamp1970(Now+EncodeTime(2, 30, 0, 0), false)); sData = HmsDownloadUrl(sVideoLink, sHeaders, true); if (HmsRegExMatch('ytplayer.config.*?({.*?});', sData, sData)) { JSON = TJsonObject.Create(); try { JSON.LoadFromString(sData); sDashMpdLink = JSON.S['args\\dashmpd']; sStreamMap = JSON.S['args\\url_encoded_fmt_stream_map']; sHlsUrl = JSON.S['args\\hlsvp']; if (JSON.I['args\\cc_asr']==1) sTtsUrl = JSON.S['args\\ttsurl']; } finally { JSON.Free(); } } } if (bDashVideoLinks && (sDashMpdLink!='')) { bSuccess = GetLink_Youtube2(sDashMpdLink, 'CreateDashVideoLinks'); } else if (sStreamMap!='') { // Subtitles loading if (bSubtitles && (sTtsUrl!='')) GetLink_Youtube2(sTtsUrl, 'LoadSubtitles'); // Get info from StreamMap i=1; while (i<=Length(sStreamMap)) { sData = Trim(ExtractStr(sStreamMap, ',', i)); sType = HmsHttpDecode(ExtractParam(sData, 'type', '', '&')); itag = ExtractParam(sData, 'itag', '', '&'); sVideo3D = ExtractParam(sData, 'stereo3d', '', '&'); sLink = ''; if (sVideo3D=='1') sVideo3D = '[3D]'; if (Pos('url=', sData)>0) { sLink = ' ' + HmsHttpDecode(ExtractParam(sData, 'url', '', '&')); if (Pos('&signature=', sLink)==0) { sig = HmsHttpDecode(ExtractParam(sData, 'sig', '', '&')); if (sig=='') sig = GetLink_Youtube2(HmsHttpDecode(ExtractParam(sData, 's', '', '&')), 'YoutubeDecrypt'); if (sig!='') sLink += '&signature=' + sig; } } if (sLink!='') { bSuccess = true; if ((Pos('flv', sType)>0) || (Pos('mp4', sType)>0)) { iHeight = GetLink_Youtube2(itag, 'YoutubeMaxHeight'); if (mpPodcastMediaFormats!='') { iPriority = HmsMediaFormatPriority(iHeight, mpPodcastMediaFormats); if ((iPriority>=0) || (iPriority<iMinPriority)) { mpFilePath = sLink; iMinPriority = iPriority; } } else if ((iHeight>iMaxHeight) && (iHeight<=iMaxQualHeight)) { mpFilePath = sLink; iMaxHeight = iHeight; } } } } } else if (sHlsUrl!='') { bSuccess = GetLink_Youtube2(sHlsUrl , 'CreateHlsVideoLinks' ); } else if (sDashMpdLink!='') { bSuccess = GetLink_Youtube2(sDashMpdLink, 'CreateDashVideoLinks'); } if (!bSuccess && (sVideoID!='')) bSuccess = GetLink_Youtube2(sVideoID, 'CreateMobileVideoLinks'); // ------------------------------------------------------- } else if (sProc=='CreateHlsVideoLinks') { sData = HmsDownloadUrl(sLink, sHeaders, true); RE = TRegExpr.Create('BANDWIDTH=(\\d+).*?RESOLUTION=(\\d+)x(\\d+).*?(http[^#]*)', PCRE_SINGLELINE); try { if (RE.Search(sData)) do { bSuccess = true; sLink = ' ' + RE.Match(4); if (sBitrate!='') { if (SameText(sBitrate, RE.Match(1))) {mpFilePath=sLink; break;} } else { iHeight = StrToIntDef(RE.Match(3), 0); if (mpPodcastMediaFormats!='') { iPriority = HmsMediaFormatPriority(iHeight, mpPodcastMediaFormats); if ((iPriority>=0) && (iPriority<iMinPriority)) { mpFilePath = sLink; iMinPriority = iPriority; } } else if ((iHeight > iMaxHeight) && (iHeight <= iMaxQualHeight)) { mpFilePath = sLink; iMaxHeight = iHeight; } } } while (RE.SearchAgain()); } finally { RE.Free(); } // ------------------------------------------------------- } else if (sProc=='CreateDashVideoLinks') { oXMLDoc = TXMLDocument.Create(); try { RE.Create('\\/s\\/(.*?)\\/'); try { if (RE.Search(sLink)) {RE.Replace('/signature/'+GetLink_Youtube2(RE.Match, 'YoutubeDecrypt')+'/'); sLink = RE.Subject;} } finally { RE.Free(); } sData = HmsDownloadUrl(sLink, sHeaders, true); oXMLDoc.LoadFromString(sData); PeriodItem = oXMLDoc.Root.Find('Period'); if (PeriodItem!=nil) { AudioAdaptationSetItem = nil; VideoAdaptationSetItem = nil; for (i=0; i<PeriodItem.Count; i++) { AdaptationSetItem = PeriodItem.Items[i]; if (SameText(AdaptationSetItem.Name, 'AdaptationSet')) { sType = LowerCase(AdaptationSetItem.Attributes['mimeType']); if (Pos('video/', sType)==1) { if (VideoAdaptationSetItem==nil) VideoAdaptationSetItem = AdaptationSetItem; } else if (Pos('audio/', sType)==1) { if (AudioAdaptationSetItem==nil) AudioAdaptationSetItem = AdaptationSetItem; } } } if ((VideoAdaptationSetItem!=nil) && (AudioAdaptationSetItem!=nil)) { sAudioLink = ''; n=0; for (i=0; i<AudioAdaptationSetItem.Count; i++) { RepresentationItem = AudioAdaptationSetItem.Items[i]; if (SameText(RepresentationItem.Name, 'Representation')) { n = StrToIntDef(RepresentationItem.Attributes['bandwidth'], 0); if (n>iMaxVal) {iMaxVal=n; sAudioLink=RepresentationItem.ChildValues['BaseURL'];} } } if (sAudioLink!='') { for (i=0; i<VideoAdaptationSetItem.Count; i++) { RepresentationItem = VideoAdaptationSetItem.Items[i]; if (SameText(RepresentationItem.Name, 'Representation')) { sVideoLink = RepresentationItem.ChildValues['BaseURL']; if (sVideoLink!='') { bSuccess = true; sLink = Format('-i "%s" -i "%s"', [sVideoLink, sAudioLink]); iHeight = StrToIntDef(RepresentationItem.Attributes['height'], 0); if (mpPodcastMediaFormats!='') { iPriority = HmsMediaFormatPriority(iHeight, mpPodcastMediaFormats); if ((iPriority>=0) && (iPriority<iMinPriority)) { mpFilePath = sLink; iMinPriority = iPriority; } } else if ((iHeight > iMaxHeight) && (iHeight <= iMaxQualHeight)) { mpFilePath = sLink; iMaxHeight = iHeight; } } } } } } } } finally { oXMLDoc.Free(); } // ------------------------------------------------------- } else if (sProc=='LoadSubtitles') { sFile = IncludeTrailingBackslash(HmsSubtitlesDirectory)+'Youtube\\' + CurrentMediaItem.ItemID + '.' + sSubtitlesLanguage + '.srt'; oXMLDoc = TXMLDocument.Create(); try { oXMLDoc.LoadFromString(HmsDownloadUrl(sLink+'&type=list&tlangs=1&fmts=1&asrs=1', sHeaders, true)); for (i=0; i<oXMLDoc.Root.Count; i++) { oXMLItem = oXMLDoc.Root.Items[i]; if (SameText(oXMLItem.Name, 'track')) { sVal = oXMLItem.Attributes['lang_code']; if (SameText(sVal, sSubtitlesLanguage)) { sSourceLangCode = sVal; bTranslate = false; break; } else if (SameText(oXMLItem.Attributes['cantran'], 'true')) if (SameText(sVal, 'en') || (sSourceLangCode=='')) sSourceLangCode = sVal; } else if (SameText(oXMLItem.Name, 'target')) if (SameText(oXMLItem.Attributes['lang_code'], sSubtitlesLanguage)) bCanTranslate = true; } if (sSourceLangCode!='') { sLink += '&type=track&kind=asr&format=srt&lang=' + sSourceLangCode; if (bTranslate && bCanTranslate && bSubtitlesTranslate) sLink += '&tlang='+sSubtitlesLanguage; } } finally { oXMLDoc.Free(); } HmsDownloadURLToFile(sLink, sFile, sHeaders+'Accept-Encoding: gzip, deflate'); CurrentMediaItem[mpiSubtitleLanguage] = sFile; // ------------------------------------------------------- } else if (sProc=='YoutubeMaxHeight') { iHeight=0; itag = sLink; if (IsWordPresent(itag, '13,17', ',')) iHeight=144; else if (IsWordPresent(itag, '5,83', ',')) iHeight=240; else if (IsWordPresent(itag, '6', ',')) iHeight=270; else if (IsWordPresent(itag, '18,34,43,82,100', ',')) iHeight=360; else if (IsWordPresent(itag, '35,44,101', ',')) iHeight=480; else if (IsWordPresent(itag, '22,45,84,102', ',')) iHeight=720; else if (IsWordPresent(itag, '37,46', ',')) iHeight=1080; else if (IsWordPresent(itag, '38', ',')) iHeight=3072; return iHeight; // ------------------------------------------------------- } else if (sProc=='YoutubeDecrypt') { sig = sLink; sig = Copy(sig, 2+1, Length(sig)); // YoutubeDecryptClone (Result, 2 ) n = (36-Trunc(36/Length(sig)))+1; Swap(sig[1], sig[n]); // YoutubeDecryptSwap (Result, 36) sig = Copy(sig, 1+1, Length(sig)); // YoutubeDecryptClone (Result, 1 ) s=''; for(i=Length(sig); i>0; i--) s+=sig[i]; sig = s; // YoutubeDecryptReverse(Result) n = (18-Trunc(18/Length(sig)))+1; Swap(sig[1], sig[n]); // YoutubeDecryptSwap (Result, 18) s=''; for(i=Length(sig); i>0; i--) s+=sig[i]; sig = s; // YoutubeDecryptReverse(Result) n = (19-Trunc(19/Length(sig)))+1; Swap(sig[1], sig[n]); // YoutubeDecryptSwap (Result, 19) s=''; for(i=Length(sig); i>0; i--) s+=sig[i]; sig = s; // YoutubeDecryptReverse(Result) return sig; // ------------------------------------------------------- } else if (sProc=='CreateMobileVideoLinks') { sHeaders+= 'User-Agent: Mozilla/5.0 (iPad; CPU OS 6_1_3 like Mac OS X) AppleWebKit/536.26 (KHTML, like Gecko) Version/6.0 Mobile/10B329 Safari/8536.25'; sData = HmsDownloadUrl('http://m.youtube.com/watch?ajax=1&ipadtype=3&sts=16100&layout=tablet&v='+sLink+'&has_verified=1', sHeaders, true); if (!HmsRegExMatch('({.*})', sData, sData)) return false; JSON = TJsonObject.Create(); try { JSON.LoadFromString(sData); sLink = ''; FmtStreamMap = JSON.O['content\\video\\fmt_stream_map']; if (FmtStreamMap==nil) FmtStreamMap = JSON.O['content\\player_data\\fmt_stream_map']; if ((FmtStreamMap!=nil) && (FmtStreamMap.DataType==jtArray)) { bSuccess = true; if (bSubtitles) { sData = JSON.S['content\\player_data\\desktop_get_video_info']; if ((Pos('has_cc=True', sData) > 0) && HmsRegExMatch('ttsurl=(.*?)&', sData, sLink)) GetLink_Youtube2(sLink, 'LoadSubtitles'); } for (i=0; i<FmtStreamMap.AsArray.Length; i++) { StreamInfo = FmtStreamMap.AsArray.O[i]; sType = StreamInfo.AsObject.S['type']; itag = StreamInfo.AsObject.S['itag']; if (StreamInfo.AsObject.I['stered3d']==1) sVideo3D='[3D]'; sLink = StreamInfo.AsObject.S['url']; if (sLink!='') { sLink = ' '+Trim(sLink); sig = StreamInfo.AsObject.S['sig']; if (sig!='') sLink += '&signature='+GetLink_Youtube2(sig, 'YoutubeDecrypt'); if ((Pos('flv', sType)>0) || (Pos('mp4', sType)>0)) { iHeight = GetLink_Youtube2(itag, 'YoutubeMaxHeight'); if (mpPodcastMediaFormats!='') { iPriority = HmsMediaFormatPriority(iHeight, mpPodcastMediaFormats); if ((iPriority>=0) || (iPriority<iMinPriority)) { mpFilePath = sLink; iMinPriority = iPriority; } } else if ((iHeight>iMaxHeight) && (iHeight<=iMaxQualHeight)) { mpFilePath = sLink; iMaxHeight = iHeight; } } } } } else { sHlsUrl = JSON.S['content\\player_data\\stream_url']; if (sHlsUrl!='') GetLink_Youtube2(sHlsUrl, 'CreateHlsVideoLinks'); else { s = Trim(ReplaceStr(ReplaceStr(ReplaceStr(JSON.S["errors"], '"', ''), '[', ''), ']', '')); if (s!='') GetLink_Youtube2(s, 'ShowError'); } } } finally { JSON.Free(); } // ------------------------------------------------------- } else if (sProc=='ShowError') { char sFileMP3 = HmsTempDirectory+'\\sa.mp3'; char sFileImg = HmsTempDirectory+'\\youtubemsg_'; sVal = HmsHttpEncode('Youtube сообщает:'); sData = HmsHttpEncode(ReplaceStr(sLink, '\n', '|')); i = cfgTranscodingScreenHeight; n = cfgTranscodingScreenWidth; sLink = Format('http://wonky.lostcut.net/videomessage.php?h=%d&w=%d&captfont=AGFriquer_Bold&captsize=%d&fontsize=%d&caption=%s&msg=%s', [i, n, Round(i/6), Round(i/17), sVal, sData]); HmsDownloadURLToFile(sLink, sFileImg); for (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 = ''; } mpFilePath = Format('%s-f image2 -r 1 -i "%s" -c:v libx264 -pix_fmt yuv420p ', [sFileMP3, sFileImg+'%03d.jpg']); } return bSuccess; } // ---------------------------------------------------------------------------- { string sData; sData = HmsStringFromFile(mpFilePath); sData = ReplaceStr(sData, '\n\r', '\n'); mpFilePath = ExtractWord(1, sData, '\n'); mpFileSize = ExtractWord(2, sData, '\n'); if (HmsRegExMatch('youtube.com/watch', mpFilePath, '')) GetLink_YouTube2(mpFilePath); mpFilePath = Trim(mpFilePath); CurrentMediaItem[mpiInternetItem] = 1; if (mpFileSize!='') CurrentMediaItem[mpiFileSize] = mpFileSize; TranscodingParams = HmsTranscodingInputParams + HmsTranscodingVideoParams + HmsTranscodingMapParams(mpAudioStreamNo); TranscodingParams = ReplaceStr(TranscodingParams, '<INPUT FILE>', mpFilePath); HmsLogMessage(1, mpTitle+': '+TranscodingParams); } C++Script Фильмы (основной) Links -1 0 4b1f8322-5386-4d31-9eaf-854efc252915