くだすれDelphi(超初心者用)その57 [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2016/10/13(木) 13:21:54.84

Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

■Delphi XE6　Professional/Enterprise/Ultimate/Architect エディション(トライアル版有)
64bit Windows、Mac OS XからiOS、Androidのアプリも開発可能。ライブラリのソースコード付き。アカデミックライセンス有り。
旧バージョン（XE6/5/4/3/2/XE/2010/2009/2007/Delphi 7）のライセンス取得とダウンロードが可能。（アカデミック不可）
ttp://www.embarcadero.com/jp/products/delphi

■Delphi XE6　Starter エディション
個人／5人以下の企業・組織向け。年間売上1000US＄以内の商用開発可。
（※）Delphi、Visual Studio等の有償／無償の開発ツールユーザーが対象。インストール確認は特に行わない。
ttp://www.embarcadero.com/jp/products/delphi/starter

■Embarcadero RAD Studio XE6 （Delphi、C++Builder、HTML5 Builder等を含むビジュアル開発スイート）
ttp://www.embarcadero.com/jp/products/rad-studio

＜前スレ＞
くだすれDelphi(超初心者用)その56
http://echo.2ch.net/test/read.cgi/tech/1405783063/

＜過去スレ＞
DelWiki （Delphi 関連の過去スレッド）※行方不明
ttp://delwiki.info/?

**デフォルトの名無しさん** · 2016/11/30(水) 09:51:10.70

>>116
どういうやりかたで
「delphi からパスワード無しファイルを操作する事は出来ています。」
ができているのかしらんけど

OLEオートメーションを使っているなら、
xlApp.Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format,
Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin,
Delimiter, Editable, Notify, Converter, AddToMRU)

excelを持ってないなら
?FlexCel for VCL / FireMonkey
を使うとか　

**デフォルトの名無しさん** · 2016/12/01(木) 19:46:00.26

D6の使用許諾コードって今でも都連だね　知らなかったわ

**デフォルトの名無しさん** · 2016/12/02(金) 19:55:58.69

なぜに今さらD6？
新しいの無料になってなかったっけ

**デフォルトの名無しさん** · 2016/12/02(金) 23:02:38.10

RXバグだらけで使いづらいよ

**デフォルトの名無しさん** · 2016/12/02(金) 23:39:57.49

具体的にどんなバグ？

**デフォルトの名無しさん** · 2016/12/03(土) 09:26:01.40

ボタンの色の変更ってTButtonから派生させて改造しないとダメ？

**デフォルトの名無しさん** · 2016/12/04(日) 00:23:15.66

結局どんなバグがあったんだろう

**デフォルトの名無しさん** · 2016/12/04(日) 00:50:42.52

こんなバグ
http://gigazine.net/news/20161201-windows-10-upgrade-bitlocker-bypass/

**デフォルトの名無しさん** · 2016/12/04(日) 01:14:11.69

WindowsのバグとRadStudioになんの関係が？

**デフォルトの名無しさん** · 2016/12/04(日) 20:23:52.39

7以降アップデートしてないんだけど
すると良いことある？

**デフォルトの名無しさん** · 2016/12/05(月) 16:25:17.26

人に依る

**デフォルトの名無しさん** · 2016/12/05(月) 20:51:09.49

ユニコード対応がなんたらうんたら

**デフォルトの名無しさん** · 2016/12/05(月) 22:36:44.05

Delphi2.0 の高速コンパイルは素晴らしかった

**デフォルトの名無しさん** · 2016/12/05(月) 22:44:55.05

>>128
Unicode対応なんだ・・・TNTいらなくなるのか
これだけでも少し便利そうだな・・ありがと考えてみる

**デフォルトの名無しさん** · 2016/12/05(月) 23:11:20.14

新機能使わなきゃそりゃあってもしょうがないけど、
さすがに7からならアップグレードすりゃ色んな新機能がわんさかだと思うよ。
古い新機能ではUnicodeから始まってWin64bit対応やOSX対応、ジェネリックやら
Vistaとかの新コントール。
http://docwiki.embarcadero.com/RADStudio/Berlin/ja/%E3%83%A1%E3%82%A4%E3%83%B3%E3%83%9A%E3%83%BC%E3%82%B8
から新機能のページだけを過去のバージョンにさかのぼってみていけばいい。

