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

**デフォルトの名無しさん** · 2025/03/11(火) 23:57:58.57

>>283
あとTOKYOの時はRADにDelphiとc++を入れてたよ。インストールの時に両方選べた。

**デフォルトの名無しさん** · 2025/03/12(水) 00:04:25.09

>>288
ただし使う時は両方のSiriを貰っておかないといけない。

**デフォルトの名無しさん** · 2025/03/12(水) 00:38:56.81

>>283
それからTOKYOはRADだよ。
何年ぶりかで無料版が出たとあちこちで話題になり多くの人がインストールしただろう。あれは無料版のCommunity Editionでしょう。

**デフォルトの名無しさん** · 2025/03/12(水) 00:49:13.47

ちょっと勘違いしてたわ。
最初の無料版はベルリンだったわ。

RAD Studio 10.1 Berlin Starter Edition"

**デフォルトの名無しさん** · 2025/03/12(水) 01:09:25.67

DEKOさんの記事がまだ残ってたわ。

https://ht-deko.com/ft1608.html#160823

ここに当時のインストール記事がある。
これ見てインストールしたよ。

**デフォルトの名無しさん** · 2025/03/12(水) 01:30:58.13

自分もバカだね。

Community Editionでなく
Starter Editionだわ。

**デフォルトの名無しさん** · 2025/03/12(水) 08:14:13.19

>>286
最新パッチ当てた？

**デフォルトの名無しさん** · 2025/03/12(水) 12:16:56.95

>>294
当ててない。

**デフォルトの名無しさん** · 2025/03/12(水) 12:30:09.35

>>294
今、Getlt経由でパッチ当てたら12.1になりました。ドジですね。自分。
でも前回のインストールの時はなんで初めから12.1だったんだろうね。
知らずにパッチ当ててたのかなぁ。

**デフォルトの名無しさん** · 2025/03/12(水) 20:13:23.90

アプリのフォルダをコピーして別の場所（フォルダ）にペーストし、
そこで開発を続行したいんだけど、何か気を付けることってある？

*.dprや*.dprojファイルには絶対パスは書かれてないけど
*.dproj.localファイル、*.dskには元のフォルダの絶対パスが書かれてる
また、ImageList内の各アイテムのFilenameも絶対パス
たぶん、その他にもいっぱいあると思う

このままじゃ何か修正しても、元のフォルダの方が修正されそう

これを可能にするコマンドとかある？

**デフォルトの名無しさん** · 2025/03/13(木) 00:16:19.13

>297
最近のは知らない(D6,D7時代の知識だけど)が
現行の開発中状態から「プロジェクトに名前を付けて保存」で移行させたいフォルダを指定
その後に「すべて保存」をすると移行できるし
終了後、再開で「プロジャクトを開く」窓のデフォ状態から
「ファイル名：　　｜▼」部分押しで移行先フォルダアドレス出ますが？
現行のデルファイは知らない

**デフォルトの名無しさん** · 2025/03/13(木) 15:26:28.11

やってみたけどダメだった
移動したフォルダには*.dprとかはコピーされてるけど
「すべて保存」しても新フォルダには*.pasとかはコピーされない
新しい*.dprojの中身を見ると元のフォルダ内の*.pasを指している

この状態で何か修正すると
その修正は元フォルダのファイルに反映されるみたい

やっぱフォルダごとコピーして
絶対パス部分を手動で置換するしかない？

**デフォルトの名無しさん** · 2025/03/13(木) 15:45:08.44

いつの記事だと思ったら最新のものだった…

Delphi 7 を完全に卒業すべき理由
https://blogs.embarcadero.com/ja/read-the-webinar-why-you-should-leave-delphi-7-once-and-for-all-ja/

**デフォルトの名無しさん** · 2025/03/13(木) 16:15:22.09

半額でも高いからな
アップデートだけできて価格が1/10ならワンチャンあるかもだが、今のままでは卒業してDelphiさようならになりそう
いや、既になってる

**デフォルトの名無しさん** · 2025/03/13(木) 17:05:56.08

>>299
そもそも絶対パスになっている時点でおかしい
プロジェクトファイルの位置を起点として相対パスになるはずだよ
現になっている部分は手動で直すしかないと思う

**デフォルトの名無しさん** · 2025/03/13(木) 21:50:13.79

>>302
ええと、>>397に書いたように
*.dprや*.dprojファイルには絶対パスは書かれてない

それでサンプルプログラムを作って「プロジェクトに名前を付けて保存」で
新しいフォルダに保存してみた

1) *.dfm/fmxや*.pasファイルは新しいフォルダに保存（コピー）されず
元のフォルダのファイルを使うような仕様になってる
2) リソース関係も元のフォルダを指している

TestSampleVCL_Originalファルダ内のプロジェクトを
TestSampleVCL_Movedファルダに保存

https://i.imgur.com/CQ023ma.jpeg

**デフォルトの名無しさん** · 2025/03/14(金) 01:03:06.27

>>303
>>299で「絶対パス部分」って言うてるのは？

普通（という表現は適切じゃないかもしれないが）はフォルダごとコピペで問題ないのよ
もちろんImagesフォルダやiconsフォルダも含めてね

で、それ見る限りパスの指定がおかしい
<Icon_MainIcon>..\TestSampleVCL_Original\Icons\app-icon.ico</Icon_MainIcon>

先頭にドットが二つあるだろ
これだと相対パスで現在地→親→TestSampleVCL_Originalを指定していることになっている
コピーした先が親が同じProjectsフォルダだったから、TestSampleVCL_Originalが存在することで偶然パスが通っているに過ぎないミス

<Icon_MainIcon>Icons\app-icon.ico</Icon_MainIcon>
みたいに相対パスで親を辿らないようにしなきゃダメ（分かっていると思うけど\記号はその画像でのバックスラッシュね）
面倒だろうけどこういうのは自動じゃ直らないと思うから全部手動で書き換えが良いかと
リソースファイルの方も同様

こういうのが起きる原因として一つ考えられるのは最初追加するときにプロジェクトを保存してなかったんじゃないかと思う
つまりProjectsフォルダがカレントディレクトリの状態で追加したから、そこからの相対パスに設定されて、その後プロジェクトを保存したことで面倒なことに親を辿ったルートになったのかなと
原因はあくまで推測なんで間違ってるかも

**デフォルトの名無しさん** · 2025/03/14(金) 03:43:02.92

>>304
>TestSampleVCL_Originalが存在することで偶然パスが通っているに過ぎないミス

と言われてもDelphiが勝手にやってることだし

TestSampleVCL_Originalフォルダ内の元のdprojは
<Icon_MainIcon>Icons\app-icon.ico</Icon_MainIcon>となってる

これをプロジェクトの別名保存を実行した段階で
（たぶんDelphiが気を利かせて）
TestSampleVCL_Movedフォルダ内の新しいdprojでは
<Icon_MainIcon>..\TestSampleVCL_Original\Icons\app-icon.ico</Icon_MainIcon>
とDelphiが自動で修正したということ

「プロジェクトに名前を付けて保存」で
すべてコピーされたと勘違いして元のフォルダを削除すると
ソースが失われる危険性があるのが怖い

**デフォルトの名無しさん** · 2025/03/14(金) 04:56:39.90

>>305
だからなんで「プロジェクトの別名保存」なんてするのよｗ
そこを起点として相対パスが設定されるのは当然じゃん

で、仮に試したいけど元のデータが失われるのが怖いなら
Original を　copy1 にコピー
Original を　copy2 にコピー
そんでcopy1でいろいろ試せばいい
それでOriginalが変更されたとしても、copy2をOriginalにコピー（もしくは移動）させれば復元できるだろ

**デフォルトの名無しさん** · 2025/03/14(金) 05:21:32.98

