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

**デフォルトの名無しさん** · 2020/03/11(水) 18:30:39.03

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

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

■Delphi 10.3
ttp://www.embarcadero.com/jp/products/delphi

■Delphi Community Edition (無料)
iOS、Android、Windows、macOS向けアプリも開発可能。年間売上5000 US＄以内の商用開発可。
https://www.embarcadero.com/jp/products/delphi/starter

＜前スレ＞
くだすれDelphi(超初心者用)その57
https://mevius.5ch.net/test/read.cgi/tech/1476332514/

**デフォルトの名無しさん** · 2020/11/22(日) 16:38:06.94

>TStringGridとかTBitButton、TSpeedButtonなどよく使われるコンポーネットがパクってるのがなぁ

バグ番号くらいかいてくれな。
Deko さんも、そんな話聞いたことない。と言っておられる

**デフォルトの名無しさん** · 2020/11/22(日) 17:35:33.13

TStringGrid はTDrawGridにreplace すれば対応できたが、Themaを使った場合にMenu周りにも問題があった様な気がする。旧バージョンに戻したのではっきり覚えてないが、10.4は怖い。

**デフォルトの名無しさん** · 2020/11/22(日) 17:53:17.44

本当に糞だな
エンバカデロの怠慢じゃないか

**デフォルトの名無しさん** · 2020/11/22(日) 23:42:39.48

10.4はやばすぎて使えないって判断がでたから10.3使ってるけど
そもそもDelphiがもうやばいのではという事でC#のコンポーネントとライブラリを作り始めて
来年中に全部移行しようという意見もでたわ
Delphi好きだったけどやっぱり泥船だったかなって思い始めた

**デフォルトの名無しさん** · 2020/11/23(月) 00:00:48.24

C#って簡単に移行出来る？
昔 TStringList 関連だけでくじけたわ

**デフォルトの名無しさん** · 2020/11/23(月) 00:00:57.56

けど、バグレポートも何も出さないのか。
C# に移行しても、ろくな製品作れなさそう

**デフォルトの名無しさん** · 2020/11/24(火) 07:25:52.75

>>331
SpeedButtonでボタンのキャプションのフォントサイズや色が変わらないとか
QCにはとっくに上がってるよ
それが絶賛放置中

TStringGridのオーナードロー関係は10.4.1で一応治ったけど10.3.3とまだ若干動きが違う
どっちが正常な挙動なのかはわからんけど

**デフォルトの名無しさん** · 2020/11/24(火) 12:25:19.89

はるか昔からあるVCLのコンポーネントが、なんで今頃になってバグるの？馬鹿なの？

**デフォルトの名無しさん** · 2020/11/24(火) 14:39:01.36

エンバカダロだからな

**デフォルトの名無しさん** · 2020/11/24(火) 14:42:23.74

継承元のコンポいじったのかと思ったけどTStringGrid、TBitButton、TSpeedButtonの共通する元となると相当上位だからそこでバグだしてたら影響でるのはこの3つくらいじゃすまない気がする

**デフォルトの名無しさん** · 2020/12/03(木) 19:26:01.91

10.4.1は結構治ってるぽい。2日使った感想

**デフォルトの名無しさん** · 2020/12/04(金) 10:48:07.99

>>335
ボタン関係は高DPI対応絡みでTImageListまわりをいじった影響じゃないかな。
アイコン貼付けられるぼたんばかりが影響うけてるから

**デフォルトの名無しさん** · 2020/12/04(金) 13:36:14.56

描画周りは定期的にバグるね

**デフォルトの名無しさん** · 2020/12/05(土) 11:08:39.26

バグ出しが大変なのは分かるが、ユーザーからすると何でこんな基本的なことがバグるんだってなるよね。
最近、しんどくなってvsに走ろうか迷ってる。
向こうも似た様なもんかね？

**デフォルトの名無しさん** · 2020/12/05(土) 11:54:34.93

多分戻ってくると思う

**デフォルトの名無しさん** · 2020/12/05(土) 13:13:51.41

10.4のComエディションまだか？

**デフォルトの名無しさん** · 2020/12/05(土) 14:51:53.83

>>340
なんで？自分が使えないだけだろ。

**デフォルトの名無しさん** · 2020/12/05(土) 16:28:56.22

