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

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ヲッチャ的な内容も歓迎だ。
■ 誰も立てないから立てた。さあ語れ。

>>1
スレ立ておつ

>>1
O2

>>1
おつ

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

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

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

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 等フォーマット系も調べても分らないのです。
変換式、誰か分りませんか？

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

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秒

66年、ずれている？

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

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

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

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

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

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

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

試せばいいじゃん

まあそうなんだよね

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

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

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

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

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

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

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

クソだな

>>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をダウンロードする必要がある場合は、営業担当者にお問い合わせください。

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

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

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

長かったわ復活乙

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

結局何を聞きたいのか？

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

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

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

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

Delphi 6でDOSPrintを作る方法を教えて下さい

DOSPrintのDOSPrintUI.exeを触ってみた感じだと
LPT1〜9がなければポートを作ってLPTに送られてきたデータを
指定したプリンタへリダイレクトしているだけのようですが
LPT1へデータを送信するコードしか見つからなくて
LPT1を作ったり、データを読んだりもできないので何かわかるかたがいれば教えてください

粘るねぇｗ

Delphi 6でDOSPrintを作る方法を教えて下さい

32bit Win10なら動くのでは、知らんけど

Delphi 6でDOSPrintと同じ動きをするプログラムを作る方法を教えて下さい

Delphi Code Analysis Wizard ? Free Edition : r/delphi
https://www.reddit.com/r/delphi/comments/1bhqtwq/delphi_code_analysis_wizard_free_edition/

新規作成すると　Unit2,Form2,project2から作成するようになってしまいました。
元に戻すには　どこをいじればよいのでしょうか。
Delphi11CEです。

自己解決しました。

Delphi 12.1がリリースされたけど相変わらずローカルヘルプから外部のコードサンプルのリンクが間違ってるな
なんでURLにβ版の開発名とか Updates とかいう名前を入れるかね

The requested URL /CodeExamples/Updates/en/TXMLDocumentCreateElement_(Delphi) was not found on this server.

円馬鹿だから

>>42
日本語ヘルプファイル、先祖返りしているね
topic.chmのタイトルが　「RAD Studio 11 Athens ヘルプ」　になっている
12.0のtopic.chmは　「RAD Studio 12 Athens ヘルプ」になっているし英語版もRAD Studio 12になっているからローカライズ担当の怠慢か

スレ立て荒しが板に爆撃中！
緊急ほしゅあげ