プロジェクトファイルとソースファイルは別
プロジェクトファイルの位置を変えたって、プロジェクトが参照しているソースファイルの位置は変わらない
だから相対位置が変わる

.dproj.localファイルはおそらく一時ファイル、消してもどうせ再生成される
.dskファイルはデスクトップ配置が保存されるらしいが俺は無効にしてるからないのではっきりとは分からんが
どのみち削除してもデスクトップ配置やブレークポイントがリセットされるぐらい
ImageListにフルパスが含まれているってのは分からん
アレはバイナリをバイト文字に変換して保存しているはずなんでパス情報はないはずだけど……

**デフォルトの名無しさん** · 2025/03/14(金) 12:45:14.78

元々は>>297でプロジェクトフォルダを
フォルダ名を変えてコピーして開発を継続したいって質問で
それに対して>>298が「プロジェクトに名前を付けて保存」って
回答があったんだよ
それでプロジェクト別名保存の話に移って。。。

自分はあくまでフォルダごとコピーするつもり

あとImageListは悪い、FMXのほうの話
*.fmxファイルにバイナリに加えて絶対パスのファイル名が書かれてる

https://i.imgur.com/lIU9LP6.jpeg

**デフォルトの名無しさん** · 2025/03/14(金) 16:16:45.09

FMXは使ったことないから分からん
相対パスに書き換えて問題なきゃそれが一番いいが
ただPNGとしてバイトデータで保持しているからIDE上の操作ぐらいでしか使わないパスじゃないかと思う
俺なら邪魔くせーとFileNameの行ごと削除する

**デフォルトの名無しさん** · 2025/03/18(火) 20:46:12.91

RAD Studio / Delphi / C++Builder 12.3リリース

**デフォルトの名無しさん** · 2025/03/18(火) 22:49:16.48

キャンペーン期間もう終わったのか
またやってくれよ

**デフォルトの名無しさん** · 2025/03/19(水) 11:42:11.42

エンバカのメールもういらないんだけどまだ来るのな

**デフォルトの名無しさん** · 2025/03/28(金) 09:51:57.10

Delphiとyt-dlpで動画をダウンロードするプログラム作ってたんだが、言葉の定義で教えてほしい。
「字幕を埋め込む」とは動画内に字幕が合成される事を言うのですか？それとも字幕ファイルが同時にダウンロードされる事を言うのですか？
何度やっても字幕ファイルがダウンロードされるだけなもんで。

**デフォルトの名無しさん** · 2025/03/28(金) 17:26:20.76

遅ればせながら24H2にアップデートした。。。とたんに
IDEは起動するけどプロジェクトが開けなくなった
イベントログで調べると.net関係のエラーでクラッシュしてた

アップデートに.netのアップデートが来てて事なきを得たが
ちょっと調べたら今のIDEには
Delphi8の.NETでコーディングした部分が少なからずあるらしい

そんもんか

**デフォルトの名無しさん** · 2025/03/28(金) 20:09:16.08

>>314
やな奴

**デフォルトの名無しさん** · 2025/03/28(金) 22:46:34.63

>>315
やな奴と言われてしまった

**デフォルトの名無しさん** · 2025/03/28(金) 23:06:17.46

>>313
yt-dlpは知らないけど
単純に「字幕を埋め込む」っていうと
動画ファイルに字幕データを組み込んで
再生時に同期して字幕を表示するってことじゃない？

少なくともハードコードというか
動画に焼き込むとは違うと思う
（昔AviUtlとか使って字幕付けて
イケないファイルを公開してた頃が懐かしい）

**デフォルトの名無しさん** · 2025/03/29(土) 03:33:18.66

>>316
すまん。間違えたよ。

**デフォルトの名無しさん** · 2025/03/29(土) 03:37:30.03

>>317
やはり、字幕ファイルを同時にダウンする事ですか。
変な日本語。埋め込むと言う表現は間違ってると思うよ。

**デフォルトの名無しさん** · 2025/03/29(土) 03:46:53.03

そもそもDelphi関係ないよなーと思いつつ
まあ雑談ってことで

>>319
そうじゃなくて、動画データとは別にメタデータとして動画ファイルに字幕データを書き込むってことよ（たぶん）
動画ファイルと字幕ファイル別々って意味じゃないと思うぞ
>>317が言っているのはTVのように動画そのものに字幕を付けるわけじゃないってだけ
字幕については俺も詳しくはないけど保存しようとしているファイルタイプによっては字幕データを書き込めない場合もあると思う

**デフォルトの名無しさん** · 2025/03/29(土) 12:35:19.43

>>320
オレも最初そのように解釈してたよ。
だからハマった。
字幕埋め込みやると動画と字幕ファイルをダウンロードするからね。動画に字幕を書き込むものでなかった。
で、いろいろ調べてるうちにFFmpegで動画に焼きつけるHPがあったんや。しかし、1時間の動画ならほぼほぼ1時間かかるんや。PCの性能かもしれんが。
こりゃダメだと思うと同時に埋め込みと焼き付けては違うのか？と思ったわけよ。

**デフォルトの名無しさん** · 2025/03/29(土) 15:14:10.57

>>321
そもそもそのyt-dlpもffmpegのラッパーみたいなもんよ
動画のあれこれはそっちに回してる
動画と字幕ファイルをダウンロードするってのも当然で、
（たぶん）ffmpegが直に字幕ファイルを取得できないから代わりにyt-dlpがダウンロードしてる
そんでffmpegに動画ファイルと字幕ファイルを渡して「字幕が埋め込まれた動画ファイル」を生成するようになってるんだろうけどそこでコケてるってわけ（たぶん）
再生と同じだけ時間がかかるってことはエンコードもやり直しているんだろうけど、指定パラメーター間違ってるんじゃない？
すでにダウンロードしてあるならffmpegのスレかサイト探せばいいんじゃない

**デフォルトの名無しさん** · 2025/03/30(日) 20:18:04.67

>>322
面倒くさくからも言うと
何もわかってないね。

**デフォルトの名無しさん** · 2025/03/31(月) 00:15:07.41

そもそもここはDelphiのスレ
yt-dlpはPythonスレかyt-dlpのスレへどうぞ

**デフォルトの名無しさん** · 2025/04/01(火) 19:46:48.11

>>324
アホだね。

**デフォルトの名無しさん** · 2025/04/08(火) 20:15:47.62

プログラムを組むのには色々な知識や他分野のアイデアや失敗談が参考になるのに薄っぺらい人間は「ここはdelphiのスレだ」だと批判する。
結果どうだ、さびれるだけだろ。

**デフォルトの名無しさん** · 2025/04/08(火) 20:23:14.97

>>324
何でお前が仕切ってんだ。
説明しろや。

**デフォルトの名無しさん** · 2025/04/08(火) 22:20:17.81

元々廃れてるのに何言ってんだ？？

**デフォルトの名無しさん** · 2025/04/09(水) 01:06:25.77

てかやっぱyt-dlpの話は
ここじゃ良い答えを得られんだろ

**デフォルトの名無しさん** · 2025/04/09(水) 02:21:36.23

>>325-328
お前のようなキチガイが我が物顔でスレを荒らすから廃れるんやでｗ

**デフォルトの名無しさん** · 2025/04/09(水) 03:59:34.98

delphiでyt-dlp使ってプログラムを組むのはダメでプロジェクトファイルや無料版の使用条件の話はいいのか?
ここはプログラム板だろうが。
視野が狭いのなお前ら。

**デフォルトの名無しさん** · 2025/04/09(水) 04:09:07.49

>>329
yt-dlpに限定した質問でなく「埋め込む」と言う意味についての質問だろう。
プログラム組んでたら埋め込むと言う案件に出会わないできただけだろう。お前ら。で、ffmpegでは焼き付けると言ってる人がいる。どう違うんだと言う事だ。

