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

**デフォルトの名無しさん** · 2021/09/24(金) 11:16:27.40

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

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

■ Delphi 11
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(超初心者用)その58【Embarcadero】
https://mevius.5ch.net/test/read.cgi/tech/1583919039/

■ 便所の落書きレベルの個人的な悪口やきつい言葉（氏ねとか）は禁止だからな。
■ Embarcaderoヲッチャ的な内容も歓迎だ。

■ 誰も立てないから立てた。さあ語れ。

**デフォルトの名無しさん** · 2022/11/30(水) 20:04:13.62

AtCoderの使用可能言語にPascalはあるのにDelphiがないのは許可が下りなかったのか
AWKやBrainfuckがあるのをみつけてさすがにBrainfuckで提出するやつはいないだろうと思ったら普通にいたわ
しかもインデントやコメントがついてるところを見ると手書きらしい
狂ってるな

**デフォルトの名無しさん** · 2022/12/02(金) 09:40:31.65

Windows11 22H2 IME切り替えで落ちる件、KB5020044 で直ったようだな。

**デフォルトの名無しさん** · 2022/12/06(火) 16:45:28.33

あげ

**デフォルトの名無しさん** · 2022/12/22(木) 21:20:07.59

カレンダー人気ないねえww

**デフォルトの名無しさん** · 2022/12/22(木) 22:31:19.15

誰も使ってないんだから当たり前だ

**デフォルトの名無しさん** · 2022/12/23(金) 07:51:03.78

もう新規案件で採用されることもないし
ほそぼそと生きながらえていくだけだろうしな

**デフォルトの名無しさん** · 2022/12/23(金) 21:04:44.20

Delphi誰も使ってないん？

**デフォルトの名無しさん** · 2022/12/24(土) 02:16:23.04

素晴らしい、言語なんだが、普及しないのが残念

**デフォルトの名無しさん** · 2022/12/24(土) 09:37:07.21

一度普及したんだよ
さびれただけで

**デフォルトの名無しさん** · 2022/12/25(日) 12:35:12.28

なんでさびれたん？

**デフォルトの名無しさん** · 2022/12/25(日) 12:39:19.98

マイクロソフトを本気にさせたから

**デフォルトの名無しさん** · 2022/12/25(日) 12:42:42.68

無償版を無くしたから

**デフォルトの名無しさん** · 2022/12/25(日) 12:53:03.08

MSは当時Visual C++とか作ってたけどちっともVisualじゃなかった
その上Visual C++のライブラリMFCはそびえ立つ糞だからそれより原始的なSDKを使えと言われてたくらいできが悪かった
Windowsプログラミングはめんどくせえとみんなが思ってた時に颯爽と出てきたDelphiはまさにキラーコンテンツだった
Windowsアプリの多くがDelphi製になってしまうとそれに影響を受けてOSのアップグレードがしにくくなるしDelphiを使わないOfficeは使ったサードパーティ製のOfficeに成長で負けてしまう

そこでDelphiの主力開発者を引き抜いて作らせたのがC#と.NET Framework
Visual Studioは無料にして開発ツールを主力商品とするBorlandに兵糧攻めをしかけた
結果Borlandは身売りしてDelphiは迷走を続け顧客を減らして今に至る

**デフォルトの名無しさん** · 2022/12/25(日) 13:01:53.41

MSに売却すれば、メジャーソフトになっていたのにな

**デフォルトの名無しさん** · 2022/12/25(日) 13:31:39.31

言語の IDE を売るというのは一昔前のビジネスモデル
当時は色々なのが有ったが、どれも廃れていった

**デフォルトの名無しさん** · 2022/12/25(日) 13:59:15.04

Delphiが3.0で32ビット開発可能になって5.0まで来たときは自作コンポーネントの作りやすさからDelphiの時代が来るかと思ったら完全に失速したよな

**デフォルトの名無しさん** · 2022/12/25(日) 22:39:08.56

UIコンポーネントと統合IDEによるRADが間違ってるとは今でも思えないけど
メジャー言語になるのに必要なマルチプラットフォーム化にも標準化にも障害だもんな
1社でやれる範囲なんて知れてて、MSでさえC#の現状までなわけで

**デフォルトの名無しさん** · 2022/12/25(日) 22:43:28.90

>>668
見返したら統合IDEって言葉は変だな
IDEか統合開発環境だな

**デフォルトの名無しさん** · 2022/12/26(月) 09:48:29.75

統合統合開発環境で何が悪い？

**デフォルトの名無しさん** · 2022/12/26(月) 10:29:42.77