**デフォルトの名無しさん** · 2016/12/06(火) 00:07:34.75

コードエディタの進化は効率アップにもなるしやっぱ良いよ

**デフォルトの名無しさん** · 2016/12/06(火) 18:04:09.67

Editへの入力時のキーバッファをキャンセルする方法を教えて下さい。
今、バーコード入力するソフトを書いているのですが、担当者をComboboxで選択していないと
EditをクリアしてShowMessageを表示するつもりです。
EditをクリアしてMessageを出す事自体は出来ているのですが、バーコードから送られるデータの
最後にCRがついてきて（バーコードリーダーが付けてきます。）、多分このCRがShowMessageに
送られてShowMessageが勝手に消えてしまうようなのです。
イベントはKeyPressを使っています。
Windows7 Delphi10.1の環境です。
よろしくお願いします

**デフォルトの名無しさん** · 2016/12/06(火) 18:16:56.25

何がききたいのかようわからん。

**デフォルトの名無しさん** · 2016/12/06(火) 18:24:00.95

「Editへの入力時のキーバッファをキャンセルする方法を教えて下さい。」
後ろにごちゃごちゃよくわからん説明が書いてあるけどこれが聞きたいの？

単に入力された文字をキャンセルならKeyPressのイベントでKeyパラメータに
Key := #00とか代入すればいいんじゃなかったっけ？
if Key = 'A' then
　Key := #00;
すりゃ、Aの文字が入力できなくる

このことじゃなかったらもっと適格に書いてくれんとわからん。

**デフォルトの名無しさん** · 2016/12/06(火) 19:02:50.65

ありがとうございます。
バーコードから送られてくる文字を全てキャンセルしたいのです。
一文字ずつチェックするのではなく、一気に送られて来た文字を消す方法はありませんか？
宜しくお願いします。

**デフォルトの名無しさん** · 2016/12/06(火) 19:18:11.18

>>136
CRって復帰コードのことだろ？
最後にCRがついてくるなら、それが送られてくる最後の文字
なら、それが送られてきたら　Key には0入れて　Edit.Text := "";　でよかんべ

**デフォルトの名無しさん** · 2016/12/06(火) 20:03:14.51

こんなんじゃだめなの？

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then begin
ShowMessage('Enter!');
Edit1.Clear;
end;
end;

**デフォルトの名無しさん** · 2016/12/06(火) 20:26:28.30

ありがとうございます。
出来ました。
条件に合わなかったら入力したらいけないと変な思い込みをしてました。
助かりました。

**デフォルトの名無しさん** · 2016/12/07(水) 09:03:33.62

キーバッファｗ

**デフォルトの名無しさん** · 2016/12/07(水) 09:09:12.00

えっ？

**デフォルトの名無しさん** · 2016/12/07(水) 09:47:59.67

ラジオボタンって大きくならない？

**デフォルトの名無しさん** · 2016/12/07(水) 16:09:50.00

できません。

大きなラジオボタンの絵を描くならできます（ちょっと気持ち悪いので注意）。

procedure TForm1.FormPaint(Sender: TObject);
begin
　DrawFrameControl(Canvas.Handle, ClientRect, DFC_BUTTON, DFCS_BUTTONRADIO or DFCS_CHECKED);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
　Invalidate; // フォームの再描画をWindowsに促す。
end;

**デフォルトの名無しさん** · 2016/12/08(木) 15:42:09.36

Berlin update2 のFireMonkeyで
Listbox.Items.Exchangeメソッドが動作しないXE2では動くのに

**デフォルトの名無しさん** · 2016/12/09(金) 16:34:59.90

お前が悪い

**デフォルトの名無しさん** · 2016/12/10(土) 23:22:51.23

質問です

