くだすれ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ヲッチャ的な内容も歓迎だ。
■ 誰も立てないから立てた。さあ語れ。 最近3Dをやってるけどサンプルほぼ皆無
既存の3Dシェープ使わない場合はTMeshにデータ書き込むのか?
OpenGLの流儀で独自にSphere作って表示はそれなりにできたけど
イマイチDelphi 3Dの作法が分からん 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秒 ありがとうございます。
エポックの基準開始年がWindowsとMacで違っていてMP4の元となるMOVを作ったのがアップルだから
Mac基準の基準開始年との差を勘案しなきゃいけないってことですね!
・・・なんつう罠 orz それにしてもエンバカのサイト GetItやDocWikiが落ちてるのいつ直るんだ? ダウンロードによる過負荷ねぇ。。。
頻繁にダウンしてる気がするが 最近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からダウンロードしてオフラインインストールが可能) 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を作る方法を教えて下さい Delphi 6でDOSPrintと同じ動きをするプログラムを作る方法を教えて下さい 新規作成すると 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になっているからローカライズ担当の怠慢か