そもそも何が言いたいかよくわからんよ

**デフォルトの名無しさん** · 2022/12/27(火) 11:32:22.56

>>667
32bit化は Delphi2 じゃなかったっけ

**デフォルトの名無しさん** · 2022/12/27(火) 13:02:08.69

自分の記憶だとDelphi2は英語版しかなかったような

**デフォルトの名無しさん** · 2022/12/27(火) 16:52:22.43

https://www.youtube.com/watch?v=1IuIuiei0is
6人待機中
今日は何人集まるかな？

**デフォルトの名無しさん** · 2022/12/27(火) 17:15:25.38

>>674
キモい

**デフォルトの名無しさん** · 2022/12/27(火) 21:35:10.27

>>673
インサイドDelphi2.0コンポーネントとか遊ぶDELPHI2.0Jって本持ってるから普通に日本語版あったと思うよ
多分何処かにCDもしまってる

**デフォルトの名無しさん** · 2022/12/27(火) 21:36:00.04

まだVisual StudioのCommunityが無かった頃はDelphiはいい勝負してたんだっけ？

**デフォルトの名無しさん** · 2022/12/28(水) 11:21:08.39

>>676
それそれ
string がかなり使いやすくなった覚えがある

**デフォルトの名無しさん** · 2022/12/30(金) 02:30:07.23

ロードマップが更新されてないから今回のベータで何をやるのか分からんな

**デフォルトの名無しさん** · 2023/01/07(土) 09:03:38.49

年末に年賀状を印刷していて思い出したが
Delphi1の頃にボーランドの中の人（たぶん大野さん）が公開した
ハガキ宛名印刷用プレビュー画面のサンプルコード、
郵便番号のケタが増えたとこだけ手を入れて今でも使ってるわ。

**デフォルトの名無しさん** · 2023/01/11(水) 07:34:40.76

11.3 Beta出てた
一応ベータテストみたいなことはしてるんだね
自分の作り方じゃハマることはないけど...

**デフォルトの名無しさん** · 2023/01/21(土) 17:22:06.00

TWebBrowserが古くて使い物にならなくなったので
代わりにTEdgeBrowserを使おうと思ったのだが
表示されているHTMLのソースやリンクリストを収得する方法が分からない

ヘルプにはTWebBrowserと互換性があるようなことが書いてあるが
実際には全く互換性がなく、TEdgeBrowserの情報が少なすぎて困っている

**デフォルトの名無しさん** · 2023/01/21(土) 20:03:02.14

>>682
TEdgeBrowserでのhtml取得の仕方

スクリプトを実行します。
EdgeBrowser1.ExecuteScript('encodeURI(document.documentElement.outerHTML)');

イベントが発生します。
procedure TEdgeViewForm.EdgeBrowser1ExecuteScript(Sender: TCustomEdgeBrowser;
AResult: HRESULT; const AResultObjectAsJson: string);

AResultObjectAsJsonにhtmlが入ります。

ヒントになればいいのですが

**デフォルトの名無しさん** · 2023/01/21(土) 21:06:08.22

https://blogs.embarcadero.com/ja/execute-scripts-and-view-source-with-tedgebrowser-ja/
公式にもあるし
https://www.petitmonte.com/bbs/answers?question_id=29951
掲示板にもある

**デフォルトの名無しさん** · 2023/02/19(日) 12:00:18.00

Delphi 28周年記念キャンペーン！最大28% OFFの特別価格
https://www.embarcadero.com/jp/campaign-japan

**デフォルトの名無しさん** · 2023/02/19(日) 15:32:57.29

>>685
たけぇーよ

Delphi 6 Pro 6万8000円　　Delphi 6 Personal 4800円だったのに

**デフォルトの名無しさん** · 2023/02/19(日) 16:15:55.38

出せて４万だな、サンキュッパとか

**デフォルトの名無しさん** · 2023/02/19(日) 23:18:32.05

CEで開発中のアプリで、Google push (FCM) メッセージを
WindowsからAndroid にプッシュする部分があるんだけど
Android 9では正常に受信できてるのにAndroid 12では受信できないことに気づいた

色々調べたらAndroid 12から実装が少し変わったらしい
ちなみに Delphi 11の無料体験版でビルドしたら正常に受信できた

そこで質問なんだけど
CE でなく11の無料体験版でビルドしたアプリは個人使用はOK？
さらにフリーで配布するのは？

**デフォルトの名無しさん** · 2023/02/20(月) 01:05:43.25

>>688

https://www.embarcadero.com/jp/try-rad-now#trial

