VLC C:\Program Files (x86)\VideoLAN\VLC\vlc.exe http://www.videolan.org http://www.videolan.org VLC PascalScript 1 0 const csVideoLanParams = '--no-crashdump -Idummy --language en --sout=#transcode{acodec=%s,ab=%d,channels=2,' + 'samplerate=44100}:duplicate{dst=std{access=file,mux=%s,dst="<OUTPUT FILE>"}}' + ' "<INPUT FILE>"'; function GetAudioCodec: string; begin if SameText(Copy(cfgTranscodingRadioMimeType, 1, 9), 'audio/L16') then Result := 's16be' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then Result := 'wma2' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-wav', 'audio/wav']) then Result := 's16le' else if Pos('flac', cfgTranscodingRadioMimeType) > 0 then Result := 'flac' else Result := 'mp3' end; function GetFileFormat: string; begin if MatchText(cfgTranscodingRadioMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then Result := 'asf' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-wav', 'audio/wav']) then Result := 'wav' else if Pos('flac', cfgTranscodingRadioMimeType) > 0 then Result := 'flac' else Result := 'raw' end; begin TranscodingParams := Format(csVideoLanParams, [GetAudioCodec, 1148, GetFileFormat]) end. PascalScript Музыка - Интернет-радио (VLC) (lossless 1000+ kbps) -1 9 1eca0abd-62f6-4cc4-970b-eafa59b33b83