**デフォルトの名無しさん** · 2025/04/09(水) 04:10:56.46

>>330
お前がスレ汚しだ。

**デフォルトの名無しさん** · 2025/04/10(木) 11:19:31.33

yt-dlpがDelphiで描かれてる
ffmpegがDelphiで描かれてる
browserがDelphiで描かれてる
どれにも該当しない

**デフォルトの名無しさん** · 2025/04/10(木) 11:54:12.92

>>334
Delphiに関係ない投降するな。

**デフォルトの名無しさん** · 2025/04/10(木) 17:39:27.40

投降

**デフォルトの名無しさん** · 2025/04/10(木) 19:54:16.81

>>335
揚げ足取りはDelphiに関係ありません。
どっかに行けやアホ。

**デフォルトの名無しさん** · 2025/04/10(木) 21:51:58.46

正しい漢字を使いましょう

**デフォルトの名無しさん** · 2025/04/11(金) 03:15:05.84

>>338
delphiに関係ないわ

**デフォルトの名無しさん** · 2025/04/11(金) 14:30:51.10

>>339
delphiに興味ないわ

**デフォルトの名無しさん** · 2025/04/11(金) 15:57:44.71

>>340
立ち去れ

**デフォルトの名無しさん** · 2025/04/11(金) 19:31:41.04

>>341
お前バカだろ

**デフォルトの名無しさん** · 2025/04/11(金) 20:07:50.24

社畜幽霊ちゃん

**デフォルトの名無しさん** · 2025/04/11(金) 20:14:47.57

ここは、俺が仕切ってる。
Delphiのプログラミング以外の投稿は、俺以外許さん。文句ある奴はどっかへ行け。

**デフォルトの名無しさん** · 2025/04/13(日) 01:52:07.57

>>331
delphiでyt-dlp使ってプログラムを組むってどういうことですか？
CreateProcessかShellExecuteでyt-dlp呼び出すぐらいの話じゃないんですか？
どっちにしろそれだとyt-dlpのコマンドラインの使い方の話ですよね？
やっぱりDelphi関係ないんじゃないですか？
それともPython実行環境をDelphiで作るプログラムに実装させるって意味なんですか？
delphiでyt-dlp使ってプログラムを組むってどういう意味なんですか？
教えてくださーい

**デフォルトの名無しさん** · 2025/04/13(日) 09:11:04.43

>>345

プログラミングで「字幕を埋め込む」の定義を教えてほしい。と質問している。yt-dlpやffmpegは具体例。

＞３１３が質問だ。
＞３１７の回答で＞３１９で一応納得している。
＞３２０がたぶんと言いながらひっくり返す。
以下、わけわからん奴が知ったかぶりしてお終いには
スレ違いだと言って逃げた。

**デフォルトの名無しさん** · 2025/04/13(日) 09:19:50.61

>>345
delphiでyt-dlp使ってプログラムを組むってどういう意味なんですか？

CreateProcess
ShellExecute
CommandLineUni
など外部プログラムを「呼び出すぐらいの話」ですが
それくらいの話では問題ですか？

**デフォルトの名無しさん** · 2025/04/13(日) 10:01:07.90

DelphiというかObjectPASCALのコンパイル環境って円馬鹿以外にあるのか

**デフォルトの名無しさん** · 2025/04/13(日) 11:37:22.04

Lazarusがまだ開発続いてるよ
どれ位使われているかは分からん

**デフォルトの名無しさん** · 2025/04/14(月) 19:45:51.21

>>345
お前さ
俺がお前の質問に丁寧に回答してんのにお前は俺の質問は無視か？
人間が出来てないな。

**デフォルトの名無しさん** · 2025/04/14(月) 19:56:11.50

「呼び出すぐらいの話」ならいいけど、どういうパラメーターを指定するかはスレ違いだ

**デフォルトの名無しさん** · 2025/04/14(月) 20:10:05.63

>>351
黙れアホ

**デフォルトの名無しさん** · 2025/04/14(月) 20:36:13.20

呼び出し方ならこのスレでいい
それは言語特有の書き方があるからだ
けどパラメータに指定する文字列はどうすれば？みたいなのはスレチ
呼び出すプログラムによって違うのは当然なのでそのプログラムのスレで聞け
分かっているパラメータを指定してもその通りに動かないなら、呼び出し方の問題の可能性があるのでこのスレでいい

**デフォルトの名無しさん** · 2025/04/14(月) 22:31:37.05

>>353
誰もパラメーターの話なんかしてないだろ。
「埋め込む」と言うプログラミング世界での定義を聞いてるだけだ。
レベルが低くて仕方がないわ。
知ったかぶりはやめな。

**デフォルトの名無しさん** · 2025/04/14(月) 22:45:05.11

>>353
だいたい何を根拠で「ここでいい」とか言ってんだ。お前の定義なんかいらねぇんだよ。

**デフォルトの名無しさん** · 2025/04/14(月) 22:47:29.87

プログラミングにおける「埋め込む」には、次のような意味があります。
アプリケーションプログラムにSQL文や他のプログラムを埋め込むこと
コンピュータプログラムにバグ（欠陥）をわざと埋め込んでテストを行うこと（エラー埋め込み法やバグ埋め込み法）

Delphi 関係ないね
ダウソスレにいくといい

**デフォルトの名無しさん** · 2025/04/14(月) 23:00:56.85

>>356
黙れアホ。
お前の一生懸命調べた反論くらいとっくに知ってわ。
弱虫が駄々こねてねぇでママのところに行って言いつけてこいや。

**デフォルトの名無しさん** · 2025/04/14(月) 23:32:11.70

> 「埋め込む」と言うプログラミング世界での定義を聞いてるだけだ。
なるほど！

Delphiスレでそんな言葉聞いたことないな
あるとしたらOLEぐらいか？
つまりスレチだ

**デフォルトの名無しさん** · 2025/04/14(月) 23:41:03.97

>>358
軽い投稿ばかりしないでな
delphi 埋め込むで検索しな。
お前の無知がわかるから。

**デフォルトの名無しさん** · 2025/04/15(火) 00:07:20.87

検索して出てくるのは「プログラミング世界での定義」ではないけどなｗ
もちろんDelphiでの定義でもない

そもそも論点が違ってるんだよなぁ
「字幕を埋め込む」を知りたいはずだろうになんで「delphi 埋め込む」になるんだかｗ
そういう馬鹿な考えしているから求めている答えにいつまでたってもたどり着けない
fmpegかyt-dlp、字幕を埋め込む　がキーワードなわけでdelphi関係ないんだがｗｗｗ

**デフォルトの名無しさん** · 2025/04/15(火) 11:48:45.89

字幕スーパー
super impose
「superimpose」は「重ね合わせる」「上に置く」「合成する」という意味の動詞で、「スーパーインポーズ」と発音します。

**デフォルトの名無しさん** · 2025/04/15(火) 16:08:51.83

>>360
ほんと、ガキだな。
ムキになってDelphiでの定義でないとか。
お前が仕切る事でないのな。お前の定義はいらないのな。わかる？
お前、いちいち全スレをそうやって評価してんのか？
恥かくだけだから、あらしはやめな。

**デフォルトの名無しさん** · 2025/04/15(火) 17:04:00.52

６レスでしかも連投までしてるほうがガキだしムキになっていると思います

**デフォルトの名無しさん** · 2025/04/15(火) 20:45:13.90

>>363
悔しいならもっと大人になりな坊主。

**デフォルトの名無しさん** · 2025/04/15(火) 21:18:59.74

最近盛況で楽しいね
これくらいDelphiも盛り上がればいいのにね

**デフォルトの名無しさん** · 2025/04/15(火) 22:18:13.55

Delphiばんざい！

**デフォルトの名無しさん** · 2025/04/21(月) 14:42:57.48