**デフォルトの名無しさん** · 2016/12/10(土) 23:33:56.35

関連付けされてるファイルを起動するのは ShellExecute でできますが
例えば abc.csv ファイルを .txt で関連付けされてるアプリケーションで
開く簡単な方法はあるでしょうか

**デフォルトの名無しさん** · 2016/12/11(日) 06:10:35.77

”
Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、もしくは
質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。

Delphi使いが優しくコメントを返しますが、
お礼はDelphiの布教と初心者の救済をお願いします。

”

**デフォルトの名無しさん** · 2016/12/11(日) 12:45:00.53

>>147
簡単には無いと思う。
レジストリ開いて関連付け調べてabc.csvを引数にそのプロセスを起動させる。

**デフォルトの名無しさん** · 2016/12/11(日) 16:52:57.05

拡張子に関連付けされた実行ファイル名の取得
http://mrxray.on.coocan.jp/Delphi/plSamples/480_GetFullExePath.htm

**デフォルトの名無しさん** · 2016/12/11(日) 18:44:37.29

>>149-150
サンキュー参考になりそう

ちなみに xray さん元気そうでなにより

**デフォルトの名無しさん** · 2016/12/12(月) 14:28:19.03

私はFindExecutable APIで拡張子".txt"のダミーのファイル名を渡して…というところまで考えていたのですが、そのものずばりなAPIがあるのですね。

**デフォルトの名無しさん** · 2016/12/15(木) 11:41:17.48

Cのライブラリで
const char *ss[] = {"abc", "def", "xyz", NULL};
を引数として要求するAPIがあるのですがDelphiからは
どうやって定義すればよいでしょう？

**デフォルトの名無しさん** · 2016/12/15(木) 12:42:40.01

ポインタのポインタ

**デフォルトの名無しさん** · 2016/12/15(木) 21:30:43.84

array of PChar

**デフォルトの名無しさん** · 2016/12/16(金) 08:13:11.02

>>154
>>155
ありがとう。
array of は内部的にはポインタなんですね。上手く動作しました。

**デフォルトの名無しさん** · 2016/12/16(金) 13:53:20.44

　IntArray: array[0..99, 0..99] of Integer;

　AI　:IntArray;
　P　 :Pointer;
　Fs　:TFileStream;
　i,j :Integer;

　　for i := 0 to 99 do
　　　for j := 0 to 99-1 do
　　　　AI[i,j] := Random(1000)+50;