に、

RAD Studioの30日トライアル版をダウンロードすれば、Delphi / C++Builderのすべての機能を30日間試用することができます。トライアル版の試用が終了したら、正規のライセンスを購入して開発を続けることができます。

とあるし、考えるまでもなくダメだと思うぞ。
諦めてライセンス購入なされ。

**デフォルトの名無しさん** · 2023/02/20(月) 08:55:29.55

>>689
その30日間に何をしたらダメなのか？ハッキリ規定してあるかな？
ビルドした成果物は試用期間中に使っちゃダメなの？フリーで配布したらダメなの？

**デフォルトの名無しさん** · 2023/02/20(月) 13:58:44.37

自分で調べろ

**デフォルトの名無しさん** · 2023/02/20(月) 14:03:45.99

>>691
オマエモナー

**デフォルトの名無しさん** · 2023/02/20(月) 14:27:16.32

トライアル版で作成したことを明記して、フリーで配布してみる

**デフォルトの名無しさん** · 2023/02/20(月) 15:06:48.16

>>693
してみるの？してるの？どっち？

**デフォルトの名無しさん** · 2023/02/20(月) 15:10:37.42

>>693
してみるの？してるの？しろと言ってるの？どれ？

**デフォルトの名無しさん** · 2023/02/20(月) 16:35:41.79

してみろ

**デフォルトの名無しさん** · 2023/02/21(火) 20:58:37.61

ちょっと教えて

呼ばれた関数内で自身がメインスレッドで実行されてるか
またはワーカスレッド内で実行されてるかを識別する簡単な方法ってある？

**デフォルトの名無しさん** · 2023/02/21(火) 22:33:10.29

スレッドのIDをMainThreadIDと比べたらいいんじゃね?

**デフォルトの名無しさん** · 2023/02/21(火) 22:50:13.22

スレッドのIDをMainThreadIDと比べたらいいんじゃね?

**デフォルトの名無しさん** · 2023/02/21(火) 22:51:48.98

書き込み失敗って出たのに書けてた……

**デフォルトの名無しさん** · 2023/02/22(水) 01:23:34.00

なるほど
Windows だと getcurrentthreaid か

**デフォルトの名無しさん** · 2023/02/22(水) 01:36:02.28

>>701
メインスレッドIDは、System.pasで定義されるMainThreadID

実行中のスレッドIDは、TThreadクラスから
TThread.CurrentThread.ThreadID

で取ればクロスプラットホームでもいけるんじゃないかな？

**デフォルトの名無しさん** · 2023/02/22(水) 18:08:53.64

>>702
If System.MainThreadID = TThread.CurrentThread.ThreadID then
でチェックできるね
ありがとう

**デフォルトの名無しさん** · 2023/02/27(月) 20:47:02.44

Winny C++Builder と、おーむが Paradox 使っていた話は、
関係者は墓までもっていくことになっておる。

**デフォルトの名無しさん** · 2023/03/02(木) 17:52:24.16

新しい Community Edition まだーーーーー？

**デフォルトの名無しさん** · 2023/03/03(金) 13:29:48.99

パッチが四つくらいでてからじゃね？

**デフォルトの名無しさん** · 2023/03/04(土) 07:21:09.42

11.3インストールしてみたけどWin64ビルドしてIDE上で実行しようとすると
「プロセスが生成できません」と出て実行できん。　32bitビルドでは大丈夫。
ビルドしたものはIDE上でなければどちらも動作する。

俺みたいなライトユーザーが使って初日で見つかる不具合とか相変わらずの
品質管理だな

**デフォルトの名無しさん** · 2023/03/04(土) 10:35:30.22

ParadoxこそDelphiの正統な祖先

**デフォルトの名無しさん** · 2023/03/04(土) 13:47:52.75

>>707
フォルダ名に日本語使うだけでエラー出るとかそんなレベルよ

**デフォルトの名無しさん** · 2023/03/04(土) 13:51:53.54

ライトユーザーを名乗る初心者はこっちの想像もつかないことをして文句言うから鵜呑みにはできん

**デフォルトの名無しさん** · 2023/03/05(日) 08:50:08.72

↑ほんこれ
エンバカはこういう奴にやられて現在に至る

**デフォルトの名無しさん** · 2023/03/06(月) 08:57:04.41

よくみんなお布施し続けるなあ？馬鹿なの？

**デフォルトの名無しさん** · 2023/03/06(月) 09:00:58.00

KeyPatch使ってるに決まってるじゃん
そんなこともわからない馬鹿なの？