C++Builder10.2Pro安く買えるほこどこ？
普通に買ったら20万だよね？
脱糞しそう

**デフォルトの名無しさん** · 2020/12/05(土) 19:49:24.90

>>339
毎回そんなことはないかと思うけど
ごくまれになおしたせいで別の所にとんでもない影響出すってあるよな
人なんだからそういう事もあると思ってるから今のところ俺は10.3を使い続けているｗ

**デフォルトの名無しさん** · 2020/12/06(日) 00:07:17.20

>>342
OpenCVとか使う場合はVS使ってる。
C++前提だけど、VSって面倒くさいんだよね。
IDE上でボタン等コンポーネンツを貼れるか？
mfcができた頃から進化してない。

**デフォルトの名無しさん** · 2020/12/07(月) 19:34:30.48

Delphi Advent Calendar　過疎りすぎ

**デフォルトの名無しさん** · 2020/12/07(月) 22:57:38.33

ロビー活動が足りてないんじゃないの

**デフォルトの名無しさん** · 2020/12/08(火) 06:51:20.30

どこにあんの？

**デフォルトの名無しさん** · 2020/12/08(火) 16:28:43.44

>>346
まぁ日本じゃmvpがあのキモ男だからな

**デフォルトの名無しさん** · 2020/12/09(水) 17:21:39.18

例外をプログラムが受け取るようにするオプション設定どこですか？
C++Builder10.2ですけど、

**デフォルトの名無しさん** · 2020/12/12(土) 09:35:54.72

>>350
C++Builderスレで聞け

**デフォルトの名無しさん** · 2020/12/12(土) 13:31:52.36

そういやMacの例外処理の方法を教えてくれ
エンバカの説明読んでもサッパリ

**デフォルトの名無しさん** · 2020/12/12(土) 13:45:35.22

>>352
Try except end
以外にって事？

**デフォルトの名無しさん** · 2020/12/12(土) 23:26:55.30

>>353
Macじゃtry...except...endで例外キャッチできないみたいなんだよな

**デフォルトの名無しさん** · 2020/12/13(日) 02:25:29.57

DelphiでRSSリーダー作れましゅか？

**デフォルトの名無しさん** · 2020/12/13(日) 04:13:22.79

はい

**デフォルトの名無しさん** · 2020/12/15(火) 10:24:34.11

10.4のComエディションまだか？

**デフォルトの名無しさん** · 2020/12/15(火) 12:23:04.98

10.4はバグだらけだから10.4.1以降で出してくると思われる

**デフォルトの名無しさん** · 2020/12/15(火) 12:56:01.60

10.4の高速サジェスト（）機能ほんと使い物にならん

**デフォルトの名無しさん** · 2020/12/15(火) 13:20:39.10

いつになったら使い物になるんですかっ

**デフォルトの名無しさん** · 2020/12/15(火) 13:56:17.72

arm windows のネイティブコンパイラって出たんだっけ？
vcl で対応？

**デフォルトの名無しさん** · 2020/12/16(水) 19:11:13.53

CreateIpForwardEntryでルート設定したいんだけどWin10だとエラーになる
Win7までは正常にできてたけど、Win10だと管理者で実行しないとダメだった。
そこで、自プログラムで管理者としてアレする方法教えて下さいよ

**デフォルトの名無しさん** · 2020/12/16(水) 22:37:43.75

>>362
プロジェクトオプションのマニフェストの所で実行レベルを「管理者権限で実行する」に設定するとかではなくて？
それとも通常モードで動いているソフトで、その時だけ管理者権限を要求するようにしたいって話？

**デフォルトの名無しさん** · 2020/12/16(水) 23:23:26.32

>>363
そんな事できたんですね、ちょっと試してみます。
ありがとうございます。

**デフォルトの名無しさん** · 2020/12/17(木) 11:00:21.78

ネットに繋いでないとプロジェクト読み込んだタイミングでdelphiが落ちるんだけどそういうもんだって？
サブスク切れてるのが関係してる？

**デフォルトの名無しさん** · 2020/12/17(木) 12:18:07.06

>>363
試してみました
確かに管理者権限で実行されていますが、
実行する時に例のユーザーアカウント制御ダイアログが表示されます。
これはexe実行時に管理者で実行と同じなので
ユーザーアカウント制御ダイアログが出ないで管理者にする方法を教えてください

