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

**デフォルトの名無しさん** · 2023/11/23(木) 20:02:10.21

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、お礼はDelphiの布教と初心者の救済をお願いします。

■ Delphi 12
http://www.embarcadero.com/jp/products/delphi
■ Delphi Community Edition (無料)
iOS、Android、Windows、macOS 向けアプリも開発可能。年間売上5000 US＄以内の商用開発可。
https://www.embarcadero.com/jp/products/delphi/starter
＜前スレ＞
くだすれDelphi(超初心者用)その59【Embarcadero】
https://mevius.5ch.net/test/read.cgi/tech/1632449787/
■ 便所の落書きレベルの個人的な悪口やきつい言葉（氏ねとか）は禁止だからな。
■ Embarcaderoヲッチャ的な内容も歓迎だ。
■ 誰も立てないから立てた。さあ語れ。

**デフォルトの名無しさん** · 2023/11/26(日) 03:21:27.25

>>1
スレ立ておつ

**デフォルトの名無しさん** · 2023/11/26(日) 12:56:04.83

>>1
O2

**デフォルトの名無しさん** · 2023/11/29(水) 23:30:12.20

>>1
おつ

**デフォルトの名無しさん** · 2023/12/24(日) 00:08:52.47

乙だけど俺でさえ年くってきた

**デフォルトの名無しさん** · 2023/12/24(日) 17:09:00.27

最近3Dをやってるけどサンプルほぼ皆無
既存の3Dシェープ使わない場合はTMeshにデータ書き込むのか？
OpenGLの流儀で独自にSphere作って表示はそれなりにできたけど
イマイチDelphi 3Dの作法が分からん

**デフォルトの名無しさん** · 2024/01/10(水) 15:44:51.17

【訃報】プログラミング言語「Pascal」の開発者ニクラウス・ヴィルト氏が89歳で死去
https://gigazine.net/news/20240105-niklaus-wirth-passed-away/

**デフォルトの名無しさん** · 2024/01/18(木) 17:47:27.10

D6でmp4/mov動画フォーマットデータの日時データ変換についての質問です。
QuickTime File Format | Apple Developer Documentation
https://developer.apple.com/documentation/quicktime-file-format
ExifTool http://owl.phy.queensu.ca/~phil/exiftool/
データ trak の"Creation time""Modification time" は4バイトです。
00 00 00 01 は 1970/01/01 00:00:01 でどうやら UNIXエポックっぽいのですが
Delphiでの
uses DateUtils;
--
var
CDateTime: TDateTime;
i64: Int64;
Hex4bytes:String;
--
i64:=StrToInt64('$'+ Hex4bytes);
CDateTime:=UnixToDateTime(i64);
Memo1.Lines.Add(FormatDateTime('yyyy/mm/dd hh:nn:ss', CDateTime));
--
Hex4bytes:='D54D9B4C'; の場合
2083/05/27 08:43:56　← 結果X
2017/05/26 08:43:56　← これが正解

Hex4bytes:='DD6682B3'; の場合
2087/09/15 16:47:47　← 結果X
2021/09/14 16:47:47　← これが正解
となって失敗します。
'1970/01/01 00:00:00' に IncSecond() で入れても同様になるため
始点は同じでもフォーマットが違うと思い至りましたが
MP4/MOV 等フォーマット系も調べても分らないのです。
変換式、誰か分りませんか？

**デフォルトの名無しさん** · 2024/01/19(金) 01:15:29.70

ググると何かいろいろあるよ

https://kevinnadro.com/blog/parsing-creation-time-from-mp4-metadata-in-javascript

i64:=StrToInt64('$'+ Hex4bytes)- 2082844800;
又は
CDateTime:=IncSecond(CDateTime, -2082844800);

Unix timestamp epoch 1904-01-01 00:00:00 UTC
と
Mac timestamp epoch 1970-01-01 00:00:00 UTC
の差＝2082844800秒