**デフォルトの名無しさん** · 2023/03/07(火) 02:05:29.86

11.3が出たってことは
秋に12といっしょにCEが出る

。。。とかだったらいいけど

**デフォルトの名無しさん** · 2023/03/07(火) 16:43:06.53

arm Windowsアプリは、VCLで対応してほしい

**デフォルトの名無しさん** · 2023/03/07(火) 17:53:03.13

VCLがARM対応になれば、シャープの電子手帳(Win CE)の
アプリを簡単に作れるようになるのかな？
そうなれば面白いのだが

**デフォルトの名無しさん** · 2023/03/07(火) 20:57:56.96

CEでCE

**デフォルトの名無しさん** · 2023/03/09(木) 04:18:14.33

MS ですら Arm32 は見捨てたから、Win CE は無理だべ

**デフォルトの名無しさん** · 2023/03/27(月) 15:32:31.22

delphi10.4で下記のResultが使われてないって出るんだけど

function TForm1.Test:Boolean;
var
　s : string;
　iTest : Integer;
begin
　result := False;　　　　// ←この代入が使われてないと出る
　iTest := 0;
　try
　　s := IntToStr(10 div iTest); //ゼロ除算エラー発生
　　result := True;
　finally
　　;
　end;
end;

昔からだっけ？

**デフォルトの名無しさん** · 2023/03/27(月) 16:49:15.04

C++Builder5と2009の段階で出る

**デフォルトの名無しさん** · 2023/03/27(月) 17:03:41.28

>>720
ありがとう
最新のフリー（community edition）のdelphi入れてみたら色々変わってて戸惑ったわ
delphi5まではよく使ってたんだけどね
exceptに変えてその中でResult=Falseにすればいけるけど、
finally使う場合にいい方法ある？

**デフォルトの名無しさん** · 2023/03/27(月) 17:08:11.88

>>721
ワーニングの出る Result := False; という行は削除して
単純に　Result := IntToStr(10 div iTest);　じゃダメか？

**デフォルトの名無しさん** · 2023/03/27(月) 17:20:11.48

>>722
>>719のファンクションはテスト用で
実際は予想されるエラーが複数あるのです

しかも>>719を実際動かしてみると
if test() then
　showMessage('True')
else
　showMessage('False'); //　←このメッセージが表示されない

**デフォルトの名無しさん** · 2023/03/27(月) 20:10:14.39

>>721
そもそもその警告自体がお節介だから、わかっているところは警告無効にすればいいのでは？

それか、そういう目的のコード書くなら
try
try
except
finally
な感じで囲うべきじゃないかと思うけど

**デフォルトの名無しさん** · 2023/03/27(月) 20:15:48.92

>>723
except で受けてないんだから例外はTApplication::Runまで出るでしょ
TForm1.Test　で例外出したくないならなおさら
try
except
で捕捉するべきでは？

**デフォルトの名無しさん** · 2023/03/27(月) 21:30:18.32

例外をプログラムで受け取るみたいな設定なかったっけ

**デフォルトの名無しさん** · 2023/03/28(火) 12:31:38.19

例外発生時に関数の中でキャッチしなければ
Resultを受け取る相手がいないんだから
そもそもどういう動作を期待してるのか分からない

**デフォルトの名無しさん** · 2023/03/28(火) 13:21:42.43

単純に関数の中でエラーが出たか出なかったかを判定してるんだろ

**デフォルトの名無しさん** · 2023/03/28(火) 13:42:22.64

でも>>724が一番オーソドックスかな
面倒だけどネストするのが正解か
ありがとう

**デフォルトの名無しさん** · 2023/03/28(火) 14:22:50.22

結局この形になったです
ヒントも出ないしヨシ

function test():boolean;
begin

　try

　　メモリ確保など

　　try
　　　処理１
　　except
　　　result := False; // 失敗１
　　　exit;
　　end;

　　try
　　　処理２
　　except
　　　result := False; // 失敗２
　　　exit;
　　end;

　finally
　　; //　メモリ解放など
　end;

　Result := True;//成功

　end;

end;

**デフォルトの名無しさん** · 2023/03/28(火) 15:58:10.20

わざわざexceptを二つに分ける意図はそのコードでは分からないけど
本来キャッチする例外の種類は限定すべきできっと実コードでは想定される例外の違いでexceptを分けたりするんだろうと読み解けば
それで所望の動作にはなる

例外が生成される前提で>>728がしたいなら端からtry exceptしかなく
最初のコードはdelphi5でもコンパイルヒントが出ないだけで思い通りの動作はしない
分からないならtry文について十分な理解ができてないと思うぞ
finallyはブロックの外から見て例外がなかったことにならない