**デフォルトの名無しさん** · 2020/12/17(木) 13:10:51.90

>>366
できません
できると立派な特権昇格攻撃です

**デフォルトの名無しさん** · 2020/12/17(木) 15:22:03.00

タスクスケジューラで自動起動に登録して常駐させといて
ユーザーに起動されたら常駐のプロセスがウィンドウを表示して
処理を引き継げばいいんじゃね

タスクスケジューラへの登録には当然管理者権限が必要だけど

**デフォルトの名無しさん** · 2020/12/17(木) 16:03:58.56

タスクスケジューラーにアプリを登録して置いて
そのタスクを /NoUACオプションを付けて起動する手もあるらしいな
https://news.mynavi.jp/article/win10tips-73/

**デフォルトの名無しさん** · 2020/12/17(木) 22:17:08.73

>>367-369
返答ありがとうございます。
やっぱりできないですか、権限をアレするAPIいくつか試してみましたが
戻り値はOKでも、現在の権限が管理者かどうか見る関数で調べると管理者になってなくてアレ
XP時代には普通にできていた事ができなくなってアレですな。

**デフォルトの名無しさん** · 2020/12/18(金) 10:09:20.47

Delphiで構築された強力な～シリーズ面白くはあるんだけど
オプソなやつ紹介してほしいな
小規模なのでいいからかっちりまとまったツールとか
他人の.pasソースって全く読む機会なくなったので新たな刺激がない

**デフォルトの名無しさん** · 2020/12/18(金) 10:45:12.12

Delphi Advent Calendar　自転車操業

**デフォルトの名無しさん** · 2020/12/22(火) 08:44:32.09

TMemoの複数行選択された時の範囲確認ってどうやるの？

**デフォルトの名無しさん** · 2020/12/22(火) 13:12:30.34

SelStartとSelLength

**デフォルトの名無しさん** · 2020/12/22(火) 23:00:27.49

画像ファイルを読んで、画像にファイル名を描画して別名で保存というプログラムを作ってるんだけど
フォーム上に
TImage、TButton1、TButton2、TButton3、その他

①Button1Click
begin
Image1.Picture.LoadFromFile(ファイル名);
end;

②Button2Click
begin
with Image1.Canvas do
begin
Brush.Style:=bsClear;
font.Color:=clRed;
font.Size:=20;
TextOut(50, 50, ファイル名);
end;
end;

③Button3Click
begin
Image1.Picture.SaveToFile(ファイル別名);
end;

で、①②はうまくいくけど③は①で読み込んだ画像がそのまま出力されるだけで、②で書き込んだ（はずの）
ファイル名が書き込まれていない。画面には表示されてるのに。

何が間違ってますかね。
RadStudioCommunityとLazarusです。

**デフォルトの名無しさん** · 2020/12/23(水) 13:27:54.11

Android上のFMX.MEMOでIMEの変換中に文節区切りを表す色が
付かない問題って、技術的に解決不可能なの？
この問題がある限り、文字を複数行扱うアプリが作れない

**デフォルトの名無しさん** · 2020/12/23(水) 17:36:40.02

>>375
TImage.Canvasはスクリーン上のデバイスコンテキストが描画対象で、
TImage.Pictureの中身とは別だからね。
例えばTImage.RefreshすればPictureにある元の画像で上書きされて文字は消えてしまう。

TBitmapにAssignしてそのCanvasを操作してから保存すればいい

**デフォルトの名無しさん** · 2020/12/26(土) 07:32:22.20

https://www.packtpub.com/catalogsearch/result/?q=Delphi&;product_type_filter=Book&released=Available&sortBy=store_prod_us_products_date_of_publication_desc

**デフォルトの名無しさん** · 2020/12/26(土) 16:11:50.13

>>377
ありがとうございました。
ちょっとがんばってみます。

**デフォルトの名無しさん** · 2020/12/27(日) 18:36:38.47

>>377

できました。ありがとうございます。

**デフォルトの名無しさん** · 2020/12/27(日) 22:48:09.91

>>380
ソース見せろよ

**デフォルトの名無しさん** · 2020/12/29(火) 15:51:35.11

