くだすれ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秒

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

66年、ずれている？

8 · 2024/01/19(金) 17:57:17.09

ありがとうございます。
エポックの基準開始年がWindowsとMacで違っていてMP4の元となるMOVを作ったのがアップルだから
Mac基準の基準開始年との差を勘案しなきゃいけないってことですね！
・・・なんつう罠 orz

**デフォルトの名無しさん** · 2024/01/21(日) 20:49:12.87

それにしてもエンバカのサイト　GetItやDocWikiが落ちてるのいつ直るんだ？

**デフォルトの名無しさん** · 2024/01/21(日) 20:54:01.53

https://blogs.embarcadero.com/we-are-experiencing-a-hardware-outage/

**デフォルトの名無しさん** · 2024/01/22(月) 01:01:33.74

ダウンロードによる過負荷ねぇ。。。
頻繁にダウンしてる気がするが

**デフォルトの名無しさん** · 2024/01/26(金) 01:35:46.67

最近10年近く前のWindows10に変更したついでに
Delphi 11 Communityエディションを入れて使ってみたんですが
なぜかコードエディタ上で表示されるコンテキストメニューの表示などが遅すぎで
なんでかな？と思ったら、Windowsの電源オプションの電源プランで省電力にしてたからでした
そんな違いが出るとは知らなかったのでびっくりしました

**デフォルトの名無しさん** · 2024/02/09(金) 07:33:10.66

Delphi 12のGetIt復活したけどなんかおかしい。
機能の追加でHelpの削除をしたら、Helpの項目のチェックボックスが消えて
2度とHelpのインストールができなくなった
言語パックのチェックボックスも一旦解除するとチェック状態に戻らないと

**デフォルトの名無しさん** · 2024/02/12(月) 13:55:06.30

DelphiのFiremonkeyって
AndroidのWearOS対応アプリを作れる？

**デフォルトの名無しさん** · 2024/02/12(月) 17:10:59.93

試せばいいじゃん

**デフォルトの名無しさん** · 2024/02/12(月) 18:06:01.15

まあそうなんだよね

すでにstoreに登録してるスマホ用アプリをアレンジして
ウォッチ用アプリを作ってみようとしてるんだけど
検索してもYoutubeに1件あるだけで

それをまねて実機でHelloWorldは実行できたんだけど
他に誰もやってないんじゃ不安で聞いてみたわけ

**デフォルトの名無しさん** · 2024/02/12(月) 18:12:17.80

>>16
結局Patch1が組み込まれた新しいinlineインストーラー使って再インストールした。
コンポーネントの再登録が超面倒くさい。

再インストールしてGetItアクセスして気づいたんだけど、Patch1適用前のDelphi12にpatch1を適用したものと、
新しいinlineインストーラー使ってインストールしたものではGetItのアクセス先が違ってるんだろうか？
以前はあったはずのモジュールがまだ登録されていなかったりするんだが

**デフォルトの名無しさん** · 2024/02/12(月) 22:11:18.96

一人でできないんじゃ
作れるもクソもねぇ

**デフォルトの名無しさん** · 2024/02/14(水) 09:09:13.25

Delphi 11 Community Edition の ISOはどこから落とせるの
my.embarcadero.comからダウンロードと言うが見つからない
barnsten.comから直リン拾ったけど…

**デフォルトの名無しさん** · 2024/02/14(水) 09:39:35.40

my.embarcadero.comからダウンロード　見つからない
適当なISOからインストール　Community Editionはインストールできない

クソだな

**デフォルトの名無しさん** · 2024/02/14(水) 11:51:53.99

>>22
Delphi CEのインストールはISOではなくインストーラーから行う
公式からDLしてインストール
https://www.embarcadero.com/jp/products/delphi/starter/free-download
ここからDLしないとシリアルコード書いたメール送られてこないのでファイルだけあってもアクティベートできない

でも今は一時的にDLできないようなので時間おいてから試して

Unavailable
Download temporarily unavailable, we apologize for the inconvenience.
If you are a student or teacher and need to download the Community Edition for a scheduled class, please Contact Sales.

使用禁止
ダウンロードが一時的にご利用いただけませんので、ご不便をおかけして申し訳ございません。
学生または教師で、予定されているクラス用にCommunity Editionをダウンロードする必要がある場合は、営業担当者にお問い合わせください。

**デフォルトの名無しさん** · 2024/02/14(水) 16:28:52.80

>>24
ここに回避策としてISOが案内されていた
いずれにしてもできないものは仕方ないが…

https://www.embarcadero.com/jp/products/delphi/starter
回避策：ISOインストール（my.embarcadero.comからダウンロードしてオフラインインストールが可能）

**デフォルトの名無しさん** · 2024/02/20(火) 16:55:33.19

CEのダウンロード復活してるのね

**デフォルトの名無しさん** · 2024/02/21(水) 05:02:00.99

長かったわ復活乙

**デフォルトの名無しさん** · 2024/02/27(火) 15:45:09.62

Windows11でT98-Nextを使用しようとしています
パラレルポートがないのでUSB-パラレル変換でVP-1350と接続します
RAWモード印刷の機能が使えないようですのでDOSコマンドでは無理なので
LPT1へ出力されたデータをUSBプリンタへリダクトするコードを
書きたいのですがサンプルも見つかりません
フリーソフトのDOSPrintを使えば実現できるようなのですけど
Delphi 6 でつくれるならやってみたいので参考になるサイトなどあれば教えてください

**デフォルトの名無しさん** · 2024/02/27(火) 16:45:31.37

結局何を聞きたいのか？

**デフォルトの名無しさん** · 2024/02/27(火) 17:02:33.53

>>28
PC98エミュレータプリンタ設定のキモ T98-Nextの場合
https://koga2020.hatenabl;og.com/entry/53075481

**デフォルトの名無しさん** · 2024/02/27(火) 17:37:30.28

>>30
その方法のDOSコマンドが使えるのはXPまでで
試したけどWin11や10では無理だった
ttp://www.nankichi.net/?p=22

それで上記のサイトにあるDOSPrintをInternet ArchiveでDLしたんだけど
同じ動作をするアプリをDelphi 6でつくれるかなと思って質問してみました

**デフォルトの名無しさん** · 2024/02/27(火) 18:10:46.27

>>31
Win11や10でWinXPを仮想PCで動かして、そのWinXP上でT98-Nextを動かせばOK