くだすれDelphi(超初心者用)その60【Embarcadero】

くだすれDelphi(超初心者用)その60【Embarcadero】 (451ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

386: 368 [sage] 2025/04/23(水) 05:32:04.61 ID:KmGEZqMw

Cmd:='FFprobe 〜(略)' + CacheDir + '〜.json';
Memo.Lines.Add(Cmd);
Memo.Lines.Add('exit');
Memo.Lines.SaveToFile(SaveName); // CacheDir + '〜.bat'
ShellExecute(Handle,'open',PChar(SaveName),'',PChar(ExtractFilePath(Application.Exename)),SW_SHOWDEFAULT);
ListBox_Convert.Items.LoadFromFile(FileName); // CacheDir + '〜.json'
LineMax:=ListBox_Convert.Items.Count -1;
for Index:=0 to LineMax do
begin
Str:=ListBox_Convert.Items[Index];
ib:=Length(Str);
StrA:='';
for ia:=0 to ib do
begin
if ord(Str[ia]) <= $22 then Continue;
if ord(Str[ia]) <= $2C then Continue;
StrA:=StrA + Str[ia];
end;
StrB:=LowerCase(OrderStr(':',StrA,0));
if StrB = 'profile'then Profile:=LowerCase(OrderStr(':',StrA,1));
if StrB = 'codec_type' then CodecType:=LowerCase(OrderStr(':',StrA,1));
if CodecType = 'video' then Break;
end;
BitDepth := 0;
if Profile = 'main' then BitDepth:=8;
if Profile = 'main10' then BitDepth:=10;
if BitDepth <> 0 then Check:=True;
終了時にCacheDirごと一時ファイルをデリート

http://mevius.5ch.net/test/read.cgi/tech/1700737330/386

401: 368(MP4のカラービット色深度) [sage] 2025/04/25(金) 01:25:27.43 ID:WCPLL/xz

以下新規の参照例
ｈｔｔｐｓ：／／
ExMP4.Box.Hvcc
→ hexdocs.pm/ex_mp4/0.7.0/ExMP4.Box.Hvcc.html#summary
DelphiのIntegerは32bitで最大4バイトだけど↓２バイトなのか？
non_neg_integer(),　←ビッグエンディアンの？何バイトだろう？
'hvcC'のdata構造はコレで合ってるのかな？
@type t() :: %ExMP4.Box.Hvcc{
　bit_depth_chroma_minus8: non_neg_integer(),
　bit_depth_luma_minus8: non_neg_integer(),　←※この部分？
　chroma_format_idc: non_neg_integer(),
　constraint_indicator_flags: non_neg_integer(),
　level_idc: non_neg_integer(),
　nalu_length_size: non_neg_integer(),
　num_temporal_layers: non_neg_integer(),
　ppss: [binary()],
　profile_compatibility_flags: non_neg_integer(),
　profile_idc: non_neg_integer(),
　profile_space: non_neg_integer(),
　spss: [binary()],
　temporal_id_nested: non_neg_integer(),
　tier_flag: non_neg_integer(),
　vpss: [binary()]
}
バイナリの自己例(どーれーだー頭沸きそう)
bytes: Binary : Data field
4 : 00 00 00 7D : Size
4 : 68 76 63 43 : "hvcC" Atom
　01 02 20 00
　00 00 00 00　←※２段目が無しという事はないハズなので4バイトじゃないよね
　00 00 00 00 B4 F0 00 FC 00 0F 03 A0 00 01 00 21 (略)

http://mevius.5ch.net/test/read.cgi/tech/1700737330/401

上下前次 1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.031s