くだすれ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ヲッチャ的な内容も歓迎だ。

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

**デフォルトの名無しさん** · 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
まだぁ？

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

>>740
これ自分でできないやつがコーディングしてんのマジ？
今更Delphiを勉強しようというやつはいないだろうしベテランがどこで引っかってるのか気になる

**デフォルトの名無しさん** · 2023/04/24(月) 19:46:39.68

似たような文法のだらだら書いてるだけだし自分でできるんじゃねとは思うわ

**740** · 2023/04/25(火) 11:38:48.44

結局自分でやりました
横着してなんかすいませんでした

**デフォルトの名無しさん** · 2023/04/25(火) 11:41:15.71

横着かい
「なんか」というところから
世の中を舐めてる雰囲気がビシビシ伝わってきて不幸になれと呪っちゃいそうだ

**デフォルトの名無しさん** · 2023/04/28(金) 12:16:08.78

昨日、CEが11.3になった模様

https://www.embarcadero.com/jp/products/delphi/starter

CEユーザーの自分には朗報

**デフォルトの名無しさん** · 2023/04/28(金) 12:32:45.45

これでdelphiで開発したandroid アプリをGoogle play store に登録できるかな？
登録要件はAPI level 33 (android 13) だったよね

Sydneyで作ったのはターゲットバージョンが古すぎて
登録できなかったんだよ。。。

**デフォルトの名無しさん** · 2023/04/28(金) 18:07:57.46

とりあえず11.3入れてみるか

**デフォルトの名無しさん** · 2023/04/28(金) 21:26:51.52

あいかわらずCEじゃlinuxアプリ作れないのか……

**デフォルトの名無しさん** · 2023/04/29(土) 17:44:21.06

記事見て
デルファイって？あ、あのデルファイか。。
忘れてたわ

**デフォルトの名無しさん** · 2023/04/30(日) 16:43:34.97

Δελφοι

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

CE 10系が11系になって、何か画期的に進化したところある？

**デフォルトの名無しさん** · 2023/05/01(月) 12:28:44.81

>>763
俺もそれ知りたい！

**デフォルトの名無しさん** · 2023/05/01(月) 23:55:27.22

ローカル変数に自動でLつけてくれるか色分けしてくれるプラグインはよ

**デフォルトの名無しさん** · 2023/05/02(火) 08:51:20.82

>>763
ない

**デフォルトの名無しさん** · 2023/05/02(火) 10:08:32.81

ないのか…

**デフォルトの名無しさん** · 2023/05/02(火) 13:12:28.97

>>767
ない

**デフォルトの名無しさん** · 2023/05/02(火) 16:52:43.48

FMX.MEMOで、メモ帳アプリを作って、AndroidでIME入力した時
文字に着く色（変換中の文字の色分けや破線）が、まともに表示出来ない
問題は解消されてるのだろうか？　そこが気になる

**デフォルトの名無しさん** · 2023/05/02(火) 23:59:10.38

>>769
数日前に11で再ビルトしてインストールした
自作のアプリで調べてみたら
黒い文字のまま実線の下線だった

てか今までこれが普通だと思ってた

話は変わるが、まだSDKをLevel 33に上手くアップデートできなてない
Delphi でGoogleストアに公開してる人っているのかなぁ

**デフォルトの名無しさん** · 2023/05/03(水) 00:35:00.79

>>770
レスありがとう
まだ解消されてないってことか

ネイティブなAndroidアプリ（最初からAndroid用に作られたアプリ）の
文字入力だと、変換中に色分け表示されて文節の区切りなどが確認しやすいので
FMX.MEMOみたいに色が付かないと漢字変換がやりにくいんだよなあ

**デフォルトの名無しさん** · 2023/05/03(水) 08:43:16.82

Markdownサポートは便利だぞ
document.dprojに.mdファイル突っ込んでおいて
^.で検索かけてぱっと呼び出せるようになる

**デフォルトの名無しさん** · 2023/05/09(火) 13:52:24.44

CEが11.3になってやっとgoogle play storeにアプリを登録できた

それにしてもSDKの更新をコマンドラインでって。。。
以前はUIでできなかったっけ？
面倒だからAndroid StudioのSDKを利用したけど

**デフォルトの名無しさん** · 2023/05/09(火) 14:08:38.87

あとgoogleへのアプリ申請でaccessibility（ユーザー補助？）の警告が出るなぁ

delphiはネーティブなコントロールほとんど使ってないから
文字が描かれてても OSから見たらただの図形ってところが問題なんだろうな
とにかくTalkBack なんかで読み上げされないのは何とかならないもんか

今のところ審査結果への直接的な影響はないけど
いつ変わるか分からない

**デフォルトの名無しさん** · 2023/05/09(火) 19:17:52.01

もうDelphiでWinアプリ作るやつはいないのか…

**デフォルトの名無しさん** · 2023/05/12(金) 11:36:33.85

>>775
Winアプリ作成は、問題なさすぎなのでわ

**デフォルトの名無しさん** · 2023/05/12(金) 17:02:56.81

まあモバイルで問題なければデスクトップでも動く
逆は問題が多い

**デフォルトの名無しさん** · 2023/05/12(金) 17:46:05.07

しかしモバイルをDelphiで、と言われてもなー
うんこ流すアプリが関の山でわ？ｗ

**デフォルトの名無しさん** · 2023/05/12(金) 20:41:18.64

VLC media player の　VCLって無いですよね

**デフォルトの名無しさん** · 2023/05/12(金) 21:24:24.07

>>779
PasLibVlcってのがある

**デフォルトの名無しさん** · 2023/05/12(金) 22:18:33.77

感謝です
調べてみます

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

エンバカデロにログインできないんだけれど
https://my.embarcadero.com/
https://members.embarcadero.com/
https://quality.embarcadero.com/
できますか？