くだすれ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/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
うぜぇ…

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

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

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

>>479
うぜぇ…

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

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

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

>>480
それさー
最低10回はやらないとつまらないんだよね
やっぱ年とると根気無くなるよね

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

https://i.imgur.com/kn9Uxac.png
Delphi 6 Programming Bibleは持ってたな、おそらく実家の押し入れの中にあるはず捨てられてなければ…

**デフォルトの名無しさん** · 2022/05/19(木) 15:32:25.59

>>481
うぜぇ…

**デフォルトの名無しさん** · 2022/05/19(木) 16:28:50.05

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

**デフォルトの名無しさん** · 2022/05/19(木) 20:50:38.98

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

**デフォルトの名無しさん** · 2022/05/19(木) 23:44:52.41

>>485-486
うぜぇ…