ACEPLAYER %Registry\SOFTWARE\AceStream\InstallDir%\player\ace_player.exe http://www.acestream.org http://www.acestream.org ACEPLAYER PascalScript Транскодирование для TorrentStream, AceStream медиа-ресурсов 3 0 const csVideoLanParams = '--no-crashdump --play-and-exit -Idummy --language en%s --sout /%s:"<OUTPUT FILE>" --access=p2p_access "%s"'; function GetFileFormat(const aFileFormat: string): string; begin if HmsGetStreamCount = 0 then begin HmsRetrieveProperties; end; if Pos('ASF', aFileFormat) > 0 then Result := 'asf' else if Pos('MPEGTS', aFileFormat) > 0 then Result := 'ts' else Result := 'ps' end; var iAudioStreamID: Integer; sAudioTrackID, sInputFileName, sMediaResourceLink: string; begin sInputFileName := '<INPUT FILE>'; if InputFileName = '-' then begin sMediaResourceLink := HmsGetItemProperty(mpiMediaResourceLink); if Pos('--demuxdump-file', sMediaResourceLink) > 0 then begin if not HmsRegExMatch('--access=p2p_access "(.*?)"', sMediaResourceLink, sInputFileName) then HmsRegExMatch('"(.*?\.torrent)"', sMediaResourceLink, sInputFileName) end end; if mpAudioStreamNo >= 0 then begin iAudioStreamID := HmsGetStreamID(stAudio, mpAudioStreamNo); if iAudioStreamID < 100 then sAudioTrackID := ' --audio-track=' + IntToStr(mpAudioStreamNo) else sAudioTrackID := ' --audio-track-id=' + IntToStr(iAudioStreamID) end else sAudioTrackID := ''; TranscodingParams := Format(csVideoLanParams, [sAudioTrackID, GetFileFormat(cfgTranscodingFileFormat), sInputFileName]) end. PascalScript AceStream (Ремуксирование) + загрузка свойств -1 19 bba8e986-1b6c-4285-be3c-74eac73d6d2b