TChartでLeftAxisとかのラベル数値のフォントが何か変、にじんでるみたいな
同ソースで別プロジェクトでコンパイルすると正常にラベル数値が表示されてる。
Chart1->LeftAxis->LabelsFont->Name = "Tahoma";
とか色々フォントを変えても何か変、
誰かTChartの軸ラベルとかの文字を指定したフォントとかでちゃんと表示する方法とか教えてくださ

**デフォルトの名無しさん** · 2020/12/29(火) 21:05:15.86

Community Edition期限切れたからDLしなおしてみたがまだ10.3.3だった

そろそろ367日の期限切れ出てくる頃だけど期限の延長手順

・Community Edition起動
・期限切れの場合は登録ウィザードが自動起動する
・古いシリアルだと認証されないのでここで登録ウィザードは一旦放置
・エンバカサイトでログインしてCommunity EditionをDLしなおす
・新しいシリアルがメールで送られてくる
・そのシリアルを登録ウィザードに入れればOK
・バージョン変わらないときは再インストールは不要

**デフォルトの名無しさん** · 2020/12/29(火) 21:30:17.60

エンバカのQCが荒れてるもんな
10.4が出てから半年もたつのに簡単に直せるバグすら放置されているって
サブスク更新料払っているのに10.4はバグ放置されてて信頼できないので仕事に使えないって言われてる

**デフォルトの名無しさん** · 2020/12/29(火) 23:51:30.54

10年ぶりくらいにdelphiのスレに来たけど意外と盛況、RADすら死語になった世の中なのに。
何用途で使ってる人が多いんですかね

**デフォルトの名無しさん** · 2020/12/29(火) 23:56:11.14

Delphi5と併用しているが、小物は5で作ることの方が多い
最新Delphiは、コンポーネントが多すぎて探して選択するのが面倒すぎる

**デフォルトの名無しさん** · 2020/12/30(水) 09:23:43.04

AHK使って変換＋L,絞り込み,Enterでコンポーネント選択できるようにしてあるから
めっちゃ楽だよ
この手のコードを山ほど仕込んでおくと良い

sc79 & L:: ; コンポーネントパレット
ImeOff()
send,!vtl
return

**デフォルトの名無しさん** · 2020/12/30(水) 09:51:12.46

ここまできたらA-Zを制覇しておきたいな
https://i.imgur.com/jrNhpZa.jpeg

**デフォルトの名無しさん** · 2020/12/31(木) 23:24:09.07

TMemoで複数行選択した状態のままチェックボックスクリックしたりする方法ない？

**デフォルトの名無しさん** · 2020/12/31(木) 23:43:09.55

>>389
言っている意味が分かりませんが

TMemoとTCheckBoxは異なるコントロールだから
チェックボックスをクリックしたところでTMemoの選択が解除されることはないよ
もしチェックボックスをクリックしたときに選択している反転表示が見えなくなるのが嫌と言うなら
TMemoのHideSelectionをfalseにする

**デフォルトの名無しさん** · 2021/01/03(日) 12:09:07.23

Delphiとは、CodeGearによって開発されている、主にWindows用の
アプリケーションを開発するためのGUIの統合開発環境の名称である。

delphi二次元関数のやりにくさ、線じゃなくて点にしろよ

ツイッターで繰り返し繰り返し繰り返しツイートされるコレ何なん？

**デフォルトの名無しさん** · 2021/01/03(日) 15:53:23.85

知るか
直接ツイートしてる奴に聞けよ

**デフォルトの名無しさん** · 2021/01/03(日) 16:07:05.26

それがツイートしてるやつ次々と変わるんだ

**デフォルトの名無しさん** · 2021/01/04(月) 00:18:32.61

その次々とかわるどれかに聞きゃーいいんじゃないのかと
「すみませんそれいろいろな人がツィートしてますが
どういうことですか？」と
ボットなんだったらただの宣伝だ、が結論だしコレ何なん？？と
いわれてもはぁ、宣伝でしょ、としか

**デフォルトの名無しさん** · 2021/01/04(月) 00:55:41.41

>>394
お前が聞いてくれよ
そして答えをここで教えて欲しい

**デフォルトの名無しさん** · 2021/01/04(月) 22:08:15.26