１、スレッドが立つ。
２、技術のある人間がAAを提供して盛り上げる。
　　　感動を求めて人が集まってくる。
３、オリジナルAAを書ける人間が乗ってきてさらに盛り上げる。最盛期。
４、盛り上がりに乗じて何も書けない魯鈍と白痴が寄ってきてスポイルする。　　←いまここ
　　　彼らの無駄な愛着が逆効果を及ぼし、スレッドのレベルが著しく低下。
５、飽きて大勢が去っていき、行き場の無い魯鈍と白痴が残される。
　　　低レベルな自慢・偏見の陳列、煽りあい、無駄な罵倒、
　　　いわゆる「２ちゃんねる用語」を多用したお寒いレス等々が並ぶ。
６、煽りと罵倒しか出来ない魯鈍まで魯鈍同士の空疎な煽りあいに飽きて去る。
７、何も提供できない白痴が過去の栄光の日々を夢見て空ageを繰り返す。
　　　脳死状態

**少々スレチな質問です** · 2025/04/21(月) 17:28:47.54

該当スレが存在しアドレスアンカーがあって書き込めれば移動します。
作成はDelphiで組んでいます。
機能の一部でinput.MP4,mov,aviの動画を調べてShellExecuteでFFmpegを呼び出して処理させている。
(H.265であればH.264に変換させる等)
知りたいのは特にmp4のカラービットBit depth(ビット深度)の8/10/12 Bit判定がドコを参照すれば判るのか？
最終的にやりたいのは input.mp4 が 8bit以外であればH.264 8Bitに自動変換させたい。
同様の質問を「黒羽製作所総合掲示板真空波動研」スレに投下中でそちらにはアップルQuickTimeへのアドレス有りです。
ソフトウェア板(ffmpegスレ)にはどんぐりがどーたらで書き込めない。

**368** · 2025/04/21(月) 17:33:29.02

真空波動研のDLLを使うのは？、は
DLLを動的リンクさせてinput.mp4のBit判定をリザルトで受け取れたら楽だろうけど
それはそれで仕様が公開されていないのでD6での使用方法が分らない

**デフォルトの名無しさん** · 2025/04/21(月) 17:45:23.18

>>369
コマンドラインバージョン使って、そのテキストを解析すればいいのでは？

**デフォルトの名無しさん** · 2025/04/21(月) 18:28:24.04

「作成はDelphiで組んでいます。
機能の一部でinput.MP4,mov,aviの動画を調べてShellExecuteでFFmpegを呼び出して処理させている。
(H.265であればH.264に変換させる等)
知りたいのは特にmp4のカラービットBit depth(ビット深度)の8/10/12 Bit判定がドコを参照すれば判るのか？
最終的にやりたいのは input.mp4 が 8bit以外であればH.264 8Bitに自動変換させたい。」

この文章をそのままGrokに貼り付けたらサンプルコードを書いてくれる

**デフォルトの名無しさん** · 2025/04/21(月) 18:29:29.40

MP4動画のビット深度（8bit/10bit/12bitなど）を判定するには、動画のコーデック情報やメタデータを解析する必要があります。DelphiでFFmpegを活用しているとのことなので、FFmpegのコマンドラインツールであるffprobeを使うのが最も効率的です。ffprobeは動画ファイルの詳細なメタデータを取得でき、ビット深度も確認可能です。

**デフォルトの名無しさん** · 2025/04/21(月) 19:01:44.85

ここは、俺が仕切ってる。
Delphiのプログラミング以外の投稿は、俺以外許さん。文句ある奴はどっかへ行け。

**368** · 2025/04/21(月) 22:43:07.51

レスありがとう
>370 372
ShellExecuteで外部プログラム結果をテキスト出力させて
それをDelphiのTMemoに読み込んで行を特定して抜き出すという感じ？
>371
スマホ超初心者で課金系はパスです。

**368** · 2025/04/21(月) 22:45:28.74

>372
ffprobe の出力例一部抜粋
Stream #0:0[0x1](eng): Video: hevc (Main 10) (hvc1 / 0x31637668), yuv420p10le(pc, bt709), 5320x2280 [SAR 1:1 DAR 7:3], 120149 kb/s, 59.94 fps, 59.94 tbr, 60k tbn (default)
Stream #0:0[0x1](eng): Video: hevc (Main) (hev1 / 0x31766568), yuvj420p(pc, bt709, progressive), 5320x2280 [SAR 1:1 DAR 7:3], 5440 kb/s, 59.94 fps, 59.94 tbr, 60k tbn (default)
Stream #0:0[0x1](eng): Video: h264 (High 10) (avc1 / 0x31637661), yuv420p10le(pc, bt709, progressive), 5320x2280 [SAR 1:1 DAR 7:3], 31555 kb/s, 59.94 fps, 59.94 tbr, 60k tbn (default)
Stream #0:0[0x1](eng): Video: h264 (High) (avc1 / 0x31637661), yuvj420p(pc, bt709, progressive), 5320x2280 [SAR 1:1 DAR 7:3], 32117 kb/s, 59.94 fps, 59.94 tbr, 60k tbn (default)
上から10/8/10/8 Bit
'Main 10''High 10' 部分が色深度10Bitだろうか？
ffprobeのソース見てmp4部分を特定させる自信がないー
動画trakのメタデータ'xxxC'atom内っぽいなーとは思ってるのですが
詳細な資料にたどり着けてなくて

**デフォルトの名無しさん** · 2025/04/21(月) 22:54:30.36

>>374
それでもいいし、
パイプ作ってそれを渡す（ただしShellExecuteでは出来ないんでCreateProcess）
サブプロセスのstdoutにセットしてDelphiのほうでReadFileする、というのでもいい

**デフォルトの名無しさん** · 2025/04/21(月) 23:27:31.71

>>374
いや、今はGrokはxユーザーなら誰でも無料で使える
Grokが書いたコードも直接ここに貼り付けてやろうと思ったが
長すぎて何度も書き込みに失敗したから諦めた
とにかくxアカウント作ってGrokに聞くといい、必ず力になってくれるはず

**デフォルトの名無しさん** · 2025/04/22(火) 00:04:58.54

ffprobeで処理するなら出力形式をJSONにできる

**デフォルトの名無しさん** · 2025/04/22(火) 00:10:56.41

-hide_banner -print_format json -show_format -show_streams

**デフォルトの名無しさん** · 2025/04/22(火) 04:10:59.84

>>373
オレの真似するお前。
これはいいんだ。
お前は出てけ。

**デフォルトの名無しさん** · 2025/04/22(火) 07:22:47.72

MP4ファイルのビット深度は、主に以下の情報を参照することで確認できます：
コーデック情報：H.265（HEVC）やH.264（AVC）の場合、ビット深度は動画ストリームのプロファイルやピクセルフォーマットに依存します。

ピクセルフォーマット（Pixel Format）：yuv420p（8bit）、yuv420p10le（10bit）など、ピクセルフォーマットからビット深度を推定可能。

FFmpegのffprobeコマンド：ffprobeを使うと、動画のメタデータを詳細に取得でき、ビット深度（bits_per_raw_sample）やピクセルフォーマット（pix_fmt）を確認できます。

特に、ffprobeの出力から以下のフィールドを参照：
bits_per_raw_sample：ビット深度を直接示す（例: 8, 10, 12）。

pix_fmt：ピクセルフォーマット（例: yuv420pは8bit、yuv420p10leは10bit）。

**デフォルトの名無しさん** · 2025/04/22(火) 07:24:53.28

ffprobeコマンドでMP4ファイルのビット深度を取得する例：
ffprobe -v error -show_entries stream=bits_per_raw_sample,pix_fmt -of json input.mp4

