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

[1 デフォルトの名無しさん 2021/09/24(金) 11:16:27.40 ID:gP9hkwVT]

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

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

[391 デフォルトの名無しさん 2022/04/23(土) 16:29:12.21 ID:r2Xu9J6g]

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

[392 デフォルトの名無しさん 2022/04/23(土) 16:48:48.76 ID:r2Xu9J6g]

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

[393 デフォルトの名無しさん 2022/04/23(土) 18:22:44.07 ID:rXMWDxdn]

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

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

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

[394 デフォルトの名無しさん 2022/04/23(土) 18:33:02.26 ID:bWDJxvK6]

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

[395 デフォルトの名無しさん 2022/04/23(土) 18:37:33.16 ID:bWDJxvK6]

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

ググれば一発やろ

[396 デフォルトの名無しさん 2022/04/24(日) 15:29:10.35 ID:g1exot/C]

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

[397 デフォルトの名無しさん 2022/04/27(水) 18:05:01.26 ID:xM3+K3n7]

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

[398 デフォルトの名無しさん 2022/04/28(木) 08:16:37.60 ID:vpV6GwZW]

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

[399 デフォルトの名無しさん 2022/04/29(金) 15:26:30.67 ID:8O1MsCOh]

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

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

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

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

[400 デフォルトの名無しさん 2022/04/29(金) 21:45:43.81 ID:OdKoWt8q]

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

[401 あぼーん NG NG]

あぼーん

[402 あぼーん NG NG]

あぼーん

[403 あぼーん NG NG]

あぼーん

[404 あぼーん NG NG]

あぼーん

[405 あぼーん NG NG]

あぼーん

[406 あぼーん NG NG]

あぼーん

[407 あぼーん NG NG]

あぼーん

[408 あぼーん NG NG]

あぼーん

[409 あぼーん NG NG]

あぼーん

[410 あぼーん NG NG]

あぼーん

[411 あぼーん NG NG]

あぼーん

[412 あぼーん NG NG]

あぼーん

[413 あぼーん NG NG]

あぼーん

[414 あぼーん NG NG]

あぼーん

[415 デフォルトの名無しさん 2022/05/06(金) 18:46:33.18 ID:tF+bWotq]

スレタイ100回読み直せ

[416 あぼーん NG NG]

あぼーん

[417 デフォルトの名無しさん 2022/05/06(金) 18:52:53.11 ID:v46ztTqb]

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

[418 あぼーん NG NG]

あぼーん

[419 あぼーん NG NG]

あぼーん

[420 あぼーん NG NG]

あぼーん

[421 あぼーん NG NG]

あぼーん

[422 あぼーん NG NG]

あぼーん

[423 あぼーん NG NG]

あぼーん

[424 あぼーん NG NG]

あぼーん

[425 あぼーん NG NG]

あぼーん

[426 あぼーん NG NG]

あぼーん

[427 あぼーん NG NG]

あぼーん

[428 あぼーん NG NG]

あぼーん

[429 あぼーん NG NG]

あぼーん

[430 あぼーん NG NG]

あぼーん

[431 デフォルトの名無しさん 2022/05/06(金) 21:49:14.33 ID:QzjdfZqR]

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

[432 あぼーん NG NG]

あぼーん

[433 あぼーん NG NG]

あぼーん

[434 あぼーん NG NG]

あぼーん

[435 デフォルトの名無しさん 2022/05/06(金) 22:06:04.18 ID:V08VGndV]

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

[436 あぼーん NG NG]

あぼーん

[437 デフォルトの名無しさん 2022/05/06(金) 22:37:25.38 ID:wGIC3Nie]

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

[438 あぼーん NG NG]

あぼーん

[439 あぼーん NG NG]

あぼーん

[440 デフォルトの名無しさん 2022/05/06(金) 23:35:35.26 ID:fXX4C7UQ]

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

>>439
うぜぇ…

[441 あぼーん NG NG]

あぼーん

[442 あぼーん NG NG]

あぼーん

[443 あぼーん NG NG]

あぼーん

[444 デフォルトの名無しさん 2022/05/07(土) 00:15:03.98 ID:7l2LI9Wk]

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

[445 あぼーん NG NG]

あぼーん

[446 デフォルトの名無しさん 2022/05/07(土) 00:20:22.64 ID:NNPG57mN]

必ず反応する馬鹿だろ

[447 あぼーん NG NG]

あぼーん

[448 あぼーん NG NG]

あぼーん

[449 あぼーん NG NG]

あぼーん

[450 あぼーん NG NG]

あぼーん

[451 デフォルトの名無しさん 2022/05/13(金) 04:41:08.44 ID:HyOmNC/V]

シーシーシー

[452 あぼーん NG NG]

あぼーん

[453 あぼーん NG NG]

あぼーん

[454 あぼーん NG NG]

あぼーん

