くだすれDelphi(超初心者用)その59【Embarcadero】
レス数が1000を超えています。これ以上書き込みはできません。
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ヲッチャ的な内容も歓迎だ。
■ 誰も立てないから立てた。さあ語れ。 TurboPASCAL
↓
ObjectPASCAL
↓
Delphi ←いまここ 最新OSでもまともに動くMacやiPhoneアプリを作れるの? あくまで自分の経験した範囲内だがDelphiで作ったFMXアプリは
Windows版アプリは多少バグを見逃してても動くことがあるけど
MacOS版は少しでもバグが残ってるとアプリが強制終了される
まあバグが残ってること自体ダメなんだが
規模が大きいアプリだとゼロにするのは中々難しい
ちなみに自分はWindows版とMacOS版を必ず作るようにし
可能であればモバイル版アプリも作ってる
(そういえばVCL版アプリはもう何年も作ってないな) 昔からだけどコンポーネントの登録などの時DElphiのパッケージファイル(拡張子 .dpk)が
ちょくちょく壊れるのは何なんだろうな。
{$IFNDEF CPUX64}〜{$ENDIF}とかで条件指定していたり、改行コードがLFのみのを読込ませたりすると、
一部文字が脱落(end. → d.)とか余計な文字が付加されたりする。
dpkファイルを作り直して、.dprjファイルを削除して復旧させてるが発生条件が
つかめないんだよな。 読込んだ時点で既に壊れてるから。 >>9
俺もそれ遭遇したわ
先頭の2文字くらい消えるのな >>9-10
>先頭の2文字くらい消えるの
ファイルのテキストフォーマットが
"ANSI" か "UTF-8(BOM 付き)" の違いじゃないのかな?
"UTF-8" 系Unicodeはバイナリエディタで見ると
先頭2バイトが非テキストのバイナリーコード
それを基本にして内部で"ANSI"扱いなら"ANSI"タイプを突っ込むと
頭2バイトが消えてしまうことに・・・
たしかWindows8かそこら辺からUnicodeが基本になったんじゃなかったっけ?
.dpk とかテキストは一度メモ帳に読み込んでみて"名前を付けて保存"の選択で
(Win メモ帳では)元ファイルの文字コードが選択されているから判別も楽ですよ。 >>10
requires が o quiresとか、containsが ontains、 end.が d.
とかいうパターンが多い感じ
>>11
ファイルの先頭が化けるとかならわかるんだけど大抵が、requires句、contains句
最後の end.で、それ以外は containsセクションに書いた {$IFDEF 〜}が
消えたりするんですよね。 それ以外の部分は化けた経験なし。
タイミングとしては読込んだ直後、ビルドPlatformを切り替えたり Release、Debugを
切り替えた後。
コンポーネントのビルド以外では発生したことないんですよね。 >>11
ごめん先頭じゃなくて行頭な >>12の通り
犠牲になるのはend required contains
RADStudioはプラットフォームとビルド構成変えるとプロジェクト変更するからその時に一緒に書き換えてるかもね IDEの品質はとにかくクソだ
11なんて、ヘルプが10.4のままだからな >>14
Indyのヘルプが10.1.5のもので全く使い物にならないのにバンドルし続けているのも
改善されないよな。現在入っている10.6.2とは関数の呼び出しパラメーターとか変わってて
役に立たない。 >>15
Indyのヘルプ、タイムスタンプだけは更新されてるな 前スレ998です
> Windows 7 for x64-Based Systems 用更新プログラム (KB3140245)
Easy Fixとレジストリ追加だけではダメでこれ適用で無事GetItサーバーに接続できました
アドバイスありがとうございました >>12
まあ改行を飛ばすときにCRLFのつもりで2バイト(Unicodeなら4バイト)飛ばしちゃってるんだろうね >>18
デフォルトでBOM付きUTF-8の .dprjファイルと ansiな.dpkファイルの組み合わせに問題があるのかな
エディタのデフォルトを UTF-8に設定しておくのが無難なんだろうか はっきり喋れる次期 MVP 山下氏のほうが、何もしない旧 MVP の「彼」より良いな。
英断を支持します。 >>14
10.4はISOに日本語ヘルプが入ってなかったりするしな >>26
10.4はGetItで更新できたけど、今回はQPから勝手にダウンロードしてレジストリ書き換えろだからな
しかもレジストリ書換の説明が間違ってる Delphi 10.3でビルドしたプログラムをWindows11で動かすと
Enabled := falseにしたBitBtnに背景が透けて見えるな TEdgeBrowserでUserAgentの変更は可能でしょうか? Delphi 10.4.2 Community Edition で
// 63 になる
WriteLn(CountTrailingZeros64(UInt64($8000000000000000)));
// 64 になる
var AValue: UInt64 := UInt64($8000000000000000);
WriteLn(CountTrailingZeros64(AValue));
というように違う結果が返されます。
AValueがUInt32より大きいと64になるようです。
使い方が間違っているのでしょうか? >>31
Delphi 10.4.2 Community Editionで試してみたけど
どちらも 63になったよ。
GetItから落とせる Delphi 10.4.2 Community Edition Patch 1.0 というやつは当ててる? 数秒間待つ関数が欲しいんだけど何かない?
メインスレッドのUI動作とかを邪魔しないやつ
(Sleepはナシの方向で)
できればWindowsに依存しないで Windowsに依存しないという事は関数内でメッセージボックスでも表示させて
時計みて待ち時間過ぎたらボタン押すぐらいじゃないかと思ったけど
メッセージボックスもWindows依存だからこれもだめか
というかDelphiがWindows依存だからおかしい話だな >>34
Timerも考えたんだけど、一つの関数内で数秒待ちたいと思ったので
そんな用途はないのかなぁ
>>35
言葉が適切でなかった、ごめん
Windows APIを使わないって意味
FMXアプリで使いたいので
Windows APIを使う例は見つけた
// sleep for 5 seconds without freezing
var Start, Elapsed: DWORD;
Start := GetTickCount;
Elapsed := 0;
repeat
if MsgWaitForMultipleObjects(0, Pointer(nil)^, FALSE, 5000-Elapsed, QS_ALLINPUT)
<> WAIT_OBJECT_0 then Break;
Application.ProcessMessages;
Elapsed := GetTickCount - Start;
until Elapsed >= 5000; Delphi11でGEtItからSysToolsをインストールしようとすると
以下のようなところでコンパイルエラーになるな
変数c はCharで、エラーはラベルの二重定義エラー
case c of
#130 : bcDigits[bcDigitPos + 1] := 98; {rest are manufactured characters}
#131 : bcDigits[bcDigitPos + 1] := 97;
#132 : bcDigits[bcDigitPos + 1] := 96;
#133 : bcDigits[bcDigitPos + 1] := 98;
(以下略)
#nnnがAnsiコードページに存在しないキャラクタだと'?'に変換されてしまうせいかな Delphi はもちろん、Flutter や Unity, Flash, Android Studio, Xcode, Xamarin,
C++ + SDK なんかでアプリを作ってきたが、色々やってみたことで、なんかもう どんな環境
でもアプリ作れそうな気になる。好き嫌いはあれどね。 >>32
ありがとうございます。
Patch は適用してなかったので適用してみましたが、結果に変化はありませんでした。
Delphi 10.4.2 Community Edition の再インストールを行ってもダメでした。
別の PC でも同様に試しましたがダメでした。なぜだろう...
試したソースはこれです。(debug, x64)
program Project340;
{$APPTYPE CONSOLE}
uses System.SysUtils;
begin
WriteLn(CountTrailingZeros64(UInt64($8000000000000000)));
var AValue: UInt64 := UInt64($800000000);
WriteLn(CountTrailingZeros64(AValue));
WriteLn(sLineBreak + '終了するには Enter キーを押してください . . . ');
ReadLn;
end.
実行環境は Windows 10 Pro x64 (21H1), Intel(R) Core(TM) i7 CPU >>39
64bitビルドでしたか。
64bitでビルドすると確かにそうなるな。
32bitでビルドするとどちらも63が返ってきますね
ちなみにDelphi11でも同様に64bitビルドだと63と64になる。
あとデータを$0000000000000001にしてCountLeadingZeros64した場合は
どちらも63で正しい値が返ってくる。
なんかバグっぽいですね。 >>31
デバッグ実行してCPUウィンドウで逆アセンブルを見ると、
CountTrailingZeros64の実体は、
bsf eax, [rbp+$38] のニモニック1行に集約される
(周りのソースによってはオペランドは変わるかも)
ここ、64bit値を第2オペランドに取るには
bsf rax, [rbp+$38]じゃないといけないんじゃないかな >>41
CountTrailingZeros64は組み込み関数でインラインで挿入されるみたいだから
ソース置き換えもできないようだからエンバカが直さないとどうにもならなそうだね。
この関数Delphi11でもHelpにも記載されていないから使ってる人いないんだろうな。 ちょっと教えてください
Macのラベル(?)みたいに枠内に入らないとき
右端を[aaa...]にするのではなく、真ん中を[aaa...bbb]とするような
ラベルって実現可能でしょうか? >>43
TLAbelに EllipsisPosition ってプロパティがあってそれでできたと思うよ >>42
まあソースのどっかにこう追加して元の関数を置き換えちゃえばいいんじゃないかな。
元の関数の戻り値の仕様が分からなかったけどバグのコードがeaxに値を返そうとするなら4byte整数だよね。
符号が問題になることはないはずだし。
{$IFDEF CPUX64}
function CountTrailingZeros64(AValue: UInt64): Integer;
asm
bsf rax, rcx
jnz @notZero
mov rax, $0000000000000040
@notZero:
end;
{$ENDIF CPUX64} >>45
なるほど
これなら大丈夫みたいですね
私は質問主ではないですが勉強になりました >>39
FMXで使えるかワカランけど
こんなんじゃダメなのか
uses System.DateUtils;
procedure Wait10sec;
var EndTime: TDateTime;
begin
EndTime := IncSecond(Now, 10);
while (EndTime > Now) do begin
Application.ProcessMessages;
end;
end; community editionって2台のマシンにインストールできます?
同じユーザー名で
なぜだかSydney IDEがWindows 11上で動作が不安定なので
別マシンのWindows10上で検証したいので
何かWindows10上のRioで作成したプロジェクト(複数)を
WIndows11上のSydneyで開いてFMX Listviewを削除しようとすると
IDEで「項目が見つかりません」エラーが発生
それ以降、IDEが不安定に。最悪IDEがクラッシュする Pascalが情報処理技術者試験の受験言語だったら状況は違ってたのにな 前にSydney IDEでListviewが削除できなくなったと報告した者だけど
Windows 10とWindows 11にそれぞれRioとSydneyをインストールし検証してみた
結局、RioでDynamicAppearance.適用とスタイル変更したFMXのListviewが
SydenyのIDEデザイン画面でコントロールの削除不可能でIDEがクラッシュした
https://i.imgur.com/yhqpcBK.png
その他の条件があるのかもしれないが
少なくともWindowsのバージョンによる影響ではなかった
最終的には、fmxファイルからListviewを削除し、スタイルを全削除して作成しなおした 太った方のmvp、Delphi愛してるならウンコアプリとか自慢しないでほしい Delphi 10.4用のCodeSite Expressってどうやってインストールするの?
標準じゃ入ってないからuses CodeSiteLoggingでビルドに失敗するし
GetItにもないし↓にも特に何も見当たらない
https://getitnow.embarcadero.com/CodeSite-5.3.4/ 関係ないけど、暇なんでDelphiで5chブラウザ作ってた
TNetHTTPClientは書き込みでproxyエラーが出るな
(ヘルプの意味が分からない)
TIdHTTPはWindowsとMacで書き込めるけど
Android64でOpenSSLライブラリがうまく動作しない
今出回ってるAndroid用のライブラリは32ビット専用なのか? >>58
API使ってないから公開できない(自分用)
履歴をOneDriveに保存するから全端末で同期できる
https://i.imgur.com/Q6GNlT4.png >>56
GetItにあるはず
Communityには無いよ >>56
10.3 Communityではあったんだけど 10.4 Communityではなくなってるね。(Professionalではある)
同様に Bonus KSVCも10.4 Communityでは落とせなくなってる >>62
10.3のCommunityでは使えたのか
今はアップデートサブスクリプション期間でないと駄目だね やっぱCS Expressはもう使えないのか
C:\Program Files (x86)\Raize\CS5\Lib\RX10.3\Win32
に無理やりパス通しても駄目だった
アプデ待つかと思ったら時代はすでに11だった…
呼び出し箇所広範囲に修正すんのくっそだるい… communityもtrialもダウンできないなんとかしてくれ シリアルとダウン来た
ありがとうmvp
でもダウンロードエリアでisoってもう手に入らないってこと?
買ったバージョンですらダウンロードエリアだと
サブスク更新しろって出てダメなの?もうダメなの? 質問
今日びDoubleBufferedをtrueにするメリットつて何? >>70
falseにしてみたが、まったく違いがわからないんだよ >>71
そもそもDoubleBufferedが何しているかは理解しているの? >>72
ヘルプ見て理解はしている、しかし効果がわからない 最近の普通のPCなら、falseでもちらつかないんじゃない? ListViewで、ちらつきを抑えたい時に使ったよーな Panelとかで頻繁に更新するテキストデータとかはDoubleBuffered有効にしててもちらつくんだよな DoubleBufferedつかうとWin11で描画がおかしくなるという話題が出てるけど
DoubleBuffered関係なく、SpeedボタンやBitButtonなどのイメージを
貼付けることができるボタンに背景が透過表示されてしまうな。
Delphi10.4でビルドしてもDelphi11でビルドしても同様
とりあえず今作ってるソフトはWindows11を対応OSから外しておいた方がよさそう 最近はFMXでしか作ってないけどFMXでは11で特に問題ないな
てかFMXにはDoubleBufferedってプロパティがなかったような >>77
フォームとか通常のコンポーネントはそうだけどビットマップイメージを扱うやつはTrueが初期値になってる >DoubleBuffered関係なく、SpeedボタンやBitButtonなどのイメージを
>貼付けることができるボタンに背景が透過表示されてしまうな。
再現できないが。背景、ってフォームに独自に画像を書いている?
それとも、フォームの裏の、Windows のデスクトップ等が出ちゃうの? >>82
フォームに色を付けて、その上にBitButton貼り付けたのをWin10上でビルド
そのバイナリーをWin11で実行
ボタンを押すとフォームの色が透けて見える >82
MVP 方面から来ました。QP に入れていただけますか? doublebufferedで消えるちらつきの大半は
背景消去→塗りつぶしの途中が表示されてしまう物だけど、
Windows Vistaでウィンドウの表示方法が変わって
全体がリフレッシュされる機会が減り、あまり意識する必要がなくなった。
そもそも大きくて描画が遅いコントロールがなければ目立たない。
ただし今でも、
例えばTImageやTListViewを使うならちらつき抑止を意識する必要がある。 >>84
QPは本名出ちゃうからな
5chに書いてるの特定されるのは嫌なんで誰か現象確認できた人にお願いしたいな その一言書いたことでもうあなたがQPに書くこと出来ますね ちらつきの問題は10.3では問題なく10.4から発生する様になった気がする。
10.4は明らかにDouleBuffered の効果が無い。 >>88
効果が無い、と言うのは、ちらつく、と言う意味? いま、Delphi 10.3.3 Rio Community Edition を使わせてもらっていますが、もう直ぐ使用期限がきます。
このまま(10.3.3のまま)使用を続けたいのでエンバカにライセンス申請したのですが送られるシリアルは10.4.2のものです。
どうしたら新しい10.3.3のシリアルをもらえますか?どなたか詳しい方教えてください。 >>92
これを何度もよんで反省しろ。
Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。 ほかの技術的なことならともかく、ライセンス関連は権利所有者に誘導するほうが良いと思うよ。 >>95
それは読んだんだ。
「解説」には、
「使用されているCommunity Editionのライセンスの期限が切れた後に、
新しいCommunity Editionのライセンスを取得していただくことで、
継続してお使いいただくことができます。」
つまり、新バージョンのCommunity Editionと解釈できます。
しかし、「解決」では、
現在利用しているCommunity Editionのライセンス期限が切れてから、
下記の作業を行ってください。
1.Community Editionに再度登録する(新しいシリアルナンバーが発行されます)
2.ライセンスマネージャーを起動する
3.右側メニュー「削除」を選択し、古いライセンスを削除する
4.右側メニュー「登録」を選択し、新しいライセンスを登録する
これを読むと現状バージョンを継続できるようにも解釈できる。新しいシリアルナンバーが
どうやって発行されるかは不明。エンバカの言う「Community Edition」とは
ライセンスを貰うHPのことなのか?ね。
>92のエンバカに聞けというのが理解できる。
ライセンス期限が切れたらやってみるわ。
何か勘違いしてるかね? >>96
多分、エンバカの言う「Community Edition」とは
ライセンスを貰うHPのことだね。PCにインストされているCEではないね。
10.3は終了ということだね。 クリーンアンインストールして前のシリアルで入れ直せば? >>100
スタートメニューの中にアンインストールがあるよ APIフックしてOSの時刻ごまかす類のクラックソフトはあるんだろうけど
特定のアプリに対してだけ有効に出来たりするのかな
もちろん悪用は遺憾ね >>102
ソフトに期限があるんじゃなくてシリアルに期限があるんだから無理だよね ところで、設定移行ツールというのがエンバカから提供されてるけど、
これってどこまで移行してくれるの?
自分で入れたコンポーネントやパッケージ(Indyとか)も移行してくれるの? 移行ツール使って10.3→10.4に移したら初回起動時エラーでまくった >>105
コンポーネントやパッケージは入れ直しだね
以前はマイナーバージョンアップの場合は、ISOイメージからインストールすれば
コンポーネントなどは再インストールしなくても使えてたんだけどISOイメージからのインストールも
GetItと同方式になってからは西院ストーしないとダメになった
非常に面倒くさい。 10.4からクラシックスタイルが使えなくなったのか
不便だなあ こんなんじゃ、ますますDelphi離れ進むんじゃないの。
円バカさん、コンポやパッケージがすんなりインストール出来るようにしてから、いろいろやってくれよ。
めんどいなぁもう。 DelphiはもうC#への移行とか、VB.NETへの移行しか案件無い 個人でちょっとしたツール作るにはPython/C#/C/C++あたりが便利 >>112
お前がPython/C#/C/C++あたりで作ったちょっとしたツールのうpよろ。 Delphi5ProからDelphi10CEへ乗り換えようとしてるけど使いにくくて挫折しそう
コードテンプレートの登録方法が面倒すぎる
D5だったら、コードをコピペして名前と説明入力してすぐ登録できたのに
D10はxml形式でダイアログ一つ出て来ない 今時エディタ上で手打ちかよ 使いにくさというか無駄に手間が増えていくのは Visual Studio も似たようなもんだな MVP 方面からお知らせ
2021年度 Delphi Advent Calender 参加者募集しています。
まだ6人しか参加されていません。ぜひともご参加を。 詳しいことはこちらで
ttps://qiita.com/advent-calendar/2021/delphi >>114
随分前に諦めてバージョンアップする度「ツールメニュー」に
テンプレファイル
......\HIDEMARU.EXE
......\Delphi5\Bin\delphi32.dci
って入れてるわ
検索やコピペの手間がいるけど >>117
ユーザー後退が進んでるな
まあC#やVB.NETにはもう勝てないだろうな >>120
高いもんなDelphi Professional が税込20万円オーバーだもん
Ent.とかは別としてProは10万円以下じゃないと新規はむつかしいだろう
Visual StudioのStand-aloneライセンスが6万円台なんだから 程々の金額でカネ出して買ったら、使ってみようと思う
学生の頃買った Delphiがそうだった いくつかDelphi→C#とかDelphi→VB.NETって案件有るんだけど
応募するか迷うな
手間かかりそうだし DelphiからC#やVB.NETはめちゃくちゃ遅くなると思うんだけどそこは問題にならないんだねぇ
自分は速度が必要な案件でDelphi使い続けてるけどこういうのは少ないんだろうなぁ >>127
実行速度よりメンテナンス要員理由でしょ C#やVB.NET要員はスキルが低いと思うぞw
Delphi要員こそ至高のプログラマでは? 10年ぶりにver6インスコしたんだけど、ボーランド・デベロッパーズ・ネットワークの
アカウントに登録したメアドがどのメアドだったか、それとパスワードも思い出せなくて
使用許諾未完了 orz
DM送ってくれていればメアドだけは判明するんだが・・・ 使っていたと思われるメールアカウントの履歴を調べていくソフトを
Delphi Community Edition作ってみたら? そうだな、よくよく考えてみれば何も無理してVer6を弄るよりも、最新のCommunity Editionで
1年間使ってみる方が良いよなw BDEだって非推奨だし。 今DELPHI使うフリーソフト作成者は何人くらい? >>132
前に認証リセットしてくれってメール出したら、その時はリセットしてくれたけど
許諾なしでも機能制限はないからそのまま使え的なことを言われた。 >>136
そんなもん誰にも答えられないと思うけど
ただ1人以上であることは確か (C#+VB.NET)/2=Delphiと言うイメージなんだが
世間のイメージは違うのな クラスの構成なんかモロなんだけど、Action コンポーネントはないんだよな。
便利だと思うんだけど。 世間ってのが何を指すのか分からないけど
プログラマだったら名前ぐらい知ってると思う
非プログラマだったら知らなくて当然 Delphiの案件探しても.NETへの移行案件ぐらいしか無いよ
速度遅くてもマイクロソフト謹製の方が良い、と言うのが世間の評価かと >>146
まあクライアント側を C# .NET の一択でというのは日本企業らしいよな。
多くの日本人は、海外のものならアメリカ臭いものを受け入れる間口しかなく、
ヨーロッパのラテン・フレーバーが漂うDelphiには慣れていない。 >>148
こういう馬鹿しか残っていないから廃れるのは当たり前 >>148
ラテンてこんなイメージしかないわ
,.‐‐、 ,.--、
く__,.ヘヽ. / ,ー、 〉
', ! / /´
-‐'`ー':::::::::ー'::::::::'-、
.::::::::::::::::::::::::::::::::::::::::::::::ヽ
/::::::::::::::::::::::::::::::::::::::::::::::::::::l
/:::::::::::::::::::::::::::::::::::::::::::::::::::::::l
:|:::::::::::::/´´´/ `゙ヽ、、:::::::::::::|
|::::::::/iil==、、 、==lllll、l:::::::::::;
(( |:::::/ ィ'ロヽ ! /<ロフヽ 'l:::::::ll
rヽヽヽ. l:.:::[ ´´ } |i、`` }:《'"i
i ヽ」ζ) ヽ~l /// (。..。)、/// llゝ''/ /\ ))
ヽ ヽノ ヽl .. _ __ ..、 /-' /i、.κi
i ̄i ヽ : 'ヽエエノヽ 〃 ヽ,i"/
/ i .ヽ ´~~` /|/ ./"'i
/__i ヽ __// 、 _/ i
i ノ⌒"'r"⌒ヽ--、`ヽ|-⌒r "⌒'λ ̄i
ゝ、_ ヽ、 , ' ヽ/^' ヽ、 .i ))
"'ヾ.. , r"r" ,,..,;.,,ヽ,,.,ゞゞ ノ"'''" ̄ヽ,
ミ r'"⌒ヽ\ ゞ'" "ノゝ / ヽ ̄
r'"⌒ヽ `' ヽi i i┬くi i i i ヾ⌒ヽ i
r',"⌒ヽ,, . \_/i i i i i i i i i ⌒ヽiレ
レヽ.,__ "''ー- / / / /--- o
,,,.,""''ー/⌒゚ヽ .ヽ 丶 ヽ。o゚ o 彡
r'," "'o゚イ o゚ .o゚__ヽ ___/`rーo o o
レ`ーイ"'/ o゚ oヽ 金 ゙ヾo  ̄"'ヽ.,
i o゚ o゚\§§ ゚o "'ヽ,
ヽ ゚o >>153
会社の経営が最終的におフランスのお坊ちゃまのノリで破綻・・・その前のリストラを機に開発メンバーとともにMSへ。
素晴らしいじゃないか。 よく分からない現象に出会ったので質問です。Delphi 10.4.2で以下のコードが l.List[0].a := 200; の行でコンパイルエラーになり、
TInner.bの定義を例えばStringにすればコンパイルできるようになる。取得アクセサのあるレコード型プロパティは
戻り値はコピー渡しなのでそのメンバに直接代入しても無意味でStringで通る方がおかしいのかもしれないけど、
Listは動的配列で参照渡しなので、List[0]のメンバの変更はTListの中身をきちんと変更できると考えるとよく分からない。
また、関係ないメンバに型パラメータを使っているかいないかでコンパイル可否が変わるのは意図した仕様ではない可能性を感じる。
なぜこうなるか、分かる人がいたら教えてください。
ちなみにb: Tのままコンパイル通すのは、無理矢理だけど PInteger(@l.List[0].a)^ := 200; とすればResultに200が返ります。
ListではなくItemsプロパティの場合は戻り値がコピーなのでこれでもできないんですよね。(コンパイルは通るけどResultに100が返る)
uses System.Generics.Collections;
type TOuter<T> = class
type TInner = record
a: integer;
b: T; //ここを b: String;に変えるとコンパイル可
end;
function Test: Integer;
end;
function TOuter<T>.Test: Integer;
var
l: TList<TInner>;
t: TInner;
begin
l := TList<TInner>.Create;
t.a := 100;
l.Add(t);
l.List[0].a := 200; //ここでコンパイルエラー(E2064 代入できない左辺値です)
Result := l[0].a;
l.Free;
end; オレ初心者だから間違ってるかもだけど
ジェネリック・リストはポインタと違って
読み出しのみだと思ったけど その後、>>155からもう少し色々な類似ケースで挙動を調査しました。しばらくして頭の中が整理できたらまとめます。
>>156
その通りでTList<T>.Listプロパティは読み込み専用ですが、型がarrayofTという動的配列で参照型なので、
Listプロパティから変更できないのは動的配列の実体があるアドレスへのポインタだけで、
ポインタの先にある実体であるList[index]の中身は変更できます。
例えば、L: TList<Integer>の場合、L.List := [10];というコードはコンパイルできませんが
L.List[0] := 10;はコンパイルでき、L[0]が10になるという印象通りの動作をします(代入時点のL.Countが0でなければ)。
これはプロパティの型がクラスである場合は読み込み専用でもそのプロパティのプロパティやフィールドに書き込めるのと同じです。
(クラスも参照型)
ちなみに読み取り専用プロパティの挙動はエラーE2064の説明に以下のように文書化されています。
「Delphi 2010 以降では、読み取り専用プロパティが公開するレコードのメンバに値を
代入しようとしたときにも、コンパイラが E2064 を出力します。 」
なお実際には書き込み可のプロパティでもエラーになりますし、試したところ2010より前のDelphiでもエラーになります。 Windows10で動いているDelphi6製のアプリがあるんだが
Windows11でも普通に動くんかな? 動くように作ってあれば動くしそうでないなら動かない
テストしろ >>155
へー面白いな。 Delphi 11 でもコンパイル通らなかった。
l.PList^[0].a := 200; は通った。
誰か https://quality.embarcadero.com/ へ報告してみてくれ。 Delphi6までが花だったな、、
あの当時はVB4,5,6よりDelphiだったな 6でほとんど完成してるしね
その後で大きく変わったのは2009のUnicodeくらいか
あと64bit対応 UbuntuにもLazarusを入れちゃった。
VCLと同じ様にフォームやGUI要素のCanvasにDrawやLineなんかで描画出来るのな。 >>163
6はPersonalで触れた人が多いからそんな印象があるかもしれないけど、
基本の完成は3か5じゃないかな。
むしろ、凋落を決定的にした8とは比べものにならないけど
6のCLXは今も続く迷走と混乱の始まりでもある気が。
まあそれでも5,6,7の頃が良かったかと言われると
ジェネリックスと無名メソッドとRTTI以前には戻りたくない。 CLXなんて誰も使ってないし知らねーよww
VCLは6で完成してる
Actionは5からで、6で洗練された
C++使いだからDelphiの言語機能は知らんが、俺もC++03のBCC32には絶対戻れない
BoostからもBANされたし Sydneyの高DPI対応だけどマウス位置がヘンだね
PopupMenuをコントロールに登録して右クリックしても
違った位置に表示されるし
コントロール上でマウスホイールを操作しても
スクロールされない
(コントロール外の「ある位置」でスクロールできるが)
LocalToAbsoluteで手動でポップアップ可能だけど
こんどはMacだと標準DPIでおかしくなる・・・
Alexandriaで改善されてる? 6とか言ってるやつらは結局ヴァージョンアップについていけない頭が硬いやつ。 FMXを使え無い奴らが傷を舐め合ってるのは醜いですね。 文字関係ないなら Delphi5
UniCode 使うなら Delphi2009
泥も対応するなら Community Edition >>173
「FMXなんて使い物にならない」が正解だろ
漢字変換時の色表示がまともに出来ないからメモ帳アプリ一つ作れない
欧米文字圏向けの機能であって実質日本語対応できてない >>175
確かに日本語でガシガシ入力するようなアプリには向かないね
FMXについて分からないときに検索すると
日本語サイトがほとんどヒットしないから
日本じゃ使ってる人が少ないかな?
自分はVCLで公開してたツールをFMXに書き換えた
macOS版も公開できたんで良かったと思ってるよ 以前URLMemo開発中って聞いてたけど
その後どうなったんだろう?
ちょっと期待してたんだけど WindowsMediaPlayerで、動画のサムネイルの作り方知りませんか?
やり方を教えてください。 >>180
Delphiで?WindowsMediaPlayerで? >>181
Delphi6と10.4に、WindowsMediaPlayerをココ見て入れてます。
https://chapmanworld.com/windows-media-player-in-delphi/
いろいろ調べて、ヒントのHPもありましたが、よくわかりませんでした。 >>158
DelphiってWin32の上に作られてるんだから動くんじゃね ここさ、低レベルの質問にも答えられる奴いないんだ。
閉めたら。 何年も前からいるMediaPlayerオジサンだと思う >>184
答える義務があると思ってんの?
馬鹿なの? てか今更ActiveXなんか使いたいととは思わない
まあ最悪、APIでウィンドウ・キャプチャして
コントール位置から画像を取得し
縮小すればサムネールになるのでは?
DRMの制約がばければ簡単にやれる >>188
そう言う話が欲しかったんだよ。
ありがとう。 ID:IgilbmVIとID:xoa25m9yは同じ人?それとも別人? いずれにしろdelphiユーザーのレベルが落ちた現実は間違いない。 >>192
みんな.NET移行したからな
スピード遅くてもマイクロソフト純正を皆選んだ 例年なら11月頃出ていた翌年のRoad mapすら出てないもんな。 ?,へ、 /^i
?|?\〉`ヽ-―ー--< 〈\?|
?7? ?,?--?、,?--- 、 ?ヽ
?/ ?/? \、i,?,ノ ? ?ヽ ?ヽ
?| ?(-=・=-? -=・=-? ) |? あらいぐま Pascal
/ 彡 /?▼ ヽ ミミ 、?
く彡彡 ?_/\_ ミミミ ヽ
`< ? ? ミミ彳ヘ
? > ? ___/ \
/ 7 \
| / .NETに移行するにはどうしたらいいですか?
お金かかりますか? VisualStudioにもCommunity版があるから無料で始められるんじゃね どんな回答を期待しているかわからんけど>>200の通り開発ツールは無料がある
Delphiのソースの移行をいってるならそりゃかかるだろうとしかいえない Delphi→VB.NET移行やってるソフトウェアハウスは存在する >>202
わざわざ糞から大糞に移行してんのか?w 質問です、お願いします。
Delphi6
普通のWindows メインフォーム表示のプログラムです。
コマンドラインでパラメータ付き起動自動処理させると
処理が終わるまでメインフォームが表示されません。
(Q1) メインフォームが表示されきってから処理に自動移行させるにはどういうソースにすればいいんでしょうか?
ググっても「メインフォーム非表示で処理をしたい」系統は拾えるのですが
処理中の経過インジケータ(ProgressBar)などを表示させたいのに
TForm1.FormCreate 最終に引数があれば→コマンドライン自動処理→プログラム自動終了
処理終わるまで非表示状態でプログラム終了時にチラっとフォームが表示されて終わってしまう。
(Q2) パラメータ -? /? など使用方法文字をWindowsのコマンドプロンプト画面に表示させるには?
uses
〜, SysUtils, 〜;
(略)
procedure TForm1.FormCreate(Sender: TObject);
if 0 < ParamCount then CmdLines;
end;
procedure TForm1.CmdLines;
begin
Application.ShowMainForm := True; // 有効指定にしても表示されなかった
// メインフォーム表示まで待機させたい
// 各種処理
Writeln('-? Question'); // 表示テスト 結果: I/O エラー (105)
end; >>204
確か起動時の最後のイベントはOnShowかOnActivateだったはず
起動時のイベントにコードを書いたときは、それが終了しないと
フォームの表示までたどり着かないんじゃないかな
さらに処理中にフォーム/コントロールを更新するには適宜
Application.ProcessMessages;
を挿入するとか... イベント内でやるよりスレッド立ち上げた方がよい気がす >>204
(Q1)
まだ出てない方法としては、Application.OnIdleで処理を行う。
このイベントは、何かの処理が全て終わって入力を受け付け始める寸前に発生する。
何かの処理には起動も含まれるので、起動処理が完全に終わった時点で初回の呼び出しが発生する。
初回のイベント時に、次から呼び出されないようにフラグを立てたりApplication.OnIdle=nilとしておく必要あり。
このような再発生防止が必要なのは他のTForm.OnShowやOnActivateでも同じ。
(Q2)
Writelnの出力先になる標準出力があるのはコンソールアプリだけなので、
VCLフォームアプリケーションでWritelnを使いたければdprファイルの2行目に{$APPTYPE CONSOLE}を追加する。
ただしこの方法ではGUIから起動してもコマンドプロンプトが開くので、
それが嫌な場合はWin32APIのCreateToolhelp32SnapshotやAttachConsoleを調べて、
自身の親プロセスがコマンドプロンプトなら標準入力を開いて書き込みをするコードを自力で書く。 >>204
タイマーを1回だけ発生させるか、
コンストラクタ辺りでユーザー定義イベントをPostMessageする みなさんレスありがとうございます
(Q1)のメインフォーム表示後に処理を行うは
>>206 さんの CMShowingChanged の方法でうまくいけたようです。
コード名でググってズバリがあった!「くろねこ研究所 [Delphi] フォームの表示完了時」
h ttps://www.blackcat .xyz/article.php/ProgramingFAQ_del0049
>204 の TForm1.FormCreate 部分から↑ソースの「// 実際の処理を記入」部分に移動させると成功しました。
// 実際の処理を記入 に移動↓
if 0 < ParamCount then CmdLines;
(Q2) 使用方文をWindowsのコマンドプロンプト画面に表示させるのは
>>208
・・・・アキラメました!
上のフォームの表示完了時処理がうまくいった際に ふと
フォーム表示させるんだから
-? 指定の場合、TMemo 出してそこに表示させて、自動終了させなければ良いじゃないか!? と >>213
起動オプションの説明だけなら
Dialogs.ShowMessage でもいいんでね TEdgeBrowserを使ってみたけど
edgeにインストールした拡張機能は無効になってるんだね
(WebView2の仕様か)
久しぶりにブラウザでテンコ盛りの広告を見た 3.3が期限切れになったのでCommunity Edition 10.4をDLしようとしたのですができません。
無料版のページからメアドとパスワードを入れて先に進もうとすると
https://www.embarcadero.com/jp/
に飛ばされて
--------
エラー
SOAP-ERROR: Parsing WSDL: Couldn't load from 'https://members.embarcadero.com/ws/members.asmx?WSDL' : failed to load external entity "https://members.embarcadero.com/ws/members.asmx?WSDL"
--------
って表示されて、メールも来ません。
何を間違ってしまったのかしら。 久しぶりに使おうとしたら有効期限切れてた
めんどくさくなったからアンインストールしましたとさ
この辺はVSの方が全然いいな PC替えたけど今度こそDelphi7インスコやめようか思案中
どうせVCL山ほど入れないと動かないのだらけだし面倒になってきた年だわ Delphi 11のCEはいつになるんだろう?
FMX(CE版Sydney)アプリでOneDriveに履歴を保存していて
(Windowsアカウント)認証にTWebBrowserを使ってるんだけど
Macとかモバイルとかは大丈夫だけど
IEを使うWindowsでは拒否されるようになった >>232
よくわからないけど、その不具合がDelphi 11で解決しそうなの?
それはTEdgeBrowserを使うべき案件じゃない? >>233
11のFMXのTWebBrowserにはWindowsEngineていうプロパティがあって
EdgeIfAvailableかEdgeOnlyにするとEdgeが使われるらしい >>232
次のメジャーアップデートの後のはず。
例えば、今のバージョンが11.0.0だと仮にすると
次のアップデートが11.0.1、11.0.2、11.0.3と出て
次のメジャーアップデートが11.1.0としてリリースされたら
11.0.3がCEになるってYouTubeLiveで言っていたね。
長くて2年ぐらい後? >>234
11は触ったことがないが、10.4のTWebBrowserでも
SelectedEngineプロパティでEdgeIfAvailable・EdgeOnlyは設定できるが?
それにChromiumベースのブラウザを使いたいのなら
>>233が言うようにTEdgeBrowserを使う方がいい。 >>237
ええと>>232で言ってるようにFMXアプリで使うTWebBrowserの話なんだが
FMXのTWebBrowserはVCLより1世代遅れてる >>232
いまんところDelphi11はバグだらけだからな
CEだしても悪評が立つだろう >>239
バグだらけとは具体的にどこの何がバグですか?と
太ったmvpがキレて聞いてきそうw Delphi 10.4.2 Community Edition で
TIdHTTP と TIdSSLIOHandlerSocketOpenSSL を使って
HTTPSサーバーからファイルをダウンロードしようとしています
テストした窓の杜からはダウンロードは出来るのですが
https://dforest.watch.impress.co.jp/library/e/...
目的のマイクロソフト関連サーバーからダウンロードすると
Socket Error #10054 で切断されてしまいます
https://msedgedriver.azureedge.net/97.0.1072.69/edgedriver_win32.zip
両方ともIrvineでダウンロードができたので
UserAgentは、Irvine/1.3.0
SSLOptions.Methodは、sslvTLSv1_2
SSLOptions.SSLVersionsは、[sslvTLSv1_2]
にしています
あとはCreateした状態のままです
Irvineのログを比較したら途中から違うのはわかるのですが
どこを設定したらいいのかわからないのでお願いします 普通にダウンロードできるようです
function GetStreamFrom(URL: string): TMemoryStream;
var IdHTTP: TIdHTTP; SSL: TIdSSLIOHandlerSocketOpenSSL; Cookie: TIdCookieManager;
begin
result := TMemoryStream.Create;
IdHTTP := TIdHTTP.Create(nil);
IdHTTP.ReadTimeout := 20000;
IdHTTP.ConnectTimeout := 20000;
IdHTTP.RedirectMaximum := 16;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/98.0.4758.80 Safari/537.36 Edg/98.0.1108.50';
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSL.SSLOptions.SSLVersions := [sslvTLSv1_2];
IdHTTP.IOHandler := SSL;
Cookie := TIdCookieManager.Create(nil);
IdHTTP.CookieManager := Cookie;
IdHTTP.AllowCookies := true;
try try
IdHttp.Get(URL, result); result.Seek(0, TSeekOrigin.soBeginning);
except on e: exception do begin ShowMessage(URL + ':', e.Message); freeAndNil(result); end; end;
finally FreeAndNil(SSL); FreeAndNil(Cookie); IdHTTP.Free; end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Stream: TMemoryStream;
begin
Stream := GetStreamFrom('https://msedgedriver.azureedge.net/97.0.1072.69/edgedriver_win32.zip');
if Stream <> nil then begin Stream.SaveToFile(AppDir + PathDelim + 'edgedriver_win32.zip'); Stream.free; end;
end; ちなみに TIdHTTP の error 10054 は注意が必要です
一度これが発生するとTIdHTTPを再作成しないと、それ以降の通信ができなくなります
(もしかしたら改善されてるかも) >>240
QC見ればIDE関連の不具合が多い
俺が最初に遭遇したのは高DPIじゃない環境で動かすとIDEのウインドウが画面の縁に貼り付いて動かせなくなるやつ。
今は起動時に /highdpi:unaware のオプションを付けて回避している >>236
そうなんだ。
メジャーアップデートしたら次は、12になるのかな? >>242
教えてもらったコードでダウンロードできるようになりました
あとOpenSSLのDLLが少し古かったのも原因でした
ありがとうございました SSLのことを考えるとTNetHTTPClientを使った方が楽
あとファイルをダウンロードするんだったらgzip圧縮とかが必須になるけどIndyよりTNetHTTPClientの方が分かりやすい
NetHTTPClient := TNetHTTPClient.Create(nil);
NetHTTPClient.ConnectionTimeout := 20000;
NetHTTPClient.ResponseTimeout := 20000;
NetHTTPClient.SendTimeout := 20000;
NetHTTPClient.AllowCookies := true;
NetHTTPClient.MaxRedirects := 8;
NetHTTPClient.HandleRedirects := true;
NetHTTPClient.Accept := 'text/html, ...略';
NetHTTPClient.AcceptLanguage := 'ja,en-US;q=0.9,en;q=0.8';
NetHTTPClient.UserAgent := 'Mozilla/5.0 ...略';
var AcceptEncoding: string := 'gzip, deflate, br'; // 圧縮を指定
NetHTTPClient.AcceptEncoding := AcceptEncoding;
if AcceptEncoding.Contains('gzip') then NetHTTPClient.AutomaticDecompression := [THTTPCompressionMethod.GZip];
if AcceptEncoding.Contains('deflate') then NetHTTPClient.AutomaticDecompression := NetHTTPClient.AutomaticDecompression + [THTTPCompressionMethod.Deflate];
if AcceptEncoding.Contains('br') then NetHTTPClient.AutomaticDecompression := NetHTTPClient.AutomaticDecompression + [THTTPCompressionMethod.Brotli];
var Response: IHTTPResponse := NetHTTPClient.Get(Url, Stream);
if Response.StatusCode <> 200 then FreeAndNil(Stream); 修正も終わりDLLも必要なくなりシンプルになりました
Delphi6から移行したてだったのでいい方法も教えていただき感謝です docwiki.embarcadero.com が死んでて、調べ事が進まん >docwiki.embarcadero.com が死んでて
ウクライナ紛争が落ち着くまでは無理かなぁ われらが MVP 様が LGPL に関してデマを流しているのだけど、どうしようか。
会社レベルでやらかしていそうで、大事にしたほうが良いかしら。 ttps://twitter.com/TodaProduction/status/1496697218346414080
>この人、いつも色々と教えてくれるんだけど、正直言ってこの人のお陰で「何かが解決した」ことは一度も無い
吐駄に言われとる。けど、これが現実の評価なのよん > MVP
https://twitter.com/5chan_nel (5ch newer account) うーん、なんでMVPごときに粘着するのかなぁ
Delphiの世界が小さくなり過ぎた弊害か 「タケノコ生活」
ttps://www.weblio.jp/content/%E3%82%BF%E3%82%B1%E3%83%8E%E3%82%B3%E7%94%9F%E6%B4%BB
四半世紀前の遺物に喜んでるようじゃなぁ >>256
5chなんてどこも粘着嵐ばっかりだし
嫌なら離れるか板ローカル、スレッドローカルあぼーん付きブラウザ使えばいい 正直あの執着心は全く理解できない
27周年だとか、25周年だから何だというのか
何がそんなにうれしいのか? 記念して御祝儀で購入してほしいということでは
特に年表が痛々しい
ttps://blogs.embarcadero.com/delphi-anniversary-innovation-timeline-infographic/
記念してDelphiやC++BuilderのVer1.0を無償公開してるけど、
動作環境を整備する方が大変だろうね >動作環境を整備する方が大変だろうね
「ボクインストールできまちゅ!」
って九州の田舎もんがいるじゃん ここも妬み、僻み、愚痴ばかりのスレになってしまったな 一方的蹂躙が起きなかったので長引きそうだ。リビブ住民にとっては、キエフを放り出して
西部だけで独立したいんだろうけど。
そこらへんが収まるまで docwiki.embarcadero.com は死んだままですね Delphiから外部アプリをCreateProcessでStartupInfo.wShowWindow:=SW_MINIMIZEを指定して最小化状態で呼び出すプログラムを書いているんだけど、
このアプリが作業進行状況を表示させるウィンドウを通常表示するので困ってる
この進行状況ウィンドウも最小化で表示させる方法はないだろうか?
今はEnumWindowsで列挙して見つけ次第最小化という力技で対処してるけどアクティブウィンドウが頻繁に切り替わってあまり良いやり方じゃ無いと思う >>265
作業進行状況を表示させるウィンドウって何?起動時スプラッシュウィンドウのこと?
そうじゃなくてホントに何かの作業中に表示されるウィンドウなら
相談する相手はその外部アプリの方みたいな気もする >100も承知での質問
ここに書いている時点で1つも分ってないだろう。
CreateProcessはDelphiの関数でも無いし、外部アプリが何かも分らない。 過疎のDelphiよりWin32スレで質問した方がよさそう 対象を限定しない方法としてはグローバルフックでウィンドウ制御を乗っ取る
WH_CBT辺りだけでいけるのか対象のアドレステーブルを
書き換えてAPI呼び出しへの介入まで必要かは知らんけど >>270
ありがとう
フックで処理する方法よさげですね
ちょっとMr.XRAYさんのサイト参考に勉強してみます
[ 280_アプリケーションの起動を知る WH_CBT フック ] - Mr.XRAY
http://mrxray.on.coocan.jp/Delphi/plSamples/280_HookCBTActivate.htm CUTT System から本が8800円(税込)で発売されるけど、買う人いますか?
OBJECT PASCAL HANDBOOK Delphi 11 Edition
ttps://www.cutt.co.jp/book/978-4-87783-521-7.html 面白そうやん
図書館に買ってもらお
昔中村さんの画像の本も買ってもらったっけ…遠い記憶 1000冊も売れるだろうか?
高いし、いまさら誰が買うんだ? Delphiの案件はC#やVB.NETへの移行が多いなw 新規案件でDelphiなんてほとんどないしな
もう買うだけ無駄 >>272
現場では古いDelphiか新しくてもマイグレで新機能を使わないから
新機能を勉強してみたいと思っていた(特にジェネリクスと無名メソッド)
電子書籍なら買うかも。
>>275
Delphiのバージョンの付け方を知らないのか?
Delphi12は出ないぞ、次はDelphi11.2だ。
(Windows10→Delphi10.x Windows11→Delphi11.x) >>279
>Delphiのバージョンの付け方を知らないのか?
そんなこと普通は知らんだろ、興味もないし
ベルリンだかトーキョーだか得意気に、どーでもいいっての >>280
>そんなこと普通は知らんだろ、興味もないし
だったらここに書き込むなアホ。
教えてやったのに何を怒っているんだ?
被害妄想が激しいな馬鹿はw
アホに分りやすく教えてあげたんだ、有難く思えハゲw
しかし間違いを指摘されると怒る奴って、本当に迷惑。 バージョンの付け方に規則なんてねーよ
今回だって今までの都市名の法則から外してきたしな 今回のはロードマップでは10.5という命名の予定だったのを
何の気まぐれかリリース直前に11にしただけだもんな なんか唐突に新バージヨン来たみたいだぞ
また再インストールしてコンポーネントをビルドするだけの簡単な作業に戻るのか >>276
一部パッケージソフトでDelphiで元々作られたモノをバージョンアップしたりC#に組み替えする案件有るね
非常にマニアックだが >>282
>バージョンの付け方に規則なんてねーよ
本当に馬鹿なのか?規則が無いってお前は頭おかしいだろう?
>今回だって今までの都市名の法則から外してきたしな
だれも都市名の話しはしていないが妄想中か?
ちなみに
Seattle(北アメリカ)→Berlin(ヨーロッパ)→ Seattle(北アメリカ)→Berlin(ヨーロッパ)→Tokyo(アジア)→Rio(南アメリカ)→Sydney(オセアニア)
の順で次はアフリカの都市に決まっていたからAlexandriaが選ばれたんだろうが。 >>284
>何の気まぐれかリリース直前に11にしただけだもんな
気まぐれって、本当にアホだな小学生か? アホとか馬鹿とかDelphi使いのくせに幼すぎねえか? 大好きなDelphiの高尚なバージョン番号付与規則と愛称にケチ付けられて発狂する信者か…
たかが道具にそこまで入れ込める情熱は理解できんわ
でさ、11.1をインストールしたろと思ったら
「11をアンインストールせよ」
だと
今までは出来てたよな?10.3と10.4は共存できたけど
何かの嫌がらせですか? >>290
お前は馬鹿なのか?誰彼構わず馬鹿・アホと言っているわけじゃない。
馬鹿レスのレスアンカーを付けているだろうが、頭を使えアホが。
あと
>アホとか馬鹿とかDelphi使いのくせに幼すぎねえか?
Delphi「使い」ってなんだ、幼稚か?・小学生か?馬鹿が。
>>291
>大好きなDelphiの高尚なバージョン番号付与規則と愛称にケチ付けられて発狂する信者か…
小心者か?、「発狂」とか「信者」とか惨めったらしい書き方するなよアホが。
>でさ、11.1をインストールしたろと思ったら
次はDelphi12なんだろ? それまで待てよ馬鹿が。 なんでこんなに噛みついてくるんだ
都市名の話は今までバージョンが10.xのx毎に都市名が変わっていたのに
11、11.1がAlexandriaのままなのが規則性がないよね、というだけの話なのに
ちなみに今回から上記命名にしたのは、これまでの10.x毎のリリースが
メジャーリリースではなく単なるアップデートと捉える人が多かったかららしい 誰かインストールした?
俺は11をアンインスト出来ないから、しばらく様子見だな >>298
インストールしたよ
コンポーネント入れ直しだからまだビルドとかはしてないけど
相変わらずHi DPI 環境だとIDE画面がモニターの端に吸着して動かせなくなるな。
DPI Unawareモードで起動すれば問題は出ないんだけど >>299
Getitはちゃんとそろってる?
JEDI・Raize・CodeSiteがないとビルドできないんだよね
あと、C++使いなのでTwineCompileも無いと使い物にならない っていうか、11.1って10.3とか10.4のメジャーバージョンじゃなくて、11のアップデート版のね
だから11をアンインストしろ言うのか
って事は、コンポーネントやプラグインのインストーラからは11に見えるから新バージョンに対応した要らんって事なんだよな?
そうなんだよな?どうなんだ?
イマイチ信用ならん >>300
GetItは 11と同じだよ
パッケージのバージョン表記も280で同じ
11.1は Delphi 11 Update 1のようだからね 11.1はサードパーティヘルプがインストールされなくなったみたいだね >>295
>もう終わった製品のことで争うことの虚しさ
お前は本当にアホだな、そんな事をわざわざ書くお前の方が虚しいだろうがタコが。
>>296
>しかも言語の話でなくたかがバージョンw
本当馬鹿、その「たかがバージョン」もしならいから教えてやったんだアホが。
>>296
> 11、11.1がAlexandriaのままなのが規則性がないよね、というだけの話なのに
恥ずかしいか?、馬鹿な書き込みして?
情報提供の書き込みに、誹謗するようなレスを入れて
逆に間違いを指摘されてら怒るって凄いなお前、社会人として終わっているだろう。
「俺は正しい」「俺以外全て馬鹿」「俺を指摘する奴は許さん」ってか?中二病か?
人間的にも終わっている、厳しい親と先生のもとで小学生からやり直せハゲ。 >>303
ありがトン
これでインストール進められるわ >>305
書き込み時に使う単語でわかる加齢臭(笑)
もうこんなのしか残っていない終わった言語 バカとかハゲとかガキの喧嘩でもあるまいし恐ろしいほどの知能の低さ
しかも沸点が低いとか哀れですな >>307
>書き込み時に使う単語でわかる加齢臭(笑)
”(笑)”って、お前はどうしようもないアホだな。
>もうこんなのしか残っていない終わった言語
また人格攻撃か、論理的に反論出来ない時はいつもそれだ。
最低の馬鹿だな。
お前も書き込んでいるんだから「もうこんなのしか」に入っているのか?
>>308
>恐ろしいほどの知能の低さ
お前も人格攻撃しか出来ない最低野郎が、ボケが。
お前の知性の高さでまともな反論してみろよ?クズが。
お前らみたいにネットで人格攻撃や誹謗中傷する奴らは最低だぞ。
自覚があるのか? 人を傷つけて楽しいのか?
みんながお前らみたいな奴の書き込みを無視して反撃されないと思うなよハゲ。 メインストリームから外れた言語ってこうなるのか、、
つくづくボーランドの頃がマシだったと言える >>312
>こういうキチガイしか残っていない
「キチガイ」ってお前は本当に底辺の馬鹿だな、そんな反論しかできないのか?
つくづく可哀そうな奴だよアホが。
リアルが荒んでいる人からって、ネットを捌け口にするなハゲ。
荒んでいるのは身から出た錆だタコ。
>>310,311
アホが「俺はお前たちとは違います」「俺は常識人です」ってか?
ネットでしかマウントとれない社会不適合者の馬鹿が口出しするなアホ。
本当に、お前らみたいに人を誹謗中傷する奴らは最低だぞ。
お前らみたいな奴らはリアルでも弱い奴を「いじめ」ているだろうな最低のアホだな。 馬鹿とかアホとか全力で誹謗中傷し始めたのは>>281
>>281が最初 もう触るな
障るから喜んで反応するんだ
我々のスルーカが試されてると思うんだ Delphiなんてスルーどころかアウトオブ眼中だと思う >>314
>キチガイ
お前は本物に最低だな、その言葉は一部の人には差別用語なんだぞ。
馬鹿やアホとは違うんだ、分っているのかこのアホは?
平気でそんな言葉を使えるって、お前年寄だろう?
年寄なら、もっとしっかりしろハゲ。
>>315
>誹謗中傷し始めたのは>> 281
お前はアホか?誹謗中傷とは「”根拠のない”悪口」だ281の書き込みには根拠はある。
>>275 >どうせすぐ12とか出て意味なくなるんでしょ
が根拠のない悪口だ。それでDelphi 12は出たのか?
根拠のない誹謗中傷を書くな、分ったかタコが。
>>317
>Delphiなんてスルーどころかアウトオブ眼中だと思う
「アウトオブ眼中」って、お前、やはりジジイだな。 とりあえず11.1インストールできた
11のアップデートという公式の情報通り、コンポーネント・プラグインは11対応版がそのままインストールできた
元の環境に戻すのに3時間かかったわ 11.1が出たってことはcommunity editionは11ベースになるの?
VSみたいにwingetでアプデしてくんないかな 11.1もバグだらけだからcommunity editionはまだまだ先の話
たぶん11.xが枯れに枯れた2年後くらいになると思う >>322
次のメジャーアップデート(たぶん12)がリリースされたら
(今なら)11の最後のアップデートバージョンがCommunity Editionになる方針に変更になったと
Embarcadero JapanのYouTubeで藤井さんが言っていた。 >>320
>馬鹿をからかっていると面白いだけだぞ
本性を表したか、お前は本当に最低のクズ人間だなアホが。
しかし、休みの日にそんな事を書いていて面白いのか?
家族や友達はいないのか?
まっそんな性格じゃだれにも相手されないか。ハゲが。
休みにこんな事をやっているようじゃ人生終わっているな。
>>324
>次のメジャーアップデート(たぶん12)がリリースされたら
馬鹿は必死だな、Delphi12のリリースは発表されたのか?
Delphi12に何故こだわるのかが分らん?
間違いを認めない人間は会社や社会から嫌われるぞ。 >>326
>特大ブーメランで草
「草」って俺がジジイって書いたのを気にしているのか? delphi使いなんてみんなコボラーくらいジジイなんだよね? >>330
若いヤツはPythonとかに行ってる
DelphiはTurbo Pascalからのユーザーも居るからね 毎回毎回懲りずにしょーもない新機能紹介だな
ウェルカムページの背景が変わってそんなに嬉しいのかよ >>328
>ほんと、馬鹿をからかうと楽しいな
お前は本当に底辺のクズなんだ?
連休明けの4時に起きて(寝ないで?)書き込みか?
年金生活で4時に目が覚める老人だったとしても
こんな事をしている段階で、現役の時から社会不適合者なんだろうな。
現役なら普通にクズか。 >>337
おぃ馬鹿、また(03:52:18.35)こんな時間に書き込みしているのか。
お前は引きこもりだろう、引きこもりだから絶対に二重あごのデブだな。(バナナマン日村似?)
>馬鹿をからかうと楽しいから触るのだよ
しかし上から目線でマウントとってくるよな、周りから嫌われているだろう。
だから引きこもりをやっているのか? デブハゲは。(あと”のだよ”って恥ずかしくないか?)
上から目線って自分を下に見られたくない奴がやるらしいぞ。
でも逆に本人が意識するだけ余計にストレスになるらしいが、気をつけろよアホブタが。
あと、もっと早い時間に書き込み出来ないのか?
あれか?俺に反撃されるのが怖くて寝る前にしか書き込めないのか?
アホは大変だな。
ところで次のDelphiはアナウンスされたか?
もしお前が言うようにDelphi12なら、お前はエンバガ内部の人間と決定していいのか?
外部の人間には分らん情報だからな。 >>330
ワシ元PL/I屋のじじい
Delphiは3から7までお世話になりました
今はRuby屋に転身中だけどRailsの環境設定うまくいかなくて
キーボードぶち割りそうw Railsって若い新入生が業界に入るためにやるだけで
今から覚えても移植以外なくなっていくと
思うのだが。 ワシ新入生やで年食ってるけどw
次はAjaxなんちゃらとか世の中進歩しとるの
delphiで継承覚えた時くらい楽しいわw >>342
>必ず反応する馬鹿をからかうと楽しい
アホは何が言いたいんだ?
これぐらいでは「からかわれている」とかは思わんが?
自意識過剰で引きこもりのハゲは
何を言われても被害妄想で過剰に反応するから
他の人間も同じだと思っているのか? >>345
お前嫌われているだろう?頑固な馬鹿は使えないからな。
まっ嫌われる前にニートだから人間関係が最初からないのか。
しかし毎日朝3時台にネットで悪口書き込んでいるって凄いない。
そこまで人生終わっていると逆に下がりようのない人生で楽しいのか?
でも周りは迷惑しているんだろうな。 Ruby on Rails なんて、
WSL2, Docker, Kubernetes, AWS Fargate, CircleCI, Github Actions とか、
主にDocker技術だけど、無数にサンプルがある
YouTube で有名な、雑食系エンジニア・KENTA のサロンでは、
初心者が1年で、10年以上のプロよりも上になるから、
そこで、Go へ転職すればよい
キャリアパスは、Rails → Go のみ
でも、GithubのコピーのGitlab は、時価総額2兆円だけど、
RailsからGoへ移行しない事を宣言している
GithubはGoへ移行するけど Delphi→C#ってコンバーター有るのな
C#に変換したらC#→VB.NETへのコンバーターで最終的にVB.NETに移行出来るな どのくらい正確にコンバートできるの?
結局、手直し地獄になりそうな気がするけど >>352
手直しは発生するだろうね
C#の時点でどの程度発生するか、だろうけど その努力はヘルスバーグ殉教者として報われるであろう >>348
>必ず反応する馬鹿をからかうと楽しいな
休日にそれしか楽しみがないのか、自宅警備員のアホは大変だな。 ほら、反応した
やっぱり必ず反応する馬鹿をからかうのは楽しい >>357
>やっぱり必ず反応する馬鹿をからかうのは楽しい
こっちもアホをからかうのは楽しいぞ、周りにアホはいないからな。
まっ引きこもりの馬鹿なんて、普通は接点なんてないからな。
お前知っているか、外では桜が咲いているんだぞ。
引きこもりのお前には関係のない話しだなw 必ず反応する馬鹿は自分の周りのことが他人全てに通用すると思っているから馬鹿たる所以だ
こういう馬鹿をからかうと楽しい >>359
>他人全てに通用すると思っているから馬鹿たる所以だ
ムキになるなw アホは直ぐにムキになるからなw
お前の所はまだ桜が咲いてないのか?じゃ東北か北海道だな。
リストラされて田舎に帰っているのか?
親も大変だな子供の事が恥ずかしくて、近所に合わせる顔がないだろう。
あっ!お前の「引きこもり」は親に言われてやっているのか? 必ず反応する馬鹿はやっぱり自分勝手な幼稚な発想しかできんのだな
馬鹿は結局馬鹿ってことだな お前ら、もういい歳のはずなのに延々と何やってるんだよ・・ >>361
>必ず反応する馬鹿はやっぱり自分勝手な幼稚な発想しかできんのだな
最近ムキになって怒るな、図星か?
しかし「自分勝手な幼稚な発想」で馬鹿って、お前酷くないか?
「発想」しただけで馬鹿って、よくそんな人が傷つく事を書き込めるな
人間性を疑うは最低の人間だな。
あと >幼稚な発想
の「幼稚」って俺が前に書いた
>Delphi「使い」ってなんだ、幼稚か?・小学生か?馬鹿が。
の「幼稚」を気にしていたのか?根に持つなよ幼稚だなw 必ず反応する幼稚な馬鹿をからかっていると楽しいな
文字数が悔しさのバロメーターで笑える 常々の疑問だが実行時エラーの「範囲チャック」、「オバーフローチャック」
入れるとまともに動かないの何故、20年間改善する気無いんだが
これ言うと向きになる遣るがこれも判らん いまだRegisterClassの解放が治ってないし
RTLのバッチがまともに動かんが
20年放置しやがって >>367
Delphi1 からのユーザーだが、RegisterClass で困ったことはないが。 Delphiで昔から疑問があるがprivateで宣言されてるmessageは何故inherited読み出せる?
たとえば
procedure TPageControl.WMLButtonDown(var Message: TWMLButtonDown);
var
DockCtl: TControl;
begin
inherited ←これ使えるのが不思議?
メッセージだけプライベートでも継承できる不思議
根本的に知識欠如が有るかしら独学だからな procedure TPageControl.WMLButtonDown(var Message: TWMLButtonDown);
var
DockCtl: TControl;
begin
inherited ←ここにブレークして継承に飛ぶのか
飛ぶよね
procedure TPageControl.WMLButtonDown(var Message: TWMLButtonDown);
var
DockCtl: TControl;
begin
inherited WMLButtonDown;←これコンパイルエラーになるね
?
たとえば
procedure TForm1.FormShow(Sender: TObject);
begin
inherited
end;
でコンパイルは出来るがコードは作成さえないな
根本的にinheritedは無敵アイテム? procedure TForm1.FormShow(Sender: TObject);
begin
inherited
end;
は継承する者が無いからコード作成されないのは当たり前だが 不思議です
VCL,RTLのメッセージ関連はどうして多様に継承してるのにprivateにしてprotectedにしなかったんだろう
結局inheritedで継承出来てしまうのに? >>364
>文字数が悔しさのバロメーターで笑える
お前は悔しいのか?やっぱりアホは大変だなw
こっちはアホの相手だから悔しいとか思ってもいなかったわw
明日から新しい年度だ、少しは仕事する気になったか?ニートも退屈だろう?
東北だと外はまだ寒いから家にいるのも悪くはないと思うが、周りの人間は迷惑だと思っているぞw
ひねくれたお前の性格だ、真面目に家庭内暴力だけはやめろよ。 >>378
>必ず反応する馬鹿をからかうと楽しい
馬鹿のクセに楽しいかw 昼間起きていたらもっと楽しいぞw
いいな引きこもりは、こんなのでも楽しいのかw なんかこんな流れの中ですみませんくだすれな質問です
検索ループ中に Esc が押されたらダイアログを出して OK ならば処理を中止したりしているのですが
if (0>GetKeyState(VK_ESCAPE)) then
if MessageDlg('中止しますか?',mtConfirmation,mbOkCancel,0)=mrOk then exit;
このときキャンセルボタンをクリックするか X ボタンで閉じると意図した動作(処理を続行する)になるのですが
ダイアログを Esc キーで閉じようとするとまたこのダイアログが出てきてしまいます
フラグを立てて
if NowEsc and (0>GetKeyState(VK_ESCAPE)) then
などとしても同様だったりダイアログ自体出なくなったりと泥沼にはまっています
普通はどのような処理を行うものなのでしょうか? >>381
フラグを使うだけだと MessageBox を表示した瞬間にダイアログ側で ESC キー押下イベントが処理されてすぐ閉じられてしまう。
MessageBox を表示する直前に Application.ProcessMessages を呼んで未処理のキーイベントをすべて消化しておくと期待通りに動作する。
Application.ProcessMessages を呼ぶと UI の全てが操作可能になるので事前に Form の Enabled を False する等しておく必要がある。
procedure TForm1.Button1Click(Sender: TObject);
var
Flag: Boolean;
begin
Enabled := False;
try
Flag := False;
while True do
begin
if GetAsyncKeyState(VK_ESCAPE) and $8000 <> 0 then
begin
Application.ProcessMessages;
if not Flag then
begin
// ESC キーが押された
if MessageDlg('中止しますか?', mtConfirmation, mbOkCancel, 0) = mrOk then
Exit;
end;
Flag := True;
end else
Flag := False;
end;
finally
Enabled := True;
end;
end; >>382
ありがとうございます上手くいきました
Application.ProcessMessages は入れていたのですがフラグと Application.ProcessMessages の位置が
微妙にダメだったようです Delphi初心者です
将棋を作りたいんですがちんぷんかんぷんです。
コンポーネントはパネルを使いその上でイメージを敷いて動かしたいと考えてます。
何卒お助け下さい… こうやったけどだめでしたどこに問題がありますか?
ってコードを見せられるようになったらいくらでも聞いて 終わりかけのIEとIEモードを操作するコードを書いています
いろいろなサイトを回りpDocが少し変そうですが警告はでますが一応動作はしてます
おかしなところがあれば教えてください
var
hIE_S:HWND;
AMsg:Cardinal;
iRes:Cardinal;
pDoc:IHTMLDocument3;
Doc2:IHTMLDocument2;
Doc3:IHTMLDocument3;
begin
hIE_S:=Internet Explorer_Serverを探してくる
AMsg := RegisterWindowMessage('WM_HTML_GETOBJECT');
SendMessageTimeOut(hIE_S, AMsg, 0, 0, SMTO_ABORTIFHUNG, 1000, iRes);
if ObjectFromLresult(iRes, IHTMLDocument2, 0, pDoc) = S_OK then begin
Doc2 := pDoc as IHTMLDocument2;
end;
AMsg := RegisterWindowMessage('WM_HTML_GETOBJECT');
SendMessageTimeOut(hIE_S, AMsg, 0, 0, SMTO_ABORTIFHUNG, 1000, iRes);
if ObjectFromLresult(iRes, IHTMLDocument3, 0, pDoc) = S_OK then begin
Doc3 := pDoc as IHTMLDocument3;
end;
このあとはDoc2とDoc3を使って操作
end; >>387
おかしいのはこんな所で聞くお前の頭だと思うよ >>387
その手法を使ったことないから処理には特にコメント無いけど
MSHTMLオブジェクトを扱うならOleInitialize、OleUninitializeが必要じゃないかな。
アプリケーションの開始と終了の時でいいからここに書いてないだけかもしれんけど。
あとマルチスレッドならスレッドごとの開始と終了の時にも。 TEdgeBrowserのスクリーンショットでツマってる
もちろんCapturePreviewでできるんだけど
pngで1秒近く、jpegにしても100msくらい時間がかかるだよ
APIを使ってフォームをキャプチャすると真っ白だし
OBSとか、他のウィンドウの裏にあるフォーム上のTEdgeBrowser画面を
問題なくキャプチャしてるんだよな どうやってるんだろ TEdgeBrowserというかEdgeも含めてDirectX描画ウィンドウのキャプチャをするのには、
俺はAPIのPrintWindowをPW_RENDERFULLCONTENTをオプション引数に設定して使ってるな。
もっと洗練された新しいAPIも複数あるようだけどD3Dを扱うのが面倒だし
上ので十分なので俺は使ったことない。 なおPW_RENDERFULLCONTENT:=2。自作のオートパイロットツールのソースコードそのまま張り付け。改行制限に引っかかって行を詰めたので変なところあるけど適当に修正して。
type TDummyCanvas = class(TCustomCanvas) end;
function CaptureWindowDC(Handle: THandle; Bitmap: TBitmap): Boolean;
function HogeGetWindowRect(Handle: THandle): TRect;
begin
if CheckWin32Version(6, 0) then
DwmGetWindowAttribute(Handle, DWMWA_EXTENDED_FRAME_BOUNDS, @Result, SizeOf(TRect))
else
GetWindowRect(Handle, Result);
end;
var
captureRect: TRect;
const
PW_RENDERFULLCONTENT = 2;
begin
if IsWindow(Handle) then
begin
GetWindowRect(Handle, captureRect);
Bitmap.Width := captureRect.Width; Bitmap.Height := captureRect.Height; Bitmap.PixelFormat := pf32bit;
Bitmap.Canvas.Lock;
try
PrintWindow(Handle, Bitmap.Canvas.Handle, PW_RENDERFULLCONTENT);
TDummyCanvas(Bitmap.Canvas).Changed; //ハンドルを直接操作するのでChangedを明示的に呼び出す。
finally
Bitmap.Canvas.Unlock;
end;
Result := True;
end else Result := False;
end; >>391,392
素早いレスに感謝
PrintWindowについては、検索してたときMr.XRAYさんのサイトにサンプルがあって
最後の引数を「1」(クライアント領域)にして試してダメだったので諦めてた
「2」で上手くいって、CapturePreviewだと毎秒8回キャプチャが精いっぱいだったのが
毎秒12回くらいにはなった。OBSみたいに毎秒30フレームでキャプチャとか難しそう 30フレームやりたいなら
Desktop Duplication API
か
ウィンドウ単位なら
Windows Graphics Capture使え
ググれば一発やろ >>394
そこに出てるC++のコードを見たけど自分にはDelphiに移植できそうにない
それにWindows Graphics CaptureのDelphi実装例が検索でヒットしなかった
ヘッダも見つからなかったし Desktop Duplication APIなら簡単じゃない? Delphi XE で WebカメラからPOSTされてくるデータを受け取るようにしたいんですが、
SOAPサーバー/Indy VCL アプリケーション でプロジェクトを作成して、
TWebModuleのDefaultHandlerAction イベントで Request 引数を処理するだけで良いですか?
(送られて来るのは画像に関するXMLだけで、画像自体は別途ダウンロードします) >>397
デスクトップ全体でなく指定したウィンドウをキャプチャしたいんで
自分の目的はデスクトップの外にフォームを置いて
その上のTEdgeBrowserでライブ映像を再生し
キャプチャしながら画質補正してPaintBoxに表示するってもの
PringWindow(+PW_RENDERFULLCONTENT)で速度以外は
まったく問題ないんだけどね
今はDirectXのサンプル(デスクトップ全体のはいっぱいある)を探しているのと
Windows Graphics CaptureをC++でDLL化してる例があったんで
何とか利用できないかと(ちなみにFMXアプリ) 最新のDelphi使ってるの??
で、それにヘッダファイル見つからないの??
他のWinRTの移植を真似て自分で移植できない?? >>434
うぜぇ…
ID真っ赤にして恥ずかしい奴ww これさー
同じIDで両方だったら良かったのに
つかユーザーたくさんいるじゃん7,8人くらい? >>437
ID真っ赤にしてる恥ずかしい奴は1人だよw
>>439
うぜぇ… ___
/´. _, -―-、ヽ、
/ l´[☆ィTfヘマ、 ヽ
_.、| | |ィケリノ |ト}!l|
ミシ ヽ . | レァ予 伝yリ|'''}
ヽ ヽ| 《{_丿 Ljハj| /
..| ヽ \''' r‐ァ`,ツ/ 意味ワカンネ
| .\ ヽT云'I「j /
|| .Nヽ ,yー弋./
从 |、 ハ.j' Q´Y
`ヽVリ'j |
ノ | Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと らりるれ、ラリさん今日も元気いっぱいで頑張りましょう Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと >>480
それさー
最低10回はやらないとつまらないんだよね
やっぱ年とると根気無くなるよね https://i.imgur.com/kn9Uxac.png
Delphi 6 Programming Bibleは持ってたな、おそらく実家の押し入れの中にあるはず捨てられてなければ… Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと GExpertsの
unit GX_LibrarySource;
でリソースリーク
procedure DestroyInstanceMutexes;
begin
if GXGeneralMutex <> 0 then
begin
WaitForSingleObject(GXGeneralMutex, INFINITE); ////忘れ
ReleaseMutex(GXGeneralMutex);////忘れ
CloseHandle(GXGeneralMutex);
end;
if GXVersionMutex <> 0 then
begin
WaitForSingleObject(GXVersionMutex, INFINITE); ////忘れ
ReleaseMutex(GXVersionMutex);////忘れ
CloseHandle(GXVersionMutex);
end;
end;
ほぼ意味ないけど unit GX_About;
で
class function TfmAbout.GetSplashIcon: HBITMAP;
const
GX_ABOUT_ICON24 = 'GX24';
begin
Result := LoadBitmap(HInstance, GX_ABOUT_ICON24);//リソースリーク
end;
ざんねん、解放できない
また無意味だけどね Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと ttps://ja.kohsuke.org/software/where-tech-companies-go-die/
「VMwareがBroadcomに8兆円で買収」
...要するに、マーケットを寡占している製品を持つ低成長・斜陽の会社のIPを割安で買って、セールスもマーケティングもR&Dもお金のかかる事は全部辞めて、既存のお客さんからライセンス料をとれる間だけとろうという事だ。新規顧客も新機能も何も生まれなくなるが、他製品に逃げられないお客さんはライセンス料を払い続けるしかないわけである。良く言えば経営合理化、悪く言えばcash cow化
...ソフトウェア産業では、衰退企業のお客さんが人質にとられるのは本当によくあるパターンである。
...Travisが買収された件も記憶に残っているし、
Travis CI 買ったのどの会社だっけ エンバカデロの技術サポートに一つ苦言
質問メール受けたらまず返信してくれ
どういう状況なのか分からんのは困る 今、日本のDelphiユーザーて何人くらい?
プロとアマチュアの数字を知りたい 3人くらいじゃね?
つか久々結構でかい本屋行ったらプログラミングの棚すげえ充実してて驚いたわ
Delphi1冊も無かったけどw
cobolも無しpythonとかjavascriptとかあふれてるみたいな 更新続いてるJaneXenoが10.4
JaneStyleは7か、未だに32bitだけだし
これだけで最低2人 >>498
既にPythonの案件数はDelphi越えてるからなあ、、
下手したらVB.NETも越えてるぐらいだし 10.3系でTEdgeBrowserを使うことは出来ないの? 003年 当時荒れていたdelphiスレッドの緊急避難先で作った「くだすれDelphi 」
ヘッダーを各言語用に改変してPythonのスレッドが出来ていたのか・・・・
あれから20年近く・・・俺も還暦になるわけだ。
プログラム板にきたのは13年ぶり。 いつのまにか2chが5chになって
ひろゆきがメジャーになってた。 Delphiは6までが花だったな
VB.NETとC#が出来て持って行かれてしまった >>505
バカ言え、7.1の頃が華だったに決まってるだろ 昔の子供はテレビをよく見たけど、今の子供はユーチューブをよく見る。
いまやテレビで活躍する芸能人は三流で、ユーチューブが二流、一流が韓流。
そういう時代になった。
ひろゆきはユーチューブの芸能人なので、テレビ芸人よりメジャー感ある。 DelphiのTEdgeBrowserで作ったブラウザに
uBlock Originなどの拡張機能を組み込む方法ってある? 前にも同じ話題があったけど
現時点では方法はないと言ってた
自分も一部の公開アプリでTEdgeBrowser使ってるけど
Windows 10でRuntimeが標準でないのがネックになってる
ユーザに手動でRuntimeダウンロード・インストールさせるのは
ハードルが高い >>510
Runtimeはそのうち標準になるだろ 下のURLによるとWindows 10でWebView2 Runtimeの
自動配布が始まったみたい
https://blogs.windows.com/msedgedev/2022/06/27/delivering-the-microsoft-edge-webview2-runtime-to-windows-10-consumers/
確かにRuntimeが未インストールだったHyper-V上のWin10で
いつのまにインストール済みになってた
まあ月例アップデートしない人とかいるから
現時点では100%インストール済みだと想定できないのが悩ましいが フォームとソースをいちいちタブ切り替えするのが面倒すぎて使わなくなった
昔みたいに分離して並べる方が絶対使いやすいのにどうしてこうなった 10.3.3くらいまでは裏技が使えたがバージョンが上がって使えなくなった 今ってフォームとソースを同時に見れないんだ
これって慣れるもんなのかな 機能を各ウィンドウに割り当てて、自由な配置をして重ね合わせて、
任意のウィンドウをクリックすると、それが上に来てその機能にアクセスできる
というのが、WindowsのWindowsたる所以なのに、一枚の平面に全機能を
埋め込むなんてDOSアプリと変わらない なんでこんな糞仕様になったんだ 普及も何も今の売り方は残った搾りかすからとれるだけ取ろうとしてるだけの商売なんだから普及する事はない
うちもずいぶんとこれを使って開発してきたけど去年完全にこれを捨てる方針になったからね なんで残った搾りかす達はとれるだけ取られ続けて文句言わないの? 個人プログラマなら基本はコミュ版で足りるんだよな
ただ、コミュ版に依存すると、いつ気まぐれに打ち切られるか分からんから
いつまでも使える有料購入した旧版から抜け出せない 昔はこんなのあったなぁ
https://web.archive.org/web/20080210012215/http://www.turboexplorer.com:80/jp/DelphiTutorial 近く11.2がリリースされそうだけど
CommunityEditionもアップデートされないかなぁ >>528
WebView2使える10.4のCommunityEditionで何が不満? CommunityEditionはメジャーバージョンの1世代前だから
次は12が出たときだな つか10.4と11って何が違うんだっけ?お布施徴収するだけの11? >>531
主にHi DPI対応だね
それで結構バグがあって11.0の時は使い物にならなかった >>532
お布施徴収しといてテスターにバグ出しさせたのか?w サブスク継続させるために、バグ残してるのかと疑われるよね >>529
確かにVCLでWebView2は使えるね
ただ自分はFMXしか今は使ってないから不満は残る
最近はTWebBrowserがアプリのMS認証で機能しない
GoogleMapsもうまく表示されない
まあFMXからTEdgeBrowserを使って回避してるけど
ソースコードがコンパイラ指令だらけ community期限切れで使えないとかあったのか
こういうのがあるからここの企業って全く信頼できないんだよな Starter Editionとかいう糞なの作ったとろだし……
あのときcommunityがでてれば… そういえば自分はXe1 starterからdelphi始めたんだった Delphi 11.2
Win64ビルドで以下のようなエラーが出ると思ったら
> [dcc64 致命的エラー] xxxxxx.pas(40): E2213 パッケージ化されたユニットの形式が効です:
> C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp\yyyyyy.dcp.zzzzzz - 必要なバー
> ジョン: 35.0、Windows Unicode(x64) 検出されたバージョン: 35.0、Windows Unicode(x86)
Win64ビルドのライブラリの検索パスが $(BDSCOMMONDIR)\Dcp になってる
$(BDSCOMMONDIR)\Dcp
↓
$(BDSCOMMONDIR)\Dcp\Win64
に変更したらビルドできるようになったけど、本当にテストしてリリースしてんのか? まぁwin32とか.netってマイクロソフト臭くてダメ
delphiとかvbが人気なのは、win32とかのAPIがウンコーだからだろうな
あれは他のOSのモダンなエンジニアなら、もういっちょライブラリを上に作って見えなくするよ
あれでアプリ作れとか頭おかしい
だから最近のOSのライブラリはすごくシンプルでスクリプトみたいに簡単
delphiが売れるのはwindowsみたいに難解なOSだけで、他のOSでは必要が無いだろう
おそらくdelphiやVBが出来るなら余裕で他のOSでOS記述言語で書ける ようやくIDEでMarkdownサポートか
いちいち外部ツール起動しないとドキュメント書けなくてだるかったんだよな .netよりDelphiが人気?
.net知らん人は少数だが、delphiとかほぼ認知度ないよw
Win3.1と95初期にdelphi触ってたとか
PC歴25年は最低無いと触れるきっかけすらほぼ発生しないような言語なんだから。 >に変更したらビルドできるようになったけど、本当にテストしてリリースしてんのか?
お前の使い方が間違ってるんでしょ?
日本の誇る MVP 様がテストされておる。 .net は VCL臭いと思うけど
悪い意味じゃなくて >>544
あの人ウンコ流す糞アプリのテストしかできないじゃん https://twitter.com/A7M3J/status/1568272649754914817
>だから、言っちゃえよ!法も慣例も関係無く「アベが嫌」の一言で。こっちは、聞き流すけど。
頸になったのは、ここらへんの政治信条からかしら
https://twitter.com/5chan_nel (5ch newer account) Windows11 22H2 Delphi製アプリ日本語入力をオンにすると落ちる問題
ってテキストエディター「Mery」は対策したみたいだけど何処かでその手法を知ることは出来ますか? >>548
わあホントだ
最近VCLほとんど使わないから気づかなかった
FMXは問題ない。。。と思う
22H2は日本語関連のバグが少なからずあるみたいで
MSが修正することを望みたい
このままじゃ昔のVCLアプリが全滅になりかねない >ってテキストエディター「Mery」は対策したみたいだけ
ガセじゃね?
MVP も Deko 助もスルーしてるし 以下に現象とその回避策があるね
試してないんで効果は分からない
https://www.haijin-boys.com/wiki/Windows_11_22H2_で半角/全角キーを押すと_Mery_が落ちる問題について
>>どのユニットでも構わないので一番下に以下のように記述し、浮動小数点例外マスクフラグを設定する。
>>Delphi XE2 の場合
>>initialization
>> SetExceptionMask(exAllArithmeticExceptions);
>>新しめの Delphi の場合
>>initialization
>> FSetExceptMask(femALLEXCEPT); 「彼」は Deko/MVP 一派とは仲悪いからなぁ.... おらのDelphiが古すぎてどちらも使えない(x.x)
Set8087CWではダメなのか? なんかちょっと混乱した
Community Editionの期限切れになったから
https://docwiki.embarcadero.com/Support/ja/Community_Edition%E3%82%92%E6%9B%B4%E6%96%B0%E3%81%97%E3%81%9F%E3%81%84
の手順で「再度登録する」をやったら”11.2 Alexandria Architect Trial”のダウンロード開始とキーが送られてきた。
このキーでCommunity Editionの登録ができるのかと思ったけどやっぱり”11.2 Alexandria Architect Trial”90日が登録された
しょうがないから削除してCommunity Editionのページ探してそこから登録してキーを送ってもらった。 「再度登録する」をクリックすると「Delphi トライアル版 ダウンロード」に飛ぶから仕方ないんじゃね?
画面上部の「無料版」「Delphi Community Edition」を選べばよくね?
C++BUilder はちゃんと飛ぶから、ページの編集ミスかね もうDelphiを使うメリットはどこにもないのに超初心者がいるのか dccのF2084 Internal Error
IDEの再起動やプロジェクトのリオープンしないと駄目だったが
ReleaseビルドしてDebugビルドすると解消する
アホらしいがこれが一番楽だ >>556
俺のCEも無期限だ
日頃の行いが良んだろね、お互い アイデラ関連企業の集約ってあるけど、日本法人内競争はどこが勝ったのだろうか
古 Borland と Ashton-Tate 合併時の日本法人の内紛と、その後の Asia-Pacific (実質オーストラリア)による支配期間を
思い出すと涙がこぼれる....
もう二度とあんなことは起きないことを心から願うよ そういう業界の裏話ってどこから仕入れるの?
内紛がどうとか一般ユーザーには何のことやら >>548 Windows11 22H2 Delphi製アプリ日本語入力をオンにすると落ちる問題
facebook でも Quita でも、Deko が自分の手柄にし始めたヨ
おまえは何も調べてないだろ。Kuro さんのこと嫉妬しないでくれや TCategoryButtonsなんだけど
TButtonItemの移動を禁止する設定はあるのに(ButtonOptionsのboAllowButtonReorder)
TButtonCategoryの移動を禁止する設定が無いのはなぜなんだぜ?
なにか禁止する方法はないだろうか コード補完を Tab で確定させるオプションとかあります?
VSと行き来してると戸惑うので TStringGridで行の高さを設定する場合にスタイルによって非常に時間がかかるけど、これ回避できる方法知っていますか?
例:10000行のheights設定
スタイルが
Windows 2秒位
Carbon 36秒位
表示時間じゃなくプロパティの設定に時間がかかります。 TStringListにBeginUpdate,EndUpdateあるならそれを呼んで更新してみるとか
BeginUpdate
Heights更新
EndUpdate >>570
有難う御座います。試して結果を報告いたします。 >>570
確認したところ、大幅に高速化されスタイル変更で影響が出なくなりました。
今考えると、フォーム作成時の初回は高速に終わるのに2回目以降が非常に時間がかかっていましたので、プロパティを変更ごとに表示の更新をしていたんだと思います。
(それが実際にスクリーンに見えていない箇所も)
570様 感謝です、有難う御座いました。 久々に Delphi 10.4 Community 使ってみてます
64bit コンパイラでデバッグ情報外しても、ほとんど実行ファイルサイズ
小さくならないけど、こういうもん? やりたい事にもよるけど
実行ファイルを大量に作るなら実行時パッケージを使って構築だかで小さくするという手もあるのでは 同じソースをデバッグ情報含まずで
XE6 32bit = 5MB
10.4 32bit =14MB
10.4 64bit =17MB
な感じでした Delphi5の頃の実行ファイルサイズが500KBくらい
当時の一般的なPCの容量が HDD 30GB、メモリ128MBくらい
最近のDelphi10の実行ファイルサイズが20MBくらい
最近の一般的なPCの容量が HDD 3TB、メモリ16GBくらい
Delphiの実行ファイルサイズは、40倍くらい膨らんだが
PCの容量は、ストレージが100倍、メモリは125倍くらい増えた
PCの容量に対する実行ファイルのサイズ負担は
むしろ相対的に小さくなっていると考えられるのではないか? 同じ処理なのにサイズだけ肥大化してるって事だわな
コンパイラオプションで変わればいいんだけど、リリース設定だとこれ以上削れる所ないよね Delphiって昔はスマートリンクが優秀だった記憶がある
今は何でもかんでもリンクされるのかな? IDEでmyfuncにカーソル合わせてなにかのショートカットキーを押すと
MyUnit.MyClass.MyFuncと完全な形に補完して
クリップボードにコピーするなり外部ツールMyHelp.exeを起動するなりする方法ないかな >>573
exeサイズは実行時パッケージ使うと大幅に減らせる
ついでにdcu、exe出力先を
$(Temp)\Delphi$(DelVer)\$(Config)\qdV263tyfmhSw6D3
とかにしとくとプロジェクトフォルダ内のバイナリサイズを0にできる
末尾の文字列はプロジェクト名か雑にランダム生成してしたものを指定
.Net Frameworkを全く利用できないから
本質的にでかいのはしょうがないね >>580
>ついでにdcu、exe出力先を
>$(Temp)\Delphi$(DelVer)\$(Config)\qdV263tyfmhSw6D3
>とかにしとくとプロジェクトフォルダ内のバイナリサイズを0にできる
アホなのか?バカなのか? 今時これ使ってるようなやつが頭いいとかおもってるの?w Delphi6でTWebBrowserを使って
防犯カメラの映像を表示するアプリを作っています
IPアドレスにアクセスしてログインして表示するだけです
映像表示にActiveXを使っています
たまに接続が切れ映像が止まった状態になったままになるので
カメラのIPアドレスに接続されているとか
データの送受信量をチェックしたいのですが方法がわかりません
わかる方いたら教えてください TLabelとTTextってどうやって使い分けしてますか? >>587
>>ActiveX
また懐かしい
今でも動くのか? >>588
ヘルプに書いてある通りだろ
要するにラベルで十分 >>587
ネットワークの監視じゃないけど
自身のウィンドウを定期的にキャプチャして、
変化がなかったら止まってると判断して、リロードするとか >>587
activrXのタイプライブラリを取り込んで調べて
インターフェイスでネットアクセスのイベントやプロパティが提供されていればそれで。
取り込みができるならそういう制御はTWebBrowsetを介するより
Delphiのフォームに直接activeXコントロールを置く方がやりやすい。
表示やリサイズへの対応がうまく行かない事も多いけど。
ない場合、activeXにもAPIフックは可能なので
たぶん使われてるだろうwininet系のAPIを乗っ取ってエラー監視すればおそらくいける
APIをフックする方法はインサイドwindowsなどを参照
まあそれよりもしプロキシを設定できるなら
透過的に監視するプロキシ機能を持たせてselfをプロキシ設定したほうが楽かな ああ、ページごとカメラから読み込んでてリロードしてもいいなら
TWebbrowserを時々リロードしてOnNavigateErrorイベントで結果を見たらいいのかな? ActiveX(ocx)の取り込みはできました
カメラ側のhtmlとActiveXのプロパティとイベント見ながらがんばってみます
プロキシはIndy10入れたらできそうかな
でもTWebbrowserでIEとして表示すると全ての通信がでプロキシを通過しそう ソフト作って、販売せず社内で使うのは問題ないのか? タダ? 大した価格じゃ無いんだから、有料版を使ったらと思う。 今時ActiveXってセキュリティ的に問題有ると思われます たけぇ
Delphi 11 11月30日までの旧価格(税別) 12月1日からの新価格(税別)
Delphi 11 Professional(保守1年付き) \187,000 \206,000 急激な為替レートの変動に対応しつつって絶対円高になっても価格は戻さないだろうな >>599
Delphi2.0 は3万円ぐらいだった。 TurboPascal は12800円位だったはず、マニュアル本のおまけでFD付いてた。それを考えると高い。 >>599
まぁこの手の言語ソフトを趣味の一般人に売るなら数万円クラスだけどもう一般に売る事は考えないで業務用しか考えてないんだろうな、って価格
Community Editionがいまだに無料提供されているのが不思議なくらい Delphiはコードが綺麗だよな。
念仏のようなコードを書く、Visualなんとかはビックリするわ Delphi6 Personalもなんかの書籍の付録にCDでついてたの買ったな、あれにはお世話になった ジェネリックコンテナこねくり回してみたいな処理書くとDelphiの古臭さが際立つな
インスタンス管理の煩雑さやらイテレータの貧弱さやら匿名メソッドでfunction begin end書かなきゃならない冗長さやら 偉そうに言うやつほど実用アプリを作る腕はない、MVPみたいなもん リモートDBが制限されて、追加パックもなくなったのでpro継続するの辞めたな Community Editionが無料提供されてるのはVisual Studioがそれをやってるからだ
だからもし、MSがVisual Studioの無料を止めたらDelphiも止めるのだろう
つまりMS次第ということだ >>614
まあMSが無料版を出すのはOS開発企業として当然だよな
GoogleだってAppleだってやっるし
だからMSが無料提供を止めるとは考えられない
だけどDelphiを無料提供してるのは全く別だと思うし
いつ止めても不思議じゃない
てかCE使ってる自分にはそれが一番怖い 有料提供になったら個人で使う人がいなくなる
個人で使われない開発ソフトが仕事上で使われるわけがない
結果売り上げがさらに落ちる
不慣れな環境より慣れた環境を作り出すための無料版 Community EditionでLinuxもできたら使うのに >>619
一番高いEnterpriseでしか出来ない >>617
DelphiでないといけないからDelphiを選んでるはずなので有料提供になってもいなくならないと思う
すでに選択肢は用意されてる中でわざわざDelphi選んでるんだし >>622
DelphiみたいにUIが簡単に作れる処理系て他にある?
百歩譲ってWindows限定でもいいけどさ >>624-625
そんな便利な処理系は他にない、または低能なお前には答えられない、てことで桶? スレ汚しごめんな
95年あたりにDelphi買ったなあ
最初は16bitアプリしか作れなかったんだよな
そのあとアップデートのたびに数万円出してた
今となれば…
どうすればボーランドに勝ち目はあったのですか? >>629
開発者を引き抜かれないようにすれば良かった 昔はアップデートの度に分厚いマニュアルセットが送られてきてそれだけでもうれしかった思い出
Visual Studioも.netライブラリのクラスの継承関係を書いたでかいポスターがついてた
そんなもんいらねえよw Delphiは一時期.NET版だしてたけど
あれを続けてたらわんちゃn・・・ないか 個人プログラマも視野に入れてコミュニティを見守って
モバイル開発もVCL完全互換にしていればユーザー離れは最小限に食い止められたし
新規もそれなりに獲得出来たと思う まず根本のwindows版がきちんとしてないと
わざわざこれでマルチ環境の開発をしようなんて気にならないし
個人が作りたくなるのって自環境に密着した身の回りのツールだったりするわけで、
ボトムアップで広まった言語でネイティブ軽視したのは自殺に等しかったな
真面目にSDKのコンバートとかをやらなかったりやっても最初だけで
その後のアップデートにまともに対応しない名ばかり状態だったりなのが本当にダメ
そこがきちんとしてればコンポーネント化のような部分は
エンバカやコードギアがやらなくてもユーザサイドが動いただろうに 結局DelphiみたいにUIが簡単に作れる処理系て他にないんだな… 死体に鞭打つのは感心せんぞ
どうしてもVisual Studioと言わせてDelphiに鞭打ちたいんだろうが え?Visual StudioてDelphiみたいにUIが簡単に作れる処理系なん? >>639
Delphi の宿題なんかあるのかと思ったらパイソンやんけ。 Delphiとか新規ではありえないでしよw
公式が事前に発表ありで何かのライブしても
30人以下しか閲覧されないのにw .NET続けてたら、.自然とクロスプラットフォームになってたかもしれんが
それまでに完全に潰れてたかもね >>646
Delphiの宿題なんて最盛期でもあったか怪しい AtCoderの使用可能言語にPascalはあるのにDelphiがないのは許可が下りなかったのか
AWKやBrainfuckがあるのをみつけてさすがにBrainfuckで提出するやつはいないだろうと思ったら普通にいたわ
しかもインデントやコメントがついてるところを見ると手書きらしい
狂ってるな Windows11 22H2 IME切り替えで落ちる件、KB5020044 で直ったようだな。 もう新規案件で採用されることもないし
ほそぼそと生きながらえていくだけだろうしな 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は迷走を続け顧客を減らして今に至る MSに売却すれば、メジャーソフトになっていたのにな 言語の IDE を売るというのは一昔前のビジネスモデル
当時は色々なのが有ったが、どれも廃れていった Delphiが3.0で32ビット開発可能になって5.0まで来たときは自作コンポーネントの作りやすさからDelphiの時代が来るかと思ったら完全に失速したよな UIコンポーネントと統合IDEによるRADが間違ってるとは今でも思えないけど
メジャー言語になるのに必要なマルチプラットフォーム化にも標準化にも障害だもんな
1社でやれる範囲なんて知れてて、MSでさえC#の現状までなわけで >>668
見返したら統合IDEって言葉は変だな
IDEか統合開発環境だな >>667
32bit化は Delphi2 じゃなかったっけ 自分の記憶だとDelphi2は英語版しかなかったような >>673
インサイドDelphi2.0コンポーネントとか遊ぶDELPHI2.0Jって本持ってるから普通に日本語版あったと思うよ
多分何処かにCDもしまってる まだVisual StudioのCommunityが無かった頃はDelphiはいい勝負してたんだっけ? >>676
それそれ
string がかなり使いやすくなった覚えがある ロードマップが更新されてないから今回のベータで何をやるのか分からんな 年末に年賀状を印刷していて思い出したが
Delphi1の頃にボーランドの中の人(たぶん大野さん)が公開した
ハガキ宛名印刷用プレビュー画面のサンプルコード、
郵便番号のケタが増えたとこだけ手を入れて今でも使ってるわ。 11.3 Beta出てた
一応ベータテストみたいなことはしてるんだね
自分の作り方じゃハマることはないけど... TWebBrowserが古くて使い物にならなくなったので
代わりにTEdgeBrowserを使おうと思ったのだが
表示されているHTMLのソースやリンクリストを収得する方法が分からない
ヘルプにはTWebBrowserと互換性があるようなことが書いてあるが
実際には全く互換性がなく、TEdgeBrowserの情報が少なすぎて困っている >>682
TEdgeBrowserでのhtml取得の仕方
スクリプトを実行します。
EdgeBrowser1.ExecuteScript('encodeURI(document.documentElement.outerHTML)');
イベントが発生します。
procedure TEdgeViewForm.EdgeBrowser1ExecuteScript(Sender: TCustomEdgeBrowser;
AResult: HRESULT; const AResultObjectAsJson: string);
AResultObjectAsJsonにhtmlが入ります。
ヒントになればいいのですが >>685
たけぇーよ
Delphi 6 Pro 6万8000円 Delphi 6 Personal 4800円だったのに CEで開発中のアプリで、Google push (FCM) メッセージを
WindowsからAndroid にプッシュする部分があるんだけど
Android 9では正常に受信できてるのにAndroid 12では受信できないことに気づいた
色々調べたらAndroid 12から実装が少し変わったらしい
ちなみに Delphi 11の無料体験版でビルドしたら正常に受信できた
そこで質問なんだけど
CE でなく11の無料体験版でビルドしたアプリは個人使用はOK?
さらにフリーで配布するのは? >>688
https://www.embarcadero.com/jp/try-rad-now#trial
に、
RAD Studioの30日トライアル版をダウンロードすれば、Delphi / C++Builderのすべての機能を30日間試用することができます。トライアル版の試用が終了したら、正規のライセンスを購入して開発を続けることができます。
とあるし、考えるまでもなくダメだと思うぞ。
諦めてライセンス購入なされ。 >>689
その30日間に何をしたらダメなのか?ハッキリ規定してあるかな?
ビルドした成果物は試用期間中に使っちゃダメなの?フリーで配布したらダメなの? トライアル版で作成したことを明記して、フリーで配布してみる >>693
してみるの?してるの?しろと言ってるの?どれ? ちょっと教えて
呼ばれた関数内で自身がメインスレッドで実行されてるか
またはワーカスレッド内で実行されてるかを識別する簡単な方法ってある? スレッドのIDをMainThreadIDと比べたらいいんじゃね? スレッドのIDをMainThreadIDと比べたらいいんじゃね? なるほど
Windows だと getcurrentthreaid か >>701
メインスレッドIDは、System.pasで定義されるMainThreadID
実行中のスレッドIDは、TThreadクラスから
TThread.CurrentThread.ThreadID
で取ればクロスプラットホームでもいけるんじゃないかな? >>702
If System.MainThreadID = TThread.CurrentThread.ThreadID then
でチェックできるね
ありがとう Winny C++Builder と、おーむが Paradox 使っていた話は、
関係者は墓までもっていくことになっておる。 新しい Community Edition まだーーーーー? 11.3インストールしてみたけどWin64ビルドしてIDE上で実行しようとすると
「プロセスが生成できません」と出て実行できん。 32bitビルドでは大丈夫。
ビルドしたものはIDE上でなければどちらも動作する。
俺みたいなライトユーザーが使って初日で見つかる不具合とか相変わらずの
品質管理だな >>707
フォルダ名に日本語使うだけでエラー出るとかそんなレベルよ ライトユーザーを名乗る初心者はこっちの想像もつかないことをして文句言うから鵜呑みにはできん ↑ほんこれ
エンバカはこういう奴にやられて現在に至る KeyPatch使ってるに決まってるじゃん
そんなこともわからない馬鹿なの? 11.3が出たってことは
秋に12といっしょにCEが出る
。。。とかだったらいいけど arm Windowsアプリは、VCLで対応してほしい VCLがARM対応になれば、シャープの電子手帳(Win CE)の
アプリを簡単に作れるようになるのかな?
そうなれば面白いのだが MS ですら Arm32 は見捨てたから、Win CE は無理だべ 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;
昔からだっけ?
>>720
ありがとう
最新のフリー(community edition)のdelphi入れてみたら色々変わってて戸惑ったわ
delphi5まではよく使ってたんだけどね
exceptに変えてその中でResult=Falseにすればいけるけど、
finally使う場合にいい方法ある? >>721
ワーニングの出る Result := False; という行は削除して
単純に Result := IntToStr(10 div iTest); じゃダメか?
>>722
>>719のファンクションはテスト用で
実際は予想されるエラーが複数あるのです
しかも>>719を実際動かしてみると
if test() then
showMessage('True')
else
showMessage('False'); // ←このメッセージが表示されない >>721
そもそもその警告自体がお節介だから、わかっているところは警告無効にすればいいのでは?
それか、そういう目的のコード書くなら
try
try
except
finally
な感じで囲うべきじゃないかと思うけど >>723
except で受けてないんだから例外はTApplication::Runまで出るでしょ
TForm1.Test で例外出したくないならなおさら
try
except
で捕捉するべきでは? 例外をプログラムで受け取るみたいな設定なかったっけ 例外発生時に関数の中でキャッチしなければ
Resultを受け取る相手がいないんだから
そもそもどういう動作を期待してるのか分からない
単純に関数の中でエラーが出たか出なかったかを判定してるんだろ
でも>>724が一番オーソドックスかな
面倒だけどネストするのが正解か
ありがとう
結局この形になったです
ヒントも出ないしヨシ
function test():boolean;
begin
try
メモリ確保など
try
処理1
except
result := False; // 失敗1
exit;
end;
try
処理2
except
result := False; // 失敗2
exit;
end;
finally
; // メモリ解放など
end;
Result := True;//成功
end;
end; わざわざexceptを二つに分ける意図はそのコードでは分からないけど
本来キャッチする例外の種類は限定すべきできっと実コードでは想定される例外の違いでexceptを分けたりするんだろうと読み解けば
それで所望の動作にはなる
例外が生成される前提で>>728がしたいなら端からtry exceptしかなく
最初のコードはdelphi5でもコンパイルヒントが出ないだけで思い通りの動作はしない
分からないならtry文について十分な理解ができてないと思うぞ
finallyはブロックの外から見て例外がなかったことにならない
try except finally endという構文が欲しいという話は時々見るな そーいやDelphi7の頃だったと思うけど、
// ここでリソースの確保
try
raise Exception.Create;
finally
// 確保したリソースの解放
end;
って書くと、例外がfinallyに吸い込まれてメソッドの外に送出されないの思い出した。
解決策は一枚関数を挟むことで、例外やtryブロック内をローカル関数に移動させてたなー。
XE5までくると、ちゃんと外に例外を送出してくれるようになってたけど。
>>731さんの仰る通り、サンプル用のコードだったので実際は
エラーの種類で処理を分けるので本来Resultの型はIntegerです
それと10何年ぶりかにコード書いたのでfinallyで例外解除されると勘違いしてましたね
ありがとうございます CEのFMXだけどフォームを最小化してもWindowStateが変化しないな
ヘルプの記述がまったく当てにならん
WindowsのWndProcをフックする方法が出てたけど
タスクバー上のアイコンのクリックで最小化/復元するとメッセージが飛んでこない
VCLのソース見たけど複雑過ぎる twitter apiのv1が5月から使えなくなるから
v2対応してるんだけど何か面倒になってきた
v2自体は簡単なんだけど
画像アップロードのv2化がまだみたいで
その部分はv1使えとか言ってる
急に言い出して、これだけ急がせて
twitter側の準備はできてないとか
なんだかなあ。。。 1年前くらいにtwitter apiを触ったときもそうだった気がした…
作ってないのか >>740
誰でもできそうじゃん
自分でするかChatGPTに頼めよ ChatGPT使ったら教えてくれたぞ
合ってるかは知らないけど ChatGPTは文章適当に生成するだけで内容の保証なんてないよう ChatGPT、ジェネレート中に途中で止まるんだが 何度も何度もChatGPT3.5にダメ出ししてたら↓こんなん返ってきたw
申し訳ありませんが、私はプログラミング言語Delphiの専門家ではありません。
ただし、国土地理院が提供する座標変換ツールを使用して、
座標値から緯度経度を計算する方法を説明することができます。 >>740
これ自分でできないやつがコーディングしてんのマジ?
今更Delphiを勉強しようというやつはいないだろうしベテランがどこで引っかってるのか気になる 似たような文法のだらだら書いてるだけだし自分でできるんじゃねとは思うわ 結局自分でやりました
横着してなんかすいませんでした 横着かい
「なんか」というところから
世の中を舐めてる雰囲気がビシビシ伝わってきて不幸になれと呪っちゃいそうだ これでdelphiで開発したandroid アプリをGoogle play store に登録できるかな?
登録要件はAPI level 33 (android 13) だったよね
Sydneyで作ったのはターゲットバージョンが古すぎて
登録できなかったんだよ。。。 あいかわらずCEじゃlinuxアプリ作れないのか…… 記事見て
デルファイって?あ、あのデルファイか。。
忘れてたわ CE 10系が11系になって、何か画期的に進化したところある? ローカル変数に自動でLつけてくれるか色分けしてくれるプラグインはよ FMX.MEMOで、メモ帳アプリを作って、AndroidでIME入力した時
文字に着く色(変換中の文字の色分けや破線)が、まともに表示出来ない
問題は解消されてるのだろうか? そこが気になる >>769
数日前に11で再ビルトしてインストールした
自作のアプリで調べてみたら
黒い文字のまま実線の下線だった
てか今までこれが普通だと思ってた
話は変わるが、まだSDKをLevel 33に上手くアップデートできなてない
Delphi でGoogleストアに公開してる人っているのかなぁ >>770
レスありがとう
まだ解消されてないってことか
ネイティブなAndroidアプリ(最初からAndroid用に作られたアプリ)の
文字入力だと、変換中に色分け表示されて文節の区切りなどが確認しやすいので
FMX.MEMOみたいに色が付かないと漢字変換がやりにくいんだよなあ Markdownサポートは便利だぞ
document.dprojに.mdファイル突っ込んでおいて
^.で検索かけてぱっと呼び出せるようになる CEが11.3になってやっとgoogle play storeにアプリを登録できた
それにしてもSDKの更新をコマンドラインでって。。。
以前はUIでできなかったっけ?
面倒だからAndroid StudioのSDKを利用したけど あとgoogleへのアプリ申請でaccessibility(ユーザー補助?)の警告が出るなぁ
delphiはネーティブなコントロールほとんど使ってないから
文字が描かれてても OSから見たら ただの図形ってところが問題なんだろうな
とにかくTalkBack なんかで読み上げされないのは何とかならないもんか
今のところ審査結果への直接的な影響はないけど
いつ変わるか分からない もうDelphiでWinアプリ作るやつはいないのか… >>775
Winアプリ作成は、問題なさすぎなのでわ まあモバイルで問題なければデスクトップでも動く
逆は問題が多い しかしモバイルをDelphiで、と言われてもなー
うんこ流すアプリが関の山でわ?w VLC media player の VCLって無いですよね >>782
落ちてるみたいだね
エンバカデロのサイトってしょっちゅう繋がらなかったりログインエラーになったりするから、またかといった感じだけど そんなに顧客が多い訳でも無いのに、いつも重いよね。 あと各所にログインするのにログイン名だったりユーザー名だったりメールアドレスだったりと違うのもなんとかしてほしい Community Editionですが、Delphi 11.3 Alexandria と Delphi 10.4.2 Sydney はどちらがおすすめですか?
11.3 Alexandria はまだバグが多いですか?インストーラーとライセンスは両方あります。 何をしたいかによるのでは?
簡単なWinアプリ作成ならDelphi5あたりでも十分でしょ >>788
まだバグがあるか、って言われても
CEはフィックスされないから聞くだけ無駄じゃない?
どっちがバグが少ないかってなら。。。分からん
モバイルだとSydneyにDelphi ソースの変更が必要なバグがあったから
自分はすぐに11にしたけど
デスクトップ用だと、もう枯れてんじゃないかな? >>788
10.4.2 Sydney と 11.3 Alexandria なら迷わず 11.3 Alexandria 一択でしょ?
11.3 Alexandria は最初に出た 11 よりはバグが少ないはず (だからこそ CE 版になってる)
すでに 10.4.2 Sydney 入れてるならわざわざ 11.3 Alexandria に入れ替える明確なメリットは少ないと思うけど… D6 使ってます
Windows 11/10 の Windows API で 位置情報 Location API に
(1) 位置座標 String (又は Float?) で渡す
(2) Location が使用可能な状態か?のリクエストと戻り値の取得
等のサンプルになるコードどこかにありませんか?
用途はGPSレシーバーからシリアル通信で受け取るちょっと昔?の形式の値を
アプリ利用に今の Windowsのシステムな形式に送り出せるようにしたい。
サンプル座標例: GoogleMAP 形式
東京スカイツリー: 35.71008962974262, 139.8107045814865
お願いします Delphiに堪能な諸氏に質問です
環境はDelphi7 Pro
PCの更新で新規に同じOS同じAdmin名でインストールの後
旧PCのProgram files\Borland\Delphi7をコピペで移動させました
起動と簡単なコンパイルには成功したのですが追加されて入っていたコンポーネントがツールバーにいません
追加コンポーネントを利用したソースではやはりコンパイルは失敗します。
他に移動させる追加コンポーネントが反映できるファイルはどこにあるものなんでしょうか? 経緯とやったこと
古いIntel CPU PCのマザボコンデンサが破裂して液飛散
OSブルースクリーンと拡張カード巻き込んでマザボクラッシュ
保存バックアップからSSDにOSリカバリ
それより新し目(Intel CPU PC)に入れてドライバ当てて使おうとしたがチップセットなど違いすぎてブルースクリーン再起動で進展しない
新規で同じOS同じAdmin名でインストール
Delphi7をコピペで移動、起動と簡単なコンパイルには成功
追加コンポーネントがツールバーにいない新規インストールしたデフォルト状態だったことがわかる
必須のコンポーネントのインストール元がどれか分からないからやはり旧環境から移植したい←今ココ
知恵おねがい
レスがあっても返答は遅れると思います レジストリ関連も弄られていると思うんだけどな
ファイルのコピペだとレジストリは新規インストール状態のままだから整合性が崩れる
>追加されて入っていたコンポーネントがツールバーにいません
後から入れたコンポーネントは新規インストールのレジストリに未登録だから表示されないのも当然だろう
うちはBCB5なんで7のことは分からないけど、5のレジストリには以下の登録がある
\SOFTWARE\Borland\C++Builder\5.0\Known Packages
\SOFTWARE\Borland\C++Builder\5.0\Known IDE Packages
コンポーネントパレットのカテゴリはだいたいここに登録されているみたいね
\SOFTWARE\Borland\C++Builder\5.0\Palette
あとはもう試してみるほかないと思うけど試した結果どうなっても責任は取らんよ
レジストリ操作は自己責任 追加されて入っていたコンポーネントのソースがあるなら
もう一度「コンポーネントのインストール」すれば良いんじゃね? 10年ほど前にやったことある
新環境に Delphi 7 をインスト
コンポーネント関係の参照フォルダを コピー
レジストリを 旧環境から書き出し 新環境に読み込み (必須)
なんとかして 旧環境の レジストリを 読まなきゃ だね 記憶があやふやですまんけど自分もDelphi5の時に似たような現象になったけど
それは古めのDelphiをインストールした場合はレジストリがCurrentUserみたいなインストールユーザーにしか作成されなかったせいだったはず
今回はAdminでインストールしたみたいなこと言ってるけど使いたいユーザーは別でそこのコンポーネントパレットが表示されないんだったら
いったんアンインストールして
・使いたいユーザーに管理者権限与える
・インストールは使いたいユーザーでやる
にしたらコンポーネントとか表示されると思う 自分はSaveSetというアプリごとのレジストリ書き出しソフトを使っている
Win2000→XP→Win7→Win10と、ずっとこのソフトでDelphi環境を再現出来ている
https://www.vector.co.jp/soft/win95/util/se107331.html
これ これはアプリごとにどのレジストリを吸い出すとかの定義があるわけ?
まあこの手のソフトはもう入れるつもりはないんだが そこまで時間かけて悩んでるくらいだったら
Delphi7再インストールしてコンポーネントもインストールしたほうが
早いと思うんだけど
それができない理由があるとか? >必須のコンポーネントのインストール元がどれか分からないからやはり旧環境から移植したい←今ココ 796です
皆さんレスありがとう!
現状の経過を書くと
A案: 追加コンポーネントを当ててインストールをがんばる
B案: 破裂コンデンサを交換してWin起動させてレジストリを抜けるか試す
C案: 中古かオークションで同型番PCを買う
週明けからA案を誰かが試行錯誤でやりつつB案の並行でコンデンサを購入してチャレンジとなりました
B案は望み薄いのでC案用に探すことも並行で行う。
ただまぁA案はコンポーネントのバージョン違いでもうまくいかない組み合わせが多々あったということなので私には無理過ぎ
新しいバージョンのコンポーネントに気付いても
このPCの追加コンポーネント入れ替えは厳禁!他のPCで試せ!適時バックアップ!が申し送り事項
さすがにPCのコンデンサが破裂するまでの長期間あるのは想定外だったろう
みんな真面目というか弄って環境壊して責任取らされたくなかっただけだけど
いつまで使ってんだ!と草葉の陰であきれてるだろうね、不況が悪いんです
C案でも製造年数から同様の故障懸念と拡張カードの問題で新(古)PCに環境を移植させねばいけない
古過ぎて無いんじゃないかな
結果を書けるのは来週以降ですかね
>>803
紹介ありがとう
でも繋いだ別PCのHDD/SSD内OSのレジストリをレスキュー書き出しできるものじゃないですね
移植までいければ外部フリーツール導入はできなくても
これからはレジストリ内容も地道にバックアップ必要ですね 796です
結果を先に書くとB案で起動は成功して抜き出し移植成功しました!
拡張カードとPCIスロットにエラーが出る不安定故障PCは念のため1~2年保管後破棄に決定です。
レジストリの入れ替えで
エクスポートでフォルダを選んで[・すべて] にして保存したファイルはサブフォルダを含んだそのフォルダデータじゃなく
レジストリ全体なのに気が付かず失敗して頭を抱えながらOS復元作業を数度やり直しました。
皆さんレスありがとう! Borland Delphi 7 Pro 環境移行の覚書
新PCに旧PCと同じAdmin名でOSとD7をインストール
そのままでは認証状態にならないので
旧PCから以下のフォルダ内ファイルをコピーで上書き
C:\Program Files\Borland\Delphi7
C:\Documents and Settings\[UserName]\.borland
C:\WINDOWS\system32\ibevnt70.*
C:\WINDOWS\system32\ibxpress70.*
C:\WINDOWS\System32\rtl70.*
上の2つ目が曲者で ドット付きborlandのフォルダはそのままコピペ(フォルダ作成)できない。
このフォルダにオンライン認証済みの使用許諾ファイルが入っている。
旧PC レジストリエディタ内容の移動で追加コンポーネントが反映する。
次のキーのフォルダを選択して[エクスポート] でファイル保存する。
HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Known Packages
HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Palette
作成したレジストリファイルを新PCでインポートする。
Known Packages.reg
Palette.reg
レジストリエディタを終了してOSを再起動
追加コンポーネント等が認識しているかDelphi を起動させて確認する。認識していれば成功! >必須のコンポーネントのインストール元がどれか分からないからやはり旧環境から移植したい←今ココ Delphi CE起動時にDefault.Personality is not supported エラーが時々出てたけど
今日はダイアログを閉じれなくなって
タスクマネージャからDelphiを終了させる羽目になった
これって対処法はあるの? Delphi 11 のオフラインヘルプ11.2以降のやつは code sampleをクリックしたときの外部参照が
https://docwiki.embarcadero.com/CodeExamples/Alexandria/en/~; じゃないといけないのに
https://docwiki.embarcadero.com/CodeExamples/Update/en/~; ににってて、Not Foundになるのって
誰も気づいてないのかな 11.3のヘルプも同様なんで 11.0のヘルプ入れて使用している >>685
高えーよ
TurboPascal V1.2は亜土電子で8800円だよ。 >>812
正規品でもインストール回数に制限かけるとかアナウンスなかった? あらゆる応対で「頑なにインストールを避ける理由」だけは常にスルー インストールはまぁいいんだけど、マイナーアップデートでも第三者コンポーネントや自作コンポーネントを
再インストールしないといけないのは何とかして欲しいところ
スタイルなんかも再登録だしな データベース関連の機能は一切いらないから、9800円くらいで永続的に使える版出して欲しい
コミュ版は、いつまでも使える保証がないから、結局古い版と併用しなければならないから不便だ AccessからDB機能いらんからVBAだけ取り出して売ってくれって言ってるみたいだな >>821
マイナーアプデどころか1年たって期限切れて同じバージョンのCE入れ直しでもそうだから面倒くさい >>822
自分はCEしか使わないから期限延長がされないとか結構怖い
ただSydney CEが幸い無期限だから
アンインストールせずにこれを死守 >>824
以前はCDイメージからのインストールの場合は上書きインストールできてたんだけど
今はWebインストーラーと同じになっちゃったしね >>823
アクセスはデータベースソフトそのものだから、その例えは違うだろボケ そんなに不安なら Lasarus 使えばいいんじゃないの? ご存じの方 教えてください
必要に駆られ 20年ぶりに Delphiを 触ってます EX3 です
昔のソースを 編集したいのですが Const へ 代入してるところが
エラーになります
Delphi7 のとき コンパイルオプションで 許可できた記憶が うっすらあるのですが
EX3 では どの辺の オプションか 想像でかまいません お願いします 解決しました
プロジェクトのオプションから [Delphiコンパイラ]-[コンパイル]-[割り当て可能な型付き定数]
の設定でしたぁ なんか最新バージョン使わない人が多いのか?
CEの規約に抵触してて使えないってことかな むしろ最新バージョンを使えるような恵まれた人はDelphiを使わないのでは? 10.4はTEdgeBrowserが実に有り難かった
ただ11の有り難みはよくわからん >>833
Windowsアプリ作るなら殆ど変わらん
Androidアプリあたりだとメリットあるのかもね >>833
FMXは11からやっとEdgeベースのが使える
この恩恵は大きい
あとFMXのTWebBrowserが更新されてJavaScript側からプラットフォームに関係なく
安定してDelphi呼べるから助かってる GooglePlayストアで公開されてるものの中で
Delphiで作られた有名Androidアプリって何? >>836
有名じゃないのならオレのがある
オープンテストのまま放置だけど なるほど、Delphiで作られた有名Androidアプリは無いのか… そもそもDelphiで作りました!ってわざわざ言わないから分からないんじゃない? 開発が続けられてるWindowsアプリですらもう数えるほどしか残ってないんじゃないの? てすてす、ここはどこなの?5chなの?Talkなの? お前らJaneの開発再開しろよ
こんなところでハッタショ丸出しでゴミレス撒いてるより10万倍役に立つぞ 今時windowsアプリ作ってもどうしようもないでしょ
Janeのソースからモバイルアプリ作んの無駄が多すぎる >>851
もう別言語で一通り実装したんだけど
ユーザー側の態度が昔と全然違って公開する意味ないなーってのが正直なところ
Delphi6の頃は楽しかったな
>>853
そういう事じゃないんだよ
昔はお互いに切磋琢磨したからこそ使いやすくなっていった
そもそもJaneはオープンソースでフォークしてなんぼの世界でしょ
あんまり言いたくないけどJaneの源流になったアプリ作ってるやつがまだ常駐しとるのに言葉使いに気をつけろよ >>857
昔はギブアンドテイクがそこそこ機能してたよな >>853のレスで言葉遣い気をつけろとかこわっw
古参気取りでマウントとるやつとかまだいるんだなぁw
山下と同じ匂いがするぜぇ なんで「JaneXenoじゃ駄目なの?」が「言葉使いに気をつけろ」と叱られるのか?
確かに意味わからんな?なぁぜなぁぜ? delphi と同じでみんな爺さんになって
過去の遺産に必死にしがみついてんだろう Delphi11 Pro \ 210,760(税込)ってずいぶん高くなったもんだな
半額くらいじゃないと新規で買おうとは思わんな
それかDB接続の制限をなくすとか
Delphi6は68,000円で、VSからの乗り換えキャンペーンで48,000円で売ったりしてたのにな それが高いとしか思えない稼ぎしかできないからだって向こうは思ってるから嫌なら使うなでしょ 今のエンバカはカネ払ってくれる馬鹿たちだけがお得意様
そいつらからカネを搾り取れるだけ搾り取ろうとしてるだけ >>864
ソフトで食ってる人たちはEnt.買うでしょ
Proじゃローカルデータベースしか扱えないんだから 最近ソースが公開されたソフトを見ながら勉強してる初心者だけど
そのままモバイルアプリが出来るのはいいなぁ
ソースコードは何とか理解出来そうだけど
Styleってのがイマイチ分からない
どうもOSごとに設定してるみたいなんだけど
どこをどう変更してるのかさっぱり分からない Pro買って DB接続は コンポーネント買えば良い~ 今のエンバカはカネ払ってくれる馬鹿たちだけがお得意様
そいつらからカネを搾り取れるだけ搾り取ろうとしてるだけ >>871
バカってところがバイアスかかってるが
金払ってるヤツがお得意様ってのは当然だ
金払ってるヤツはバカだってことを言いたいだけだろ
他人が何に金払おうがアンタがとやかく言う筋合いはないよ スレタイも読めずにレスバしたり雑談したりする奴しか集まってない場所なんだからお察しだろw >>0868
新たなメールアドレスでユーザー登録をしてみては? 今のエンバカはカネ払ってくれる馬鹿たちだけがお得意様
そいつらからカネを搾り取れるだけ搾り取ろうとしてるだけ Delphiのヘルプがうまく使えません。項目がヒットしてもろくな説明文がありません。
コミュニティエディションだからでしょうか?有料版のヘルプは充実していますか? 20万円だと1人しか買わないソフトでも、2万円にすれば15人くらいが買うだろうし
1万円にすれば40人くらい買いそうな気がするんだけどなあ 無料版は先々まで使える保証がないから完全移行出来ないんだよ
素人プログラマであっても、構築したライブラリが使えなくなったら困るから
だから旧版と併用しなければならない これが不便で仕方がない >>876
誰もレスしないから言うけど
ちゃんとヘルプをインストールしてれば違いはないよ
ただ確かに説明がないのがある
webのリファレンスも同じなんで
ユーザーにあまりの使って欲しくない項目かな
どうしても使い方が知りたいんだったら
右クリックで一番上の「...検索」をクリックして
ソースを読めばいいんじゃない?
てかヘルプよりソースのほうが分かりやすい場合もあるな >>878
CE版は1年ごとにバージョンアップを強いられてその度に環境の再設定をしないといけないからなぁ ヘルプはDelphi6や7の頃のが使いやすかったな
いまのヘルプは関数のパラメータの列挙型の指定値なんかも、その関数の説明からジャンプできなかったりとか、
プロパティの説明も名前だけしか記載されてなくて具体的な説明がなかったりとか使い勝手が悪い
そらに11.3のローカルヘルプはコードサンプルの外部参照のリンクが間違っててWebの参照ができない
だから俺は前にも書いたように11.0のヘルプファイルを使ってる Delphi 6 Personal懐かしいな、久々に使ってみたくなったまだ使えるのかな >>879
その「構築したライブラリが使えなくなったら困るから
旧版と併用しなければならない」という理屈がよくわからない さっきWindows Updateしてたぶん先週分のを適用したらValueListEditorが機能しなくなったんだけど何か対策あるだろうか? 書き忘れ
環境はDelphi 11.3 CEで、OSはWindows10 22H2 @ビルド構成がリリースだとEXEファイルが生成できない
AプラットフォームがWindows 64bitだとブレークポイントが機能しない
上の2つの症状に結構悩まされたけど原因は日本語のフォルダ名だったのね
なんで「リリース」で不具合起こすのに「Release」から変えちゃったのか謎だけどオプションでコンパイラの出力ディレクトリをReleaseにしたら@は回避できた
Aは日本語フォルダも日本語プロジェクト名もダメってことなので直したけどブレークポイントは機能しなかった >>888
プロジェクトファイルに複数のexe出力先が記載される不具合があって
意図しない場所に生成される上、デバッガがそれを認識できず
ブレークポイントが機能しない事があるわ
プロジェクトファイル(xml)を直接開いて、不要な記述消してる >>0888
各モード毎に.dcuや.exeを別のフォルダに出力するように設定すべきでは?
手順
「プロジェクト」→「オプション」で「ビルド」→「Delphiコンパイラ」をクリック
「ターゲット(T)」で「すべての構成 - すべてのプラットフォーム」を選択し
「ユニットの出力ディレクトリ」と「出力ディレクトリ」を
.\$(Platform)\$(Config) に設定して「保存」をクリック >>890
もちろんやってるというかデフォ設定がそれで、その状態で>>888だったのでどう回避しようって話をしてたところ Delphiに限らず一般論として、日本語のフォルダ名は絶対使っちゃダメだよね、ふつー 今時2バイトコード文字に対応してるのは常識だから
Delphi側に問題があると思うんだが 馬鹿の頭の中では日本と言えば2バイトコード文字で止まっているのか >>894
何も知らないなら何も言わないほうが良いぞ
馬鹿がバレるから >>894
何も知らないなら何も言わないほうが良いぞ
馬鹿がバレるから >>896
悔しさだけでコメントしたら手が震えて二重投稿してしまった馬鹿 リクルート、4月から週休約3日に
‐理由を問わないリモートワークも全社に導入
リクルートは3月18日、2021年4月1日より国内の社員約1.6万人(直接雇用)
を対象に、新しい働き方を支える人事制度を導入すると発表した。
年間所定労働時間や給与は変えず取得日を自由に決められる休日を増やし、
週休約3日を実現する。
また、同社が2015年より一部の組織で導入を進めている、理由・回数を問わない
リモートワークを、一部の職種を除き、全社に導入するとしている。
具体的には、暦上の休日や有給休暇とは別に、取得する日を自分で決められる
年間休日を増やし、合計で145日とする。年間平均では週休2.8日だ。 Delphiのデフォ設定のフォルダ名が「リリース」と「デバッグ」って日本語フォルダ名だからな
正直エンバカデロの開発者はどうかしてるとしか >>900
俺の環境では普通にReleaseとDebugになってるけどな
無指定(デフォ)の場合も $(Config)と指定した場合も
Delphi11.3 Proと community Editionインストールしたのと
二つの環境があるけどどちらも同じ うちの11.3CEでは.\$(Platform)\$(Config)で指定するとリリースとデバッグになるな Delphiの学び方、教えて。おすすめ参考書とか、動画とか。
当方、初心者です。自分用のツールを作りたいと思っている状況。
Pythonとか、ちょっとさわったことはあります。 助けて、教えて系で始まる書き込み
そしてこんなところで調べりゃわかることを聞く頭
そして今さらDelphiを学ぼうとする判断力の無さ
無理だろ ちょっと触ったっていうのと作りたいツールがどの程度かしらんけど
「Delphi」でつべ・通販サイト・googleで検索してヒットした書籍やサイトを買いあさる、読みあさる
お金を出して講習会に参加する
ぐらいでは
今ならDelphiなんてやるよりC#とかやったほうがずっとましだと思う delphi入門か
pythonでもGUIできるのにめずらしい
囲まなきゃ 遙か昔に買った書籍を引っ張り出してきていらないものを処分している。
日経のTurbo Delphiのムック出てきたけど、これが尼マーケットプレイスで法外な値段がついている。
現物見てもそんな価値あるかなって感じ。 >>910
アマゾンの価格は参考にならない
アマゾン(プライム)で20食入り3000円ほどでサトウのごはん売っているけど
マケプレでは18食入りが1万円で売られていたりする >>910
法外な値段はいくらでも付けられる。問題はその値段で売れるかどうか? Delphiパーソナルプログラミング 単行本 – 2002/5/1 掌田 津耶乃 (著)
これが1500円からというのはわかる。常識的だろう。
C#Builderではじめる.NETプログラミング入門 単行本 – 2003/12/6 掌田 津耶乃 (著)
がこれの5000円は怪しい。
ちなみに別のジャンルの手持ちの本。あるゲームソフトをゲームブック化したものだが、
これは当時無名だったイラストレーターが表紙や挿絵を描いていたのが、
絶版後に一躍メジャーになったことでプレミアがついている。 書籍も満足に出てないような言語をツール作りたいからと今さらやろうとするのは時間の無駄だと思うけどな
にコンポーネントとかの作りやすさとかは評価できるんだが
それでも今から覚えようとするならC#を勧めるわ 正直文法覚えればどの言語だってたいして変わらんからね
いまからWindows用のプログラミングはじめるならSDKとかライブラリが充実してるMSのVisualStudioとかのほうがいいんじゃね
あれも無料のCommunity版あるし使ってる人多いから参考になるサイトも多い
Delphiは昔から慣れてて使いやすい&CE版が無料だからまだ使ってるって面が他分にあるけどいまから始めるのはかなりハードル高いと思う
まともな参考サイトとしてはMrXRAY氏のところがあるからまだマシだけど MrXRAY氏は怖い、初心者相手にすぐ怒るイメージがある 本が欲しい人と金が欲しい人の戦いに水を差すのは野暮ってもの 今から始めるのはおすすめしない
いまDelphiやってる爺さん達が死に絶えた時点で
Delphiも終わる
オレが今もやってるのは惰性と
モバイルアプリを同時に作れること
ただfmxやるにはネット上の英語が読めることが前提 昔は書籍もそこそこ出てたし Niftyのフォーラムなどで質問しても謎全氏やOh No! 氏をはじめとする
親切な人たちがいろいろと教えてくれたし、フリーのコンポーネントも多く出てたからなぁ
今では初心者が質問できるような場所もないし、国内のDelphi関連のWebページも少なくなった
英語サイトもかなり減ってて、ロシアや中国のサイトまで探さないといけなかったりする
Windows用プログラミングでWin API使おうと思っても最近のOSで追加されたAPIのヘッダーファイルが用意されてなくて
VCのヘッダーファイル見ながら自分で変換しなきゃならないこともちょくちょくあったりで余計な手間がかかる
まぁそれでも使い続けてるのは手慣れているのと、何年も前から使い続けているコンポーネント環境があるからだな Delphian Worldみたいな国内向けのVCL登録サイトもなくなっちゃったしなぁ >>905
原書の英語版なら無料で手に入れることが出来るけど翻訳版は高い本です。
だけど文法?仕様?を学習したいなら
「OBJECT PASCAL HANDBOOK」を勧めておく。 過去のWebページもそれなりにあるけど、Googleが古いページを上位に持ってきたがらないからな メーリングリストが廃止になってDiscordに変わった
あれで情報が分散されてさらに使いにくくなった
糞MVPのせいだ、れっきとした人災だと思う 塚越さんの「Delphiオブジェクト指向プログラミング」も入門には最適で
Delphiの基本がよくわかる良書なんだが、もう20年以上前の本で
入手が難しいんだよな。中古本はプレミア価格になってるし >>926
持ってる。内部構造にまで踏み込んだ良書だけど、流石に今は色々変わってるから通用するかなあ…? みなさんいろいろコメントありがとうございます。
まあ、触ってみて面白そうなので、しばらくDelphiやってみようと思います。
本はハンドブックも塚越本も注文してみた。
本は手元にないと落ち着かない人種なので。 助けて、教えて系で始まる書き込み
そしてこんなところで調べりゃわかることを聞く頭
そして今さらDelphiを学ぼうとする判断力の無さ
何もわからない状態なのに止めとけというアドバイスも無視する思い込み
こんな奴には無理だろ コピペするような奴のアドバイスを無視するのは良い判断だ >>929
Pythonでいろいろデータ処理をしているのですが、
データの入力を他人にお願いすることになるので、
その入力補助ツールです。内輪でつかうものなので、
使えればよいと言う程度のものです。
C#もみてみます。 興味をもってもらえたなら嬉しい事
茨の道かもしれないが頑張って 以前、Delphi→C#のマイグレーションの仕事をして感じた事
データベース処理とかはどちらの処理系も大差ない
ミリセカンド単位のリアルタイムに近い処理はDelphiの方が優れている
(CPUネイティブで高速動作、自らのメインループ内で経過時間を計測、Windowsのタイマーに依存しないイベント処理が可能、など…)
またバイトやビットの操作では、細かく大量のデータ処理であればあるほどDelphiの高速性が際立つ、、など
今更Delphi上げをするつもりはないのだが、なんでもかんでものマイグレーションには反対したいところ
といいつつ今はC#で大体開発している今日この頃です 老害しか使いたくない言語なんだから老害が死ぬ前にマイグレーションしておかないとやばいだろw FormにTimerコンポ置いてタイマーのOnTimerでたとえはこんな感じの簡単なループを実行させるとき
procedure TForm1.Timer1Timer(Sender: TObject);
var
I: integer;
begin
Application.ProcessMessages;
Timer1.Enabled := False;
for I := 0 to 10 do begin
Sleep(1000);
Application.ProcessMessages;
Form1.Caption := IntToStr(i);
end;
end;
OnTimer開始時にポップアップメニュー開いてるとそのまま固まってOnTimerの処理が終わるまで操作できなくなるんだけど何故なんだろう?
ループ内でApplication.ProcessMessageしてても回避できない
開始直後さえ抜ければOnTimeでループ実行中にポップアップメニュー開いたり閉じたりは普通にできるんだけど
これ回避する方法って何かないだろうか? >>941
調べずテキトーに書くけどポップアップメニューの処理が
メニューをモーダル表示→ポップアップメニュー専用のメッセージループ→メニュー消去
みたいな連続した流れなんじゃね
これだとメッセージループの途中に別のイベントが入ってきたら
それが終わるまでメニューは消えないし他のUIは働かない
これに限らずUIをフリーズさせずに長時間の処理をするならスレッドがいいんじゃね >>941
Timer1.Enabled := False; してるのはなぜ? 繰り返しじゃなくて x ミリ秒後に一回だけ実行だからだろ >>937
>>Delphi→C#
マイクロソフトに依存してる所はマイグレーション多いね
VB→VB.NETやVB→C#も有る >>942
何かそんな感じでDelphiのメニュー系とモーダルウィンドウはメインのメッセージループから制御を奪う仕様みたいね
どうりでApplication.ProcessMessageしても効果ないわけだ
[ 第7章 メッセージを捕まえる : ローカルフック ] - Halbow 資料館
http://mrxray.on.coocan.jp/Halbow/VCL07.html
>このように、メインのメッセージループから制御を奪うモーダルループやメニューループでは、Application.OnMessage は呼ばれない。TForm.ShowModal の場合は大丈夫であるが。次節では、VCL の実装と全く無関係な Windows のメッセージ捕獲機構であるフック関数を試してみよう。
TForm.ShowModalでは大丈夫って書いてあるけど別Unitで作ったフォームをShowModalで表示させたらポップアップメニュー同様固まってタイマー処理が終わるまで閉じれなかった
OS側で用意されてるShowMessageとかInputBoxなんかのモーダルなダイアログだとこういう事はないのでDelphiのVCL特有の現象なんだろうね C#なんかの.Netソースを参照してDelphiで書くとき
Async/Awaitがよく出てくるけど
Delphiにも同等の機能が欲しい今日この頃
とくにAwaitはDelphiで書くのが難しい
”The Delphi Geek” にAsync/Awaitの実装例があるけど
古いOmniThreadLibraryが前提だから
今でも使えるのかなぁ 他の言語がasync/await実装していったのにDelphiは何してたんだ… Async/Awaitに関連して
DelphiのEventDrivenベースの使い方が時代に合わないのかな え?イベントドリブンってWindowsプログラミングの基本とちゃうん? c++は昔はしんどかったけど、着実にパワーアップして
async、awaitに対応したmodern c++のほうがもう開発しやすい >>950
どういう意味で言ってるのか分からないけど
何でもイベント駆動ってのはちょっと
例えばちょっとTTimer使おうとしても
OnTimerプロシージャ作るのって面倒
ローカル関数の中で
TTimer.Create(Interval,
procedure (var Repeat: boolean)
Repeat := DoSomething(...)
);
とか出来たら便利かも >>953
と書いたけど
これはイベントを直接デストラクタの引数にしただけか 開発にほんと金のかからなそうな機能しか追加しねぇ
くそゴミ製品極まれりって感じだな >>956
エディタ依存じゃない?(タブならタブ、スペースならスペースが入ったまま)
ただバグのもとになりそうで使うの怖いっていいたいけど
Delphi10でうちはエンバカとは手を切ったから使えないけど 再現方法がいまいち不明だけど、for i := 0 って書くとローカル変数宣言に
i : integer;があるにも関わらずi : TObject;が自動で追加されてエラー吐く事があるんだがおま環?
変数宣言に児童追加ってオプションあったっけ?
バージョンは11.3 >>959
for の i を ctrl + クリックするとどこへ連れてかれる? >>960
不定期に出るから次出たときにちょっと確認してみる >>960
元々あった方の
i : integer;
に飛んだ
うーん、自動追加された方の宣言を消せば良いだけではあるんだけど突然現象が発生したらイラっとするなぁ 使ってる人教えて
Delphi11 CEのTEdgeBrowserにはOnKeyDownイベントある? ちょっと教えて
'0'から'9'の数字をUnicodeの数学用特殊文字 $1D7EC から $1D7F5 に変換したいとき
var Ch='1';
var C := Chr($1D7EC + Ord(Ch) - 48);
とかはダメですよね。3バイトのUnicode文字を生成するにはどうしたら?
ちなみに $1D7EC から $1D7F5 を文字列配列定数にしておいて
そこから選んで、例えばMemoに表示するのは問題なくできてます
https://i.imgur.com/4w7mJUy.jpg そこまで範囲が広くないならその文字の配列でも作ってChを数値に変換してインデックスにでも指定すればいいんじゃ Unicode文字コードからUTF16エレメントへの変換くらいCharでできなくても
SysUtilsにない?と思ったけど見つからないな
関数書いてみたけどレスしようとしたらブロックされた >>968
本当?と思って確かめたけどサロゲートペアはCharと同じで無理でしょ レスありがとう
いろいろ探したり試行したりしたらUCS4Stringで可能だった
var St: UCS4String;
SetLength(St, Length(Text) + 1);
i := 0;
for var Ch: Char in Text do begin
if Ch in ['0'..'9'] then
St[i] := UCS4Char(Ord(Ch) - 48 + $1D7EC);
...
Inc(i);
end;
St[i] := 0;
result := UCS4StringToUnicodeString(St);
とか
ただHelpには書かれてなかったけど
UCS4Stringはnullで終端させる必要があるのかなぁ?
少なくともUCS4StringToUnicodeStringで最後の文字が無視される レスありがとう
いろいろ探したり試行したりしたらUCS4Stringで可能だった
var St: UCS4String;
SetLength(St, Length(Text) + 1);
i := 0;
for var Ch: Char in Text do begin
if Ch in ['0'..'9'] then
St[i] := UCS4Char(Ord(Ch) - 48 + $1D7EC);
...
Inc(i);
end;
St[i] := 0;
result := UCS4StringToUnicodeString(St);
とか
ただHelpには書かれてなかったけど
UCS4Stringはnullで終端させる必要があるのかなぁ?
少なくともUCS4StringToUnicodeStringで最後の文字が無視される Pascal文字列以外の文字列型はnull末端のために内部的には文字列長+1文字分確保されるけど、
UCS4Stringは文字列型ではなく動的配列なのでnull末端分を配慮してくれない なるほど
UCS4StringToUnicodeStringのコード見て理解した
ていうか、そこに出てるサロゲートペア文字の文字コードを
2個のWideCharに変換する式だけ抜き出して使えば
UCS4Stringは使う必要がないことに気づいた
emojiを文字コードで処理するときに使えそう 正しかっただろうと言われてもWideCharというヒントだけじゃ分からないよ
function CharCodeToString(Code: DWord): string;
begin
if Code >= $10000 then
result := WideChar((((Code - $00010000) shr 10) and $000003FF) or $D800) +
WideChar(((Code - $00010000) and $000003FF)or $DC00)
else
result := WideChar(Code);
end;
var S := CharCodeToString($1F44D); // 👍 つーかそのソースのWideCharをCharに書き換えても動くはずで
>>976はただの恥の上塗り D6使ってます。
ListView の ViewStyle := vsReport (MultSelect := True) で質問です。
上下用のボタンをそれぞれ配置して1押しで1行入れ替わるというのなら見つけられたのですが
↓こんなのとか
https://forum.lazarus.freepascal.org/index.php?topic=37638.0
Item行が複数ある内の1行(又は複数行)をマウスの左押しSelectedドラッグのでマウス移動のドロップで任意の行に移動挿入させる
分りやすそうなTipsサンプルソースはどこかにありませんか? メンテ続くのか心配になるような寂しすぎる数字だな
CnWizards 1.2.8.1150 Installer (160 times) >>980
ありがとうございます。
参照してみます Delphi12が出たな
とは言えCE使いの自分は早くて1年後か
アイコンジェネレータ(だっけ?)あれはすぐにでも欲しい DelphiはプログラミングAIとは無縁だと思ってたけど
Bingでちょっと検索しようとしたら勝手に回答が得られた
内容はメモのキャレット位置に文字を入力
https://i.imgur.com/o62pxWE.png
単に検索した内容をそれっぽく表示しただけだろうけど Delphi の所 .net に変えても似たようなもんだったけど AIにDelphiのちょっと難しい事聞くとありもしない関数でっちあげて、さも動くような回答してくるぞ Delphi12のヘルプ、Sample Codeとして外部リンクしているやつのURLがおかしいね
TXMLDocumentSaveToFileを例にとると、リンク先が
http://docwiki.embarcadero.com/codeExamples/Yukon/en/TXMLDocumentSaveToFile_(Delphi)
となっててNot Foundになる
Yukon を Athensに書き換えると表示される 円馬鹿のヘルプは表示されても全然意味ねーヘルプだもんなあ
まったく使い物にならないと思う Delphi3ぐらいまでのヘルプはムチャクチャ良かったんだぜ、その頃はMSのヘルプも良かった(ただの思い出話) OpenAIとマイクロソフトの件でアンダースヘルスバーグの事を思い出した ■ 誰も立てないから立てた。さあ語れ。
くだすれDelphi(超初心者用)その60【Embarcadero】
https://mevius.5ch.net/test/read.cgi/tech/1700737330/l50
間違ってる部分や過去に改善部分の指摘があったのなら
1へのアンカー付けて変更部分含めた全文を次回立てる人向け用で分かるように
2以降に申し送り用として貼っておいてください。 このスレッドは1000を超えました。
新しいスレッドを立ててください。
life time: 793日 1時間 39分 12秒 5ちゃんねるの運営はUPLIFT会員の皆さまに支えられています。
運営にご協力お願いいたします。
───────────────────
《UPLIFT会員の主な特典》
★ 5ちゃんねる専用ブラウザからの広告除去
★ 5ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────
会員登録には個人情報は一切必要ありません。
4 USD/mon. から匿名でご購入いただけます。
▼ UPLIFT会員登録はこちら ▼
https://uplift.5ch.net/
▼ UPLIFTログインはこちら ▼
https://uplift.5ch.net/login レス数が1000を超えています。これ以上書き込みはできません。