くだすれ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/04/01(金) 14:56:34.13

変な奴が住み着いてしまったなぁ

**デフォルトの名無しさん** · 2022/04/01(金) 22:15:44.88

>>378
>必ず反応する馬鹿をからかうと楽しい
馬鹿のクセに楽しいかｗ　昼間起きていたらもっと楽しいぞｗ
いいな引きこもりは、こんなのでも楽しいのかｗ

**デフォルトの名無しさん** · 2022/04/01(金) 23:41:46.63

なんかこんな流れの中ですみませんくだすれな質問です
検索ループ中に 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
などとしても同様だったりダイアログ自体出なくなったりと泥沼にはまっています
普通はどのような処理を行うものなのでしょうか？

**デフォルトの名無しさん** · 2022/04/02(土) 00:32:29.84

>>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;

**デフォルトの名無しさん** · 2022/04/02(土) 04:40:50.84

必ず反応する幼稚な馬鹿

**デフォルトの名無しさん** · 2022/04/03(日) 11:54:52.41

>>382
ありがとうございます上手くいきました
Application.ProcessMessages は入れていたのですがフラグと Application.ProcessMessages の位置が
微妙にダメだったようです

**デフォルトの名無しさん** · 2022/04/21(木) 10:35:19.33

Delphi初心者です
将棋を作りたいんですがちんぷんかんぷんです。
コンポーネントはパネルを使いその上でイメージを敷いて動かしたいと考えてます。
何卒お助け下さい…

**デフォルトの名無しさん** · 2022/04/21(木) 12:01:17.95

こうやったけどだめでしたどこに問題がありますか？
ってコードを見せられるようになったらいくらでも聞いて

**デフォルトの名無しさん** · 2022/04/21(木) 21:52:57.74

終わりかけの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;

**デフォルトの名無しさん** · 2022/04/22(金) 02:22:17.50

>>387
おかしいのはこんな所で聞くお前の頭だと思うよ

**デフォルトの名無しさん** · 2022/04/22(金) 17:33:56.83

>>387
その手法を使ったことないから処理には特にコメント無いけど
MSHTMLオブジェクトを扱うならOleInitialize、OleUninitializeが必要じゃないかな。
アプリケーションの開始と終了の時でいいからここに書いてないだけかもしれんけど。
あとマルチスレッドならスレッドごとの開始と終了の時にも。

**デフォルトの名無しさん** · 2022/04/23(土) 15:39:58.73

TEdgeBrowserのスクリーンショットでツマってる
もちろんCapturePreviewでできるんだけど
pngで1秒近く、jpegにしても100msくらい時間がかかるだよ

APIを使ってフォームをキャプチャすると真っ白だし

OBSとか、他のウィンドウの裏にあるフォーム上のTEdgeBrowser画面を
問題なくキャプチャしてるんだよな　どうやってるんだろ

**デフォルトの名無しさん** · 2022/04/23(土) 16:29:12.21

TEdgeBrowserというかEdgeも含めてDirectX描画ウィンドウのキャプチャをするのには、
俺はAPIのPrintWindowをPW_RENDERFULLCONTENTをオプション引数に設定して使ってるな。
もっと洗練された新しいAPIも複数あるようだけどD3Dを扱うのが面倒だし
上ので十分なので俺は使ったことない。

**デフォルトの名無しさん** · 2022/04/23(土) 16:48:48.76

なお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;

**デフォルトの名無しさん** · 2022/04/23(土) 18:22:44.07

>>391,392
素早いレスに感謝

PrintWindowについては、検索してたときMr.XRAYさんのサイトにサンプルがあって
最後の引数を「1」（クライアント領域）にして試してダメだったので諦めてた

「2」で上手くいって、CapturePreviewだと毎秒8回キャプチャが精いっぱいだったのが
毎秒12回くらいにはなった。OBSみたいに毎秒30フレームでキャプチャとか難しそう

**デフォルトの名無しさん** · 2022/04/23(土) 18:33:02.26

https://qiita.com/i_saint/items/ad5b0545873d0cff4604
コピペ

**デフォルトの名無しさん** · 2022/04/23(土) 18:37:33.16

30フレームやりたいなら
Desktop Duplication API
か
ウィンドウ単位なら
Windows Graphics Capture使え

ググれば一発やろ

**デフォルトの名無しさん** · 2022/04/24(日) 15:29:10.35

>>394
そこに出てるC++のコードを見たけど自分にはDelphiに移植できそうにない
それにWindows Graphics CaptureのDelphi実装例が検索でヒットしなかった
ヘッダも見つからなかったし

**デフォルトの名無しさん** · 2022/04/27(水) 18:05:01.26

Desktop Duplication APIなら簡単じゃない？

**デフォルトの名無しさん** · 2022/04/28(木) 08:16:37.60