[455 あぼーん NG NG]

あぼーん

[456 あぼーん NG NG]

あぼーん

[457 あぼーん NG NG]

あぼーん

[458 デフォルトの名無しさん 2022/05/14(土) 06:23:09.42 ID:Kqmt+jMz]

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

[459 デフォルトの名無しさん 2022/05/14(土) 19:04:42.41 ID:0PalzBij]

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

[460 デフォルトの名無しさん 2022/05/14(土) 19:06:58.50 ID:f1tWPmHl]

>>459
うぜぇ…

[461 デフォルトの名無しさん 2022/05/14(土) 19:14:52.66 ID:gOFMzFO8]

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

[462 デフォルトの名無しさん 2022/05/14(土) 19:20:28.36 ID:aOw0DVA/]

>>461
うぜぇ…

[463 デフォルトの名無しさん 2022/05/14(土) 19:21:33.34 ID:zAUxwBK1]

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

[464 デフォルトの名無しさん 2022/05/14(土) 19:22:37.83 ID:R1Ds+65N]

>>463
うぜぇ…

[465 デフォルトの名無しさん 2022/05/14(土) 19:23:11.73 ID:ZG/xj1yx]

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

[466 デフォルトの名無しさん 2022/05/15(日) 04:28:36.57 ID:Ii7qutRP]

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

[467 デフォルトの名無しさん 2022/05/15(日) 07:20:24.31 ID:ECbuxGpl]

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

[468 デフォルトの名無しさん 2022/05/15(日) 08:57:07.07 ID:Fhw2usBR]

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

[469 デフォルトの名無しさん 2022/05/16(月) 11:38:05.78 ID:KFWcvPVO]

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

[470 デフォルトの名無しさん 2022/05/16(月) 20:53:02.91 ID:eTVNpT5D]

>>465-468
うぜぇ…

[471 デフォルトの名無しさん 2022/05/17(火) 15:39:37.69 ID:r5BSwC6K]

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

[472 デフォルトの名無しさん 2022/05/17(火) 22:46:23.87 ID:rrShZJKi]

>>471
うぜぇ…

[473 デフォルトの名無しさん 2022/05/17(火) 22:47:07.22 ID:rrShZJKi]

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

[474 デフォルトの名無しさん 2022/05/17(火) 22:47:20.15 ID:rrShZJKi]

>>473
うぜぇ…

[475 デフォルトの名無しさん 2022/05/17(火) 23:56:12.88 ID:JcJBP/Fx]

自演失敗してるぜぇ

[476 デフォルトの名無しさん 2022/05/18(水) 01:01:05.33 ID:t21QZjGi]

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

[477 デフォルトの名無しさん 2022/05/18(水) 16:36:10.56 ID:+LhjHxt0]

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

[478 デフォルトの名無しさん 2022/05/18(水) 17:17:25.87 ID:DAgk9yQw]

>>477
うぜぇ…

[479 デフォルトの名無しさん 2022/05/18(水) 17:17:41.66 ID:DAgk9yQw]

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

[480 デフォルトの名無しさん 2022/05/18(水) 17:17:57.56 ID:DAgk9yQw]

>>479
うぜぇ…

[481 デフォルトの名無しさん 2022/05/18(水) 17:25:47.97 ID:Kas1L0Dx]

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

[482 デフォルトの名無しさん 2022/05/18(水) 20:51:53.68 ID:1soL4/3L]

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

[483 デフォルトの名無しさん 2022/05/18(水) 22:18:55.82 ID:zBIrDaLq]

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

[484 デフォルトの名無しさん 2022/05/19(木) 15:32:25.59 ID:iUNp6lDT]

>>481
うぜぇ…

[485 デフォルトの名無しさん 2022/05/19(木) 16:28:50.05 ID:eXVJry5g]

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

[486 デフォルトの名無しさん 2022/05/19(木) 20:50:38.98 ID:FdnripbD]

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

[487 デフォルトの名無しさん 2022/05/19(木) 23:44:52.41 ID:iUNp6lDT]

>>485-486
うぜぇ…

[488 デフォルトの名無しさん 2022/05/20(金) 00:40:53.75 ID:lhld8aLR]

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

[489 デフォルトの名無しさん 2022/05/20(金) 06:43:06.16 ID:BBFiZL6J]

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;
ほぼ意味ないけど

[490 デフォルトの名無しさん 2022/05/20(金) 06:53:01.67 ID:BBFiZL6J]

unit GX_About;
で
class function TfmAbout.GetSplashIcon: HBITMAP;
const
GX_ABOUT_ICON24 = 'GX24';
begin
Result := LoadBitmap(HInstance, GX_ABOUT_ICON24);//リソースリーク
end;
ざんねん、解放できない
また無意味だけどね

[491 デフォルトの名無しさん 2022/05/20(金) 20:30:43.35 ID:XjY3MMWt]

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