ちまちまとしたGUI作らずにすむような
Firefoxのabout:configっぽい設定用コンポーネントでいい感じのものないですか

**デフォルトの名無しさん** · 2021/01/06(水) 11:20:51.65

シーケンサーと信号のやり取りをするプログラムを作成中なんだけど、相手からの入力を監視する場合ってマルチタスクで監視するかアイドル時に監視するかどっちが負荷が少ないですか？

**デフォルトの名無しさん** · 2021/01/06(水) 11:54:00.61

>>397
マルチスレッドって言いたいとエスパー
スレッド分けて監視しないとメインスレッドがBusyの時信号が来たら取りこぼす

**デフォルトの名無しさん** · 2021/01/06(水) 13:13:15.14

マルチスレッド、その通りです。
ありがとうございます。

**デフォルトの名無しさん** · 2021/01/06(水) 18:47:01.99

負荷を計測する方法は知らないけどスレッド増やしまくったらファンがブォンブォン唸り始めるんだがこれは負荷が高いってことなんでないの？

**デフォルトの名無しさん** · 2021/01/06(水) 19:10:41.59

まず、マルチスレッドかどうかにかかわらずどうやってデータ監視してるの？

データが来なくても、頻繁に無限ループでチェックしたらそりゃマルチスレッドにしたとん、全開のCPUコアが増えるから死ぬだろ

**デフォルトの名無しさん** · 2021/01/06(水) 19:17:25.73

シーケンサがようわからんが、UIスレッド以外の監視スレッドは一つだけでいいんじゃ？

**デフォルトの名無しさん** · 2021/01/06(水) 19:25:44.95

アイドル時をどうやって判断してるのかとか色々疑問が残る吉宗であった

**デフォルトの名無しさん** · 2021/01/06(水) 21:10:21.72

>>398
メインスレッドがbusyにならない様に、スレッド化するんじゃ無いの？
WindowsのメインスレッドってUIの守備範囲だよ、UIが遅くなるソフトは糞ソフトの認識だが。

**デフォルトの名無しさん** · 2021/01/06(水) 21:11:11.60

CPUnの負荷を最小にするには割り込みしか無いよ。

**デフォルトの名無しさん** · 2021/01/06(水) 21:13:14.70

OnIdleとかそういうことじゃね？

**デフォルトの名無しさん** · 2021/01/06(水) 21:43:26.03

>>404
ん？
受信専用のスレッド側で監視してメインがBusyでも受信できるようにってそこまで詳しく説明しないと伝わらなかった？

**デフォルトの名無しさん** · 2021/01/06(水) 22:17:47.00

>>407
それが成立するのはPPLを使った場合だけで無いの？
同一コアでの実行ならメインがbusyなら子スレッドもbusyになり結果受信できなくなると思うが違う？

**デフォルトの名無しさん** · 2021/01/06(水) 22:49:58.18

同一コア?
実行環境が1コアでも、OSのスレッドで分けてればタイムスライスでメインがbusyでも、子スレッドはbusyじゃないが

エスパーして、子スレッドで受信したデータを子スレッドでTThread.synchoronizeしてUIスレッドに同期とってUIスレッドに渡したりしたらメインがbusyなら子スレッドも引きづられるけど
その場合はTThread.Queueでいいのかな
つか、受信したデータどうするのか知らんが..

**デフォルトの名無しさん** · 2021/01/06(水) 23:05:19.23

ごめん、1コアの話は忘れてくれw

同一コアって、OSのスレッドでわけてれば、OSがスレッドの実行をコアが複数あれば適切に振り分けるし、仮に同一コアになってもタイムスライスでメインがbusyでも子はbusyにならん

**デフォルトの名無しさん** · 2021/01/06(水) 23:07:23.62

>>408
は？

**デフォルトの名無しさん** · 2021/01/06(水) 23:11:46.48

>>410
1コアの話は忘れた。

>> OSがスレッドの実行をコアが複数あれば適切に振り分けるし、

PPL使えばね

>>仮に同一コアになってもタイムスライスでメインがbusyでも子はbusyにならん

メインCPUがbusyってCPU使用率が100%近いって事だよね、子スレッドはどのCPUで動いてるの？

もっとググって！