出力例（JSON形式）：
{
"programs": [],
"streams": [
{
"bits_per_raw_sample": "8",
"pix_fmt": "yuv420p"
}
]
}

bits_per_raw_sampleが「8」であれば8bit、「10」であれば10bit。
pix_fmtがyuv420p10leやyuv422p10leなら10bit、yuv420p12leなら12bit。

注意：
一部の古いコーデックやファイルではbits_per_raw_sampleが空の場合があります。その場合はpix_fmtを参照して推定。
H.265では10bitが一般的ですが、H.264でも10bit（High 10 Profileなど）が存在するので注意。

**デフォルトの名無しさん** · 2025/04/22(火) 19:45:54.53

それDelphiのコードでないよね。
ここの、微妙なスレにこのタイミングで、空気読めない？

**デフォルトの名無しさん** · 2025/04/22(火) 19:46:48.52

それDelphiのコードでないよね。
ここの、微妙なスレにこのタイミングで、空気読めない？

**368** · 2025/04/23(水) 05:30:57.09

D6でjsonコンポーネントが難儀なので構成はこんな感じでいきました
-hide_banner -v error -i input.mp4 -print_format json -show_streams > Output.json
以下かなり省略です１レス最大32行と警告食らってしまったので

uses
Delimiter, // 外部関数OrderStr

function TForm1.FFprobeBitdepthPickUp(FullFileName: String) : Boolean;
var
(略)
begin

**368** · 2025/04/23(水) 05:32:04.61

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ごと一時ファイルをデリート

**368** · 2025/04/23(水) 05:44:03.69

>>381 >382
ありがとう！
とりあえず映像深度の数字だけ欲しかったけど他も参照できる余地を残して
-show_streams 全部を出力させることにしました。
頭悪そうなコードになってしまいましたが
他にも動画情報取得に悩んでいる人にもと

**368** · 2025/04/23(水) 05:50:36.18

リザルトをBooleanにしてるのは他の関係上です

**デフォルトの名無しさん** · 2025/04/23(水) 07:18:29.06

>>383-384
お前は仕様を理解せずコードだけ求める馬鹿か？

>>387
GJ !!

**368** · 2025/04/23(水) 19:47:10.02

>386 訂正行　if ord(Str[ia]) = $2C then Continue;

デバックに動画を放り込んでると
'～.json'ファイルが読み込めない(まだ出来上がってないから)と怒られるケースが出た。
さらに頭悪そうなコードを追加
ListBox_Convert.Items.LoadFromFileの１行を
以下に変更
for ia := 0 to 1000 do
begin
Application.ProcessMessages;
if FileExists(FileName) then // '～.json'ファイルが存在するか？
begin
ListBox_Convert.Items.LoadFromFile(FileName);
Break;
end;
Sleep(100); // 待機
end;