　　Fs.Write(AI[0,0], SizeOf(Integer)*L );
　　Fs.Write(AI, SizeOf(Integer)*L );　　　 ………(#)
のどちらでも OK ですが、これは AI[0,0] と AI のアドレスが同じというだけで
　　AI[0,0] = AI
ではないのですから、(#)の記述は AI という '配列名' はポインタのように感じられます。しかし、
　　P := AI;
とするとコンパイラに怒られます。Delphi の '静的配列名' はポインタではないのしょうか。

**デフォルトの名無しさん** · 2016/12/16(金) 13:58:41.71

Fs.Writeの引数の型宣言みろ

**デフォルトの名無しさん** · 2016/12/16(金) 14:20:04.02

　引数は型なしパラメータだから、実際にはパラメータのアドレスが Fs.Write に渡され、
そのアドレスが処理対象になる。つまりそこに必要なサイズのメモリ領域が正しく確保さ
れていれば、その領域がどのような型なのかは関係ないということか。

　結局　Delphi の '静的配列名' はポインタではないんだね。

**デフォルトの名無しさん** · 2016/12/16(金) 14:32:37.28

P := Pointer(AI);

**153** · 2016/12/16(金) 16:08:44.84

後に誰かの参考になるかもしれないので少し詳しく書いておきます。

Cで作成されたDLL内の関数の.hファイルの定義が
void hoge(const char **hage);
となっていて、
const char *ss[] = {"abc", "def", "xyz", NULL};
hoge(ss);
という使用例が書かれてたところ、

procedure hoge(hage: array of PAnsiChar); cdecl; external 'kage.dll';

hoge(['abc', 'def', 'xyz', nil]);

で上手く動作しました。ペコリ。

**デフォルトの名無しさん** · 2016/12/16(金) 16:14:50.71

さんざん概出

**153** · 2016/12/17(土) 10:45:35.06

>>162
そうですか。スレ汚し失礼しました。ペコリ

**デフォルトの名無しさん** · 2016/12/18(日) 18:39:46.50

　TreeView をデザイン時にフォームに貼り付けてできたアプリを終了するとき
　TreeView の各ノードが保持するデータ（TreeView1.Items[n].data が保持しているデータ）
も自動的に廃棄されるのですか？

**デフォルトの名無しさん** · 2016/12/18(日) 18:51:06.13

>>164
TTreeNode::Data が保持するデータはプログラマが明示的に破棄しないとダメ。

**デフォルトの名無しさん** · 2016/12/18(日) 20:05:19.93

>>165
　ありがとう。
　以下のような感じでいいのですかな？

//TNodeData は TreeNode.Data が保持するデータのクラス

//+----------- FormDestroy ------------+
procedure TForm1.FormDestroy(Sender: TObject);
i: Integer;
begin
with TreeView1 do
for i = 0 to Items.Count - 1 do
TNodeData(Items[i].Data).Free;

//TreeView1.Items.Clear; 不要
end;

　あるいは TreeView のOnDeletion を使って

//+-------------- TreeViewDeletion --------------+
procedure Form1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
if Assigned(Node.Data) then
TNodeData(Node.Data).Free;
end;

**デフォルトの名無しさん** · 2016/12/18(日) 20:17:52.63

>>166
そんな感じ。

**デフォルトの名無しさん** · 2016/12/20(火) 23:16:00.88

スレッドを使ったプログラムで、スレッド内にある未使用の変数をコメントアウトしたら、
終了する時にアクセスバイオレーションが出るんだけど、こんな事ってあるの？
プライベートに宣言してあるからメインとかが絡んでる事は無いのだけど。

**デフォルトの名無しさん** · 2016/12/20(火) 23:35:38.32

コメントアウトされた変数が確保していたメモリ域のおかげで
偶然アクセス違反が発生しない状態になってるとかじゃね？
要はコメントアウトしていなくてもコーディングミスで不正なメモリアクセスしている状態なのかも

**デフォルトの名無しさん** · 2016/12/20(火) 23:43:04.81

こんな時間にありがとう！
そんな事があり得るんですか。
難しいなぁ。

**デフォルトの名無しさん** · 2016/12/21(水) 12:39:12.66

あり得るというより一番多いパターンだったり

**デフォルトの名無しさん** · 2016/12/21(水) 14:28:11.26

「参照」とポインタの話か？　慣れるまで結構厄介だからな。

**デフォルトの名無しさん** · 2016/12/21(水) 17:50:14.49

ちょっと教えてください

自分自身（実行ファイル）を再起動する方法を教えてください
ちなみに二重起動を禁止したアプリでです
できれば再起動用の別アプリを使用しないのが理想的です．．．

**デフォルトの名無しさん** · 2016/12/21(水) 18:38:54.87

>>173
自分自身が起動するときだけ二重起動許可して起動確認できたら自分を閉じる

**デフォルトの名無しさん** · 2016/12/21(水) 21:13:47.15

>>174
ありがとうございます。
やはりその方向ですか。

リスタート後に最初のインスタンスのiniファイルを読み込みたいで
Mutexのチェックの前に最初のインスタンスの終了を待つ処理が
必要かなと漠然と考えていたんですが．．．

簡単でスマートな方法はないんですね

**デフォルトの名無しさん** · 2016/12/21(水) 21:25:28.28

>>175
自分（プロセスA）が自分（プロセスB）を起動するときに、コマンドラインで /restart というようなコマンドを渡す。
プロセスBは /restart ってコマンドを受け取ったら、Mutexの所有権を得るまで待機する。（再起動処理）
プロセスAはMutexの所有権を開放する。
/restartを受け取らなかった場合は、Mutexの所有権を得られなかった場合は終了する。（二重起動防止）

**デフォルトの名無しさん** · 2016/12/21(水) 23:03:33.63

>>176
そうですね

Mutexが取得できるまで待機すればいいですよね
終了待ちをもっと複雑な方法で考えてました
ありがとうございます

**デフォルトの名無しさん** · 2016/12/22(木) 20:53:24.89

よろしくお願いします。
『レコード型Aを利用する、クラスA』を自作したとします。
そして、『このクラスAとほとんど同じ機能を持つが、レコード型Bを利用する、別のクラス』を作りたいとします。
この場合、どう記述するのが効率良いでしょうか。

例えば、よくサンプルで見る、TListのItemにレコード型のポインタを使ってデータを入れる場合。
type
// レコード型A
PTRecA = ^TRecA;
TRecA = record
// 略
end;
// レコード型B
PTRecB = ^TRecB;
TRecB = record
// 略
end;

// クラスA・・・レコード型Aを利用
TClassA = class(TList)
　procedure SetItem(Rec: TRecA);
　function GetItems(Index: Integer): TRecA;
end;
// クラスB・・・レコード型Bを利用
TClassB = class(TList)
　procedure SetItem(Rec: TRecB);
　function GetItems(Index: Integer): TRecB;
end;

上記の様に、クラスAとクラスBで似た様なコードの重複が多い場合、
クラスの定義をもっと効率良く記述できる方法があれば教えていただきたいです。

**デフォルトの名無しさん** · 2016/12/22(木) 20:58:35.19

delphi ジェネリックスでググる

**デフォルトの名無しさん** · 2016/12/24(土) 05:08:06.07

クラスの継承を使えないか？
レコードのほうに「違い」を押し込んでクラスにして継承して、クラスは共用とできないか？
そもそもクラスとレコードに分ける必要があるのか？
などなど

**デフォルトの名無しさん** · 2016/12/24(土) 16:48:03.74

レコード型をクラスのメンバとしてポインタで管理して
そのポインタの実体を操作する仮想メソッドなどを作る。

**デフォルトの名無しさん** · 2016/12/24(土) 23:24:23.58

firemonkeyを使ってandroid向けのゲームを作り始めましたが
いきなり躓いて困ってます。

ゲームループのスレッドを作って描画を行っていますが
TBitmapがスレッドセーフでないため描画処理が正常に行えません。

firemonkeyでゲームを作る場合はメインスレッドのみで作るのでしょうか。

**デフォルトの名無しさん** · 2016/12/25(日) 02:11:22.91

lockしてもダメ?

**デフォルトの名無しさん** · 2016/12/25(日) 09:12:26.41

DrawGridのセルの色を取得する方法を教えて下さい。
どのセルに何色を塗ったか記憶しているのですか、
もっと簡単に知る方法があると思い質問させてもらいました。
宜しくお願いします。

**デフォルトの名無しさん** · 2016/12/25(日) 09:56:13.82

>>182
スレッド側でBitmap描画してからSynchronize使ってメインスレッドのBitmapに転送すれ

**デフォルトの名無しさん** · 2016/12/25(日) 09:59:02.44

>>183
Delphi6の時はCanvas.Lockがあったと思いますが
今使ってるDelphi10.1ではLockが見つからなくて・・・

**デフォルトの名無しさん** · 2016/12/25(日) 10:11:02.14

>>185
スレッド側で描画用のBitmapをCreateしてWidth、Heightを設定した段階で
EBitmapSizeTooBigの例外が発生してしまうため、そこまで辿り着けなくて困ってます。

**デフォルトの名無しさん** · 2016/12/25(日) 10:30:12.14

例外の種類見る限り、スレッドと関係なさそうに見えるが。
ビットマップが大きすぎるってWidthとHeightをいくつに設定しようとしたの？

**デフォルトの名無しさん** · 2016/12/25(日) 10:36:40.00

>>188
サイズは350x450なのでたぶん大きすぎることはないと思います。
メインスレッドで動作させた場合は、例外が発生することなく動作するので
メインスレッド以外ではTBitmapは使えないのかと・・・

また、Windowsでは正常に動作してAndroidで動作させると例外が発生するため
Android固有の問題なのかなと思いまして

**デフォルトの名無しさん** · 2016/12/25(日) 12:33:01.08

>>186
map/unmap

**デフォルトの名無しさん** · 2016/12/25(日) 17:27:44.55

>>189
AndroidのThreadで発生するってQPに上がってるからVOTEしとけばそのうち治るんじゃないかな
そのうち。

**デフォルトの名無しさん** · 2016/12/25(日) 17:59:22.97

Delのバグかよ

**デフォルトの名無しさん** · 2016/12/25(日) 18:04:15.67

>>190
教えていただいたものを使って処理を行ってみましたがダメでした。

>>191
期待しないで待つことにします。

別スレッドでの処理を諦めてとりあえずメインスレッドで全て行うようにします。
相談に乗っていただいた方々ありがとうございました！

**デフォルトの名無しさん** · 2016/12/28(水) 09:28:27.13

Delphi 10.1 BerlinのStarterでチュートリアルをやってます。
http://docwiki.embarcadero.com/RADStudio/Berlin/ja/ユーザーアクションに対する応答をコードエディタでコーディングする（IDE チュートリアル）
このページの中ほどまで進んだら
[dcc32 エラー] TextEditorUnit.pas(94): E2003 未定義の識別子 : 'TDialogServiceSync'
というエラーが表示されてしまいます。
どうしたら修正できるのでしょうか？

**デフォルトの名無しさん** · 2017/01/01(日) 00:51:30.42

>>194
ここで引っかかってるのかな？
UserResponse := TDialogServiceSync.MessageDialog(
'File already exists. Do you want to overwrite?',
TMsgDlgType.mtInformation, mbYesNo, TMsgDlgBtn.mbYes, 0);

TDialogServiceSync はFire Monkeyでしか使えないからvclプログラムではエラーになって当然かも。
チュートリアルのソースコードって色々バグってるからなぁ…
とりあえず

UserResponse := MessageDlg(
'File already exists. Do you want to overwrite?',
TMsgDlgType.mtInformation, [mbYes, mbNo], 0);

と書き換えたらエラー出なくなると思う。

**デフォルトの名無しさん** · 2017/01/02(月) 05:54:12.25

クラスファンクションなのかそれは？

**194** · 2017/01/02(月) 12:22:05.25

>>195
ありがとうございました。早速試してみましたが、
[dcc32 エラー] TextEditorUnit.pas(99): E2003 未定義の識別子 : 'mbYes'
[dcc32 エラー] TextEditorUnit.pas(99): E2250 指定された引数で呼び出すことのできるオーバーロード関数 'MessageDlg' が定義されていません
[dcc32 警告] TextEditorUnit.pas(99): W1000 シンボル 'MessageDlg' を使用することは推奨されていません : 'Use FMX.DialogService methods'
とエラーが出てコンパイルが通りませんでした。

FireMonkeyはデフォルトで使えるのかと思ってました。いろいろと無知すぎるので
もうちょっと分かりやすいところから勉強しなおしてみます。

**デフォルトの名無しさん** · 2017/01/02(月) 20:49:19.17

>>197
その警告が出るって事はFire Monkeyの方なのか。
だったらそこは元の>>194の命令でいいはず。

usesの所に FMX.DialogService.Sync が記載されているか確認して
なければ追加。

**デフォルトの名無しさん** · 2017/01/04(水) 22:56:01.95

スレッドからサブフォームを表示する事は可能ですか？
他の機器から特定の信号が来たら、警告画面みたいなのを表示しようとして
スレッドで信号監視してフォーム表示のつもりがうまくいきません。
なのでメインフォームにタイマー置いてタイマーイベントで信号監視しています。
ヘルプを読むとスレッドからフォームはコントロール出来ないような事が書いてあったのですが、皆さんならどうしますか？

**デフォルトの名無しさん** · 2017/01/04(水) 23:19:05.87

表示するだけなんでしょ？

自分だったらpostmessage

**デフォルトの名無しさん** · 2017/01/04(水) 23:55:57.26

ごめん

post-/sendmessageにはwm_closeみたいな表示するメッセージはなかった

独自のメッセージを定義して受け取った側でshowするか
showwindow(async)を使うかだね

**デフォルトの名無しさん** · 2017/01/05(木) 00:45:48.42

>>199
TThread.Synchronizeで、メインスレッドに切り替えてから、引数で渡されたコールバックメソッド(手続き)でサブフォームを表示させるとか

**194** · 2017/01/05(木) 06:34:16.06

>>198
エラーが消えて無事に動きました。
ありがとうございます。

こういうのはIDEが教えてくれるのかと思って
いましたが、有料版だとそういう機能は
あるんでしょうかねー

**デフォルトの名無しさん** · 2017/01/05(木) 07:19:36.75

>>203
関数や手続きが定義されていないってエラーが出たときはその関数などのヘルプを見て
そこに書いてあるユニット名が自分のプログラムのuses節に書かれているか調べるといいよ。

**199** · 2017/01/05(木) 09:38:01.68

>>200,202
ありがとうございます。
教えてもらった方法を調べながらやってみます。

**デフォルトの名無しさん** · 2017/01/08(日) 16:20:11.76

TShellCｔｒｌコンポーネントって、デモに含まれるものなんだよねなんでVCLに含めなかった？？

**デフォルトの名無しさん** · 2017/01/09(月) 14:24:09.01

>>199
Queue関数。
http://www.gesource.jp/weblog/?p=538

**デフォルトの名無しさん** · 2017/01/10(火) 11:27:52.10

マルチスレッドが終了したかどうか確認するのに、フラグで確認してるんだけど、
なんかもっとスマートな方法ってありませんか？
ググったらWaitForが出て来たのですが、hoge.WaitForとしてもハンドルエラーとか出て使えませんでした。
宜しくお願いします。

**デフォルトの名無しさん** · 2017/01/10(火) 12:33:32.63

何があなたのスマートの基準なのか？
フラグは別に悪くないと思うけど。

**デフォルトの名無しさん** · 2017/01/10(火) 17:34:35.55

freeが一番確実じゃない？

**デフォルトの名無しさん** · 2017/01/10(火) 17:41:03.73

>>208
hogeってTThread?
そんだったらTThread.FreeOnTerminateをTrueにしてるから、
スレッドが終了してFreeされてるから、ハンドルエラーと出てくるんだろう。
FreeOnTerminiateをFalseにすればOK(そのかわりTThreadの破棄は自分でやる必要がある)。

**デフォルトの名無しさん** · 2017/01/10(火) 18:11:59.83

終了したか確認するのにWaitForしたら確認じゃなく待機しちゃってダメじゃないのかと思うけど。
FreeOnTerminiate:=true;で OnTerminateイベントでフラグ立てるので良くないかい？
あとはメインフォームに終了通知としてメッセージ送るとか。
Win32API使うのOKなら FreeOnTerminiate:=false; にして
スレッドハンドルに対して WaitForSingleObject （タイムアウトは0に設定）使い
WAIT_OBJECT_0が返るかWAIT_TIMEOUTが返るか確認する。
もしくはGetExitCodeThread関数を使うとかかな。

**デフォルトの名無しさん** · 2017/01/10(火) 18:56:40.06

そういやスレッドの終わり方の議論が2、3年前にあったな

**デフォルトの名無しさん** · 2017/01/10(火) 19:15:27.36

FreeOnTerminateが使えない？とかいう議論じゃなかったっけw

**デフォルトの名無しさん** · 2017/01/10(火) 21:06:50.37

FreeOnTerminiate:=true;で OnTerminateイベントでフラグ立てる

に賛成。簡単確実。

**デフォルトの名無しさん** · 2017/01/11(水) 07:54:30.57

>>215
そのフラグの排他制御は簡単じゃないよ