Delphi XE で WebカメラからPOSTされてくるデータを受け取るようにしたいんですが、
SOAPサーバー/Indy VCL アプリケーション　でプロジェクトを作成して、
TWebModuleのDefaultHandlerAction イベントで Request 引数を処理するだけで良いですか？
（送られて来るのは画像に関するXMLだけで、画像自体は別途ダウンロードします）

**デフォルトの名無しさん** · 2022/04/29(金) 15:26:30.67

>>397
デスクトップ全体でなく指定したウィンドウをキャプチャしたいんで

自分の目的はデスクトップの外にフォームを置いて
その上のTEdgeBrowserでライブ映像を再生し
キャプチャしながら画質補正してPaintBoxに表示するってもの

PringWindow（+PW_RENDERFULLCONTENT）で速度以外は
まったく問題ないんだけどね

今はDirectXのサンプル（デスクトップ全体のはいっぱいある）を探しているのと
Windows Graphics CaptureをC++でDLL化してる例があったんで
何とか利用できないかと（ちなみにFMXアプリ）

**デフォルトの名無しさん** · 2022/04/29(金) 21:45:43.81

最新のDelphi使ってるの??
で、それにヘッダファイル見つからないの??
他のWinRTの移植を真似て自分で移植できない??

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/06(金) 18:46:33.18

スレタイ100回読み直せ

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/06(金) 18:52:53.11

必ず反応する馬鹿がまだいたのか

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/06(金) 21:49:14.33

>>430
うぜぇ…
IP変えるの諦めたんか？ｗ

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/06(金) 22:06:04.18

>>434
うぜぇ…
ID真っ赤にして恥ずかしい奴ww

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/06(金) 22:37:25.38

これさー
同じIDで両方だったら良かったのに
つかユーザーたくさんいるじゃん7,8人くらい？

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/06(金) 23:35:35.26

>>437
ID真っ赤にしてる恥ずかしい奴は1人だよw

>>439
うぜぇ…

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/07(土) 00:15:03.98

日付変わってもやってるのか？
あたま大丈夫か？ｗ

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/07(土) 00:20:22.64

必ず反応する馬鹿だろ

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/13(金) 04:41:08.44

シーシーシー

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**デフォルトの名無しさん** · 2022/05/14(土) 06:23:09.42

　　　　　　＿＿＿
　　　　／´. _, -―-､ヽ、
　　　　/　 l´［☆ｨTfﾍﾏ､ヽ
　　 _.､|　　|　|ィｹﾘﾉ　|ト｝!l|
　　ﾐｼヽ . |　ﾚｧ予　伝yﾘ|'''}
　　　ヽ　ヽ| 《｛_丿　 Lｊﾊj| /
　　　..| ヽ　＼'''　 r‐ｧ｀,ツ/　意味ﾜｶﾝﾈ
　　　｜　.＼　ヽＴ云'I｢j /
　　　｜|　.Ｎヽ　,yｰ弋./
　　　从　|、ﾊ.j'　Ｑ´Y
　　　　｀ヽVﾘ'j　　　｜
　　　　　　　　ﾉ　　　 |

**デフォルトの名無しさん** · 2022/05/14(土) 19:04:42.41

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/14(土) 19:06:58.50

>>459
うぜぇ…

**デフォルトの名無しさん** · 2022/05/14(土) 19:14:52.66

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/14(土) 19:20:28.36

>>461
うぜぇ…

**デフォルトの名無しさん** · 2022/05/14(土) 19:21:33.34

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/14(土) 19:22:37.83

>>463
うぜぇ…

**デフォルトの名無しさん** · 2022/05/14(土) 19:23:11.73

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/15(日) 04:28:36.57

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/15(日) 07:20:24.31

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/15(日) 08:57:07.07

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/16(月) 11:38:05.78

らりるれ、ラリさん今日も元気いっぱいで頑張りましょう

**デフォルトの名無しさん** · 2022/05/16(月) 20:53:02.91

>>465-468
うぜぇ…

**デフォルトの名無しさん** · 2022/05/17(火) 15:39:37.69

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/17(火) 22:46:23.87

>>471
うぜぇ…

**デフォルトの名無しさん** · 2022/05/17(火) 22:47:07.22

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/17(火) 22:47:20.15

>>473
うぜぇ…

**デフォルトの名無しさん** · 2022/05/17(火) 23:56:12.88

自演失敗してるぜぇ

**デフォルトの名無しさん** · 2022/05/18(水) 01:01:05.33

糖質は延々同じ事繰り返して飽きないんだな

**デフォルトの名無しさん** · 2022/05/18(水) 16:36:10.56

Delphiはユーザー層が壊滅してるんだからサンプルのコードも圧倒的に少ないし
とっとと自力で頑張れってこと
それが出来ない馬鹿は使うなってこと

**デフォルトの名無しさん** · 2022/05/18(水) 17:17:25.87

>>477
うぜぇ…