mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: AudioInfo - bit depth field

Browse source
This commit is contained in:
Alexander Koblov 2023-03-06 14:55:13 +03:00
commit d4fc718f8f
3 changed files with 17 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
plugins/wdx/audioinfo/audioinfo.lng
View file

@ -18,6 +18,7 @@ Copyright=Авторское право
Link=Ссылка
Encoder=Кодировщик
Tags=Теги
Bit depth=Разрядность
Full text=Весь текст
Unknown|Mono|Stereo|Joint Stereo|Dual Channel=Неизвестно|Моно|Стерео|Joint Стерео|Dual Channel
Hz|kHz=Гц|КГц

9
plugins/wdx/audioinfo/src/AudioInfo.lpr
View file

@ -14,7 +14,7 @@ const
'(EXT="MP4") | (EXT="OPUS")';
const
FIELD_COUNT = 20;
FIELD_COUNT = 21;
FIELD_NAME: array[0..Pred(FIELD_COUNT)] of String = (
'Channels',
@ -36,6 +36,7 @@ const
'Link',
'Encoder',
'Tags',
'Bit depth',
'Full text'
);
@ -59,12 +60,13 @@ const
ft_stringw,
ft_stringw,
ft_stringw,
ft_numeric_32,
ft_fulltextw
);
FIELD_UNIT: array[0..Pred(FIELD_COUNT)] of String = (
'Unknown|Mono|Stereo|Joint Stereo|Dual Channel', '', '', 'Hz|kHz',
'', 'CBR|VBR|Unknown', '', '', '', '', '', '', '', '', '', '', '', '', '', '');
'', 'CBR|VBR|Unknown', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '');
var
DataAudio: TAudioData;
@ -146,7 +148,8 @@ begin
16: Value:= DataAudio.URL;
17: Value:= DataAudio.Encoder;
18: Value:= DataAudio.Tags;
19:
19: ValueI^:= DataAudio.Bits;
20:
begin
if UnitIndex = -1 then
Result:= ft_fieldempty

11
plugins/wdx/audioinfo/src/audiodata.pas
View file

@ -3,7 +3,7 @@
-------------------------------------------------------------------------
This content plugin can show information about audio files
Copyright (C) 2016 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2016-2023 Alexander Koblov (alexx2000@mail.ru)
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
@ -83,6 +83,7 @@ type
function ReadWAVPackfile: Boolean;
public
Album, Artist, Title: String;
Bits,
Track,
Duration,
SampleRate,
@ -108,6 +109,7 @@ uses
procedure TAudioData.Clear;
begin
Bits:= 0;
Track:= 0;
BitRate:= 0;
Duration:= 0;
@ -234,6 +236,7 @@ begin
if Result then
begin
BitRate:= FDTS.BitRate;
Bits:= Integer(FDTS.Bits);
Duration:= Round(FDTS.Duration);
DurationHMS:= FormatDuration(Duration);
Channels:= FormatChannels(FDTS.Channels);
@ -259,6 +262,7 @@ begin
Result:= FTTA.ReadFromFile(FFileName) and FTTA.Valid;
if Result then
begin
Bits:= Integer(FTTA.Bits);
BitRate:= Round(FTTA.BitRate);
Duration:= Round(FTTA.Duration);
DurationHMS:= FormatDuration(Duration);
@ -293,6 +297,7 @@ begin
Result:= FMonkey.ReadFromFile(FFileName) and FMonkey.Valid;
if Result then
begin
Bits:= FMonkey.Bits;
Channels:= FMonkey.ChannelMode;
BitRate:= Round(FMonkey.BitRate) div 1000000;
Duration:= Round(FMonkey.Duration);
@ -371,6 +376,7 @@ begin
Result:= FWAVfile.ReadFromFile(FFileName) and FWAVfile.Valid;
if Result then
begin
Bits:= FWAVfile.BitsPerSample;
BitRate:= Round(FWAVfile.BitRate);
Channels:= FWAVfile.ChannelMode;
Duration:= Round(FWAVfile.Duration);
@ -385,6 +391,7 @@ begin
if Result then
begin
BitRate:= FFLACfile.BitRate;
Bits:= FFLACfile.BitsPerSample;
Channels:= FFLACfile.ChannelMode;
Duration:= Round(FFLACfile.Duration);
DurationHMS:= FormatDuration(Duration);
@ -481,6 +488,7 @@ begin
Result:= FOptimFrog.ReadFromFile(FFileName) and FOptimFrog.Valid;
if Result then
begin
Bits:= FOptimFrog.Bits;
BitRate:= FOptimFrog.BitRate;
Channels:= FOptimFrog.ChannelMode;
Duration:= Round(FOptimFrog.Duration);
@ -497,6 +505,7 @@ begin
Result:= FWAVPackfile.ReadFromFile(FFileName) and FWAVPackfile.Valid;
if Result then
begin
Bits:= FWAVPackfile.Bits;
Encoder:= FWAVPackfile.Encoder;
Channels:= FWAVPackfile.ChannelMode;
BitRate:= Round(FWAVPackfile.BitRate);