try except finally endという構文が欲しいという話は時々見るな

**デフォルトの名無しさん** · 2023/03/28(火) 19:45:55.45

そーいやDelphi7の頃だったと思うけど、

// ここでリソースの確保
try
　raise Exception.Create;
finally
　// 確保したリソースの解放
end;

って書くと、例外がfinallyに吸い込まれてメソッドの外に送出されないの思い出した。
解決策は一枚関数を挟むことで、例外やtryブロック内をローカル関数に移動させてたなー。
XE5までくると、ちゃんと外に例外を送出してくれるようになってたけど。

**デフォルトの名無しさん** · 2023/03/29(水) 14:00:17.48

>>731さんの仰る通り、サンプル用のコードだったので実際は
エラーの種類で処理を分けるので本来Resultの型はIntegerです
それと１０何年ぶりかにコード書いたのでfinallyで例外解除されると勘違いしてましたね
ありがとうございます

**デフォルトの名無しさん** · 2023/03/30(木) 21:44:53.65

CEのFMXだけどフォームを最小化してもWindowStateが変化しないな
ヘルプの記述がまったく当てにならん

WindowsのWndProcをフックする方法が出てたけど
タスクバー上のアイコンのクリックで最小化/復元するとメッセージが飛んでこない

VCLのソース見たけど複雑過ぎる

**デフォルトの名無しさん** · 2023/04/06(木) 18:37:19.28

スタイルってみんなどうやって作ってんの？

**デフォルトの名無しさん** · 2023/04/06(木) 22:14:21.59

健康な食事と適度な運動かな

**デフォルトの名無しさん** · 2023/04/07(金) 16:37:19.90

twitter apiのv1が5月から使えなくなるから
v2対応してるんだけど何か面倒になってきた

v2自体は簡単なんだけど
画像アップロードのv2化がまだみたいで
その部分はv1使えとか言ってる

急に言い出して、これだけ急がせて
twitter側の準備はできてないとか
なんだかなあ。。。

**デフォルトの名無しさん** · 2023/04/07(金) 17:50:41.43

1年前くらいにtwitter apiを触ったときもそうだった気がした…
作ってないのか

**デフォルトの名無しさん** · 2023/04/07(金) 19:23:24.06

>>736
あんまり面白くないな…

**デフォルトの名無しさん** · 2023/04/22(土) 15:28:26.49

だれかこれ↓をdelphi用の関数にしてほしい

平面直角座標と緯度経度の相互変換をするライブラリ。
https://gist.github.com/yubeneko/cbde0e3bae30eac4fab5457dc5b1f0a2

**デフォルトの名無しさん** · 2023/04/22(土) 16:53:43.27

>>740
誰でもできそうじゃん
自分でするかChatGPTに頼めよ

**デフォルトの名無しさん** · 2023/04/22(土) 17:06:31.56

ChatGPT使ったら教えてくれたぞ
合ってるかは知らないけど

**デフォルトの名無しさん** · 2023/04/22(土) 17:57:10.82

ChatGPTは文章適当に生成するだけで内容の保証なんてないよう

**デフォルトの名無しさん** · 2023/04/22(土) 20:21:42.49

ChatGPT、ジェネレート中に途中で止まるんだが

**デフォルトの名無しさん** · 2023/04/22(土) 21:07:32.39

続き書いてとかで再開してくれないっけ

**デフォルトの名無しさん** · 2023/04/22(土) 21:50:42.41

俺はnotionで試したな

**デフォルトの名無しさん** · 2023/04/22(土) 21:57:20.56

偉そうな>>41がきっとやってくれる

41 · 2023/04/23(日) 15:19:00.47

なんか俺に流れ弾飛んできたんだけど

**デフォルトの名無しさん** · 2023/04/23(日) 17:41:38.36

胸ににいつでも刺さってる

**デフォルトの名無しさん** · 2023/04/24(月) 17:13:27.37

何度も何度もChatGPT3.5にダメ出ししてたら↓こんなん返ってきたｗ

申し訳ありませんが、私はプログラミング言語Delphiの専門家ではありません。
ただし、国土地理院が提供する座標変換ツールを使用して、
座標値から緯度経度を計算する方法を説明することができます。

**デフォルトの名無しさん** · 2023/04/24(月) 17:22:21.18

>>750
脅迫かな？

**デフォルトの名無しさん** · 2023/04/24(月) 18:47:43.23

>>748
まだぁ？