**デフォルトの名無しさん** · 2021/01/06(水) 23:22:00.30

>>412
いや、君は根本が間違ってる...

DelphiのPPLって内部でOSのスレッド使って実装してて、
スレッドやスレッドプールをもっと使いやすくしたものがライブラリがPPL

**デフォルトの名無しさん** · 2021/01/06(水) 23:24:18.56

>>412
問題です

WebBrokerアプリケーションを新規で作ります

デフォルトのHttp応答にDateTimeToStr(Now)を追加して時間が表示されるようにします

メインフォームにボタンを追加して
d := now;
while True do begin
if secondsBetween(now,d) > 10 then break;
end;
を実行するようにします

コンパイルし、Httpサーバーを起動します
デフォルトのブラウザを開くボタンを押します

追加したボタンを押してメインフォームを応答なしにします

ブラウザ側を更新します

さてどうなるでしょう

**デフォルトの名無しさん** · 2021/01/06(水) 23:25:52.63

答え

メインフォームが応答なしでもブラウザは更新された正常に現在の時間を表示します

WebBrokerは意識せずマルチスレッドを実験できる良いコンポーネントですね

**デフォルトの名無しさん** · 2021/01/06(水) 23:34:47.78

DelphiのPPLって内部でOSのスレッド使って実装してて、
スレッドやスレッドプールをもっと使いやすくしたものがPPLというライブラリ

文末がおかしかくて放置しようかと思ったけど、彼は根本的に間違ってるのでちゃんと修正しときます

**デフォルトの名無しさん** · 2021/01/07(木) 00:08:05.04

>>412
>メインCPUがbusyってCPU使用率が100%近いって事だよね、子スレッドはどのCPUで動いてるの？

だから、タイムスライスとかでOSがスレッド(例えばメインスレッド)の実行を強制的に停止するんだって、で、他のスレッドにそのCPUを割り当てる

https://ascii.jp/elem/000/000/672/672088/
タイムスライスとかプリエンプティブとか、スレッドの実行がどうなってるか勉強しよう

**デフォルトの名無しさん** · 2021/01/07(木) 00:22:12.33

>>417
前にも書いたがCPU負荷が100%近いってのが前提だが、その状態で子プロセスにCPUが割り当てられても殆ど動かん。

Webbrokerの話はそもそも、http serverは固まったアプリの子プロセスでないんで無いの？

**デフォルトの名無しさん** · 2021/01/07(木) 00:36:01.13

>>418
メインCPU100%とか具体的にあげてきたのは途中からでしょ
最初はメインスレッドがbusyしか君いってないけど

**デフォルトの名無しさん** · 2021/01/07(木) 00:41:06.78

だから、メインスレッドがbusyっていってんだから、負荷の原因はそのメインスレッドの処理が主で、そのメインスレッドの実行をOSが強制的に停止して他のスレッドに割り当てるんだから

**デフォルトの名無しさん** · 2021/01/07(木) 00:41:31.32

>>418
？？？
そもそもCPU使用率が100%なんて前提は誰も話してないわけで（まぁOSのタスクスケジューリングさえなんとか稼働してりゃ例に出したコードは動くが）
机上の空論はいいからコードで示して

**デフォルトの名無しさん** · 2021/01/07(木) 00:50:04.29

あと面倒だけど確認の為にソースおさらいしてきた
WebBrokerの送受信はTThreadから派生したTidThreadが担当してて立派にメインスレッドの子スレッドだった事をお知らせしておきます

**デフォルトの名無しさん** · 2021/01/07(木) 00:51:53.74

メインスレッドがbusyってどんな状態？
もしかして、*****中って表示されてる事？
それならあなたの言う通りです。

ウィンドウが真っ白、無応答時のCPU負荷見てみて。
Windows95だとマウスすら動かんかったわ。

**デフォルトの名無しさん** · 2021/01/07(木) 00:55:48.92

>>422
嘘はいけないよ

**デフォルトの名無しさん** · 2021/01/07(木) 00:59:01.61

>>423
君嘘はいわないでね
君は>>407でPPLなら大丈夫といってるんだけど

**デフォルトの名無しさん** · 2021/01/07(木) 01:00:53.79

君が勝手に想定する状態でもPPLなら大丈夫っていってるんだけど
どういうことなの？