プロセスの終了まで待機させないといけないからかーとこっちにしてみるも
参照 FDelphi Delphi Users' Forum [Q]CreateProcessのパラメータの使い方がヘルプを読んでもよく分かりません。
ht ～アドレス貼れなかったので略～
CreateProcess(Nil,PChar(SaveName),～(略)
テキストでのバッチファイル実行はShellExecuteと同じ結果。
直接FFprobe実行を指定してみると実行できない？っぽいのだが
CreateProcess(Nil,PChar(Cmd),～(略)
これは '>' 指定はあくまでバッチファイル用なのかな？と無しでやっても
パスは通ってても'～.json'ファイルが作られないから進まないという結果に(謎)。
(バッチファイル実行ではFFprobeが無くてもパスが通ってなくて起動できなくても
　0バイト(空)の'～.json'ファイルが出来るだけなので処理が通過する。)
う～む

**デフォルトの名無しさん** · 2025/04/23(水) 19:54:36.08

>>389
何言ってんだか
真が無い。

**デフォルトの名無しさん** · 2025/04/23(水) 22:35:19.21

>>390
頑張れ
>>391
真て何だ？

**デフォルトの名無しさん** · 2025/04/24(木) 20:18:54.11

>>389
で?

**デフォルトの名無しさん** · 2025/04/24(木) 20:20:42.55

>>392
アホなんだろうな。

**デフォルトの名無しさん** · 2025/04/24(木) 22:10:01.76

CreateProcessでProcessInfoのプロセスハンドルと
WaitForSingleObjectでプロセス終了するまで待機

**デフォルトの名無しさん** · 2025/04/24(木) 22:21:13.58

>のリダイレクトはコンソール用だから
CREATE_NEW_CONSOLEフラグ指定したらどうかな
あってるかしらんが

**前117スレ 658** · 2025/04/25(金) 01:15:19.56

プロセス終了待ちは解決しました。
ShellExecuteからCreateProcessに変更
詳細書こうとするとエラー

**368(MP4のカラービット色深度)** · 2025/04/25(金) 01:19:12.56

>390 のタイトル先をベースに「プロセスの起動と終了を待つ mam-mam vcl_createprocess」検索先を使用。
「Delphi Programming Object Pascal mrxray」の 500_ 490_ 494_ 各検索先も参照。
RetValBool:=CreateProcess(Nil,PChar('Cmd.ｅｘｅ /C ' + SaveName),～(略)

**368(MP4のカラービット色深度)** · 2025/04/25(金) 01:21:42.92

とコマンドプロンプト起動の引数扱いのCmd.ｅｘｅ監視にしたら待機になりました。
※mam-mamアドレス参照コード内の
「起動待ちでエラー」表示処理部分を使うとエラー表示になって終了するのでごっそり削除。(謎)

**368(MP4のカラービット色深度)** · 2025/04/25(金) 01:23:48.92

「黒羽製作所総合掲示板真空波動研」スレに管理人さんからレスがあり
H.264ならavcC
H.265ならhvcC
の中のSPSにある、bit_depth_luma_minus8
の部分がBit depth(色深度)と教えてもらいました。
プログラムの読み込みで'hvcC'atom位置までは自力でたどり着けているがそこから内容がイミフ

以下これまでの各参照。
ｈｔｔｐｓ：／／
QuickTimeフォーマットの仕様書
→ developer.apple.com/documentation/quicktime-file-format
Video Sample Description 'avc1''hev1''hvc1'等の構造
→ engineering.dena.com/blog/2022/07/hevcplayerview/
　'hvcC'のdata部分は外部に飛ぶ
　→ www.itu.int/rec/T-REC-H.265　→ pdf
HEVC Video with Alpha Interoperability Profile (Preliminary)
→ developer.apple.com/av-foundation/HEVC-Video-with-Alpha-Interoperability-Profile.pdf
資料が難解で頭沸きそうdeath！

**368(MP4のカラービット色深度)** · 2025/04/25(金) 01:25:27.43

以下新規の参照例
ｈｔｔｐｓ：／／
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 (略)

**368(MP4のカラービット色深度)** · 2025/04/25(金) 01:45:42.29

>395 396 ありがとう
>397 は何度も書き込み試行で名前欄の文字が変わってしまった。
参照先に解説は無かったようなので試行錯誤してると
バッチファイルを直接起動させずにCreateProcessで
コマンドプロンプト起動の引数扱いで親Cmd.ｅｘｅ監視にしたら待機になりました。
FFprobe利用はセーフネット扱いなので400-401内容で詰まってます。
ｅｘｅを小文字の実行ファイル名書くとサーバーエラーで蹴られるんですねココ

**デフォルトの名無しさん** · 2025/04/25(金) 12:50:15.56

Delphi CE 11.3のライセンスキレたんで12.1入れたらメニューのプロジェクトクリックしただけで落ちる
しかたないのでVMでWindows11入れてDelphi12.1入れたら問題無かったのでそっちで使う事にするけどなんかもにょる

**デフォルトの名無しさん** · 2025/04/25(金) 16:09:41.50

.net関係か？

2025/04/28(月) 23:10:49.07

(質問者は368です)
今の対象は"FFmpeg""FFprobe"なのでOSが64bit以外では処理を飛ばしてます。
>398 を応用しTMemoに
Memo.Lines.Add('where FFprobe > ' + CacheDir + 'WhereFFprobe.txt');
バッチファイルとして書き出して
コマンドラインで実行し
function TForm1.CmdExeExists(ExeName,TargetName: String) : Boolean;
RetValBool := CreateProcess(Nil,PChar('Cmd.ｅｘｅ /C ' + ExeName),略
生成されるテキストが0行かどうかで判断させてるのですが
関数化に汎用性を持たせようとすると
昔のXPではwhereコマンドが無いと警告を受けてしまいました。
どのOSから搭載されてるんでしょう？
ググり方「windows where command prompt 何時から搭載」等が悪いのか
「コマンドプロンプトは昔からあります」みたいなのばっかりレスられてしまう。
次はOSバージョン調べて回避するコードいれないと・・・

2025/04/28(月) 23:13:17.83

Windows の保護領域内でiniを作るとWin8以降ぐらいから
OSドライブ名:\Users\[ユーザー名]\AppData\Local\VirtualStore\Program Files [(x86)]\[実行アプリの階層構造～]\～.ini
に生成される訳でそれぞれに以下をすると
if FileExists(TargetFullPath) then Count := Count + 1;
自動的に割り振られてしまい実行場所に無くても自動移動先+直接指定で重複カウントされてしまう。
フォルダ個別に存在を調べるコードはありますか？

**デフォルトの名無しさん** · 2025/04/28(月) 23:27:44.89

>>405
生成するファイル名が分かっているのにwhereコマンド使う意味が分からない
ファイル検索ならFindFirst関数使えばいいだろうし

>>406
保護領域内でini作らなければいいのでは？
そもそもProgram Files [(x86)以下に設定用のファイルとかを保存するのが良くない
ユーザーフォルダやドキュメントフォルダを取得して明示的にそこに保存するべきだろう

**405 406** · 2025/04/29(火) 18:09:39.01

>>407
・質問１実行ファイルがパス上に存在するか？の調べ方で
探すのは実行できる実行ファイルでWindowsでのパスが通っている所に存在するか？です。
プログラム組んでる自分には他のユーザーの使用環境は分かりません。
現時点で"FFmpeg""FFprobe"は64bitOS専用だからそれ以外はコマンド発行させてないので急いでません。
汎用性を求めるならということでFindFirst と FindNextということですよね？
[ delphi Windows パス取得 ]検索
ん～ "where" 使う方が楽だなぁ(汗)
------
・質問２ iniファイルの存在と重複をWin10(D6)で調べる方法
>ユーザーフォルダやドキュメントフォルダを取得して明示的にそこに保存するべきだろう
あぁなるほど
最近のソフトがやけに「なんでこんな所に生えてんだ？」と思ってたらそういう回避方法なんですね。
実行場所が複数ある場合の同一iniへのアクセスを防ぐ一工夫がいりますが
そっちの方が楽そうですね。
------
[参照]
817_ディレクトリとファイルのリストとファイル検索
02_FindFirst と FindNext による方法 - Delphi 2009 以前用
ｈｔｔｐ：／／
mrxray.on.coocan.jp/Delphi/plSamples/817_DirFileListTest.htm#02

**デフォルトの名無しさん** · 2025/04/29(火) 20:33:29.79

>>408
質問１について
PATHが通っていることが前提なら、その環境変数を取得して、あとはそのディレクトリに対して存在するか確認するだけじゃないかな
CreateProcessもファイル名だけを指定した場合環境変数に従って探索する
https://learn.microsoft.com/ja-jp/windows/win32/api/processthreadsapi/nf-processthreadsapi-createprocessa
LoadLIbraryなんかも同様の動作をするはずだし、たぶんwhereコマンドもほぼ同じだろうから、この探索順で同じようにFindFirstなり直接FileExistsで有無を確認すればいいのでは？
（ただしOSのバージョンによってこの順序が若干異なる）
ただ環境によるからって話なら、インストーラ使わずに（つまりパスを通さずに）使っている可能性もあるわけで
自分なら最初からファイル選択ダイアログ（またはフォルダ選択）使ってユーザに選択させるけど

質問２について
回避方法というよりWindowsはその方法を推奨している
プログラム（書き換え不可）とデータ（書き換え可）の分離

**デフォルトの名無しさん** · 2025/05/09(金) 00:30:36.94

一周回ってDelphiもありかな？と思ったがいかんせん価格が高い

**デフォルトの名無しさん** · 2025/05/09(金) 00:41:22.58

そんなあなたにCommunity Edition

**デフォルトの名無しさん** · 2025/05/09(金) 15:05:40.34

30周年なんだからもっと長期間割引してくれよ

**デフォルトの名無しさん** · 2025/05/09(金) 16:34:36.53

v12のAIによるSmart CodeInsight機能ってCommunity Editionでも使えるの？

ここのレビューを見たけど、凄い機能だな
https://qiita.com/igy/items/ae428d294cc7fdf5e387

**デフォルトの名無しさん** · 2025/05/09(金) 22:17:03.67

Community Edition は12.1（これも本来は12.0だったのが特別に12.1）で記事では12.2で追加ってなってるからあと数年は先だね

**デフォルトの名無しさん** · 2025/05/10(土) 02:25:10.80

そうなのか…
微妙なところで有料版との差が付けられるんだなあ

**デフォルトの名無しさん** · 2025/05/13(火) 16:47:36.24

割とAndroidのPlayStore条件に合わせて
CEが更新されてる気もするが。。。そうでもないか

前回はSDKの手動更新と
AndroidManifest.xmlの編集を強いられたっけ

**デフォルトの名無しさん** · 2025/05/14(水) 03:59:28.92

売れてないのに開発たいへんみたいだけど、会社だいじょうぶか？

**デフォルトの名無しさん** · 2025/05/14(水) 20:47:15.01

そう言われ続けてもう十年以上経つんじゃない？

**デフォルトの名無しさん** · 2025/05/14(水) 21:25:58.47

初めからCommunityをくばっとけば……

**デフォルトの名無しさん** · 2025/05/20(火) 01:32:22.31

12.3 のインストーラーが手に入るのであれば、12.2 のライセンスで 12.3 comunity edition をインストールできるのだ。
12.3 のインストーラーを手に入れる公式な手段はないため、普通の人は試せないが。

**デフォルトの名無しさん** · 2025/05/20(火) 18:01:08.80

どういうこと？
普通の人以外のためのインストーラーなんてものがあるの？

**デフォルトの名無しさん** · 2025/05/20(火) 20:48:10.46

コミュニティエデイションユーザーは 12.2 のインストーラーしかダウンロードできないのだ。

**デフォルトの名無しさん** · 2025/05/28(水) 14:28:19.64

RAD Studio次期バージョン「13」の愛称が決定

先月実施されたRAD Studio次期バージョン「13」の愛称選定で、僅差ながら「Florence」が選ばれました。

Florenceは、日本名では「フィレンツェ」と呼ばれ、日本人にもなじみのイタリアの都市です。愛称には英語名が採用されるため、次期バージョンの正式名称は、「RAD Studio 13 Florence（フローレンス）」となります。

**デフォルトの名無しさん** · 2025/05/29(木) 08:00:10.87

香水の匂いがしそうな雰囲気

**デフォルトの名無しさん** · 2025/05/29(木) 10:01:07.57

ポトペタ開発を軽く作る気ねーのかなぁ？この業界

**デフォルトの名無しさん** · 2025/05/30(金) 18:48:32.41

もう13出るの？
この前12になったのにさすがに早すぎないか？

**デフォルトの名無しさん** · 2025/05/31(土) 16:58:59.21

信者からお布施を集めるために必要なんだよ
そして金を取って信者にバグ潰しさせるｗ

**デフォルトの名無しさん** · 2025/06/01(日) 01:10:25.84

個人向けの商売ではなくて企業向けだろ。
信者なんか関係ない。

**デフォルトの名無しさん** · 2025/06/01(日) 04:12:02.33

CEはいまだに12.1だというのに・・・

**デフォルトの名無しさん** · 2025/06/02(月) 13:15:51.10

>>428
そういうお前は信者ｗ

**デフォルトの名無しさん** · 2025/06/04(水) 01:32:22.88

CEが12.2になってAI Smart CodeInsightが使えるように
なるのを待ち望んでいるのだが、いつになるのやら

**デフォルトの名無しさん** · 2025/06/04(水) 11:19:33.76

老舗のCDリッピングツール「CD2WAV32」が約20年ぶりの更新～Windows 11専用で甦る
「Delphi 12.1」でUnicode対応、UI・設計のモダン化などを実施

https://forest.watch.impress.co.jp/docs/news/2019313.html

**デフォルトの名無しさん** · 2025/06/04(水) 12:08:11.84

今それ貼ろうとしていたわ
Delphiやったんやね

**デフォルトの名無しさん** · 2025/06/04(水) 15:16:57.26

64bitでも CD2WAV64 とはならないのか

**デフォルトの名無しさん** · 2025/06/04(水) 18:50:04.91

突然の更新とかジジイどもが退職し始めたのか?

**デフォルトの名無しさん** · 2025/06/04(水) 19:40:57.42

もろぼし☆らむ氏
ハンドルは昔のママなんだな
FDELPHI でやりとりさせてもらったことがあるけどコードも書き込みかたも
なんというか濃ゆいひとであった

**デフォルトの名無しさん** · 2025/06/04(水) 20:08:56.17

>>436
そうか？お前が薄いんだろ？

**デフォルトの名無しさん** · 2025/06/04(水) 22:29:51.22

俺はなくなった！

**デフォルトの名無しさん** · 2025/06/05(木) 17:27:13.27

今のところあるけど、真っ白になりそう

**デフォルトの名無しさん** · 2025/06/05(木) 18:01:21.49

FDELPHI懐かしい
今やお爺ちゃんばっかりｗ

**デフォルトの名無しさん** · 2025/06/07(土) 14:45:55.34

もろぼし☆らむって今ではシワシワすぎるハンドル名だなw
今もうる星好きなんだろうか？

**デフォルトの名無しさん** · 2025/06/08(日) 00:47:59.17

>>441
っていうか、アニメのキャラ名そのままのハンドルネームは著作権的な観点から良くないよな。

**デフォルトの名無しさん** · 2025/06/08(日) 00:52:25.40

モロダシ☆ボンみたいなHNだな・・・

**デフォルトの名無しさん** · 2025/06/12(木) 16:40:40.91

10年ぶりくらいにここにきた・・・
流石にBCB5で書いたプログラムを移植しないといかん
なかなかな大手メーカー複数で未だに自分が書いたBCB5のツールをメイン業務で使ってるわ
定年までになんとかしておかんと不味いだろうなぁ

**デフォルトの名無しさん** · 2025/06/12(木) 18:58:36.68

>>444
BCB民ならこちらへどうぞ
C++Builder相談室 Part21
https://mevius.5ch.net/test/read.cgi/tech/1353189677/

C++Builderとしては以前よりも良くなってはいるけど人がいないw

**デフォルトの名無しさん** · 2025/06/13(金) 01:16:58.37

移植もそろそろAIがやってくれそうな気がする

**444** · 2025/06/13(金) 13:20:58.78

>>445
うっは、まだ当時のスレが残ってるｗ
頭が回る歳のうちに移植しなきゃいけないものは作り直しておこう・・・

**デフォルトの名無しさん** · 2025/06/14(土) 14:26:04.45

Delphi 12.1 CE で右ドラッグ＆ドロップのコンテキストメニュー（「ここにコピー」「ここに移動」「プロパティ」「WinRAR」などインストールされているアプリの固有メニューなどエクスプローラでの実行時と全く同じ物）をコードで再現したい。

という質問を ChatGPT 、copilot、Claude 3.7 Sonnet、 Gemin Grok 3、 Deepseek にしてみたんですけど
「はい、Delphi言語について日本語で質問できます！」と言いながら

procedure ShowDropContextMenu(AFiles: TStrings; ToFolder: string; X, Y: Integer; HND: HWND);
こんな感じで呼び出したいと進めていっても
どれもみな型違いと未定義の識別子からはじまり煮詰めていっても最後はパラメーター間違いや範囲チェックエラーで行き止まりな感じで
メニューが出た場合でも「ToFolder」（ドロップ先のフォルダ）が反映されておらず「ここにFireFileCopyで移動」などもない

そもそも procedure で済ますのがいけないのかと
「IShellFolder.GetUIObjectOf( IID_IDropTarget ) を取得して、自分で実装した IDropTarget の引数をそのまま転送すればいい」
というのを見たので
ドラッグ＆ドロップには The-Drag-and-Drop-Component-Suite-for-Delphi の TDropFileTarget を使っているので
TDropFileTarget の DataObject を使ってゴニョゴニョしてみましたがお手上げでした

オープンソースのファイラーがある！とわざわざ Lazarus をインストールして「Double Commander」を開いてみたのですが右ドラッグは簡易実装しかしていませんでした

何か参考になるサイトかコンポーネントはありませんでしょうか？

**デフォルトの名無しさん** · 2025/06/17(火) 13:39:31.72

AIに対する訊き方が悪いんじゃない？

Delphi 12.1 CE 版において、エクスプローラで任意のファイルを右クリックした時に
出てくるコンテキストメニューとまったく同じメニューを TPopupMenu で再現するには
Windows のどこの情報を読み PopupMenu のアイテムとして格納すれば良いですか？

と訊いたら詳しく教えてくれたよ (長くなるから回答は省略)

**デフォルトの名無しさん** · 2025/06/17(火) 16:00:40.16

そこまでやったなら回答も教えてやれよって思う俺は器が小さいんかな？

**デフォルトの名無しさん** · 2025/06/17(火) 16:21:19.46

右クリックメニューではなく、右ドロップ時のメニューについて聞かれてるので>>449は質問文から間違ってるだろう
そもそもエクスプローラのコンテキストメニューの出し方はFAQレベルの頻出なので検索すればたくさん出てくる

**デフォルトの名無しさん** · 2025/07/31(木) 03:01:58.76

30年前に欲しかった

X := if Left < 100 then 22 else 45;

**デフォルトの名無しさん** · 2025/07/31(木) 09:49:22.65

if Left < 100 then X := 22 else X :=45;　でいいじゃん

:=ですらうざい
全部BASICに戻せよ

**デフォルトの名無しさん** · 2025/07/31(木) 15:30:22.48

IfThen 関数とか

**デフォルトの名無しさん** · 2025/08/15(金) 16:21:24.38

Communityのライセンス切れたけど更新ないのか…

**デフォルトの名無しさん** · 2025/08/16(土) 09:34:15.84

俺もライセンス切れたんで入れ直したが更新無かったから>>403がいまだに解消されないorz
アプリに必要なコンポーネントのコンパイルやインストができないんで辛い
イベントビューアでチェックしたら.NET Frameworkのclr.dllの呼び出しでスタックオーバーフローしてるっぽいんだが…
こういうのどこに報告したらいいんだろう？

障害が発生しているアプリケーション名: bds.exe、バージョン: 29.0.51961.7529、タイムスタンプ: 0x65ffd3d4
障害が発生したモジュール名: clr.dll、バージョン: 4.8.9310.0、タイムスタンプ: 0x67db4f7d
例外コード: 0xc00000fd
フォールトオフセット: 0x004597aa
フォールトプロセス ID: 0x6D80
アプリケーションのフォールトの開始時刻: 0x1DC0D86129A2D56
Faulting アプリケーションパス: C:\Program Files (x86)\Embarcadero\Studio\23.0\bin\bds.exe
Faulting モジュールパス: C:\Windows\Microsoft.NET\Framework\v4.0.30319\clr.dll
Report Id: fa0522c0-2145-4a44-9855-12f14ad76533
Faulting パッケージの完全名:
Faulting パッケージ相対アプリケーション ID:

**デフォルトの名無しさん** · 2025/08/16(土) 23:03:39.80

・ごちゃついた環境変数pathを整理
・「Delphi 手動アンインストール」を実行
・マイドク、C:\Users\Public\Documents以下のRadStudio,Embarcaderoフォルダを削除(リネームして退避)
・再インストール
これ試して駄目ならOSごとクリーンインストールだな

**デフォルトの名無しさん** · 2025/08/17(日) 08:46:09.88

>>457
それらは前に全部やったけど効果無かったよorz

クリーンインストは最終手段だけどなるべく避けたいんだ
再インストするアプリが多数なうえ課金アプリ複数あるから環境再構築がほんと面倒なのよ
ライセンスコードで台数管理されてるやつはサポートに連絡して一旦台数リセットしてもらわないとならんし
やるならWin11 25H2とかの大型アプデがリリースされたあとでかな

その前にDelphiか.NETのアプグレで回避できるようになるといいんだが・・・

**デフォルトの名無しさん** · 2025/09/11(木) 17:45:27.29

Delphi13がリリースされたみたいだけど
CE版はないんだろうか

AndroidPlayでtargetSdkVersionがAPIレベル35以降じゃないってことで
アップデートできずに困ってるんだが

**デフォルトの名無しさん** · 2025/09/13(土) 16:46:05.78

13もう出たのか
12出てからまだ1年そこらじゃないのか？

**デフォルトの名無しさん** · 2025/09/14(日) 11:52:47.69

13入れたらリファクタリングがメインメニューでも
ポップアップメニューでも項目が無効な状態で使えない
既存のプロジェクトでも新規でも同じ
リファクタリングを有効にするために必要な事ってなんかあったっけ?

**デフォルトの名無しさん** · 2025/09/14(日) 13:50:53.66

ObjectPASCALの時代は使ってた
20年以上前に同業者にDelphiを執拗に薦められたけど
ホイホイ付いて行かなくて本当に良かった

**デフォルトの名無しさん** · 2025/09/14(日) 18:06:31.46

20年前のそんな事をわざわざこのスレに書き込む必要ある？

**デフォルトの名無しさん** · 2025/09/16(火) 01:00:52.62

>>462
今もObject PASCALだけど、違うの？

**デフォルトの名無しさん** · 2025/09/16(火) 23:38:10.64

13は窓の杜の記事の紹介画像でもリファクタリングのメニューが有効になってないな
有効な選択肢がないときはグレーアウトするのは13からの仕様らしいが

**デフォルトの名無しさん** · 2025/09/18(木) 10:58:07.28

RAD Studioの新バージョン「13 Florence」をリリース
2025/9/17

RAD Studioの新バージョン「13 Florence」をリリース
「RAD Studio 13 Florence」の詳細は9月22日のデベロッパーTVで
アップデートサブスクリプションの期限切れに注意！
RAD Studio 13 Florence発売記念キャンペーンを実施

**デフォルトの名無しさん** · 2025/09/18(木) 11:46:08.61

また信者たちから金を巻き上げようとしてるｗ

**デフォルトの名無しさん** · 2025/09/18(木) 12:46:46.50

delphi12が2023年11月発売だから2年も経ってない
本当金儲けに走りすぎてるな

**デフォルトの名無しさん** · 2025/09/18(木) 15:04:32.86

>>461
言語拡張に対応できてないから無効化されてるんじゃないの？
メジャーアップデートは不完全なまま出されるのは毎度毎度のこと
13.1の頃は対応されるのでは。
まともになるのは13.2の頃かな

**デフォルトの名無しさん** · 2025/09/19(金) 03:36:46.69

>>464
とっくにDelphi Languageってことになってるだろ
そもそも「ObjectPascal」はobject型拡張のあるPascalのことでTurboPascalの他にMacでも別メーカーの実装があった
Delphi 1でclass型を追加してそっちをメインにした時点で別言語になってた

**デフォルトの名無しさん** · 2025/09/19(金) 03:48:06.10

>>470
馬鹿が嘘まで書いて言い訳してる

**デフォルトの名無しさん** · 2025/09/19(金) 03:54:11.26

>>471
マニュアルや製品案内を見てみろ、今はもうObjectPascalの名前はない
Delphi7か8ぐらいで切り替わったはず

MacでObjectPascalを採用してた製品例としてCodeWarrier等
ttps://en.wikipedia.org/wiki/CodeWarrior

さっさと謝れ

**デフォルトの名無しさん** · 2025/09/19(金) 04:05:58.38

気になって追加で調べたら、十年ぐらい前にAppMethodというRAD Studioとは別な開発環境を売ってた時期があって
一時期ObjectPascalの名前が復活してたことがあったようだ。なのでちと言い過ぎたかもしれん
今はもうないけど

**デフォルトの名無しさん** · 2025/09/19(金) 04:41:22.80

逃げたか…

**デフォルトの名無しさん** · 2025/09/19(金) 07:02:19.04

そもそもPascalを継承して新しくしたのがDelphiでしょ
Pascalがもうオワコン

**デフォルトの名無しさん** · 2025/09/19(金) 08:27:20.85

Delphi言語になったのしらないやついたのか…

**デフォルトの名無しさん** · 2025/09/19(金) 08:59:25.62

Object PASCALに戻ってるらしいよ
https://qiita.com/pik/items/c34ca15bffc8f09127e6

**デフォルトの名無しさん** · 2025/09/19(金) 11:49:45.60

>>472
謝るのはお前の方だろ

**デフォルトの名無しさん** · 2025/09/19(金) 17:23:03.41

まぁまぁ

**デフォルトの名無しさん** · 2025/09/19(金) 21:33:42.10

ID:hY04S+EX

逃げた

**デフォルトの名無しさん** · 2025/09/19(金) 22:36:35.51

新機能VCLのタイトルバー強化って需要あるの？
余計な機能追加してバグが増やさないで欲しいわ

**デフォルトの名無しさん** · 2025/09/20(土) 09:35:37.77

TitleBarPanelって名前のただの新しいコンポだろ
バグが不安なら使わなければいいだけ

**デフォルトの名無しさん** · 2025/09/20(土) 12:26:13.22

>>481
あんなのWindowsのお作法的にもどうかと思う
マイナー言語が余計に独り善がりしてるみたいな？

**デフォルトの名無しさん** · 2025/09/20(土) 12:48:13.64

カスタムタイトルバー
WinUI3でも追加されたし

**デフォルトの名無しさん** · 2025/09/20(土) 16:39:00.92

>>484
へーそうなん？見たことないわー

**デフォルトの名無しさん** · 2025/09/20(土) 19:22:57.16

設定アプリやらメモ帳、フォトとかタイトルバー、カスタマイズしてるんじゃないか?
WinUI3のコントロールは新しいから直接使ってはいないと思うが
https://learn.microsoft.com/ja-jp/windows/apps/design/controls/title-bar

**デフォルトの名無しさん** · 2025/09/20(土) 21:20:56.10

Firefoxにブックマークやらタブやらを表示しまくってるな
ワイド、ウルトラワイドモニタが当たり前になったことで
タスクバーやタイトルバーの効率的利用を怠ると広大な無駄スペースが生まれてしまう