くだすれDelphi(超初心者用)その55

1 ：デフォルトの名無しさん：2012/11/17(土) 11:36:07.56 .net

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

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


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

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

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


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

＜過去スレ＞
DelWiki （Delphi 関連の過去スレッド）
http://delwiki.info/?%E3%83%AA%E3%83%B3%E3%82%AF%2F%E3%82%B3%E3%83%9F%E3%83%A5%E3%83%8B%E3%83%86%E3%82%A3%2FDelphi%20%E9%96%A2%E9%80%A3%E3%81%AE%E9%81%8E%E5%8E%BB%E3%82%B9%E3%83%AC%E3%83%83%E3%83%89

2 ：デフォルトの名無しさん：2012/11/17(土) 11:41:19.77 .net

＜関連スレ＞
Embarcadero RAD Studio/Delphi/C++Builder その3
http://toro.2ch.net/test/read.cgi/tech/1346899529/

delphiで作った有名ソフトって何があるの？
http://toro.2ch.net/test/read.cgi/tech/1135654787/
【Delphi互換!?】FreePascal/Lazarus その2【GPL】
http://toro.2ch.net/test/read.cgi/tech/1261676778/

ネットワークゲーム作成のお勉強（Delphi専用スレ）
http://toro.2ch.net/test/read.cgi/gamedev/1028278884/
Delphiでアクションゲームが作りたい！！ Part2
http://toro.2ch.net/test/read.cgi/gamedev/1027482533/
delphiでMMO
http://toro.2ch.net/test/read.cgi/gamedev/1072515100/


＜兄弟スレ＞
くだすれC++Builder（超初心者用）その5
http://toro.2ch.net/test/read.cgi/tech/1334982374/

3 ：デフォルトの名無しさん：2012/11/17(土) 11:42:10.72 .net

では質問をどうぞ。

4 ：デフォルトの名無しさん：2012/11/17(土) 18:57:06.32 .net

前スレ>>989から継続です。お願いします。

WinXP + delphi7(VCL)で開発します。

コンボボックスのコンポーネントで、なめらかな動きをしない
（スムーススクロールしない）ようなものはありませんか？
あるいは、作る方法はありませんか？

stackoverflow.com/questions/2968189/disable-mouse-scroll-wheel-in-combobox-vb-net
参考にして、WM_MOUSEWHEELを握りつぶすことはできました。
（ホイールが利かなくなりました。）

ただ、ホイールを無効化するのでなく、
ドロップダウンリストにスクロールバーが出ている状態においては、
リストを１行ずつスクロールさせたく思っております。

その際、スムーススクロールさせると、リストのスクロールが
目で追えなくなってしまうような描画をするので、それを対策したいと思っております。

コンボボックスに、StringGridにおけるTopRowプロパティのようなものがあれば、
対策できそうではあるんですけど、方法ありませんでしょうか？

5 ：デフォルトの名無しさん：2012/11/17(土) 20:30:05.15 .net

完全に握りつぶさないでItemIndexを加減すればいいんじゃね？

6 ：デフォルトの名無しさん：2012/11/18(日) 11:56:00.24 .net

TMainFormにアクセスするにはどうすればいいのでしょうか？

7 ：デフォルトの名無しさん：2012/11/18(日) 12:23:10.99 .net

Application.MainForm

8 ：デフォルトの名無しさん：2012/11/18(日) 12:27:38.47 .net

>>7
ありがとうございますm(__)m

9 ：デフォルトの名無しさん：2012/11/18(日) 17:25:36.12 .net

>>4
自分もコンボボックスに機能追加しようといろいろ研究してたので…。
前スレ975
＞Windowsのパフォーマンスオプションで、「リストボックスを滑らかにスクロールする」の
＞チェックを外せば、望み通りの動きなのですが。（マウスホイールによる動きが全然違います。）

それならいっそ SystemParametersInfoのSPI_SETLISTBOXSMOOTHSCROLLINGで外せば良いかと。
1つのコンボボックスのためにシステム全体を設定変更と、かなり強引ですが…。それがこちら。
http://pastebin.com/PmWkCB51
OnDropDown時にSPI_GETLISTBOXSMOOTHSCROLLINGで状態取得、その後外し、OnCloseUpで元に戻す。

＞コンボボックスに、StringGridにおけるTopRowプロパティのようなものがあれば
あります。csSimpleにして ComboBox1.Perform(CB_SETTOPINDEX,50,0); すれば瞬間移動します。
ですが… csDropDownだと、どう使ったら良いやら？ 難しそうです。
それに加えWM_MOUSEWHEELを真っ当に使わないでゴニョゴニョするのは、かなり大変かと。

10 ：デフォルトの名無しさん：2012/11/19(月) 14:54:54.33 .net

THotKeyで設定したホットキーが押されたときの動作を設定するにはどうすればいいのでしょうか？

11 ：デフォルトの名無しさん：2012/11/19(月) 19:55:04.28 .net

>>10
THotKeyのOnChangeイベント等で、HotKeyプロパティを以下のいずれかに設定します。

・ TActionList→TActionのShortCutプロパティ（実行内容はOnExecuteに記述）
・ TMainMenu→TMenuItemのShortCutプロパティ（実行内容はOnClickに記述）

ヘルプの「例」も見た方がいいけど分かりにくいかも。

12 ：デフォルトの名無しさん：2012/11/19(月) 20:26:36.56 .net

>>11
ありがとうございます！

13 ：4：2012/11/20(火) 01:30:53.63 .net

>>9
コメントありがとうございます。

> それならいっそ SystemParametersInfoのSPI_SETLISTBOXSMOOTHSCROLLINGで外せば良いかと。
> 1つのコンボボックスのためにシステム全体を設定変更と、かなり強引ですが…。

１つの方法ではありますね。
ただ気がかりなのが、
１．ソフトが異常終了したときに、Windowsの設定が変わってしまう。
２．同様の設定をしているコンボボックスを画面内に複数載せる場合があることを考えると、
　　コンボAのOnDropDownとコンボBのOnCloseUpが同時に発生したときの処理順が気がかり。
です。

14 ：4：2012/11/20(火) 01:36:13.18 .net

>>9
> csSimpleにして ComboBox1.Perform(CB_SETTOPINDEX,50,0); すれば瞬間移動します。

参考にして、以下のようなオーバーライドを入れてみました。
すると、生成して１回目のホイールだけスムーススクロールして、
２回目のホイール以降からは、スムーススクロールしないという不思議な動きをしています。
動きとしては、非常に惜しいです。

procedure MyCombo.WndProc(var Message : TMessage);
var
iIdx : Integer;
Rotation : ShortInt;
begin
if (Message.Msg = WM_MOUSEWHEEL) then begin
if (DroppedDown) then begin
Rotation := Message.WParamHi;
iIdx := Self.Perform (CB_GETTOPINDEX, 0, 0);

if (Rotation > 0) then begin
iIdx := iIdx - 1;
end else begin
iIdx := iIdx + 1;
end;

Self.Perform(CB_SETTOPINDEX, iIdx, 0);
exit;
end;
inherited WndProc(Message);
end;

15 ：デフォルトの名無しさん：2012/11/20(火) 14:29:08.05 .net

TEditでhoge...○○と続く文のhogeの部分があれば実行されるようにしたいのですがどうすればいいのでしょうか？

16 ：デフォルトの名無しさん：2012/11/20(火) 14:46:38.49 .net

その質問の文章、自分で理解可能なのかよ？

それはともかくエスパーしてみると、
if Pos('hoge',Edit1.Text) = 1 then
で判定かな？

17 ：デフォルトの名無しさん：2012/11/20(火) 14:52:52.73 .net

>>16
すみません・・・

そのコードで試してみたところできました！
ありがとうございます！

18 ：デフォルトの名無しさん：2012/11/20(火) 15:26:48.71 .net

もう1つだけお願いします・・・
hogeから10文字までの文字を引数に格納するにはどうすればいいのでしょうか？

19 ：デフォルトの名無しさん：2012/11/20(火) 16:39:29.40 .net

引数に格納？？ 変数に、のことかな。
hogeから？ hogeを検索してってこと？ それとも先の質問と同じくhogeは先頭にあるのか？
10文字まで？？ 10文字なのか、インデックスで10文字目までなのか。
hogeを含むのか、含まないのか？

私のESP能力を全開にして導き出した回答。
Edit1からhogeを検索し、その位置からhogeを含んで10文字取り出す。

var
Str: String;
begin
Str:=Copy(Edit1.Text, Pos('hoge', Edit1.Text), 10);

Delphiもいいけど、日本語をがんばれ。

20 ：デフォルトの名無しさん：2012/11/20(火) 16:43:18.70 .net

>>19
ありがとうごいます！
日本語のほうも勉強したいと思います・・・

21 ：デフォルトの名無しさん：2012/11/20(火) 22:09:23.89 .net

超初心者の内容かと言われれば疑問ですが、ひとつ質問をしたいです。

INetCfgインタフェースなど、NetCfgX系の資源を利用できるDelphi用の定義ファイルってないでしょうか？
もしご存知の方は教えて下さい。探しても見つかりません…。

22 ：デフォルトの名無しさん：2012/11/20(火) 23:09:35.61 .net

if文に2つの条件をつけるにはどうすればいいのでしょうか？

23 ：デフォルトの名無しさん：2012/11/20(火) 23:28:50.03 .net

if (A=1) and (B=1) then
if (A=1) or (A=9) then

24 ：デフォルトの名無しさん：2012/11/20(火) 23:29:40.24 .net

>>23
できました
ありがとうございます!

25 ：デフォルトの名無しさん：2012/11/21(水) 05:35:01.31 .net

>>19 hogeが２個以上あったらどうする？
こういう処理はマッチングでやるしかないと思う　Posでは物足りない

26 ：デフォルトの名無しさん：2012/11/21(水) 06:17:18.19 .net

>>25
言うは易しでコードで示さないと >>18 要求では >>19 で事足りている

27 ：デフォルトの名無しさん：2012/11/21(水) 06:59:28.39 .net

今足りても将来どうかな　先を見越した設計をしないと
String型を安易に使ってるのも危険な匂いがするんだけど　DELPHIのバージョンで扱いが変わるし

28 ：デフォルトの名無しさん：2012/11/21(水) 10:39:58.84 .net

さっさとコード出せよｋｓ

29 ：デフォルトの名無しさん：2012/11/21(水) 11:41:42.99 .net

>>18を単純に解釈すると
hogeから始まる文字列の頭から10文字分を別の文字列に
コピーするにはどうしたらいいですか？

になるんだけど、これであってるかな。

30 ：26：2012/11/21(水) 12:27:26.43 .net

>>29
>15 の続きで >18 の流れだから
１．TEdit 文字列 [ hoge...○○ 　　]　の中に「hoge」が入った文があれば実行する、にはどうするか？
２．上記の条件を満たした場合、「hoge」から10文字までの文字を変数に格納する、にはどうするか？

>17 でOKな返答がある為、Unicode 以前なら結果的にどうってこともないかと
var
　Str : String;
begin
　if Pos('hoge',Edit1.Text) > 0 then
　　begin
　　Str := Copy(Edit1.Text, Pos('hoge', Edit1.Text), 10);
　　// 処理
　　end;
end;

Edit1.Text → 結果
hoge0123456789 → hoge012345
012hoge0123456789 → hoge012345
01234hoge01 → hoge01
hogeあ1いうえ → hogeあ1い

31 ：デフォルトの名無しさん：2012/11/21(水) 17:18:53.12 .net

質問者はとうにいなくなってるのに周りの池沼共がギャーギャーうるさいな
こういうのよく見るけど何がしたいのかね？知識自慢？

32 ：デフォルトの名無しさん：2012/11/22(木) 02:00:13.04 .net

>>25=27=31

33 ：デフォルトの名無しさん：2012/11/22(木) 09:02:26.64 .net

delphixe2のListViewの横スクロールバー表示はどこで設定するの？

34 ：デフォルトの名無しさん：2012/11/22(木) 11:28:29.47 .net

ListViewのスクロールバーは勝手に出たり消えたりするから設定は無いんじゃない？

35 ：デフォルトの名無しさん：2012/11/22(木) 19:02:10.57 .net

レスありがとうございます。
スッキリしました。

36 ：デフォルトの名無しさん：2012/11/22(木) 19:12:01.44 .net

6の時みたいに無償化イベントないかなぁ

37 ：4：2012/11/23(金) 07:14:21.87 .net

ComboBox1.Perform(CB_SETTOPINDEX,*,*)
を使用する方向でやっていましたが、結局改善しきれませんでした。

そのため、SPI_SETLISTBOXSMOOTHSCROLLINGのシステム設定を
変更する方法で回避することにしました。

ちなみに、私が懸念していた点について。
> １．ソフトが異常終了したときに、Windowsの設定が変わってしまう。
プロファイルへの書き込みをしなければ、
Windowsを再起動したときに変更前の設定に戻るみたいですので
想定よりはましでした。

> ２．同様の設定をしているコンボボックスを画面内に複数載せる場合があることを考えると、
>　　コンボAのOnDropDownとコンボBのOnCloseUpが同時に発生したときの処理順が気がかり。
通常のマウス操作では、コンボAのDropDownとコンボBのCloseUpを同時発生できないので、杞憂でした。

ありがとうございました。

38 ：デフォルトの名無しさん：2012/11/24(土) 13:43:57.37 .net

HTMLファイルのURLの部分のみ(複数のURL)を抜き出してlistboxに反映するにはどうすればいいのでしょうか？

39 ：デフォルトの名無しさん：2012/11/24(土) 14:09:28.86 .net

「<a」が出てきたら次の「>」までを抽出する

40 ：デフォルトの名無しさん：2012/11/24(土) 14:14:43.00 .net

>>39
そこまでは辿りついたのですがでどういう風に書けばいいのか分からず・・・
PosExを使うのでしょうか？

41 ：デフォルトの名無しさん：2012/11/24(土) 15:04:41.10 .net

正規表現ライブラリとか使うと幸せになれるよ

42 ：デフォルトの名無しさん：2012/11/24(土) 18:33:28.25 .net

URL抽出用のクラスを自作すりゃいい

43 ：デフォルトの名無しさん：2012/11/24(土) 19:08:47.65 .net

>>40
<a href="
から "> まで　抜くにしてもURLのリンク記述は相対パスが多いぞ
試しにこのアドレスの表示ページをブラウザのソース表示で見てみては？
http://toro.2ch.net/tech/subback.html

HTMLファイルを読み込んで抜き出すのに
テキストベースで処理するのかバイナリーベースで行うのかで違ってくるけど
てけとうに書いてみますた

44 ：デフォルトの名無しさん：2012/11/24(土) 19:12:29.63 .net

procedure TForm1.Button1Click(Sender: TObject);
var
MS_Base :TMemoryStream;
Buffer : array[0..MAX_PATH-1] of Byte;
BinarySize,Address : Int64;
Bytes : Integer;
Str : String;
Check1,Check2 : Boolean;
begin
MS_Base := TMemoryStream.Create;
MS_Base.LoadFromFile(ExtractFilePath(Application.ExeName) + 'subback.html'); // 保存してると思いねぇ

Check1 := False;
Check2 := False;
Str := '';
Bytes := 3;
Address := 0;
BinarySize := MS_Base.Size;
while Address < BinarySize do
begin

45 ：デフォルトの名無しさん：2012/11/24(土) 19:14:00.78 .net

MS_Base.Position := Address;
MS_Base.Read(Buffer,Bytes);
if Check1 and Check2 then
begin
if Buffer[0] = $22 then
begin
Check1 := False;
Check2 := False;
ListBox1.Items.Add(Str); // <a href=" 〜 中の部分 〜 "
Str := '';
Bytes := 3;
end else Str := Str + chr(Buffer[0]);
end;
if Check1 and (Check2 = False) then if Buffer[0] = $22 then Check2 := True;
if (Check1 = False) and (Buffer[0] = $3C) and (LowerCase(chr(Buffer[1])) = 'a') and (Buffer[2] = $20) then
begin
Check1 := True;
Bytes := 1;
end;
Address := Address + 1;
end;
MS_Base.Free;
end; // ここまで

46 ：デフォルトの名無しさん：2012/11/24(土) 19:30:47.45 .net

>>43-45
出来ました！
本当にありがとうございます
これで自分が思い描いたソフトが作成できそうです

47 ：デフォルトの名無しさん：2012/11/24(土) 20:28:45.09 .net

LOOP1:
if (DATA[i] = $3C) and
(DATA[i+1] = $61) and
(DATA[i+2] = $20) and
(DATA[i+3] = $68) and
(DATA[i+4] = $72) and
(DATA[i+5] = $65) and
(DATA[i+6] = $66) and
(DATA[i+7] = $3D) and
(DATA[i+8] = $22) then
begin
　i:=i+9;
　while (DATA[i] <> $22) do
　begin
　　str:=str+chr(DATA[i]);
　　Inc(i);
　end;
　ListBox1.Items.Add(str);
　str:='';
end;
Inc(i); if i>length(DATA) then exit;
goto LOOP1;

48 ：デフォルトの名無しさん：2012/11/27(火) 19:29:35.25 .net

Delphi XE3にてDeleteが使用できません。

while Pos('hoge', str) > 0 do Delete(str, Pos('hoge', str), 1);

以下の内容で実行すると
'Integer' と 'string' には互換性がありません
実パラメータが多すぎます
とでます
どうすれば実行されるようになるのでしょうか

49 ：デフォルトの名無しさん：2012/11/27(火) 19:42:04.94 .net

>>48
自己解決しました
ListBox1.Items do
の中に入れていたのでエラーが発生したみたいです

50 ：デフォルトの名無しさん：2012/11/27(火) 20:08:00.88 .net

System.deleteで解決できました。

51 ：デフォルトの名無しさん：2012/11/27(火) 22:18:02.68 .net

Win32_PnPEntity　を使った接続デバイスの一覧で
http://stackoverflow.com/questions/12163106/getting-device-names-using-a-com-port-number-through-the-windows-api-in-delphi
ttp://stackoverflow.com/questions/1687239/getting-connected-usb-info-with-delphi-on-vista

機器名を個別に関連付けするのに
http://www.wmifun.net/library/win32_pnpentity.html
HardwareID　を参照取得したいのですが

PortData[No][0] := String(FWbemObject.name);
PortData[No][1] := String(FWbemObject.Description);
PortData[No][2] := String(FWbemObject.Service);
PortData[No][3] := String(FWbemObject.PNPDeviceID);　← これで振り分けに使うとドライバの種類になって機器個別にならない。
PortData[No][4] := String(FWbemObject.HardwareID);　← ここがエラーになる
PortData[No][5] := String(FWbemObject.Manufacturer);

Windows のシステムでハードウェアID を見るとString が複数行に渡っているため？だと思うのですが
取得する記述をどういうふうに書くのでしょうか？

52 ：デフォルトの名無しさん：2012/11/27(火) 23:50:37.26 .net

WMI Delphi Code CreatorとかMicrosoftのWMI Administrative Toolsに入っている
CIM Studioを使うと幸せになれるかも

53 ：デフォルトの名無しさん：2012/11/28(水) 00:37:46.87 .net

>>51
Win32_PnPEntity class (Windows)
http://msdn.microsoft.com/en-us/library/windows/desktop/aa394353(v=vs.85).aspx

HardwareID
Data type: string array
Access type: Read-only
（中略）
Windows Server 2003, Windows XP, Windows 2000, Windows XP, and Windows NT 4.0:
This property is not available.

みたいなんですけど、OSは？

54 ：51：2012/12/04(火) 20:27:08.89 .net

>>53
規制で書けませんでした
OS は XP sp3 です。
Delphi は D6 です。
HardwareID　は　array　なんですね。
HardwareID 部分を別アレイにするとしても変動する行数をどう取得するのやらさっぱり

その後　各USB 機器やWindows の HardwareID　を調べていった結果
どうやら機器そのものの ID ではなくて
その機器に使われている I/O 部分の ID だということが判りました。
結局ドライバレベルの（他メーカーでも同一のチップによるひとくくりな）大まかな振り分けしかできないようで
質問は取り下げします。　スミマセン

55 ：デフォルトの名無しさん：2012/12/04(火) 20:57:16.27 .net

？
取得以前に、Win32_PnPEntityの場合HardwareIDは存在しないのでは？

Windows Server 2003, Windows XP, Windows 2000, Windows XP, and Windows NT 4.0:
This property is not available.

大事なことだから、二回もWindows XPと書いてあるけど。

56 ：51：2012/12/05(水) 03:14:00.05 .net

>55
PnPEntity で取れるかどうかは別として
デバイスマネージャ上のプロパティ　＞　詳細　＞　ハードウェア ID
で OS から見たりした結果です。

XP でも項目と値は入っていますよ

57 ：デフォルトの名無しさん：2012/12/05(水) 06:16:10.52 .net

>>52

58 ：51：2012/12/05(水) 21:48:09.23 .net

>>57
目的が「機器名を個別に関連付けする」です。
その為に機器個別のメーカーが振ったローカル情報があれば取得したかったわけです。
Ａ社の機器Ｂ　使われているI/O のチップＦ
Ｃ社の機器Ｄ　使われているI/O のチップＦ

で、この場合、共通の「I/O のチップＦ」しか取得できないようで
異なる通信接続手順などを自動設定できないな・・・

USB Web カメラなどは接続の（画像サイズなど）リストが出る方法があるようですが
振り分けのターゲットは、USB 接続
CP210x USB to UART Bridge Controller
の先にいる機器です。
あきらめました

59 ：デフォルトの名無しさん：2012/12/05(水) 22:09:15.88 .net

>>56
なんかすれ違うなぁ。
いやXPではHardwareIDが無いなんて言ってないし、別の方法で確認したことは理解してましたよ。

＞HardwareID 部分を別アレイにするとしても変動する行数をどう取得するのやらさっぱり
って書いてあったから、
arrayとかの問題以前に、XPでWin32_PnPEntityの場合はHardwareIDの取得は無理なのでは、と言ったつもり。

分かってるなら私の読解力不足。失礼。

60 ：デフォルトの名無しさん：2012/12/18(火) 00:06:09.01 .net

質問です。

FindFirst(), FindNext() で開いているディレクトリの中のファイルを操作すると何か問題ありますか？

画像ビューアを作っています。ウィンドウにドロップされたフォルダを開き、ファイル一覧を得て、順番に表示し、必要に応じて画像を移動したり削除したりするものです。

61 ：デフォルトの名無しさん：2012/12/18(火) 00:08:10.93 .net

60 つづき。

フォルダの中の画像が多いとファイル一覧を得るのに時間がかかるので、差し当たり百枚くらいリストを作ったら最初の画像を表示し、ユーザに待ち時間を感じさせないようにしたいのです。
FindNext() は TThread か Application.PrecessMessages で GUI と競合しないように継続するので、FindClose() する前に、ファイルにアクセスすることになります。

よろしくお願いします。

62 ：デフォルトの名無しさん：2012/12/18(火) 01:50:28.19 .net

試しにどうでもいいデータでテストしてみればいいだけでは。

63 ：デフォルトの名無しさん：2012/12/18(火) 05:25:00.09 .net

時間がかかるって、ファイル何個で何秒？
FindNext以外の処理で重くなってる気がする FindNext自体は高速だろう

64 ：デフォルトの名無しさん：2012/12/18(火) 05:40:04.99 .net

エクスプローラ的なUIの画像ビュアーか　いかにも面倒臭そう
そういうソフトだったVixってソースが何十万行もあったような・・・

65 ：60：2012/12/18(火) 07:00:40.64 .net

>>62
旧バージョンではフォルダを閉じずにファイル操作していましたが別に不都合は感じませんでした。
でも本当にそれでいいのか気になって一旦ファイル一覧を作ってフォルダを閉じてから操作するようにしました。
すると今度は待ち時間が発生するのでどうしたものかと。

66 ：60：2012/12/18(火) 07:09:37.06 .net

>>63-64
*.* で全てのエントリを拾って拡張子を調べて BMP, GIF, JPEG, PNG を選び TStringList に Add() しています。
ExtractFileExt(), LowerCase(), AnsiPos() をエントリの数だけ繰り返します。
コードの行数は三桁もないと思いますが while ループがあります。
実際にかかる時間は画像千枚くらいで十秒くらいでしょうか。

67 ：デフォルトの名無しさん：2012/12/18(火) 08:59:41.58 .net

Win限定ならFindNext使って列挙せずに、シェルAPI使おうぜ。そうすりゃ、エクスプローラとの
見た目の一貫性とかある程度取れる。

>>60
FindFirst,FindNextももちろんだが、ディレクトリのファイルを操作する
APIの呼び出し時にもちゃんと戻り値をチェックして行儀のよくプログラミング
しておけば別に問題ないと思うけど。

68 ：60：2012/12/18(火) 09:42:46.02 .net

>>67
ShellAPI ですね、調べてみます。
戻り値にも気を付けます。
いっそ、全てのファイルを取得してフォルダを閉じてから画像ファイルを選べばいいんじゃないかと思い当たりました。

69 ：デフォルトの名無しさん：2012/12/18(火) 09:58:50.43 .net

つか、Application.ProcessMessagesとかかっこ悪い事はやめよう。
ファイル操作がいったいなんなのかよくわからんけど、単純にサブスレッドで
列挙するだけなら、
http://pastebin.com/cPY8duNq

70 ：60：2012/12/18(火) 16:41:59.29 .net

>>69
ありがとうございます。
それも参考にしてなんとかしてみます。

71 ：デフォルトの名無しさん：2012/12/25(火) 23:28:28.78 .net

delphi6を使用しています。

var
Time : TDateTime;
str : String;

begin
Time := Now;
DateTimeToString(str, 'h時n分s秒',Time);
Label1.Caption := str;

とすると、時、分、秒が表示されず数字のみの表示になってしまいます。
どうすれば時、分、秒が表示されるのでしょうか？

72 ：デフォルトの名無しさん：2012/12/25(火) 23:32:00.10 .net

>>71です。
'h''時''n''分''s''秒'で解決することができました。

73 ：デフォルトの名無しさん：2012/12/25(火) 23:45:48.35 .net

つ FormatDateTime

74 ：デフォルトの名無しさん：2012/12/26(水) 02:45:33.20 .net

そっちも問題は一緒ですけど

75 ：デフォルトの名無しさん：2012/12/26(水) 18:34:08.08 .net

procedure TForm1.FormCreate(Sender: TObject);
var
ini : TIniFile;
ExePath: String;
begin
ExePath := ExtractFilePath(Application.ExeName);
ini := TIniFile.Create(ExePath + 'settings.ini');

if ini.SectionExists('Settings') then

このようにして、settings.iniのセクション'Settings'があった場合の動作を指定しようと思ったのですが、どうもうまくSectionExistsが働いていないようで、
SectionExistsがTrueになってくれません。
settings.iniに'Settings'のセクションはあります。
解決策をどなたか教えて頂けないでしょうか？

76 ：デフォルトの名無しさん：2012/12/26(水) 18:46:02.48 .net

デバッグ版DCU使ってSectionExistsの中にステップインしてみたら？

77 ：デフォルトの名無しさん：2012/12/26(水) 19:03:34.31 .net

>>75
根本的な解決にはならないけど代替案。

var hoge: Integer;

hoge := ini.ReadInteger('foo', 'bar', -1);

if hoge = -1 then
begin
// invalid
end
else
begin
// valid
end;

78 ：デフォルトの名無しさん：2012/12/26(水) 19:28:08.38 .net

>>76さんのやり方は出来ないことが判明したので、>>77さんの代替案を使用させて頂きます。
ありがとうございました！

79 ：デフォルトの名無しさん：2012/12/26(水) 19:28:58.23 .net

>>78です。
言葉足らずでした。
>>>76さんのやり方は出来ないことが判明したので
性格には>>76さんのやり方は私の環境では出来ないことが判明したので
でした。

80 ：デフォルトの名無しさん：2012/12/26(水) 22:43:09.66 .net

はぁ

81 ：デフォルトの名無しさん：2012/12/27(木) 10:11:15.46 .net

tがひとつ多いとかsが足りないとかいうしょーもないオチだったりして・・・

82 ：デフォルトの名無しさん：2012/12/27(木) 10:39:42.33 .net

出来ないだけじゃ分からん

83 ：デフォルトの名無しさん：2012/12/28(金) 20:33:30.27 .net

出来ないのは彼女です

84 ：デフォルトの名無しさん：2012/12/30(日) 01:20:29.43 .net

こんなアホそうなやつでも遭遇するバグだったら他の誰かがとっくに気付いてるし

85 ：デフォルトの名無しさん：2013/01/16(水) 20:32:54.27 .net

無償、もしくは非常に安価なバージョンは用意されていますか？

86 ：デフォルトの名無しさん：2013/01/16(水) 21:13:03.38 .net

Starter Editionってのがあったと思う。色々制限はあるだろうけど。

87 ：デフォルトの名無しさん：2013/01/19(土) 01:45:04.23 .net

何もないフォームに PaintBox を一つ貼り付けて、プログラムも OnPaint に

procedure TForm1.FormPaint(Sender: TObject);
begin
with PaintBox1.Canvas do begin
Brush.Style := bsSolid;
Brush.Color := clWhite;
FillRect(ClipRect);
end;
end;

と書いただけの時、フォームのダブルバッファが True だと表示されないのはなぜ？
前はちゃんと出来ていたと思うのだけど・・・

88 ：87：2013/01/19(土) 01:50:44.31 .net

あ、バージョンは XE Starter です。

89 ：デフォルトの名無しさん：2013/01/19(土) 08:45:42.15 .net

事故解決しました・・・

90 ：デフォルトの名無しさん：2013/01/24(木) 21:34:14.71 .net

Windows 7 (32-bit/64-bit) 環境で Delphi 6 は、インストールと動作は可能でしょうか？

XP モードというものを入れないと使えない？とかありますか？

91 ：デフォルトの名無しさん：2013/01/24(木) 21:47:48.13 .net

>>90
今使ってるが問題なく使えている(win7 pro 64bit)
XPモードは使っていない
開発頑張ってね

92 ：デフォルトの名無しさん：2013/01/24(木) 21:59:16.63 .net

>>90
Delphi5Pro だけど Win7 32/64bit でちゃんと動いてるよ。
ただしプロジェクトファイルは Delphi 本体からでないと開けない。
F9 で実行中のウィンドウはファイルのドロップを受け付けない。
ヘルプファイルの挙動が時々不審。
この三つ以外は特に問題ない。

93 ：デフォルトの名無しさん：2013/01/24(木) 23:42:16.76 .net

>>91-92
ありがとうございます。　安心して機種移行するまで今のXP環境を使います。
最近の(64-bit)機種でXPのドライバが無いものなどがあるようなので
今使っているパソコンが壊れたら開発環境崩壊？　かと

94 ：デフォルトの名無しさん：2013/01/25(金) 00:18:01.99 .net

Lazarusあかんの？

95 ：デフォルトの名無しさん：2013/01/25(金) 19:44:18.45 .net

横から便乗質問なんですが（私も Win7 64bit Delphi5Pro です）
最近急に .hlp の起動が遅くなりました
数ヶ月くらい前から急にです
秀丸から開いたりするとタイムアウトエラーになるほど遅いです
おそらく何かきっかけがあったんでしょうがググってもあまり良い情報は得られませんでした
>>92 さんはそんなことは起きていないですか？

96 ：デフォルトの名無しさん：2013/01/25(金) 23:33:29.77 .net

Delphi関係だけが遅いのですか。
ファイルのコピーとかは遅くないですか。

97 ：デフォルトの名無しさん：2013/01/26(土) 00:38:16.19 .net

>>95
92 です。
うちでは起動が遅いということはありません。
うちの不審な挙動とは F1 でヘルプを開こうとしたときに、クラスではなくプロパティやメソッドの名前にカーソルがあると開かないというものです。

98 ：デフォルトの名無しさん：2013/01/26(土) 02:49:54.46 .net

Windows 7 Pro 64bit に Delphi 7.1 をインストールして快適に使っています。

唯一、F1 キーによる状況検知ヘルプだけが有効に機能しません。

「C:Delphi7Helpd7.hlp ファイルが見つかりません。このファイルを自分で探しますか？」

というメッセージダイアログが出てしまいます。ヘルプファイルのパス名から \ マークが
消えています。Windows 7 側の問題だと思いますが、このスレに解決方法をご存じの方
いらっしゃいますか？

99 ：95：2013/01/26(土) 11:06:48.62 .net

>>96-97
どもです
WinHelp は他に API32WH.HLP くらいしか使っていなかったのですが
今ほかの昭和なソフトで確認したら問題なかったです
秀丸に登録してみてもすぐに開きました
D5、D6、API32WH.HLP はドライブもフォルダも異なるので HDD の問題でもないと思うのですが
うまく開いていた頃はたまにオブジェクトインスペクタから開いた時に「追加情報はありません」と
出ていたくらいでその時はフォームのコンポーネントで F1 押せば正常に開いていました

100 ：デフォルトの名無しさん：2013/01/28(月) 20:45:15.19 .net

Dという言語がある。D1, D2があるから、
D5, D6なんてかかないほうがいいとおもう

101 ：デフォルトの名無しさん：2013/01/28(月) 21:08:54.10 .net

その弩マイナーな言語よりDはDelphiが先なんで

102 ：デフォルトの名無しさん：2013/01/29(火) 02:25:38.68 .net

DelphiをDなんて言う人滅多に見ないな
滅多にってか見た記憶がなかったわ

103 ：デフォルトの名無しさん：2013/01/29(火) 05:51:22.40 .net

だから何なの。D5,D6という記述は普通だけど。

104 ：デフォルトの名無しさん：2013/01/29(火) 10:21:07.95 .net

Delphiである前提条件下では普通だな。tipsやvclの対応表記とか。
ここもそうならそうでいいんじゃないの？
厳密に正否なんてないがDelphiスレでおかしいと思うのもどうかと思うが
普通とか言っちゃってるのも相当おかしい。

105 ：デフォルトの名無しさん：2013/01/29(火) 11:33:33.01 .net

検索のノイズになることを懸念しているのであれば、「D言語」で検索すれば問題ないんじゃない？

106 ：デフォルトの名無しさん：2013/01/29(火) 20:17:22.90 .net

>>104
お前の日本語の方がおかしい

107 ：95：2013/01/29(火) 20:39:57.31 .net

D言語が存在するのは承知していますが
パソ通時代から現在まで Delphi スレでのバージョン明記の目的でしか D5、D6 という書き方をしたことがありません
とかどうでも良いんですが
Help 問題は俺環みたいですねお騒がせしました

108 ：デフォルトの名無しさん：2013/01/30(水) 22:32:42.43 .net

ふぁっきんじゃっぷ

109 ：デフォルトの名無しさん：2013/01/31(木) 22:06:32.93 .net

Delphi のバージョン略を 他言語 D と混同するとか難癖つけるやつは
スレタイ１００回音読しやがれ！
何の開発言語のスレだ　ボケっが

110 ：デフォルトの名無しさん：2013/01/31(木) 22:12:05.90 .net

　
　 　 　　　＿＿＿_
　 　　　／⌒　　⌒＼ ﾎｼﾞﾎｼﾞ
　　　／（ ●） 　（●）＼
　 ／::::::⌒（__人__）⌒::::: ＼ 　はいはい
　 |　　　 ｍj |ー'´　　　　　 |
　 ＼　 〈＿_ﾉ　　　　　 　／
　　　　ノ　　ﾉ

111 ：デフォルトの名無しさん：2013/01/31(木) 23:11:52.74 .net

>>109
釣られちゃダメよ。

112 ：デフォルトの名無しさん：2013/01/31(木) 23:22:09.92 .net

pascalのくせに生意気だ

113 ：デフォルトの名無しさん：2013/02/18(月) 07:30:58.90 .net

あるテキストを読み込み空行があれば
行を詰めて書き直したい
----------------------------------
ファイルから一行読み込む
最初の一文字が＜＞空欄でなかったら
書き込む
----------------------------------

元のテキスト

aaaa

bbbb

cccc


結果
aaaa
bbbb
cccc

こんなプログラム書いてくれる親切な人いたらお願いします。
昔 turbo pascal （わかるかな？）というので数行で書けたのですが
by後期高齢者

114 ：デフォルトの名無しさん：2013/02/18(月) 08:06:43.24 .net

>>113
sl: TStringList;
i: Integer;

// Create して LoadFromFile

for i := sl.Count - 1 DownTo 0 do
if sl[i] = '' then sl.Delete(i);

// SaveToFile して Free しておしまい。

たぶんこんな感じ。

115 ：デフォルトの名無しさん：2013/02/18(月) 08:18:48.55 .net

var
fr,fw:textfile;
s:string;
begin
assignfile(fr, "ファイル名");
assignfile(fw, "ファイル名");
reset(fr);
rewrite(fw);
while not eof(fr) do
begin
readln(fr, s);
if s = '' then writeln(fw,s);
end

116 ：デフォルトの名無しさん：2013/02/18(月) 09:36:59.86 .net

>>114
>>115
多謝、毎日実用させていただきます。

117 ：デフォルトの名無しさん：2013/02/19(火) 08:30:33.31 .net

最初の一文字が＜＞空欄でなかったら書き込む

この条件見落としてる人ばかりｗ　０点。＜と＞の判定を忘れてる

118 ：デフォルトの名無しさん：2013/02/19(火) 11:21:59.30 .net

>>117 は何か勘違いしているな。
依頼主の表現も悪かったが、それを読み解く能力の有無で >>114-115 と差がついてしまっているようだ。
コミュニケーションスキルは大事だということが理解できる事例。

119 ：デフォルトの名無しさん：2013/02/19(火) 12:19:20.03 .net

WindowsXPsp3、Delphi6 personalですが

アプリ起動時にアプリ本体のあるディレクトリにデータ保存用のフォルダを作っているのですが
そのフォルダの中にファイルストリームでテキストファイルを生成して
そのファイルをTStringListで読み込むにはどうすればいいですか？

アプリ本体と同一フォルダにファイルストリームでテキストファイルを生成してTStringListで読み込むことは出来ています
検索してもフォルダ内にファイルを作る方法がよく判りません

120 ：デフォルトの名無しさん：2013/02/19(火) 12:33:37.60 .net

>>119

作成も読み込みも、実行ファイルが置かれているディレクトリ + 'hoge\'で指定出来ない？

121 ：デフォルトの名無しさん：2013/02/19(火) 12:59:18.98 .net

>>119
実行ファイルのディレクトリはExtractFilePath(Application.ExeName)で
取得出来るよ。

122 ：デフォルトの名無しさん：2013/02/19(火) 13:23:50.40 .net

「最初の一文字が＜＞空欄」ってどういうことか。
＜や＞で始まる一行を削除したいんだろう　もっといえば「複雑な削除条件を持たせたい」ってのが
本件の主軸。しかもその削除条件は変動的だろうさ　EXEでやるのは間違い、PerlやRubyスクリプト
でやるべきだ　それなら依頼主が言うようにたった数行でできるしいつでも変更できる
初心者が理解しがたいDownToの逆順ループとかやってるアホがいたけどｗ　それで保守できるの？
いかにも仕様変更時に勘違いやバグが起きそうだ

123 ：デフォルトの名無しさん：2013/02/19(火) 14:04:15.85 .net

>>120-121
何と、あっさりと出来てしまいました
本当にありがとうございましたm(_ _)m

124 ：デフォルトの名無しさん：2013/02/19(火) 15:13:21.51 .net

ParamStr(0) も忘れないでください

125 ：デフォルトの名無しさん：2013/02/19(火) 15:37:29.39 .net

GetModuleFileNameも忘れないで

126 ：デフォルトの名無しさん：2013/02/19(火) 15:51:33.71 .net

>>122
いろいろと痛々しいから大人しくしていたほうがいいよ。
これ以上の議論はスレ違いなんで、あと一回捨て台詞吐いて消えな。
それについては反論しないから安心していいよ。
最後はお前さんの勝ちってことでいいからね。

127 ：デフォルトの名無しさん：2013/02/19(火) 16:09:47.94 .net

Ran ちゃん、ご苦労さま。

128 ：デフォルトの名無しさん：2013/02/19(火) 18:02:53.69 .net

>>122
依頼主が「多謝」っていってんのに何いってんのこいつ？
依頼主が何をいってるかわからないなら勝手に読み解くんじゃなくて
依頼主にたずねるのが常識だろ？
これだから引きこもりは嫌なんだよ。

129 ：デフォルトの名無しさん：2013/02/19(火) 19:07:42.01 .net

コミュ障なんだろ
ほっとけよ

130 ：デフォルトの名無しさん：2013/02/19(火) 20:11:26.96 .net

> 初心者が理解しがたいDownToの逆順ループ
Delphiの定石だと思うんだけど。

131 ：デフォルトの名無しさん：2013/02/19(火) 23:03:04.68 .net

StringListでDeleteするならDownToの方が安心だよね。

132 ：デフォルトの名無しさん：2013/02/20(水) 08:46:09.55 .net

定石とか安心とか、中級者がハマりがちな勘違い　上級者ほど基本に立ち返る

133 ：デフォルトの名無しさん：2013/02/20(水) 11:43:06.50 .net

削除時のdowntoは基本中の基本だけど？

134 ：デフォルトの名無しさん：2013/02/20(水) 12:02:01.17 .net

>>133
相手しちゃダメ。

135 ：デフォルトの名無しさん：2013/02/22(金) 10:26:30.39 .net

>>131
安心つか>>133の言うように、downtoでないとindexずれるよ

136 ：デフォルトの名無しさん：2013/02/23(土) 20:44:31.31 .net

会社でDelphi7使うことになって、勉強のために家のPCにもDelphiをインストールしたいです。
ただ、Delphi7はバージョンが古いようで、手にはいりません。
Delphi7と同じ感覚で使えるバージョンはありますか？

137 ：デフォルトの名無しさん：2013/02/23(土) 21:44:26.66 .net

>>136
Delphi6が無償で配布されているがそれじゃダメかな
コードの練習と各々の機能の理解はどのバージョンでも出来ると思うよ

138 ：デフォルトの名無しさん：2013/02/23(土) 21:57:18.46 .net

>>137
そのキャンペーンはとっくに終わっている
現在、無償の Delphi は存在しない

139 ：デフォルトの名無しさん：2013/02/23(土) 22:11:14.70 .net

>>138
そうだったのか
ならLazarusはどうかな？

140 ：デフォルトの名無しさん：2013/02/24(日) 02:14:31.51 .net

短発の仕事の為だけに1万くらいの最新の奴買う訳にはいかないよなｗ

141 ：デフォルトの名無しさん：2013/02/24(日) 02:51:13.50 .net

BCB 6 perはエンバカがキー公開してるけどD6はしてないんだな
http://delwiki.info/?Delphi%2FDelphi%206%2FDelphi%206%20Personal%20%E3%81%AE%E5%85%A5%E6%89%8B%E3%81%A8%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB

ライセンスに反しない手段だとCD付録の書籍探すしかないかな
コンポがインスコ出来ないTurbo Delphi Explorerは配布の時に
「ミラーリングして拡散してくれ」とか言ってたような気がするけど
ライセンス入手出来るのか知らない

142 ：デフォルトの名無しさん：2013/02/24(日) 08:36:17.34 .net

XEでも似たようなモンだろ？　体験版あるよ
えーと７とそっくりだったのは2010だっけか　６と７は文字コードの差とか内部的には違いが大きいはず
見た目は近いけど。複数のバージョン試して驚いたのがコンパイラがまったく進歩せず、６のソースが
ほとんど高速化しなかったこと　その点を踏まえれば古いバージョンのままでも正解だと思う

143 ：デフォルトの名無しさん：2013/02/24(日) 09:20:08.31 .net

うちも未だに仕事では7なんだけど7ってやっぱ優秀なの？
何を持って優秀というかは自分でもわからんけど自宅では趣味性で最新版入れてるけど
特に顧客要件も関係ないのに頑なに7なんだよねぇ

144 ：デフォルトの名無しさん：2013/02/24(日) 09:43:54.73 .net

5が最強らしいけどユニコードががが……。

145 ：デフォルトの名無しさん：2013/02/24(日) 16:28:20.99 .net

>>143
優秀っていうより7からXP モードが搭載されて見た目がXPライクに作れる
それまでのは 画面のテーマで「Windows クラシック」なウィンドウ。
吐くコードが Windows 2000 でも動作可能で Win32API に気をつけて組めば
Win95 でも動くものを作れるので、雑多に混ざっているクライアント環境に渡すには強い。
MS visual studio は上位バージョンになっていくと過去OSで動かないコードになってく

146 ：デフォルトの名無しさん：2013/02/24(日) 21:02:49.88 .net

>>136
XE3買えば全てのバージョン使えるじゃん。

147 ：デフォルトの名無しさん：2013/02/24(日) 21:37:35.70 .net

未だに会社でDelphi7の環境ってことは、ライセンスに関してはゴニョゴニョって感じなのかな。

148 ：デフォルトの名無しさん：2013/02/27(水) 06:21:33.20 .net

ロングファイルネームや感じがダメなら hogeho~1.dbf とかの短縮名で
アクセスしちゃダメ何かね？　MLの話題なんだけど...。

149 ：デフォルトの名無しさん：2013/02/27(水) 06:44:36.34 .net

ほっとけよ。>148
質問者も回答者も隠し球ばかり。

あの手のバグは FileMon つかって実際に開こうとしているファイルを「知る」のが最短の対応。

150 ：デフォルトの名無しさん：2013/03/01(金) 00:16:17.49 .net

すみません、実はかなり初歩的なことなんだろうと思うんですけど、
ゴチャゴチャやってるうちにわけわかんなくなっちゃいました。

function HOGE(bmp: TBitmap): boolean
var
tmpBMP: TBitmap;
begin
tmpBMP:=TBitmap.Create;
try
で、tmpBMPにいろいろやって、

最終的に、
bmp.Assign(tmpBMP);
なんてことをやる場合、
end;

この関数の引数であるbmpは var とかにしなきゃダメなんですか?
はっきりは分かりませんが、これでも動いてることは動いてるみたいなんです。

151 ：デフォルトの名無しさん：2013/03/01(金) 00:21:31.54 .net

HOGE の引数、 bmp を誰がいつ用意するか。を意識してみてください。
この場合の用意は、TBitmap のコンストラクターを呼ぶのは誰か。と言うことになります。

152 ：デフォルトの名無しさん：2013/03/01(金) 00:56:00.06 .net

アホでごめんなさい。ほんとにごめんなさい。
コンストラクタ、あたりの言葉の意味が・・・???程度のアホです。
大雑把にいうと以下のような使い方をしています。
var
MyBMP: TBitmap;
begin
MyBMP:=TBitmap.Create;
try
MyBMP.LoadFromFile(strFile);
if ある条件を満たしていたら
if HOGE(MyBMP)=true then
begin
MyBMP.SaveToFile(strFile);
end;
end;
finally
MyBMP.Free;
end;

呼び出し先で値が変わっちゃうものは、今まで判で押したようにvarにしてたんですけど、
今回たまたまvar書き忘れてたことに気づいて、え、これでも動いてたの、と。

153 ：デフォルトの名無しさん：2013/03/01(金) 01:42:05.90 .net

HOGE の引数 bmp は、HOGE 実行中には「変更」されませんね。
bmp はオブジェクトを指していて、オブジェクト自身の持つデータ（プロパティやフィールド）は
変更されますが、オブジェクト自体は書き換わっていません。
だから HOGE の引数宣言に var は必要ありません。

これが、HOGE 内で bmp に新しいインスタンスを設定する場合には、HOGE の引数宣言に var が必要になります。

より内部的な説明をするなら、Delphi のオブジェクトインスタンスはポインタだから、インスタンスを新規に
割り当てないのであれば var は必要ない。となります。

154 ：デフォルトの名無しさん：2013/03/01(金) 02:56:48.78 .net

うーん、分かったような分からないような、で御免なさい。

>>HOGE 内で bmp に新しいインスタンスを設定する場合には

bmpは、HOGEが登場してきた時点ですでに、どこかでCreateされたTBitmapなわけですよね。
それをたとえばHOGE内でbmp.Freeなんてやっちゃうとか、HOGE内であらためてbmp=TBitmap.Createやっちゃうとか、
そういうときにこそvarにする、ということでしょうか?

もしかしたら完全にトンチンカンなこと言ってるかもしれません。
アホな話持ち出して、まったくすみません。

155 ：154：2013/03/01(金) 03:21:38.95 .net

ちょっとだけわかったような(勘違いかもしれないけど)

TImageを引数にしてそこにBitmapを押し込む関数をいくつかつくったことがあるんです。
このときはvarにしてません。
この関数によってTimageの「値」はたしかに変わるんですよね。
でも、理屈云々の前に、varにしようなんて考えはまるで浮かばなかった。
だってこれ、ただそこにある箱じゃん、と。
それと同じように考えて(・・・本当にいいのかな?)
とりあえずおやすみなさい。

156 ：デフォルトの名無しさん：2013/03/01(金) 04:58:09.07 .net

>それをたとえばHOGE内でbmp.Freeなんてやっちゃうとか、HOGE内であらためてbmp=TBitmap.Createやっちゃうとか、
> そういうときにこそvarにする、ということでしょうか?

やってみそ。

157 ：デフォルトの名無しさん：2013/03/01(金) 10:30:28.53 .net

クラスは何もしなくても参照(アドレス渡し)なので、varをつけなくてもそのインスタンスの内容を
変えることができる。varをつけるとインスタンスを格納するためのポインタのアドレスが渡されるので、
インスタンスそのものを変更することができる(コンストラクタを呼び出して生成したインスタンスを
設定したり、デストラクタを呼び出してnilに設定したり)。
要はクラスをパラメータで渡すときは暗黙にvarがついていると思えばいいってこと。

158 ：デフォルトの名無しさん：2013/03/01(金) 10:58:39.08 .net

bmp: TBitmap って引数で渡すとbmpはポインタだから varもポインタ渡しで同じ意味になる

暗黙もへったくれもない常識だが・・・？

159 ：デフォルトの名無しさん：2013/03/01(金) 14:25:29.04 .net

ポインタのポインタだって。呼び出し元のbmpの参照先を
書き換えることができ、違うTBitMapにすることだってできる。

160 ：デフォルトの名無しさん：2013/03/01(金) 16:16:20.87 .net

そこにポインタを持ち込むと、分かる人と分からない人が出てくるから、
説明するときは考えちゃうんだよなぁ。
ネットだと、質問者の持ってる知識が分からない場合が多いから

161 ：154,155：2013/03/01(金) 22:57:48.49 .net

いくつか実験してみました。
基本がわかっていないので貧しいイメージしか出来ませんけど。
varをつければ製造元までさかのぼって変更できる、というひとまずの納得の仕方。

stringとかintegerとかは、初めて代入されたところが事実上の製造元。

TbitmapみたいなのはCreateされたところが製造元であとは飾りみたいなもの。
飾りというよりはコンテンツか。
それを変えるだけなら製造元まで遡る必要はない。

なんかまたバカまるだしなこと書いてるかも。

お騒がせしました。

162 ：154,155：2013/03/01(金) 23:33:40.18 .net

何度も面倒な話題ですみません。
下の関数の引数、varにしなくても、関数内で何度でも生まれ変われるみたいです(激しく混乱状態)

procedure TForm1.GEHO(objFile: OleVariant);
begin
objFile:=unassigned;
objFile:=CreateOleObject('Scripting.FileSystemObject');
if objFile.FileExists('C:\test0.txt') then
begin
ShowMessage('OK');
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
MyFSO, MyFile: OleVariant;
begin
MyFSO:=CreateOleObject('Scripting.FileSystemObject');
MyFile:=MyFSO.CreateTextFile('C:\test0.txt', true);
MyFile.Write('test-test-test');
MyFile.Close;
GEHO(MyFile);
MyFile:=unassigned;
MyFSO:=unassigned;
end;

ただ現実の話として、こんな関数使うことがあるとは思えないんで、
ウザかったら放置してくれていいです。

163 ：デフォルトの名無しさん：2013/03/02(土) 00:16:21.00 .net

クラスはポインタで渡されるってことだ OleVariantもクラスだろ
StringやIntegerはデータ型であってクラスではないから別物

通常var渡しはサブルーチンから複数の戻り値を得るために使うもので、１個だけでいいなら
普通のfunctionで済むはず
クラスがいつCreateされるかよく考えないとメモリリークに悩まされるよ

164 ：デフォルトの名無しさん：2013/03/05(火) 14:05:17.30 .net

C++で作成されたDLLをDelphiで使用するにはどのように定義すれば良いのでしょうか？
DLLのソースにはextern "C"はついており、defファイルも存在しています。

165 ：164：2013/03/05(火) 15:09:31.68 .net

VC用のDLLでした

166 ：デフォルトの名無しさん：2013/03/05(火) 15:10:02.11 .net

VC++です・・・
何度もすみません

167 ：デフォルトの名無しさん：2013/03/05(火) 16:10:55.49 .net

http://docwiki.embarcadero.com/RADStudio/XE3/ja/%E6%89%8B%E7%B6%9A%E3%81%8D%E3%81%A8%E9%96%A2%E6%95%B0
手続きと関数（Delphi）
ライブラリからの関数のインポート

168 ：デフォルトの名無しさん：2013/03/16(土) 15:30:01.82 .net

'String'.Uppercase; ==> 'STRING'
3.Odd; ==> True
みたいにどうにかして順序型でメソッド呼べるようにする方法ないですか

169 ：デフォルトの名無しさん：2013/03/16(土) 15:45:17.91 .net

独自なStringクラスを作りゃええやん

170 ：デフォルトの名無しさん：2013/03/26(火) 18:50:40.41 .net

Delphiという言語の質問じゃないんですが、使い方で。

実行時にIDEが勝手に最大化されますよね?
これを止める方法をご存知のかたいますか?
現在使っているのはXE2です。

よろしくお願いします。

171 ：デフォルトの名無しさん：2013/03/26(火) 21:33:30.49 .net

今時のIDEは最大化してしまうのかよ
俺の知ってるDelphiは昔から
「環境オプション」→「コンパイルと実行」→
「実行時に最小化」&「実行時にデザイナを隠す」
といった遠慮がちな設定しかできないがｗ

172 ：デフォルトの名無しさん：2013/03/26(火) 21:35:19.80 .net

あ、もしかしてデスクトップスピード設定たらいうやつの
「デバッグ時のデスクトップに指定」で記憶してしまってるのかな？

173 ：デフォルトの名無しさん：2013/03/30(土) 11:03:18.03 .net

コミュ障プログラミング言語ってDelphi2009で作ったのな…
すげい。

174 ：デフォルトの名無しさん：2013/03/30(土) 16:57:41.44 .net

すみません教えてください

知り合いにプログラミングを誘われて、ずいぶん前にDelphi2010を購入しました。
最近までほおっておいたのですが、手元にあったDelphi2005プログラミングテクニック
を読みながら勉強を始めました。

Vol4にある5.4ディレクトリボックスのサンプルプログラムを見ながら
Imageにp.14の倍率とScrollBoxと倍率の選択をRadioGroupにしています。

わからないところですが、
１．Image1.Picture.Bitmapとありますが、Bitmapを消さないとjpgが表示されませんが、これは普通なのでしょうか？
２．最大に表示させてもフォームは最大になりますが、ほかのコンポーネントの表示サイズは変わりません。
フォームサイズのほかのコンポーネントを追随させる方法
３．RadioGroupを2行2列で表示する方法。
４．選択した項目を取得させる方法。ItemIndex ofで取得させる方法でよいのでしょうか？
ItemIndex ofで返ってきた値を変数に代入しても検出できません。
ダイアログで表示させても値が空白になっています。

ヒントだけでもかまいません。よろしくお願いいたします。

175 ：デフォルトの名無しさん：2013/03/30(土) 17:25:20.49 .net

2.Anchors
3.Columns
4.ItemIndex

176 ：デフォルトの名無しさん：2013/03/30(土) 17:38:45.29 .net

>>171,172さんありがとうございました。

172さんの言われたことが参考になりました。
結局、開発時にウィンドウの大きさとか変えても、
デバック時にわざわざ呼びなおしてくれるということですね。
DefaultLayoutというやつが元々最大化されている状態なので、
いつも最大化を解除していたのですが、解除した状態で
保存してやる必要があるということでした。

あとは好みの問題ですかね。

177 ：デフォルトの名無しさん：2013/04/09(火) 22:45:24.23 .net

ちょっと　お知恵を拝借したいです
Delphi6
これまで比較的小さいバイナリデータを処理するのに
TMemoryStream　で
MS_Base.LoadFromFile(FileName); // メモリ上にファイルを読み込んでから

MS_Base.Position := Address;
Bytes := 4;
MS_Base.Read(Buffer,Bytes);

という感じで開始ポインタと読み込みサイズを指定していたのですが、
今回、動画データなどの巨大ファイルから直接部分データを読み込むことをしようとしています。
（300MB 越えのデータを複数連続で読み込むと負荷が大きい為）

178 ：177：2013/04/09(火) 22:46:50.25 .net

例:
0000 : 52 49 46 46-7E B4 FD 0F-41 56 49 20-4C 49 53 54 : RIFF AVI LIST
0010 : 4E 01 00 00-68 64 72 6C-61 76 69 68 38 00 00 00

function TForm1.Analyze(FullFileName: String) :Boolean;
type
　IntFile = file of Integer;
var
　Byte : Integer;
　AData: IntFile;
begin
　AssignFile(AData,FullFileName);
try
　Reset(AData);
　Read(AData,Bytes);
　Memo_Debug.Lines.Add('0 = ' + IntToHex(Bytes,2));
　Read(AData,Bytes);
　Memo_Debug.Lines.Add('1 = ' + IntToHex(Bytes,2));
　Read(AData,Bytes);
　Memo_Debug.Lines.Add('2 = ' + IntToHex(Bytes,2));
　Seek(AData,4); // どこに飛ぶ？
　Read(AData,Bytes);
　Memo_Debug.Lines.Add('3 = ' + IntToHex(Bytes,2));
　Read(AData,Bytes);
　Memo_Debug.Lines.Add('4 = ' + IntToHex(Bytes,2));
　finally
　　CloseFile(AData);
　end;
end;

179 ：177：2013/04/09(火) 22:53:45.20 .net

結果
0 = 46464952
1 = FFDB47E
2 = 20495641
3 = 14E 　　　（前項から4バイト飛ばして読み込み）
4 = 6C726468

てっきり1-byte づつかと思えば、
4-bytes 分づつ読み込んでいるようなのですが、
�@ 2-bytes や 8-bytes など読み込む量を指定して変える方法
�A アドレスを直接指定する方法
ありますか？　あればその方法を知りたいのです。

情報データが動画に埋め込み方式の機械があって・・・必用な部分は量が知れているのですが
そこにたどり着くまでが大きいので

180 ：デフォルトの名無しさん：2013/04/09(火) 23:16:43.38 .net

TFileStreamを使わない理由がわからない

181 ：177：2013/04/10(水) 00:08:52.56 .net

>>180
もしかして　TMemoryStream　を　TFileStream　に変えたら使い方殆ど同じ？
ぶっちゃけ　「TFileStream」　という存在を知らなかった訳で
ちょっと調べてみま〜・・・

182 ：デフォルトの名無しさん：2013/04/10(水) 00:24:47.66 .net

よく分からんが IntFile = file of Integer; だから１レコード四バイトで
アクセスしているだけだな。
ファイルを array of Integer でアクセスしているのと同じ。

バイト単位で処理したければ file of byte / file of char または file で。

183 ：177：2013/04/10(水) 00:39:20.45 .net

ﾖﾒ ━━　Y⌒Y⌒Y⌒Y⌒Y⌒Y⌒(｡A｡) ﾀ ━━ ｯ !

184 ：177：2013/04/10(水) 01:28:06.36 .net

ありがたう

185 ：デフォルトの名無しさん：2013/04/10(水) 07:53:23.46 .net

>>177
づつではなくずつだ。

186 ：デフォルトの名無しさん：2013/04/19(金) 09:14:16.12 .net

>>174
どうもです。
やっと理解できてソフトに実装できました。
もう1つ教えてください。
scrollboxにimageコンポーネントを組み合わせています。
イメージコンポーネントのサイズをマウスで
左右や上下に変える方法というのはどうしたら良いのでしょうか？
本を見たりしましたが、どこにもなく困っています。
ウインドー左側にfilelistboxで右側にimageを貼り付けていますが、
imageのサイズを変えると、左側のfilelistboxの大きさが皮得る方法はありますか？

187 ：デフォルトの名無しさん：2013/04/19(金) 12:59:50.13 .net

OnMouseDown/OnMouseMove/OnMouseUp

188 ：186：2013/04/19(金) 16:37:57.65 .net

>>187

>>186宛でしょうか？
やりたいことと言うのは、例えば、joytokeyの
左側設定ファイル選択の枠と右側のキー割り当ての枠の真ん中にある
マウスを近づけるとカーソルが←｜→なようになる部分です。
名前が今ひとつ分からないので探しようがない状態です。
Windowsのマウスのプロパティーには、左右の拡大縮小とありましたが、
この言葉で調べてもヒットしませんでした。

189 ：186：2013/04/19(金) 16:54:55.46 .net

カーソルですが、
エクスプローラーのフォルダーとファイルエリアの境目とかの
←→な感じのものです。

190 ：デフォルトの名無しさん：2013/04/19(金) 18:32:27.48 .net

Splitter

191 ：デフォルトの名無しさん：2013/04/20(土) 09:08:49.68 .net

TPanelにファイルリストとイメージコンポを貼り付けるだけのことじゃないの？

192 ：デフォルトの名無しさん：2013/04/20(土) 20:51:20.85 .net

>>186
ttp://www1.axfc.net/uploader/so/2875215.zip?key=kudadel
コンポーネントのインストールは必要ない

193 ：デフォルトの名無しさん：2013/04/24(水) 06:21:08.33 .net

計算式の置き換えで質問です。

地点A(経度x1, 緯度y1)　から　地点B(経度x2, 緯度y2)　の方角を導く。

Aの経度(x1) = lon="140.14055"
Aの緯度(y1) = lat="36.01708"
<trkpt lat="36.01708" lon="140.14055">

Bの経度(x2) = lon="140.14043"
Bの緯度(y2) = lat="36.01726"
<trkpt lat="36.01726" lon="140.14043">
　↓
http://keisan.casio.jp/exec/system/1257670779
方位角φ= 90-atan2(sin△x,cos(y1)tan(y2)-sin(y1)cos△x)
△x=x2-x1
　↓サイトの結果（正解の答え）
方位角φ= 331.665281
図：AからBの方角: NW と N の間

194 ：193：2013/04/24(水) 06:22:48.57 .net

93.0678420663619
　↑結果（間違え）　Delphi への三角関数式の置き換えでどこが間違っているのでしょう？
uses
　SysUtils,Math;

function PointToDegree(Ax,Ay,Bx,By: String; Limit: Byte; North: Boolean): String;
var
　x1,y1,x2,y2,Degree : Extended;
begin
　Degree := 0;

　x1 := StrToFloatdef(Ax,0); // 地点A(経度x1)
　y1 := StrToFloatdef(Ay,0); // (緯度y1)
　x2 := StrToFloatdef(Bx,0); // 地点B(経度x2)
　y2 := StrToFloatdef(By,0); // (緯度y2)

　if (X1 <> 0) and (y1 <> 0) and (x2 <> 0) and (y2 <> 0) then
　　begin
　　// 方位角=90 - atan2(sin(x2-x1) ,cos(y1)tan(y2)-sin(y1)cos(x2-x1))
　　Degree := 90 - ArcTan2(Sin(x2 - x1),Cos(y1) * Tan(y2) - Sin(y1) * Cos(x2 - x1));

　// Degree := Trunc(Degree * Power(10,Limit));
　// Degree := Degree / Power(10,Limit);
　// if North then Degree := 360 - Degree;
　　end;
　　Result := FloatToStr(Degree); // FormatFloat('0.00',Degree);
end;

195 ：デフォルトの名無しさん：2013/04/24(水) 06:44:13.07 .net

ラジアンって習うのは高校生だっけ？中学？

196 ：デフォルトの名無しさん：2013/04/24(水) 08:23:15.63 .net

>>195
高校の理数系クラスだと思います。

197 ：デフォルトの名無しさん：2013/04/24(水) 09:57:51.14 .net

じゃあラジアン分からないんだね
まずはそこから勉強しよう

198 ：デフォルトの名無しさん：2013/04/24(水) 13:27:48.87 .net

Won'tYouStayForMe

199 ：デフォルトの名無しさん：2013/04/24(水) 17:29:49.47 .net

Delphi の三角関数は、ラジアン単位を引数としているので
度で表記された座礁は、変換が必要。
ラジアンという言葉の意味/定義を確認した上で、Math ユニットの DegToRad とかを
組み合わせてごらん。

200 ：デフォルトの名無しさん：2013/04/24(水) 18:11:52.38 .net

180度=1.0ラジコンだっけ？

201 ：デフォルトの名無しさん：2013/04/24(水) 18:36:52.73 .net

お帰りください

202 ：デフォルトの名無しさん：2013/04/24(水) 20:45:02.07 .net

　Degree := 0;
　x1 := DegToRad(StrToFloatdef(Ax,0)); // 地点A(経度x1)
　y1 := DegToRad(StrToFloatdef(Ay,0)); // (緯度y1)
　x2 := DegToRad(StrToFloatdef(Bx,0)); // 地点B(経度x2)
　y2 := DegToRad(StrToFloatdef(By,0)); // (緯度y2)

　if (X1 <> 0) and (y1 <> 0) and (x2 <> 0) and (y2 <> 0) then
　　begin
　　Degree := ArcTan2(Sin(x2 - x1),Cos(y1) * Tan(y2) - Sin(y1) * Cos(x2 - x1));
　　Degree := 360 + RadToDeg(Degree);
　　end;

一応こんな感じで数値が合うようになりました。
感謝

203 ：デフォルトの名無しさん：2013/04/26(金) 06:51:22.07 .net

DelphiXE4&FireMonkeyなんですが、
MediaPlayerControlってウィンドウサイズに合わせて映像を拡大できないのでしょうか？

204 ：デフォルトの名無しさん：2013/04/26(金) 21:50:10.98 .net

delwiki.infoどうなっちゃったの？

205 ：デフォルトの名無しさん：2013/04/28(日) 09:38:28.80 .net

XE2で
bds -r main
とかやって別プロファイルで起動するとGExpertsが起動しないんですが
どうやればプロファイル指定してGExperts組み込めるんですか

最悪レジストリのキー入れ替えてからインストールすれば
できそうな気もするんですがもうちょっとまともなやり方あったら教えて下さい

206 ：デフォルトの名無しさん：2013/04/28(日) 10:36:43.69 .net

別のログインユーザー作成

207 ：186：2013/05/05(日) 09:16:37.44 .net

>>190
どうもです。基礎的なコンポーネントだったんですね。
ただ、位置の制御に苦労しました。

>>191
Delphiでは、VCLを積み重ねても下のものとは原則干渉しない
と言うことを言葉では知っていましたが>>191を見てその意味を知りました。
サイトでは、Spliterで苦労している人は多いみたいで頭を抱えていましたが
Panelで弁当箱のように仕切れば良いんですね。

>>192
サンプルプログラムありがとうです。
非常に高度な技術が積めてあるのが判りました。
高度すぎて完全には判りませんでしたが、さらに勉強します。

今は、既存の構成を使ってmp3の再生に取りかかっています。
medeiaplayerを使っていますが、wavでは簡単に再生できますが、
mp3ではオブジェクトインスペクタのプロパティのFilenameでファイルを直接
指定すれば再生できますが、それ以外ではEMCIDeviceError発生します。
上手くファイル名が渡せていない感じがします。
これを解決する方法はありますか？

208 ：デフォルトの名無しさん：2013/05/05(日) 19:14:51.21 .net

MediaPlayer1.TimeFormat:=tfHMS;
MediaPlayer1.DeviceType:=dtAutoSelect;
MediaPlayer1.FileName:=FileName;
MediaPlayer1.Open;

209 ：186：2013/05/06(月) 10:56:36.48 .net

>>208
動きませんでした。
ただ、MediaPlayerを扱っているサイトのように
with MediaPlayer1 do
begin
FileName := filelistbox1.FileName;
Open;
Play;
とやったら動きました。
やっていることは同じのように見えますが…。

210 ：デフォルトの名無しさん：2013/05/07(火) 07:54:18.94 .net

MediaPlayer1.FileName:=FileName;
を
MediaPlayer1.FileName:=filelistbox1.FileName;
こうすればよかったんじゃね？

211 ：209：2013/05/07(火) 09:45:27.59 .net

それで動きそうな物なんですが、ダメだったんです。

Delphi2005プログラミングにあったような
画像ビュアーだったのでextractfileextで拡張子で
処理を分けています。bmp,jpg,pngはイメージに飛ばして
wavはsndPlaySoundで処理していましたが、mp3は扱えないそうなので
MediaPlayerを使って処理を試みましたが、
ただMediaPlayer1.FileName:=filelistbox1.FileName; としただけでは、
ファイル名や拡張子からはデバイスを判断できませんでしたと出てて
コンパイルすら出来ませんでした。
ただ、wavだけは簡単に再生できました。

これで、一週間くらい悩み続けました。
これでとりあえず動いていますが、with文を理解していないので
トラブルが起きたときに対処できません。

212 ：デフォルトの名無しさん：2013/05/07(火) 09:52:35.76 .net

エラーメッセージで原因分かってるじゃん
自動でデバイスが判断できないなら手動でやればいいだけの話でしょ
プログラミング言語の前に日本語の理解をできるようにしないと

213 ：209：2013/05/07(火) 17:03:16.17 .net

その、手動でやる方法が判らなかったんですよ。

肝心の日本語メッセージが抽象的すぎてわかんねーよ
mci周りのエラーだと言われてもmciのラッパーのmediaplayer
使ってんのにそんなこと言われても困る。
そんな感じ

wavだと>>211の方法で鳴らせるのにmp3だとエラー
>>212は馬鹿にしたいのだろうが
日本人なんしバカじゃないんだから、コンパイラの言っている意味はわかるよ

214 ：デフォルトの名無しさん：2013/05/07(火) 21:20:24.78 .net

with文を理解していないって、冗談でしょｗ

215 ：デフォルトの名無しさん：2013/05/07(火) 21:38:31.29 .net

つ ttp://docwiki.embarcadero.com/RADStudio/XE4/ja/%E5%AE%A3%E8%A8%80%E3%81%A8%E6%96%87#with_.E6.96.87

216 ：192,208：2013/05/07(火) 21:59:37.87 .net

>>209
おれ、192,208 だけど（ with 文知らないということで）
もしかして「動きませんでした。」って
MediaPlayer1.Play;
をしてないだけだったんではないよね？
>>207 で EMCIDeviceError が出るっていうからこれでも出る？って意味で
208 を書いたんだけど

217 ：デフォルトの名無しさん：2013/05/07(火) 22:01:23.04 .net

追記
>>209 は↓と同じ事を書いてるんだよ
MediaPlayer1.FileName := filelistbox1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;

218 ：209：2013/05/08(水) 05:26:07.46 .net

>>214
Delphi2010を持っていたけど、4月くらいにふと思い立ってソフトを作り始めました。
今でもif文で'.'が必要だけどELSEがありましたとか言われてなんでだと思うとかそんなレベル。
文法そのものを完全理解していないので手探りでやっています。

>>216
元々は、wavを再生するために
sndPlaySound(Pchar(filelistbox1.FileName),SND_ASYNC) ;
を入れてました。
PlaySoundはmp3は鳴らせないよと言うことを聞いて
mediaplayerが一番簡単そうなので使い始めました。
MCIが使えれば言うことないのですが、いまいち判りませんでした。
そのときに入れていた物は、
mPlay.filename:=filelistbox1.FileName;
mPlay.open;
mPlay.Rewind;
mPlay.Play;

mPlayはMediaplayerのnameを変えたもの

この命令だけで再生されそうな物なんですが…。
DCCエラーでコンパイルされませんでした。
DeviceをdtWaveAudioにすればエラーは出なくなりますが
そうするとmp3が再生されないという…。
当時mp3を再生させるには、filenameプロパティに直接ファイルを指定しないと
無視されてました。

ダメじゃんと言うことがあればお願いいたします。

219 ：210：2013/05/08(水) 05:35:50.40 .net

いま、
>>209 のコードで動くと書いていることと、
>>217 のコードで動かないと書いていることが
矛盾していること。

「ファイル名や拡張子からはデバイスを判断できませんでした」
というメッセージは実行時のエラーメッセージで、
「コンパイルすら出来ませんでした」
というのは、実行前のコンパイルエラーのことだと推測するので、
混同している可能性があるということ。

そして、実行時のメッセージなどからは、>>208 の先頭2行のコードの追加を
Openの前に実行すれば状況が変化するか？
という、「いまどこ？」的な質問に対する実験結果の報告がないので、
このままでは現状打破できず、さてどうしようか。ということ。

他は省略

220 ：デフォルトの名無しさん：2013/05/08(水) 06:54:10.68 .net

DirectXを経由したほうが簡単に音を鳴らせる気がする

221 ：デフォルトの名無しさん：2013/05/08(水) 07:03:34.18 .net

こんなソース発見　delphi.about.com/od/multimedia/l/aa112800c.htm

222 ：209：2013/05/08(水) 09:51:58.69 .net

>>219
mPlay.TimeFormat:=tfHMS;
mPlay.DeviceType:=dtAutoSelect;
mPlay.filename:=filelistbox1.FileName;
mPlay.open;
mPlay.Rewind;
mPlay.Play;

でも、EMCIDeviceErrorがモジュールview.exeの0x000EA7F2で発生しました。
指定したファイル名拡張子からデバイスの種類を判断できませんと表示されます。
でF9で走らせても、コンパイルしても
上記アプリケーションエラーが出てOKボタンを押すとIDEに戻ります。
コンポーネントとプロパティーをソースで指定することで
オブジェクトインスペクタの項目を書き換えることが出来るという
理解で間違っていないでしょうか？
せっかく教えて頂いたのに申し訳ありません。

>>220
この系統のソフトはDirectShowを使うのが一般的だという話を聞きましたが、
そこまでのスキルがなかったのでMediaPlayerを使いました。

>>221
ないわけがないと思って探していましたが、やっぱりあるんですね。こういうソフトが。
どうやってこういうサイトを探すんでしょうか？
日本語のサイトを探すだけじゃダメなんでしょうか。

223 ：222：2013/05/08(水) 09:56:49.66 .net

mPlay.DeviceType:=dtWaveAudio;
にするとコンパイルされますが、
wavは再生されますが、mp3は反応しません。
ファイルをダブルクリックしても何も起きません。

mPlay.DeviceType:=dtAutoSelect; で
FileNameプロパティに例えばc:\a.mp3
という感じで指定すると実行したときに即座に再生されます。
この後に他のmp3を選択すると再生されました。

224 ：デフォルトの名無しさん：2013/05/08(水) 21:07:45.88 .net

dtAutoSelectにしたってコンパイルはされるだろ
用語の使い方がおかしい
基礎から学び直せ

225 ：デフォルトの名無しさん：2013/05/08(水) 22:03:42.37 .net

コンパイルオプションの最適化を外して再構築しなおせばどうか

226 ：デフォルトの名無しさん：2013/05/09(木) 04:13:21.57 .net

>>224
基礎を学んでいる最中なんですが。
失礼しました。

227 ：デフォルトの名無しさん：2013/05/09(木) 10:21:48.11 .net

>>224
>>209のように別に作り直したら、
エラーが発生しました。

よくわかりません。

228 ：デフォルトの名無しさん：2013/05/09(木) 12:17:09.25 .net

>>224
ロダにあげたのでもしよかったら見てください
ttp://www1.axfc.net/uploader/so/2896335

229 ：デフォルトの名無しさん：2013/05/09(木) 21:51:40.46 .net

>>228
Delphi2010って支援機能ついてるよね？（. 入れて待つとか Ctrl+Space）
Delphi 使いならパスカル表記しようよ、読みにくいから
で、最小限に切り出してテストしたんだけど（FileListBoxって何年ぶりに使ったろう…）
DeviceType無くてもあってもエラーは出ないね（XPで実行しても問題なかった）
if CompareText(TheExt,'.mp3')=0 then
//↑とか↓こうやれば大文字の拡張子も判別出来るよ
// if LowerCase(TheExt)='.mp3' then

「エラーが発生」は今までのように「デバイスを判断できませんでした」？
それともコンパイルエラー？
別の新しいプロジェクトを作成してとりあえず
MPlay: TMediaPlayer;
とボタン一つだけ貼り付けて
IDE でボタンをＷクリック

procedure TForm1.Button1Click(Sender: TObject);
begin
with mPlay do
begin
FileName:='ここに実際のファイル名をフルパスで書く';
Open;
Rewind;
Play;
end;
end;
まずこれでちゃんと再生されるのかどうか確認する
IDE から F9 で実行してエラーが出ても exe 単体（Project2_b2.exe だっけ？）
をエクスプローラからＷクリック実行ではエラーが出ないことがあるのでそれも確認
それでもエラーが出てここにまた報告するならその内容を正確に書くこと
エラーダイアログで Ctrl+C したらコピーできるときもある

230 ：デフォルトの名無しさん：2013/05/09(木) 23:10:22.51 .net

DeviceTypeはPCの環境設定に依存するからお前のPCで問題ないから他でも問題ないとは限らない

231 ：デフォルトの名無しさん：2013/05/10(金) 05:56:44.41 .net

>>229
入力支援機能教えていた秋ありがとう
今までめんどくさいなとか思っていたのでかなり助かります。
拡張子の判断もありがようです。
これは、Delphi2005プログラミングテクニックからそのまま
持ってきた物なのでより効率の良い方法ですね。使わせて頂きます。

肝心のFileNameですが、
オブジェクトインスペクタでFilenameプロパティでファイルを直指定して
今回の場合だとwith文内で指定して
そのファイルを再生した後だとエラーが発生することもなく他のmp3ファイルも再生できます。

エラーについてはロダにあげた以外の物では、
FormにFileList一式とMediaplayerだけを貼り付けて
同じコードを書いてもコンパイル中にアプリケーションエラーが出ます。

ソースとバイナリ、エラーメッセージをキャプったものをロダに上げました。
お手数ですが、また見て頂けないでしょうか。
http://www1.axfc.net/uploader/so/2897278

232 ：デフォルトの名無しさん：2013/05/10(金) 07:20:30.64 .net

>>229
新しいプロジェクトでの確認しましたが、
こちらは、IDEでもコマンドラインからでも正常に再生されます。
お手数おかけします。
http://www1.axfc.net/uploader/so/2897304

233 ：デフォルトの名無しさん：2013/05/10(金) 08:41:48.22 .net

TMediaplayerではなく
TWindowsMediaPlayer(wmp.dll)を使えばいいのに
ずっと多機能だし、使いやすいのに

234 ：デフォルトの名無しさん：2013/05/10(金) 09:39:31.37 .net

>>233
WindowsMediaPlayerも考えて、ActiveXモジュール組み込みましたが、
どう使ったら良いのか判りませんでした。
playlistもどう扱ったら良いのか？？な感じでした。

今、キーワードを変えて検索したら簡単なサンプルが判って
ファイルを固定することで再生することが出来ました。
使いこなしの方法がちょっと判りません。

初心者というのが免罪符になるとは思いませんが、
本当に勉強を初めて一月とかです。
不快に感じる方がいらっしゃると思いますが、ご容赦ください。

235 ：デフォルトの名無しさん：2013/05/10(金) 10:21:25.03 .net

TMediaplayerControlって、オリジナルのビデオサイズより拡大表示できないの？これ

236 ：229：2013/05/10(金) 19:07:21.64 .net

>>230
そーなのかありがとう
じゃあ配布目的とかでは使えないんだ
まあ俺はTMediaPlayer使わんけどな

237 ：229：2013/05/10(金) 19:22:08.94 .net

>>231
前は pas ファイルを読んだだけでレスしたが今度はちゃんと開いてみたよ
で、今度のエラーは手抜きのせいではないか？
TFileListBox.OnChange イベントというのはリスト内のファイルをクリックしたり
フォルダが変わったりしたとたんに発生するから最低でも拡張子の判断は必要だぞ
procedure TForm2.FileListBox1Change(Sender: TObject);
begin
//一行目にこれ↓
if CompareText(ExtractFileExt(FileListBox1.FileName),'.mp3')<>0 then exit;

それに前回はちゃんとフィルタ（ファイルマスク）設定してたようだけど今度はそれもしていない

あと、例外処理を勉強しよう
if CompareText(ExtractFileExt(FileListBox1.FileName),'.mp3')<>0 then exit;
try
with mPlay do
begin
FileName:=Filelistbox1.FileName;
Open;
Rewind;
Play;
end;
except
ShowMessage('再生時のエラー');
end;
こう書いて出てきたエラーが↑で自分で書いたエラーなら try 〜 except の間で起こったと判断出来る
でも except ってのは本当はこんな風に逃げるだけの手段ではないんだよ

238 ：デフォルトの名無しさん：2013/05/10(金) 19:56:45.29 .net

>>237
レスどうもです。
>>231はFileListBox一式とMediaPlayerだけをFormに乗せただけの物です。
>>231は>>229の
procedure TForm1.Button1Click(Sender: TObject);文以下の
以下のソースを反映させた物です。
私の環境ではコンパイルが終わってアプリが起動するときにエラーが出ます。
出来たバイナリを起動しても同じです。

>>232は>>229のFileNameに直接ファイルを指定したものです。
アーカイブ中にmp3ファイルが入っています。
この二つについてはフィルターをかけていません。
フィルターをかけたものを再アップします。
err2+filterフォルダーの物はうちではエラーになってしまう物
snd1フォルダーは添付のmp3ファイルを直うちした物です。
pathが判らないのでc:\000.mp3にしてあります。
http://www1.axfc.net/uploader/so/2897729

>>228の物は制作中の物なので拡張子での処理を分岐させるようにしてあります。

OnChangeについてはこのような変化が起きたときに発生する
プロパティ項目がないわけがないと思って探していました。
例外処理についても必要性を感じていました。
画像部分を作っていたときには処理を確認するために
デバッグ用の表示を作っていましたが、音声の方はそれ以前の出来だったので
何もしてありませんでした。
suggestionありがとうございます。勉強させて頂きます。

239 ：229：2013/05/10(金) 20:54:25.95 .net

わかったよ〜（ヒントは今まで俺がレスしてきた中に全てあったよ）

「err2+filter」の方でエラーが出るのはアプリケーション起動時に TFileListBox.OnChand イベントが起きるから
（当然だよねコンポーネントが生成された時にはリストは空なんだから起動すれば DriveComboBox1 のドライブの
DirectoryListBox1 フォルダに移動して FileListBox1 のリストが更新される→ TFileListBox.OnChand 発生）
（あくまでも IDE で表示されているリストは IDE 上だけのもので起動時（生成時）は空だからね）

>>237 で（抜けてるよって）書くように指示した「拡張子の判断」がないから移動先の最初のファイルが mp3 じゃないのでエラーとなる
TFileListBox.OnChand 発生した時に選択されていなかったら FileListBox1.FileName は空文字になるし（あ、こっちか）

>>237 でもうひとつ「OnChange はリスト内容の変化で発生する」とも書いたね

オマケだけど
>pathが判らないのでc:\000.mp3にしてあります。
こういったときに便利な書き方
FileName:=ExtractFilePath(Application.ExeName)+'002.mp3';
　　　　　　↑~~~~~~~~~~~~~~　↑~~~~~~~~~~~~~~~~~~
　　　　後ろに\がつく「パス」　実行ファイルのフルパス
実行ファイルが「C:\Delphi\Project1.exe」なら「C:\Delphi\002.mp3」になる

これくらいでいいかな？

240 ：デフォルトの名無しさん：2013/05/10(金) 22:43:08.33 .net

>>239
仰ってる意味が分かりました。
拡張子を画像かどうかを評価して
違う場合にはwavかmp3なら強制的に
MediaPlayerに回しますが、FileListBoxの中身が空なので
MediaPlayerでは解釈できないと言うことで良いのでしょうか。

>>237の一行目にと言う命令を書き足したら
エラーを吐くことがなくなりました。
例外処理についても意味を体で覚えました。
おまけもありがとうございます。

やっぱりちゃんと言語ガイド読まなくてはなりません。
ありがとうございました。

241 ：229：2013/05/10(金) 23:42:57.67 .net

>>240
解決して何よりだ
ここまで付き合った甲斐があった

ひとつだけ
>MediaPlayerに回しますが、FileListBoxの中身が空なので
日本語的な問題なのかも知れないけど
最初にこのイベントに来た時は空からリストにファイル名が入った時なので
「FileListBoxの中身が空」ではない
あくまでも FileListBox1.FileName プロパティが「空文字」になっている（未選択状態だから）ということ

説明するより早いから新規プロジェクトのフォームに Memo1 FileListBox1 の二つを置く
フォームをＷクリックして
procedure TForm1.FormCreate(Sender: TObject);
begin
FileListBox1.Directory:='e:\';
with Memo1.Lines do
begin
Clear;//メモをクリア
Add('01━━FormCreate ここから');
Add('02━━起動時のリスト:'+FileListBox1.Items.Text);
Add('03━━選択されたファイル名:'+FileListBox1.FileName);
Add('04━━FormCreate ここまで');
end;
end;
つづく

242 ：229：2013/05/10(金) 23:43:51.91 .net

FileListBox1 をＷクリックして
procedure TForm1.FileListBox1Change(Sender: TObject);
begin
with Memo1.Lines do
begin
Add('05━━FileListBox1Change ここから');
Add('06━━OnChange 起動時のリスト:'+FileListBox1.Items.Text);
Add('07━━OnChange 選択されたファイル名:'+FileListBox1.FileName);
Add('08━━FileListBox1Change ここまで');
end;
end;
FileListBox1 を選択した状態でオブジェクトインスペクタのイベントタブを開く
OnClick の右側の空欄をＷクリックして
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
with Memo1.Lines do
begin
Add('09━━FileListBox1Click ここから');
Add('10━━OnClick 起動時のリスト;'+FileListBox1.Items.Text);
Add('11━━OnClick 選択されたファイル名:'+FileListBox1.FileName);
Add('12━━FileListBox1Click ここまで');
end;
end;
これでメモの内容を見ればイベントの起こっている順番とか内容とかがよく分かるはず

空文字がわかりにくいので↓にしても可
if FileListBox1.FileName='' then
Add('03━━【何も選択されていない】'+FileListBox1.FileName) else
Add('03━━選択されたファイル名:'+FileListBox1.FileName);

243 ：デフォルトの名無しさん：2013/05/11(土) 00:36:43.60 .net

エラーが起きるところでステップ実行をしなかったの？？
FileNameがヌルになるならすぐわかりそうなものなのに
デバッグの仕方が根本的に変

244 ：デフォルトの名無しさん：2013/05/11(土) 01:18:17.09 .net

くだすれDelphi(超初心者用)

245 ：デフォルトの名無しさん：2013/05/11(土) 22:32:26.98 .net

>>241
サンプルソースありがとうございます。
mp3再生部を入れてからエラーが出て
一週間位悩んで質問しました。
最初はファイル名に絡むエラーだったので
ファイル名が上手くコンポーネントに渡していないなと言う
予想は立ちましたが、ネットでDelphiのmp3関係を扱っている
サイトで出てくるUnicodeが原因なのかと思って困ってました。

サンプルソースのおかげでFileListBoxの挙動がよくわかりました。
あらかじめFileListBoxのfilenameプロパティで適当なmp3ファイルを
設定しておくとエラーが発生せずに他のmp3ファイルを再生できたことの
理由がよくわかりました。
当然filenameプロパティを設定しないと起動時のフォルダー内にある
ファイル名は表示されていますが、選択していないので
>>243のnullが入っているのでエラーが出ていたという解釈で良いのでしょうか？

何を勉強しないと行けないのかが明確になりました。ありがとうございました。

246 ：245：2013/05/11(土) 22:53:48.08 .net

デバッガーのステップ実行のやり方が判ったので
値を監視してみたところエラーの出る寸前で
拡張子(theext)が''になっていてselfとsenderが
この位置からは参照できないと出ていました。

勉強になりました。

247 ：229：2013/05/11(土) 23:59:15.22 .net

自分のレベルも Ｄｅｌｐｈｉ のバージョンもちゃんと最初に書いてるし
こうしてみろといわれたら素直に実行するし
質問者としては良質だと思ったよ
どんどん作って今後も Ｄｅｌｐｈｉライフを楽しんでくれ(^.^)/~~

248 ：デフォルトの名無しさん：2013/05/12(日) 00:00:10.47 .net

Delphi 全角になってた恥ずかしい

249 ：デフォルトの名無しさん：2013/05/14(火) 19:48:33.00 .net

上レスのMP3 の人とは別人です。
環境 Delphi 6
ttp://www1.axfc.net/uploader/so/2902405.zip?key=P3

MP3 を
*.WAV (無圧縮 WAVE ADPCM ) モノラルにコンバートしたく
ビット/サンプル ：16 bit/sample
サンプリング周波数 ：44100 Hz
チャンネル数 ：1 channels

MP3プレイヤーを作る＞dllによる再生
http://www.sm.rim.or.jp/~shishido/mp3dev1.html

MP3 Decode Library mp3dec
http://hp.vector.co.jp/authors/VA011457/
vbmp31615_fixed_20030921.lzh　の
VBMP3.dll 改 Version 1.615.2003.0921　を使ってみています。

で、目的のフォーマット変換にたどり着けなくて
お知恵を拝借したいです。
この .dll の良い使い方とか、これ以外で組み込みやすいものなどあれば

最終目的は、変換したモノラル .wav から音声チャンク部分だけを取り出して
機器用の .pcm　音声ファイルを作るツールです。

250 ：デフォルトの名無しさん：2013/05/14(火) 21:38:42.36 .net

ffmpegで全部出来る

251 ：デフォルトの名無しさん：2013/05/15(水) 08:40:03.38 .net

フォーマット変換をするのは、再生とは別
VBMP3を使って出来る物ではないよ
両方のフォーマットを理解しないと。

http://www.marinecat.net/free/windows/mct_free.htm

それっぽいサイトを見つけたけどこれでもダメだろうな…。
午後のこーだーのソース読んでみたら

252 ：デフォルトの名無しさん：2013/05/15(水) 13:20:42.88 .net

mp3の再生ができるなら音をキャプチャすればいいんじゃないか

253 ：デフォルトの名無しさん：2013/05/15(水) 18:20:29.61 .net

>>251 >>252
MP3 のフォーマットが複数あって難解なので、既存の dll を利用したかったのです。
午後のソースも見てみましたが、お手上げですね。
デコード機能があればと残念です・・・ lame_enc.dll とか

一応、>249 のソースで
VBMP3 使用の　MP3 -> Wave 変換保存は出来るので、
サンプリングレートなど細かな指定が出来れば良いのですけど。
一時ファイルとして(wav-stereo)出力 -> PCM 44.100kHz 16ビット ならば、読み込んで モノラル化して抽出
で、お茶濁し　やってみます。

XP 付属のサウンドレコーダーをソフトから操作できれば楽なんですけどね
WAVE MPEG Layer-3 22050Hz Stereo を読み込んで -> WAVE PCM 44.100kHz 16ビット モノラル
wav での形式と属性変換が単体操作できるのですが、コマンドラインオプションが無さそうで。

254 ：デフォルトの名無しさん：2013/05/16(木) 08:16:21.01 .net

>>253
今どこまで実装できてるの？

255 ：249 253 です：2013/05/16(木) 19:42:40.64 .net

>>254
ソースと実行ファイル上げた方が良い？
素人趣味の１つなんで実装の無駄がちとハズカシイ（というか自分に解る限界だから仕方ないというか）

・現在
ListView にファイル情報のあてはめ (PCM/WAVE/MP3)
PCM/WAVE/MP3 音声再生
MP3 -> Wave 出力 >>249 と同じ VBMP3 手法のまま
モノラルWave -> 機器用の .pcm　音声ファイル用に抽出ファイル化

・次の着手予定
MP3 -> 作業フォルダにWave ファイル出力 -> Wave 読み込んで PCM ファイル化出力
元のMP3 が 128Kbps : 44100 Hz : Monaural だった場合、目的の.wav 物に VBMP3 がそのまま変換してくれるようで
変換後がステレオだった場合、チャンクのＬＲをゴニョって擬似モノラルにして抽出。

ps. >>249 で一部訂正
誤：*.WAV (無圧縮 WAVE ADPCM ) モノラル
正：*.WAV (無圧縮 WAVE PCM ) モノラル

256 ：デフォルトの名無しさん：2013/05/16(木) 20:15:14.36 .net

>>255
ffmpeg -i input.mp3 -ac 1 -ar 44100 -f s16le -acodec pcm_s16le output.pcm
出力ファイルを"-"にすれば結果が標準出力へ吐き出されるのでプログラムからパイプで受け取れる

257 ：249 253 です：2013/05/16(木) 23:38:15.05 .net

>>256 ども
コマンドラインで一発変換できますね
２バイト文字のファイル名にも対応しているようで
ShellExecute でいけるかやってみます。

>出力ファイルを"-"にすれば結果が標準出力へ吐き出されるのでプログラムからパイプで受け取れる
？ 意味不明
クリップボードにバイナリファイルが格納される　という意味ですか？

ファイル実体として出力はいるので
とりあえずフロントエンド？という利用方法で組んでみます。
ありがとう

258 ：デフォルトの名無しさん：2013/05/17(金) 00:28:18.21 .net

>>256じゃないけど、標準出力とかパイプとかせめて検索してほしいなぁ

259 ：デフォルトの名無しさん：2013/05/18(土) 03:19:43.51 .net

XE4&FireMonkeyで、FormのFullScreenがMacだと有効にならないんですが、
Macでフルスクリーンにする方法はありますか？

260 ：デフォルトの名無しさん：2013/05/26(日) 17:10:26.68 .net

setparentのusesって何を指定すれば良いですか？
window.setparentみたいなのもあるみたいですが、やりたいことは親フォームに貼り付けたパネルに子フォームをロードするというものです。
window.setparentを記述したら、usesの中のwinapi.windowsに赤の波線が出て、何だか良く判らなくなっています。
usesに何を指定すれば良いか教えてください。

261 ：デフォルトの名無しさん：2013/05/26(日) 17:12:46.07 .net

Frameでやれ

262 ：デフォルトの名無しさん：2013/05/26(日) 21:47:02.15 .net

他の掲示板に行きます

263 ：デフォルトの名無しさん：2013/05/27(月) 00:27:21.33 .net

裏技で派生先クラスから派生元のprivateメソッドを呼び出す方法ありませぬか？

264 ：デフォルトの名無しさん：2013/05/27(月) 01:22:27.42 .net

1.同一ユニット上に置く
2.クラスヘルパを使う
3.新しいRTTIを使う
ん〜あと何かあるかな

265 ：デフォルトの名無しさん：2013/05/27(月) 17:02:04.11 .net

オーバーライドするだけじゃないの？

266 ：デフォルトの名無しさん：2013/05/28(火) 19:52:06.64 .net

クラス設計やり直し。

267 ：デフォルトの名無しさん：2013/05/28(火) 23:03:18.64 .net

WM_で始まるメッセージとCM_で始まるメッセージって何が違うの？

268 ：デフォルトの名無しさん：2013/05/29(水) 05:09:30.73 .net

Windows のメッセージと
Control のメッセージ。

WM_ は OS が送ってくる。
CM_ は VCL が送ってくる。

CM_ は、単純なメソッド呼び出しに置き換えることが（多くの場合）可能だけど、
それをわざわざメッセージにすることで、WM_ に対応するメッセージハンドラと
同じ記述に統一することが出来る。

269 ：デフォルトの名無しさん：2013/05/29(水) 12:07:16.17 .net

そうでもない。

270 ：デフォルトの名無しさん：2013/05/29(水) 22:34:27.63 .net

TSplitterが置いてあるウィンドウがリサイズされるとき
変更前と変更後で分割率が同じになるようにするにはどうすれば良いんですか？

271 ：デフォルトの名無しさん：2013/05/30(木) 00:50:25.90 .net

TADO関係のコンポーネントを使って、Microsoft Accessの
データーベース上のクエリーのSQL文の取得か、クエリーの実行って、
できるでしょうか？

272 ：デフォルトの名無しさん：2013/05/30(木) 06:45:51.34 .net

>>270
FormのOnResizeで自前でコントロールのサイズを変更する

273 ：デフォルトの名無しさん：2013/05/31(金) 08:08:59.31 .net

それたぶんうまくいかない
OnResizeはサイズ変更された後に発生するイベントだから
何らかの方法で変更前のサイズを覚えておく必要があるのと、
一度変化した内部コントロールのサイズをまた変更することになるので
適切な手を打たないと猛烈にちらつく事になる

274 ：デフォルトの名無しさん：2013/05/31(金) 18:40:48.60 .net

分割率が同じならいいんだろ？　計算してポンだよ

275 ：デフォルトの名無しさん：2013/05/31(金) 22:23:55.60 .net

ではその計算してポンのコード書いてみれ

276 ：どや：2013/05/31(金) 23:50:53.77 .net

TForm1 = class(TForm)
　Panel1: TPanel; //Ａｌｉｇｎ=clClient;
　Splitter1: TSplitter; //Ａｌｉｇｎ=clRight;
　Memo1: TMemo; //Ａｌｉｇｎ=clRight;
　procedure FormResize(Sender: TObject);
　procedure Splitter1Moved(Sender: TObject);
private
　rp:Single;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
　　if rp <> 0 then
　　　　Memo1.Width := Round(ClientWidth * rp);

　　rp := (Memo1.Width / ClientWidth);
end;

procedure TForm1.Splitter1Moved(Sender: TObject);
begin
　　rp := 0;
end;

277 ：276：2013/05/31(金) 23:52:09.02 .net

AlignプロパティはclXXXじゃなくてalXXXだった

278 ：デフォルトの名無しさん：2013/06/03(月) 16:30:38.06 .net

それ分割率がちょっとずつずれていくよね

279 ：デフォルトの名無しさん：2013/06/03(月) 21:30:54.18 .net

>>276のコードはちょっと変だと思うけど
OnResizeのタイミングでまったくちらつかないな
まあマシンに依るのかもしれんが
まあ、OnResize発生したらタイマー仕掛けて
一定時間OnResizeが発生しなかったら
画面を更新するっていう方法もあるだろうけど

280 ：デフォルトの名無しさん：2013/06/05(水) 00:00:12.75 .net

>>276
分割率をFormResizeで毎回計算するのはおかしいね
分割率を計算するのは、Splitterを動かして、分割率が変化したときだね

281 ：デフォルトの名無しさん：2013/06/05(水) 10:43:31.72 .net

それだと最初の計算はいつ行われる？
フォーム生成時にもリサイズイベントが起きるから厄介なことになりそう

282 ：デフォルトの名無しさん：2013/06/05(水) 11:55:59.43 .net

そこまでわかってるなら、生成〜リサイズの間、と導き出されるわけだが

283 ：デフォルトの名無しさん：2013/06/05(水) 21:30:26.95 .net

>282
じゃあ具体的にコードとして書くと？

284 ：デフォルトの名無しさん：2013/06/05(水) 22:12:49.89 .net

282 じゃないけど
TForm の Create()　の前に、OnReSize()が発生することなんてあり得るの？
ないだろ

285 ：デフォルトの名無しさん：2013/06/07(金) 18:30:49.23 .net

D7でIBXでFireBIrd2.5に接続しています
IBDataSetとIBQueryでFilterを使ってみたところまったく効果がありませんでした
IBTableに変えたところフィルターされました
IBDataSetとIBQueryではFilterは使えないのでしょうか

286 ：デフォルトの名無しさん：2013/06/07(金) 18:36:55.06 .net

>>285
使えない。OnFilterRecordイベントに書かないとダメだったと思うよ。

287 ：デフォルトの名無しさん：2013/06/08(土) 18:58:42.90 .net

>>286
やはり使えませんか
DataSetProviderとClientDataSetを介すと使えるようなのでそれでやってみます

288 ：デフォルトの名無しさん：2013/06/09(日) 14:53:17.13 .net

>>287
>ClientDataSet
ライセンスに気をつけて。

289 ：デフォルトの名無しさん：2013/06/14(金) 12:19:35.60 .net

D7でゼロ除算例外が起きなくなりました
あるプロジェクトで
var
a : Double;
b,c : integer;
begin
　try
　 　a := b / c ;
　except
　a := 0;
　end;
end;
のようなコードを書いているのですがある時からaが0でなく-NANになるようになってしまいました
テスト用の簡単なプロジェクトを作ったらそっちでは例外が起きて0になっています
考えられる原因はなんでしょうか
プロジェクトのオプションはどちらも同じはずです
コンパイラ指令もいじっていません

290 ：デフォルトの名無しさん：2013/06/14(金) 12:26:09.67 .net

時間ない、だれかフォロー
Set8087( default8087) を

291 ：デフォルトの名無しさん：2013/06/14(金) 12:50:24.68 .net

>>290
計算前に
Set8087CW(Default8087CW);
といれて試してみましたが変わりませんでした

292 ：デフォルトの名無しさん：2013/06/14(金) 13:35:23.88 .net

初期化していないローカル変数はゼロになるとは限らない。
いままで、たまたま動いてた。

293 ：デフォルトの名無しさん：2013/06/14(金) 14:18:19.66 .net

>>292

データの中身は除算前に0であることを確認してます
試しに計算直前に0を代入してみましたがやはり例外は起きませんでした
以前コンパイルした物は同じデータで例外が起きてちゃんと0になるんですよ
だから何かの設定かと思ったんですが

294 ：デフォルトの名無しさん：2013/06/14(金) 14:33:10.66 .net

まずはちゃんとエラーを捕まえて　except on e で e.Message を見てみる
ゼロ除算をわざとやるなら cに0を代入してみればいい

295 ：デフォルトの名無しさん：2013/06/14(金) 14:38:40.78 .net

>>294
だからエラーが起きないんです
もちろんcに0を入れても

296 ：デフォルトの名無しさん：2013/06/14(金) 14:44:08.52 .net

たぶん最適化のバグだと思う　最適化を外して再構築してみな
最適化したままデバッグしているとドツボにはまるよ

297 ：デフォルトの名無しさん：2013/06/14(金) 14:59:57.58 .net

a := b / c ; の行で生成される fdivp の命令の次の命令あたりで
ブレークポイントをかけて実行。そのとき
(1) コントロールワードの値にZeroDiv例外マスクがかかっているので、
(2) 例外が発生せず、浮動小数点スタックのトップの値が -NAN になった
という症状が発生しているのならば、Set8087CWで対応できるし、
そこでは停止せずに例外が発生して、どこかへ飛んで、-NAN を
浮動小数点スタックに積んでいるなら、それが原因。

298 ：デフォルトの名無しさん：2013/06/14(金) 15:24:35.48 .net

もどった。
D7 だから、昔からある機能で解決しなきゃいけないな。Math ユニットってあったけ？

try に入る前のところに

Set8087($1332);

を入れて。

-NAN になっているのだから演算は正しく行われて、Zero-div 例外がマスクされているだけ。
それを元に戻せばよし

299 ：デフォルトの名無しさん：2013/06/14(金) 15:48:34.76 .net

LoadLibrary 呼ぶと8087CWが変化することがあるので
前後にsave/restoreが必要という話か？

300 ：デフォルトの名無しさん：2013/06/14(金) 16:04:22.91 .net

比較的最近のだと SafeLoadLibrary ってのがあって CW の再設定をしてもらえる。
D7 にあるかどうかは忘れた。

Default8087 を設定しても直らなかった。ってことからすると、MSVC-DLL による 80887 再初期化とは
別の話で、OpenGL とか D3D あたりのユニットを最近追加したりしてないかな？

301 ：デフォルトの名無しさん：2013/06/14(金) 16:17:42.42 .net

色々テストしてみました
default8087cwをtryの外に出したら例外に飛ぶようになりました
ただまったく別のフォームに例外を起こすコードを書いてもやはりdefault8087cwを入れないと
例外にならなかったのでプロジェクトのあちこちにあるこの処理を書き直すことを考えると頭が痛いです

302 ：デフォルトの名無しさん：2013/06/14(金) 16:26:30.48 .net

その場所だけでなくプロジェクトに新規追加したフォームでも起きるんで
プロジェクトオプションで何か設定があるのかもと思ったんですが
まったく同じコードを新規プロジェクトで実行すると例外になるんで

303 ：デフォルトの名無しさん：2013/06/14(金) 16:27:20.73 .net

つ バファリン

304 ：デフォルトの名無しさん：2013/06/14(金) 19:33:14.98 .net

原因判りました

IBXでIBQuery等をOpenするだけで例外をトラップしなくなります

例外を捉えていたテスト用のプロジェクトに単純なSELECT文のIBquery1つ置いてopenしたらダメになりました
何故だorz

同じexeファイルをコピーして試したところどうやらwinxpでは例外になるのにwin7ではだめなようです
頭痛いどころじゃなくなった

305 ：デフォルトの名無しさん：2013/06/14(金) 21:01:54.33 .net

ちょっと教えてください。

Win7で開発しています。

TListviewで各行の高さの30程度にし、SubItemなどの
長目のテキストを半角スペース付きで指定すると
そのスペース位置でうまく改行されます。

ところがXPで同じコードを実行しても改行されず
テキストの後半が「...」に置き換わります。
まあ、これが従来の表示形式だと思いますが。

この挙動が変わったのはOSのバージョンで言うと
どのあたりなのでしょうか？

それと、XPで何らかの方法で改行できないでしょうか？
やっぱりCustomDrawしか方法はないですか？

306 ：デフォルトの名無しさん：2013/06/16(日) 09:28:06.51 .net

以前mp3の実装の仕方を教えてもらった者です。

ttp://delphi.about.com/od/adptips2006/qt/mediaplayer_vol.htm

のサイトにあるようなものを再現知るにはどうしたら良いのでしょう?
本当にどうしたら良いのか判らず…。

あとこのてのものをいじるにはポインタの知識が必要なのでしょうか?

基礎的な質問ですみません。

307 ：デフォルトの名無しさん：2013/06/16(日) 17:12:07.25 .net

再現手順がわりと丁寧に書かれているが?
手順のことを訊いているのではないのか?

308 ：デフォルトの名無しさん：2013/06/16(日) 20:38:55.88 .net

>>307
すいません。
一部のコンポーネントのnameを変更したら、
後はコピペで行けるのでしょうか?

赤線だらけで、何度やっても上手く行きません。
もう少しやってみます。

309 ：デフォルトの名無しさん：2013/06/16(日) 21:10:03.01 .net

片っ端にコピペをしたら無事コンパイルできました。
お騒がせしました。

310 ： ◆XcB18Bks.Y ：2013/06/16(日) 22:26:33.28 .net

>>281-284
今更ですが最近似たようなプログラムを書いたので。

フォーム生成の後にリサイズイベントは起きますので
フォームのコンストラクターかOnCreateイベントハンドラで
割合を計算して記憶しておけば大丈夫みたい。

（フォームの宣言の一部）
private
　FMemoWidthRatio: single;
　procedure MemoryMemoWidthRatio;

（実現部）
procedure TForm1.FormCreate(Sender: TObject);
begin
　MemoryMemoWidthRatio;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
　Memo1.Width := round(ClientWidth * FMemoWidthRatio);
end;

procedure TForm1.MemoryMemoWidthRatio;
begin
　FMemoWidthRatio := Memo1.Width / ClientWidth;
end;

procedure TForm1.Splitter1Moved(Sender: TObject);
begin
　MemoryMemoWidthRatio;
end;

311 ：デフォルトの名無しさん：2013/06/17(月) 21:03:42.71 .net

WinXP D6 で質問です。

TListviewで ViewStyle := vsReport;
なかのグリッドのマスにマウスでポイントしてグリッドＸ,Ｙの位置を知る方法はありますか？
そしてその方法。

今は
ColumsClick := True; で上部のカラムを押してＸ軸を指定
procedure TForm1.ListViewColumnClick(Sender: TObject; Column: TListColumn);
begin
　// 略(エラー回避)
　ListSelectColumn := Column.Index;
end;

MultiSelect := True; で行にマウスを当ててＹ軸を指定
procedure TForm1.ListViewClick(Sender: TObject);
begin
　// 略(エラー回避)
　ListSelectIndex := ListView.Selected.Index;
end;

という方法を使ってＸ,Ｙを指定してからグリッドの項目に入力などをやっています。

312 ：デフォルトの名無しさん：2013/06/17(月) 21:38:56.98 .net

何が聞きたいのかいまいちわからないんだけど、GetItemAtとかGetNearestItemとかが役に立たないかな？

313 ：デフォルトの名無しさん：2013/06/18(火) 00:33:54.71 .net

>>312
空の項目に文字を入れる場合の現状
>311　でＸ　Ｙを決めている。

ListView.Items[Ｙ2 行番号].SubItems.Strings[Ｘ3 カラム番号-1] := 'Ｙ2 Ｘ3 のグリッド';

ListView.Items[ListSelectIndex].SubItems.Strings[ListSelectColumn-1] := 'Ｙn Ｘn のグリッド';

つまりマウスで表のマス目を直接１回で場所指定したいわけです。
今は横縦指定してからプルダウンメニューやボタン操作で入れる処理にしています。

314 ：デフォルトの名無しさん：2013/06/18(火) 00:37:02.48 .net

いやいや、日本語でおｋ

315 ：デフォルトの名無しさん：2013/06/18(火) 02:40:45.85 .net

ええと、言ってる内容がイマイチはっきりしないけど
Listview内の任意の場所をクリックして、その位置にある
Item（行）とSubItemの.Index（列）を知りたいってことですよね。

VBなんかだとGetSubItemAt（かな？）みたいな関数があるけど
Delphiに類似の関数ってあったけ？

でも、各カラムの幅は分かってるんだから、マウス位置のXから
すぐに求められるでしょう？

316 ：デフォルトの名無しさん：2013/06/18(火) 12:44:31.18 .net

これでどうよ

procedure TForm1.OnListViewMouseDown(Sender: TObject; Button: TMouseButton;
　Shift: TShiftState; X, Y: Integer);
var
　i,col,row: integer;
　columnX: Integer;
begin
　col := 0;
　row := ListView1.Selected.Index;
　columnX := ListView1.Columns[0].Width;

　for i := 0 to ListView1.Columns.Count do
　begin
　　if (X < columnX) then break;
　　columnX := columnX + ListView1.Columns[i].Width;
　　Inc(col);
　end;

　ShowMessage('col=' + IntToStr(col) + ' row='+IntToStr(row));
end;

317 ：デフォルトの名無しさん：2013/06/18(火) 22:06:14.11 .net

めんどくさいことしなくても、
ListView_SubItemHitTest　でＯＫ

318 ：デフォルトの名無しさん：2013/06/19(水) 14:57:20.62 .net

D7でIBXのTIBDataSetでApplyUpdatesを実行してもUpdatesPendingがtrueのままなのですが
何をしたらFalseに戻るのでしょうか
戻らないとしたら更新の有無は何で判断したらいいでしょうか
データベースへの適用はCommitRetainingで行っています

319 ：デフォルトの名無しさん：2013/06/19(水) 16:28:23.27 .net

TIBCustomDataSet.ApplyUpdatesをステップ実行してみればわかるんじゃないかな。
ローカル変数のUpdateActionがuaSkipだとUpdatePendingがFalseにもどらないみたいだけど、
そうなる理由はOnUpdateErrorイベントハンドラに指定したコードによるみたい。

320 ：デフォルトの名無しさん：2013/06/19(水) 17:00:57.64 .net

>>319
ありがとうございます
アフタースクロールイベントでフィールドが変更されてしまっているのが原因でした
アフタースクロールで日付を分解してEditに入れてたのですが
EditのOnchangeでフィールドに書き込んでいたというおまぬけなことをやっていました

321 ：デフォルトの名無しさん：2013/06/19(水) 18:13:38.22 .net

>>316がバグってたので修正版

procedure TForm1.OnListViewMouseDown(Sender: TObject; Button: TMouseButton;
　Shift: TShiftState; X, Y: Integer);
var
　col,row: Integer;
　intX,columnX: Integer;
begin
　if (ListView1.Selected = nil) then exit;

　intX := X - ListView1.Selected.Position.X;
　row := ListView1.Selected.Index;
　columnX := 0;

　for col := 0 to ListView1.Columns.Count-1 do
　begin
　　Inc(columnX, ListView1.Columns[col].Width);
　　if (intX < columnX) then break;
　end;

　ShowMessage('col=' + IntToStr(col) + ' row=' + IntToStr(row));
end;

322 ：デフォルトの名無しさん：2013/06/20(木) 18:59:38.71 .net

D7でDBGridでtabキーを押すと次のレコードに移動するにはどうしたらいいでしょうか
出来ればコードを書かずに済む方法が知りたいです

323 ：デフォルトの名無しさん：2013/06/20(木) 19:25:49.46 .net

>>322
コードは書かなきゃ無理だろ。DBGridのOnKeyPressイベントに
if Key = #9 then DataSet.Nextってやればいいんじゃね？

324 ：デフォルトの名無しさん：2013/06/20(木) 19:59:27.78 .net

>>323
ありがとうございます
いや、手元にあるソースでコードにそれらしきものがないのに次のレコードに移動するのがあるんで
やり方が知りたかったんですよ
それらしいイベント記述もプロパティの設定もないもので
何か見落としてるんだと思うんだけど

とりあえずそのやり方でやってみます

325 ：デフォルトの名無しさん：2013/06/20(木) 22:03:47.51 .net

TDBGrid.Options
dgTabs 〔Tab〕キーおよび〔Shift〕+〔Tab〕キーを使って，グリッド内を移動できる

326 ：デフォルトの名無しさん：2013/06/21(金) 02:39:39.18 .net

>>321さん
返事が遅れましてすみません、ありがとうございます。
ListViewで　col　row　が取得できるようになりました。

327 ：デフォルトの名無しさん：2013/06/21(金) 10:46:12.39 .net

322です
>>325
dgtabs=trueです

FalseにするとDBGrid内でtab移動せず他のコントロールに飛んでしまいました

DBGridのReadOnlyを切り替えているところをコメントアウトしたらタブで行移動しなくなったので
これが悪さしてるらしいが原理がわからん
当然編集中はReadOnly=Falseなのだがtabを押すとcolexitもColEnterも発生せずいきなりレコードが移動する
もしかしたら意図的にやってるのではなくDelphiのバグなのか?

328 ：デフォルトの名無しさん：2013/06/22(土) 18:39:47.00 .net

rtl170.bplってどこにおちてるんでしょうか

329 ：デフォルトの名無しさん：2013/06/24(月) 09:26:02.94 .net

System32

330 ：デフォルトの名無しさん：2013/06/26(水) 07:54:55.43 .net

>>237
かなり前の話ですが、
if CompareText(ExtractFileExt(FileListBox1.FileName),'.mp3')<>0 then exit;
での<>0の0は何を指しているのでしょう?

色々な文献で、ファイルにまつわる処理で
=0だったりというのが出てきますが、
ファイル名は文字ではないよな?と悩んでいます。

すみません。教えていただけないでしょうか。

331 ：デフォルトの名無しさん：2013/06/26(水) 08:50:24.43 .net

CompareTextの引数は文字列２つですが、この関数の戻り値は数値です。
ttp://docwiki.embarcadero.com/Libraries/XE4/ja/System.SysUtils.CompareText

332 ：デフォルトの名無しさん：2013/06/26(水) 10:56:38.04 .net

判りました。ありがとうございます。

勉強が足りないというレベルじゃないですね。
なんか根本的な物が分かっていない気がします。

333 ： ◆XcB18Bks.Y ：2013/06/26(水) 15:58:29.31 .net

大丈夫ですよ。
文字列をパラメーターに取る関数の戻り値は別に文字列型ではなくてもいい、それだけです。

334 ：デフォルトの名無しさん：2013/07/10(水) NY:AN:NY.AN .net

おはようございます
いつもお世話になっております
TMainMenuの子にショートカットキーCtrl + +を設定したいのですがエラーがでて設定ができません
設定できる方法があればご教授願いたいです
ちなみにCtrl + Num +ではないです

335 ：デフォルトの名無しさん：2013/07/10(水) NY:AN:NY.AN .net

[ALT}+[F12]でdfmをテキスト表示してShortCutプロパティに直接16427を指定するんじゃ駄目？

336 ：デフォルトの名無しさん：2013/07/10(水) NY:AN:NY.AN .net

>>355
レスありがとうございます
試してみましたができませんでした・・・
他のショートカットに使われる数字だと指定できるのですが16427だと
ショートカットの欄には何も表示されず空白のままで、実際にショート
カットキーを押してみても反応がありませんでした
ちなみにバージョンはDelphi6です

337 ：デフォルトの名無しさん：2013/07/10(水) NY:AN:NY.AN .net

>Ctrl + Num +ではない
って言ってももう一つの方なら「Ctrl+;」ではないのか？
或いは「Shift+Ctrl+;」

テンキーの方なら↓
Test1.ShortCut:=ShortCut($6B, [ssCtrl]);
Test1.Caption:=Test1.Caption+#9+'Ctrl + +'+#0;

338 ： ◆XcB18Bks.Y ：2013/07/10(水) NY:AN:NY.AN .net

テンキーでない方の[+]って日本語キーボードとUSキーボードでは違うキーでしたよね。
どちらでも動くように作らないといけないかと思います。

ちなみに手元のTurbo Delphiでは
[;]（セミコロン）キーなら単純に"Ctrl+;"で行けました。

339 ：デフォルトの名無しさん：2013/07/10(水) NY:AN:NY.AN .net

現在のキーボードで、文字に対応するキーコードを調べるにはVkKeyScanを使う。
code := VkKeyScan('+'); // code: SmallInt
key_code := LoByte(code); // key_code: Word
shift := [ssCtrl]; // shift: TShiftState
if (HiByte(code) and 1) <> 0 then Include(shift, ssShift);
menu_item..ShortCut := ShortCut(key_code, shift);

これでも設定できなかったら、OnShortcutとかOnKeyPressイベントで
キーを受け取って自前で処理することになるかな。
（メニューやHintの文字列も自分で追加）

340 ：デフォルトの名無しさん：2013/07/10(水) NY:AN:NY.AN .net

皆様沢山のレスありがとうございます
こんなにたくさんのレスをいただけるとは驚きました・・・
>>337,>>338さんのおっしゃる通りCtrl+;で実装できました
他のソフトだとCtrl++という表示が出ているという固定観念にとらわれてCtrl++を
表示させようと必死でした・・・
Ctrl++とCtrl+;の表示の違いについては気にしないのでCtrl+;で実装しようと思います
>>339さんの方法は今後もし同じようなことがあれば参考にさせていただきます
レスをして下さった皆様ありがとうございました

341 ：デフォルトの名無しさん：2013/07/26(金) NY:AN:NY.AN .net

D7でプロジェクト全体で語句を一括置換したい場合どうすればいいでしょうか
IDEの置換だとunit単位でしかできないですよね

342 ：デフォルトの名無しさん：2013/07/29(月) NY:AN:NY.AN .net

秀丸なりなんなり外部エディタで

343 ：デフォルトの名無しさん：2013/07/29(月) NY:AN:NY.AN .net

delphiのかなり基本についての質問です。
使ってるバージョンは delphi 6 Personal です。
mp3プレイヤーを作りたいと頑張っていますが、”常にFormの状態を取得する”
というイベントがあるのか無いのか、またあるならばどのイベントかが分かりません。
どうすればできるでしょうか？

344 ：デフォルトの名無しさん：2013/07/29(月) NY:AN:NY.AN .net

『常にFormの状態を取得する』ってなによ？自分用語じゃなくて他人に伝わるようにね。

345 ：デフォルトの名無しさん：2013/07/29(月) NY:AN:NY.AN .net

すいませんでした。
自分じゃこれ以上の表現は難しいのでこの質問はやめにします。
スレ汚しすいませんでした。

346 ：デフォルトの名無しさん：2013/07/29(月) NY:AN:NY.AN .net

TApplicationEvents.OnIdle

347 ：デフォルトの名無しさん：2013/07/29(月) NY:AN:NY.AN .net

エスパー現る

348 ：デフォルトの名無しさん：2013/07/30(火) NY:AN:NY.AN .net

>>346
ありがとうございます。

349 ：デフォルトの名無しさん：2013/07/30(火) NY:AN:NY.AN .net

イベントドリブンなDELPHIでもメッセージをフックして独自な処理をすることもできる
なんのイベント探してるのか知らないけどOSが渡してくるメッセージのどれかだろうから
フォームの状態を常に監視的なことはもちろんできる

350 ：デフォルトの名無しさん：2013/08/01(木) NY:AN:NY.AN .net

この程度でエスパー扱いか
顧客様はもっと意味がわからん要求してくるけどな

351 ：デフォルトの名無しさん：2013/08/01(木) NY:AN:NY.AN .net

そのレスに何の意味があるの？

352 ：デフォルトの名無しさん：2013/08/04(日) NY:AN:NY.AN .net

お前が釣れたんじゃねぇの？

353 ：デフォルトの名無しさん：2013/08/04(日) NY:AN:NY.AN .net

そのレスに何の意味があるの？

354 ：デフォルトの名無しさん：2013/08/06(火) NY:AN:NY.AN .net

　Delphi7 のユーザーなのですが、最新版の Delphi の TRichEdit は 7 に比べ格段に進化しているのでしょうか？
　また TEditor 以外の 有力なテキストエディタコンポはありますか？
　RichEdit も有力でかまいませんのでよいコンポがあったら紹介して下さい。

355 ：訂正：2013/08/06(火) NY:AN:NY.AN .net

> RichEdit も有力でかまいませんのでよいコンポがあったら紹介して下さい。
RichEdit も有料でかまいませんのでよいコンポがあったら紹介して下さい。

356 ：デフォルトの名無しさん：2013/08/07(水) NY:AN:NY.AN .net

TMaskEditで日付を入力しているのですが
一度入力してしまうと消してブランクにしたいと思っても入力値が不正ですとなってしまって抜けられなくなります
この場合入力を取り消す方法はないのでしょうか

357 ：デフォルトの名無しさん：2013/08/07(水) NY:AN:NY.AN .net

>>354
超テキトーにお答えします。

＞最新版の Delphi の TRichEdit は 7 に比べ格段に進化しているのでしょうか？
たぶん特に進化はしてないかと。トライアル版を試すとかヘルプを見るとか。
http://docwiki.embarcadero.com/Libraries/XE4/ja/Vcl.ComCtrls.TRichEdit

＞また TEditor 以外の 有力なテキストエディタコンポはありますか？
TEditorが正式にUnicode対応するまで、決定版が無いような気がしたり。
TSonEditは、TEditorと同じくUnicode対応の可能性あり。
SynEdit
他にはエディタ真魚のTNotePadとか。たぶんまだまだあるでしょ。

＞RichEdit も有料でかまいませんのでよいコンポがあったら紹介して下さい。
最近広告してるTRichEdit代替品。良いかまったく知らんけど。http://www.trichview.com/

358 ：デフォルトの名無しさん：2013/08/07(水) NY:AN:NY.AN .net

>>356
「入力を取り消す」が、有無を言わさず元に戻す、という意味ならこんな感じで。
type
TMaskEdit = class(Mask.TMaskEdit)
protected
procedure ValidateError; override;
end;

type
TForm1 = class(TForm)
　　…

implementation

procedure TMaskEdit.ValidateError;
begin
Self.Reset;
end;


こんなのもあった。

"必須入力自動ｷｬﾝｾﾙ MaskEdit"
http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/01118.html

359 ：デフォルトの名無しさん：2013/08/12(月) NY:AN:NY.AN .net

>>357
　亀だけどサンクス。
　TEditor を使っている TeraPad の作者がいまだに Delphi4 で開発を継続しているのにちょっとびっくりした。
　OS は Windows 7 らしい。私の OS も Windows 7（64bit）なんだけど、Delphi 5 の動きは少し怪しい。32
ビット版の Windows 7 だったらいいのかな？

360 ：デフォルトの名無しさん：2013/08/12(月) NY:AN:NY.AN .net

>>359
Delphi5 on Windows7 については知らぬ。

それより、TRichEditなら JEDI JVCL - TJvRichEditに言及するのを忘れてた。
VCL標準のは
＞TRichEdit はリッチ エディット 2.0 をサポートします。
とのことだが、何をどうサポートしてるのか不明。大昔の機能しかないように見える。

それに対し、TJvRichEditはRichEdit（2.0 ＆ 3.0）の機能をほぼ網羅してる。
背景色・リンク（イベント）・複数回Undo・ズーム・アンダーラインの種類と色、などなど。
http://wiki.delphi-jedi.org/wiki/JVCL_Help:TJvRichEdit
http://wiki.delphi-jedi.org/wiki/Category:JvRichEdit.pas_Classes
http://wiki.delphi-jedi.org/wiki/JVCL_Help:TJvCustomRichEdit

361 ：デフォルトの名無しさん：2013/08/25(日) NY:AN:NY.AN .net

Delphi XE3とか既にインストールされてるのですが、今から、古いバージョンの
Delphi2009とかをインストールしても問題ないでしょうか？？
ファイルの関連付けは変わりそうですが。

362 ：デフォルトの名無しさん：2013/08/25(日) NY:AN:NY.AN .net

ご想像の通りあまりお勧めできないかなぁ。大丈夫かもしれないけど。
あとからXE3を修復セットアップかけてみるとか…？

363 ：デフォルトの名無しさん：2013/08/25(日) NY:AN:NY.AN .net

やっぱ、おすすめできないですよね。
いざとなったら、仮想マシンの方で頑張ってみます。

364 ：デフォルトの名無しさん：2013/08/25(日) NY:AN:NY.AN .net

問題になりそうなのはヘルプ、関連づけ、同梱されてるサードパーティ製品くらいかな。
でも動いてる環境に影響がありそうなことはしたくはないよね。

365 ：デフォルトの名無しさん：2013/08/25(日) NY:AN:NY.AN .net

環境変数もあるか。

366 ：デフォルトの名無しさん：2013/08/27(火) NY:AN:NY.AN .net

エンバカが Delphi 買ったのって、エンバカのツールが Delphi で書かれていたからなんだって。
すごいね

367 ：デフォルトの名無しさん：2013/08/27(火) NY:AN:NY.AN .net

　　　　　　　　　＿人人人人人人人人人人人人人人人＿
　　　　　　　　＞　　　そうなんだ、すごいね！ 　　　　　＜
　　　　　　　´￣^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^Ｙ^￣
　　　　　　　　　　　　__､､=--､、　　　　　　　　　＿＿
　　　　　　　　　　　/　　　　・　ﾞ!　　　　　　　／・　　　｀ヽ
　　　　　　　　　　　|　・　　　__,ﾉ　　　　　　 （＿　　　 ・　|
　　　　　　　　　　　ヽ、　(三,､,　　　　　　　 　＿）　　　 /
　　　　　　　　　　　　/ー-=-i''　　　　　　　（__＿＿,,,.ノ
　　　　　　　　　　　　|＿＿,,/　　　　　　　　　　|＿＿ゝ
　　　　　　　　　　　　　〉　　）　　　　　　　　　　（　　）

368 ：デフォルトの名無しさん：2013/08/29(木) NY:AN:NY.AN .net

初めまして
過去ログみてsystem32を見てみたのですがrtl170.bplが見当たりません
どこにありますか…？

369 ：デフォルトの名無しさん：2013/08/29(木) NY:AN:NY.AN .net

>>368
いや、あんた使ってるDelphiのバージョンとか 、
何をしたらどんなエラーが出るとか書かないとエスパー降臨待ちになるで

370 ：デフォルトの名無しさん：2013/08/29(木) NY:AN:NY.AN .net

>>368
すいません。
Delphi絡みというよりも、やっているPCゲームでrtl170.bplを要求されてしまって
ぐぐってもなかなかでてこないときに>>328に辿り着いたので安易に質問してしまいました
そもそもrtl170.bplというファイル自体がよくわかりません…

371 ：デフォルトの名無しさん：2013/08/29(木) NY:AN:NY.AN .net

ゲームメーカーに問い合わせるしかないんじゃね?

372 ：デフォルトの名無しさん：2013/08/29(木) NY:AN:NY.AN .net

>>370
作者に連絡してリリースビルドかつランタイム同梱形式でコンパイルしてもらうか、
配布用ランタイムパッケージつくってもらえ

373 ：デフォルトの名無しさん：2013/09/04(水) 10:38:23.26 .net

整数とかの変数名のあたまにマイナス符号つけるやり方って昔からあった？

374 ：デフォルトの名無しさん：2013/09/04(水) 11:58:48.55 .net

ごめん、君の言ってることがわからない > 373

AnotherIntVariable := - IntVariable;

ってこと？

375 ：デフォルトの名無しさん：2013/09/11(水) 11:16:41.24 .net

TPopupMenuを上に展開するのってどうやるのでしょうか

376 ：デフォルトの名無しさん：2013/09/11(水) 13:11:42.47 .net

>>375
カーソルの上の方にということならそのように座標をを指定するだけ。

377 ：デフォルトの名無しさん：2013/09/11(水) 13:35:00.78 .net

>>376
popupメソッドだと左上が基点になんですが、
デスクトップで右クリックしたときに出るメニューみたいに
左下や右下を基点にする方法はありますか？

378 ：デフォルトの名無しさん：2013/09/11(水) 13:49:17.25 .net

PopupMenu1.Popup(0, 0);が左上だから
PopupMenu1.Popup(0, 768);で左下
PopupMenu1.Popup(1024, 768);で右下にならない？

379 ：デフォルトの名無しさん：2013/09/11(水) 23:03:04.06 .net

> デスクトップで右クリックしたときに出るメニューみたいに
画面下にはみ出しそうだと勝手に上向きに調整されるだけ
逆に画面上につっかえるような指定すると、どう頑張っても下向きにされるはず

380 ：デフォルトの名無しさん：2013/09/12(木) 01:05:31.45 .net

>>377-379
強制的に、またはデフォルトで左下や右下を基点にしたい、って意味なのかな？
どうしてそんな必要があるのか分からんけど。

381 ：375：2013/09/13(金) 18:17:19.80 .net

フォームの下のほうに配置したボタンでポップメニューを出すようにしてるんですが、
通常はボタンの左下を基点に表示するようにしてるけど、
メニューが多くなって上に展開されたときにボタンが隠れてしまうので、
はじめからボタンの上方向に展開できればと思ったのです。

382 ：デフォルトの名無しさん：2013/09/13(金) 19:43:33.26 .net

DephiにC++のコピーコンストラクタみたいな物は無いのでしょうか？
もしくは代わりになりそうな機能

383 ：デフォルトの名無しさん：2013/09/13(金) 23:18:35.26 .net

ない
自分でoverloadしたコンストラクタを実装か、Assignを実装して内容をコピる

かなぁ。あとは高度なrecord型を使う

384 ：デフォルトの名無しさん：2013/09/15(日) 23:26:29.21 .net

iPhoneをターゲットとした開発を考えています。
xcode(昔のVC6.0のようなRADとはほど遠い開発環境)に苦痛を感じています。
iPhone向けのDelphiはいわゆるRADなのでしょうか？

Windows版はDelphi6Personalの時に使っていたので
同じように開発できるならpro版を買おうと思っています。

385 ：デフォルトの名無しさん：2013/09/15(日) 23:46:20.96 .net

>>384
RADだよ。制限も多いけど。

386 ：デフォルトの名無しさん：2013/09/16(月) 02:22:34.88 .net

>>384
解説本が出てるから見てみたら。
http://www.embarcadero.com/jp/products/delphi/ios-development

387 ：デフォルトの名無しさん：2013/09/17(火) 09:03:42.93 .net

iOSはPro版だけじゃ駄目だから気をつけて

388 ：デフォルトの名無しさん：2013/09/24(火) 21:59:38.74 .net

iOS/Android開発するには最低おいくら掛かりますか？
個人的に触ってみるつもりです。(トライアル版は今落としてます)
XE5 Starter版でも「XE5 Starter ESD アップグレード」なるものを当てれば
iOS/Android開発できる？？
とんちんかんな質問ですんません

389 ：デフォルトの名無しさん：2013/09/24(火) 23:11:50.03 .net

iOS/Android開発するにはDelphi Pro+Mobile-Addonが最低条件。DEKOさんとこの

ttp://ht-deko.minim.ne.jp/ft1309.html#130912

で『2009 以前のバージョンまたは新規購入の方: モバイル開発環境あり』のところを参照。
ご新規さんだと157,700円が最安値かな(全然安くねーとは思うが)。

390 ：デフォルトの名無しさん：2013/09/24(火) 23:16:31.95 .net

あーあとiOSの場合はAppleにも冥加金を払う必要があるんで。iOSデベロッパプログラム、年8,400円だとさ。
ちなみにMac(OSX)とは別立てね。

391 ：デフォルトの名無しさん：2013/09/24(火) 23:26:36.74 .net

>>388
Starterではまったくダメです。Mobile Add-On Packの要件外なので。
＞「XE5 Starter ESD アップグレード」なるものを当てれば
いや、それが普通のStarter版ですよ。
（他の有償／無償の開発ツールユーザーが対象。インストール確認は特に行わないはず。だから…。）

しかし、、、目が飛び出そうな価格に驚いたでしょ（笑）

392 ：デフォルトの名無しさん：2013/09/25(水) 08:26:14.01 .net

アイフォン用のアプリを登録するだけでも金がかかる、と　アホ臭い

393 ：デフォルトの名無しさん：2013/09/25(水) 08:55:33.28 .net

いつの時代から来たんだ…ｗ

394 ：デフォルトの名無しさん：2013/09/25(水) 23:18:19.52 .net

>>389-391
うーむ高いですねぇ、ひとまずiOS/Android開発は諦めます。
Delphi XE5 Pro単体でも10万円ってのも痛いっす（自分は新規購入です）
Starterは将来モバイル開発したくなったとき、ゴミと化してしまうので買うに買えませんしね･･･
ご親切に回答ありがとうございました！

395 ：デフォルトの名無しさん：2013/09/25(水) 23:27:47.30 .net

少なくともまだ買わないのが正解。
買う場合はXE7あたりになってもっと安定してから。

396 ：デフォルトの名無しさん：2013/09/27(金) 20:32:06.35 .net

Delphi の exe って無駄に大きいけど、小さくするのは難しいんですか。
ネット検索すると小さくする方法がいくつかあったけど、なんか面倒。

普通にコンパイルして小さくなるようなバージョンを開発してほしい。

397 ：デフォルトの名無しさん：2013/09/27(金) 23:09:04.54 .net

基本的には無理
EXE自体にフォームなどのリソースを全部リンクする構造なんで

VBみたいにライブラリをランタイムとして提供すればある程度は小さくなるけど
トータルで見ればむしろデカくなる上配布が面倒になる

EXEパッカーという手もあるがセキュリティソフトの誤爆率が大幅上昇するのでお勧めしない

398 ：デフォルトの名無しさん：2013/09/28(土) 03:20:24.42 .net

そうですね。
っていうか、今時サイズ気にします？
本当に動きに差異が無いなら、小さい方が良いのは理解します。
でも、それを検証するのも面倒だし、そんなこと気にしている暇があるなら、
もっと、他の事に時間を費やした方が宜しいかと。。。

まぁ、XE4で、空のexe作った時のサイズには、流石に驚愕しましたが。
Debugだからだったのね。Releaseにしたら、気にならないよ。

399 ：デフォルトの名無しさん：2013/09/28(土) 08:27:13.11 .net

Delphi XE5 で人生初 Android アプリを作ったら 30M 超えてて泣いた

400 ：デフォルトの名無しさん：2013/09/28(土) 09:13:16.04 .net

30Mなんて今どきジュースも買えんだろ

401 ：デフォルトの名無しさん：2013/09/28(土) 11:43:30.30 .net

Androidアプリでも30MBはデカすぎ

402 ：デフォルトの名無しさん：2013/09/28(土) 12:37:49.15 .net

昔と違って HDD 容量も大きくなったけど
やっぱり１本で 30 M超えると「ちょっと大きいよね」と思ってしまう。
業務用アプリだと１だけでは無いので余計困る。

403 ：デフォルトの名無しさん：2013/09/28(土) 19:34:27.02 .net

MS: TMemoryStream;
MS.SaveToFile(FileName);
これって内部的にどうやってるの？
del6perでソース無いので教えてください。

404 ：デフォルトの名無しさん：2013/09/28(土) 20:06:19.23 .net

>>403
＞del6perでソース無いので教えてください。
↓ほとんど同じですからどうぞ。

■OpenCLX
http://sourceforge.jp/projects/sfnet_openclx/
OpenCLX-0.1ALPHA.tar.gz
\OpenCLX-0.1ALPHA.tar\OpenCLX-0.1ALPHA\rtl\common\Classes.pas

■FreeCLX
http://sourceforge.jp/projects/sfnet_freeclx/
freeclx-k1-2.2.4-4.tar.gz
\freeclx-k1-2.2.4-4.tar\freeclx\rtl\Classes.pas

405 ：403：2013/09/28(土) 22:04:52.38 .net

�d、ＤＬしました。
色々研究できそうです。

406 ：デフォルトの名無しさん：2013/09/30(月) 11:22:58.53 .net

android用のリリースビルドで30M？
なら確かに厳しい、、、

407 ：デフォルトの名無しさん：2013/10/05(土) 18:39:19.34 .net

Debugビルドでないの？
Winの場合はDebugとReleaseで全然サイズ違うよ

408 ：デフォルトの名無しさん：2013/10/06(日) 16:52:58.64 .net

デュアルモニタ環境で開発していて気付いたのですが
TPopupMenu.Popup(X, Y)でホップアップメニューを表示させるとき、
モニタ1(ﾌﾟﾗｲﾏﾘ)上では正常に表示されるのに
モニタ2上で表示させようとすると必ずモニタ1に表示されてしまいます。

何か設定が足りないのでしょうか？
どなたか何か情報お持ちでしたら教えてください。

409 ：デフォルトの名無しさん：2013/10/06(日) 17:11:48.11 .net

バージョンくらい書けよ

410 ：デフォルトの名無しさん：2013/10/06(日) 17:33:37.19 .net

スパンモードってことだよね
PopupMenu1.Popup(2000,100);で普通にセカンドモニタに出てくるけど
(X,Y)はどうやって計算してる？
TScreen.DesktopTop や TScreen.DesktopWidth とか
function DeskTop:TRect;
begin
//タスクバーなどを除いたデスクトップのワークエリアを取得
SystemParametersInfo(SPI_GETWORKAREA, 0, @Result, 0);
end;
とかの組み合わせを間違ってないかな？

411 ：408：2013/10/06(日) 19:46:06.91 .net

>>409-410 返信ありがとうございます。

バージョンはXE5で、FireMonkeyデスクトップアプリケーションで作ってます。

> (X,Y)はどうやって計算してる？
Screen.MousePosでX,Yもってきてます。
(数値の直入力も試してます)

私のモニタの配置が
[モニタ2][モニタ1]
というようになってまして、
配置を
[モニタ1][モニタ2]
としたところ正常に表示できました。

うーん･･･

412 ：デフォルトの名無しさん：2013/10/06(日) 20:58:55.38 .net

ついでにOSも…

413 ：408：2013/10/06(日) 23:27:28.67 .net

OSはWindows 7 Professional 64bitっす

414 ：デフォルトの名無しさん：2013/10/07(月) 14:22:44.65 .net

ひょっとしてモニタ2の座標はマイナスかな

415 ：408：2013/10/07(月) 21:16:31.52 .net

>>414 そです、マイナスです

416 ：デフォルトの名無しさん：2013/10/08(火) 01:04:16.67 .net

そういうのVCLならライブラリの中に潜っていって調べるのが当たり前だったけど、
Firemonkeyの中を見たらまるっきり構成が変わってて知らない土地に来たみたいな感覚だな。
マルチプラットフォームだしなかなか手が出しにくいな。

417 ：デフォルトの名無しさん：2013/10/09(水) 09:53:35.37 .net

パーティションツールとかによくある、
サイズを拡縮できるバーみたいなのってどうやって作るの？

418 ：デフォルトの名無しさん：2013/10/09(水) 10:05:49.74 .net

>>417
よくあるじゃ分からない。
本当にやりたいなら、詳しい説明画像とか作って示す手間をかけてくれ。

419 ：デフォルトの名無しさん：2013/10/09(水) 10:21:58.27 .net

>>417
標準コントロールじゃないので自分で作れ
コントロールの縁付近でマウスを押されたら
カーソル移動移動に合わせてコントロール伸縮するように
作ればいいんじゃないかな

420 ：デフォルトの名無しさん：2013/10/09(水) 10:43:32.24 .net

SplitterとPanelを並べれば似たような事が出来るかも？

421 ：デフォルトの名無しさん：2013/10/09(水) 11:50:18.23 .net

標準にはないのね。ありが�d

422 ：デフォルトの名無しさん：2013/10/09(水) 11:54:49.30 .net

しょーがないんだけど、一般的な業務アプリで使わなさそうなGUIは
自分で何とかしないと駄目なんだよね
俺は今ビデオ編集みたいなタイムラインが必要で困ってる

423 ：デフォルトの名無しさん：2013/10/09(水) 12:02:09.60 .net

そうそう、そんなイメージ。タイムライン
やっぱpanelとsplitterかな。
他にいいアイデアない？くだすれ思考で。

424 ：デフォルトの名無しさん：2013/10/09(水) 12:19:20.87 .net

さっさとつくって公開してくれや。

425 ：デフォルトの名無しさん：2013/10/09(水) 12:20:29.27 .net

描画とクリックだけでしょ。作ったほうが簡単

426 ：デフォルトの名無しさん：2013/10/09(水) 12:55:28.08 .net

1
OnMouseDown で座標を記憶し OnMouseUp で座標を引き算してコントロールの位置や大きさを整える。

2
必要に応じてカーソルも変える。

3
ちょっと贅沢したければOnMouseUp での整形を OnMouseMove でやる。

TSplitter は扱いづらいので自作がお勧め。

427 ： ◆rW3tmvmDLc ：2013/10/09(水) 16:46:41.76 .net

>>425
うちもそう思いますが描画とマウス操作だけなら自分でコンポを書くほうが楽だと思います。

unit unko;

interface

uses
　SysUtils, Classes, Controls, Graphics;

type
　TUnko = class(TGraphicControl)
　private
　　FDragging: boolean;
　protected
　　procedure Paint; override;
　　procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); override;
　　procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); override;
　public
　　constructor Create(AOwner: TComponent); override;
　end;

implementation

constructor TUnko.Create(AOwner: TComponent);
begin
　inherited; //
　Width := 128; Height := 128;
end;

（つづく）

428 ： ◆rW3tmvmDLc ：2013/10/09(水) 16:49:38.52 .net

>>427
文章がおかしかった、ごめんなさい。

おそらく何から手を付けていいかわからないと思いますので
クソみたいなサンプルを作ってみました。（以下、>>427の続き）

procedure TUnko.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); // マウスボタンが押された時に呼び出される。
begin
　if Button = mbLeft then
　begin
　　FDragging := True; // 「左ボタンでドラッグしてます」
　　Invalidate; // Windowsに「適当なタイミングで再描画してね！」とリクエストする
　end;
　inherited;
end;

procedure TUnko.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); // マウスボタンが離された時に呼び出される。
begin
　if Button = mbLeft then
　begin
　　FDragging := False; // 「ドラッグはやめました」
　　Invalidate;
　end;
　inherited;
end;

（続く）

429 ： ◆rW3tmvmDLc ：2013/10/09(水) 16:52:25.76 .net

（>>428の続き）

procedure TUnko.Paint; // ここで描画する
begin
　if FDragging then // 「ドラッグ中？」
　begin
　　Canvas.Pen.Color := clRed;
　　Canvas.Brush.Color := clYellow;
　　Canvas.Rectangle(ClientRect);
　　Canvas.Font.Color := clRed;
　　Canvas.TextOut(2, 2, 'ぶりっ！');
　end
　else
　begin
　　Canvas.Pen.Color := clYellow;
　　Canvas.Brush.Color := clGray;
　　Canvas.Rectangle(ClientRect);
　　Canvas.Font.Color := clYellow;
　　Canvas.TextOut(2, 2, 'うんこ');
　end;
end;

end.

（続く）

430 ： ◆rW3tmvmDLc ：2013/10/09(水) 16:57:13.87 .net

（>>429の続き）

呼び出しサンプル…といっても生成するだけですが

uses （中略）, unko;

type
　TForm1 = class(TForm)
　private
　　FUnko: TUnko;
　public
　　constructor Create(AOwner: TComponent); override;
　end;

var
　Form1: TForm1;

implementation

{$R *.dfm}

constructor TForm1.Create(AOwner: TComponent);
begin
　inherited;
　FUnko := TUnko.Create(Self);
　FUnko.Parent := Self;
end;

>>427-429のうちコードのところだけをコピペ、
見やすくするために全角空白にしているところを半角空白かタブに置換して、
unko.pasで保存すれば使えるはず。

431 ：デフォルトの名無しさん：2013/10/09(水) 17:15:24.33 .net

たいしたもんだ
家に来て妹をファックしていいぞ

432 ：デフォルトの名無しさん：2013/10/09(水) 17:33:09.82 .net

高見盛似のな

433 ：デフォルトの名無しさん：2013/10/09(水) 17:54:52.62 .net

ドラッグ中のESCキーとか、Alt+TABとか、
ウィルスバスター起動してフォーカス持ってかれたとか
この辺どうなの？

434 ：デフォルトの名無しさん：2013/10/10(木) 05:21:34.02 .net

XE5で作ったAndroidアプリがデカすぎて、
実機での起動時のロード時間がえらいかかるらしいってほんまでっか？

435 ：デフォルトの名無しさん：2013/10/10(木) 06:10:39.26 .net

デバッグビルドはね

436 ：デフォルトの名無しさん：2013/10/10(木) 07:01:24.90 .net

厳密にはガセ
ADB / USB ケーブルによるファイル転送と APK ファイルの展開/デジタル署名の検証に
時間がかかるだけで、いったんアプリを転送して展開してしまえばネーティブコード（笑）なので
デバッグビルドでもリリースビルドでも差はない。

まぁデバッグ時には毎回（コードを変更していなくても）アンインストール、インストール、APK 署名検証、APK から
ファイルの展開/抽出をするので、おそいといえば遅い。

437 ：デフォルトの名無しさん：2013/10/10(木) 07:25:39.18 .net

なる

438 ：デフォルトの名無しさん：2013/10/10(木) 15:05:07.64 .net

なる

439 ：デフォルトの名無しさん：2013/10/11(金) 13:57:17.85 .net

with文の式を指す予約語とかある？selfみたいな

440 ：デフォルトの名無しさん：2013/10/11(金) 17:00:50.84 .net

式じゃなくてオブジェクトですね。
ないんです、すみません。

441 ：デフォルトの名無しさん：2013/10/11(金) 19:35:39.45 .net

やっぱ欲しいよね、アレ
with TStringList.Create do とかした時に Strings 引数で他に飛ばす時とか
でもないんだよね
しかも今後は with 文自体が非推奨になっていくみたいだし……

442 ：デフォルトの名無しさん：2013/10/14(月) 03:33:41.73 .net

Ｗｉｔｈはミスりやすいから仕方ない。
完全に被らないようにするか、Ｗｉｔｈしてない方にＳｅｌｆだの付ければ良い

443 ：デフォルトの名無しさん：2013/10/15(火) 12:27:08.34 .net

エディタの進化でwithはいらん子だわな

444 ： ◆rW3tmvmDLc ：2013/10/17(木) 17:26:29.50 .net

うちは逆にwithを使うようになってます。ただし

・使わないとえらい長たらしくてわかりにくい場合
・ピンポイントでのみ使う（長いbegin〜endブロックでは使わない）
・パラメーターが１つ（つまり with Untara, Kantara do などとはしない）

のすべてを満たす場合だけです。たとえば

if opAruFlag in MainData.Untara.Kantara.Options then
　MainData.Untara.Kantara.Options := MainData.Untara.Kantara.Options - [opAruFlag]
else
　MainData.Untara.Kantara.Options := MainData.Untara.Kantara.Options + [opAruFlag];

を

with MainData.Untara.Kantara do
　if opAruFlag in Options then
　　Options := Options - [opAruFlag]
　else
　　Options := Options + [opAruFlag];

こうするような場合。

445 ：デフォルトの名無しさん：2013/10/17(木) 20:34:04.70 .net

with ListBox do Selected[ItemIndex]:=True;
これは一番よく使うパターンだけど ItemIndex は入力支援で出てこないんだよね

446 ：デフォルトの名無しさん：2013/10/18(金) 16:16:05.43 .net

with使うとブレークした時にカーソル合わせても値が表示されないからクソ

447 ：デフォルトの名無しさん：2013/10/18(金) 18:35:12.94 .net

というか入力支援捨ててまで使おうとする奴はアホ

448 ：デフォルトの名無しさん：2013/10/18(金) 20:18:16.28 .net

フラグを足し引きしてるのがすんごい違和感ある　or,xor,andだろ

449 ：デフォルトの名無しさん：2013/10/18(金) 21:06:52.48 .net

これは集合型ですから。
>>444
Include、Excludeを使うとさらに良くなるかな？

450 ：デフォルトの名無しさん：2013/10/18(金) 22:57:41.69 .net

俺は全然、集合型を足しひきするのはOK

451 ：デフォルトの名無しさん：2013/10/19(土) 00:24:53.69 .net

D7でボタンを押すとファイル選択のダイアログを表示する処理で
OpenDialog1.FileName := FName; //デフォルトのファイル名　
if OpenDialog1.Execute then
begin
//処理
end;
といったコードを書いているのですが一部のwindows7でダイアログが表示されなっくて困っています
同じバイナリで表示されるPCと表示されないPCがあります
同様の現象に遭遇したことがある方、解決方法をご存知でしたら教えてください

452 ：デフォルトの名無しさん：2013/10/19(土) 19:23:02.07 .net

最小限再現するコードがほぼそれだけなら
「表示されないPCが」おかしい

453 ：デフォルトの名無しさん：2013/10/20(日) 02:00:53.23 .net

初めましてTurbo delphiで時たまプログラミング遊びしている者です。
今作成しているプログラムで壁にぶつかってしまったのでなにかヒントを頂けると嬉しいです。

特定フォルダ内のexeファイルのパスを拾って、ボタン1つで起動させるソフトを作っています。
メモ帳やペイント、その他多くのソフトは想定通り起動してくれるのですが、
JAVAで作られたexeソフト？だけ実行しようとしても
「アプリケーションの実行に失敗しました。」と出て実行することができません。
他のソフト起動に試した関数は以下の三種類です。

　　CreateProcess
　　ShellExecute
　　WinExe

ネット検索をしても上記3つの関数しか提示されていなくどういうアプローチで修正すればよいかわからず困惑しています。
似た事例を経験されて解決方法をご存じの方がいらっしゃいましたら是非ともご教示願いたいです。
どうかよろしくお願いします。

454 ：デフォルトの名無しさん：2013/10/20(日) 02:17:45.88 .net

javaでexeってLaunch4jとかそんなの？

455 ：デフォルトの名無しさん：2013/10/20(日) 02:23:48.32 .net

起動できないソフトの名前を書くように

456 ：デフォルトの名無しさん：2013/10/20(日) 02:25:49.71 .net

>>453
正解は知らないけど、ShellExecuteに絞ってやったほうがいい。
　ダブルクリックで起動できる ＝ 「ファイル名を指定して実行」で起動できる ＝ ShellExecuteで起動できる
…のはずだから。

ShellExecuteも様々なパラメータ指定のやり方があるから、あらゆる方法を試したら。
今はどうやってるの？

457 ：デフォルトの名無しさん：2013/10/20(日) 02:35:13.02 .net

こんな深夜に皆さん本当にありがとうございます。

>>454さん
申し訳ありません
私はJAVAに詳しく無くて詳細はわからないのですが、
そのソフトの同一階層にjreというフォルダがあったり
.jarや.jsといった拡張子ファイルがあるのでjavaで作ったソフト？なのかなと思って書かさせて頂きました。

>>455さん
申し訳ありません
『TimeManager』という勤怠管理ソフトです。
ttp://www.vector.co.jp/soft/winnt/business/se483090.html

>>456さん
情報ありがとうございます。ShellExecuteで色々試してみます。
今の方法を示します

exedatはstring型でファイルのパス名が入っています。

ShellExecute(Handle,'open',PChar(exedat),'',
// PChar(ExtractFilePath(Application.Exename)),SW_SHOWDEFAULT);

です。
情けない話で、APIはまだあまり理解していないので下記サイトのコピペで実行しています。
ttp://www.wwlnk.com/boheme/delphi/tips/tec0120.htm

458 ：デフォルトの名無しさん：2013/10/20(日) 02:48:26.24 .net

とりあえず、ワケ分からないで付けてる「既定のディレクトリ名」は外そう。
ただし、試してないよ。
ShellExecute(Handle, 'open', PChar(exedat), '', nil, SW_SHOWDEFAULT);

459 ：デフォルトの名無しさん：2013/10/20(日) 02:56:31.43 .net

>>458さん
ありがとうございます。
第五引数をnilにしましたが残念ながら結果は変わらず「アプリケーションの実行に失敗しました」でした。
ご助言誠にありがとうございます。

普段使用しているランチャーソフトからはパスを拾って普通に実行できるので
外部ソフトからの起動ができないわけではないと思うのですが…

460 ：デフォルトの名無しさん：2013/10/20(日) 03:03:44.38 .net

exedatの中身はどうなってるの？
それを「ファイル名を指定して実行」で起動する？

461 ：デフォルトの名無しさん：2013/10/20(日) 03:18:45.06 .net

>>460さん
ありがとうございます。
ブレークポイントを置いて確認したところ想定通りのパスが入っていました。
加えて、試しにコピーして「ファイル名を指定して実行」を実施した所しっかり起動しました。
ご助言ありがとうございます。

462 ：デフォルトの名無しさん：2013/10/20(日) 03:21:32.26 .net

では、これは？
ShellExecute(Handle, nil, PChar(exedat), nil, nil, SW_SHOWDEFAULT);

空文字が見苦しいからnilで統一した。どっちでも受け付ける…と思う。

463 ：デフォルトの名無しさん：2013/10/20(日) 03:33:00.63 .net

>>462さん
ありがとうございます。
結果は同じく「アプリケーションの実行に失敗しました」でした。

起動が上手くいかないフォルダに別のソフトのexeファイルを入れて
それに対して実行できるか試してみましたが、別のexeファイルなら想定通り実行出来ました。

また、第六引数の表示状態の指示も下記サイトに表記の全6パターン全て試しましたが実行できませんでした。
ttp://eternalwindows.jp/winbase/window/window03.html

464 ：デフォルトの名無しさん：2013/10/20(日) 03:39:56.23 .net

難しいねぇ。
当該のソフトは軽い気持ちで入れたくない量（嫌な予感）なので、パスさせて。
お役に立てなくてすまぬ。

他、心当たりある人助けてあげて。

465 ：デフォルトの名無しさん：2013/10/20(日) 03:48:25.11 .net

>>464さん
こんなに深夜遅くまでご教示くださり誠にありがとうございました

たった今無事に当該exeファイルを想定通り起動することが出来ました。
ttp://www.wwlnk.com/boheme/delphi/tips/tec0260.htm
に記載のCreateProcessを用いて下記のコードで実行してみたところ

　　GetStartupInfo(SI); //他アプリの起動
　　CreateProcess (PChar(exedat), '', nil, nil, False, 0, nil, PChar('C:\Program Files\MOBWAYS\TimeManager\'), SI, PI);

無事目的のexeファイルを起動することが出来ました。
手持ちの参考書『カンタン！Delphiプログラミング』には第8引数に「 CREATE_DEFAULT_ERROR_MODE」と記載してあったのですが
上記のようにカレントフォルダを指定してあげると想定通りの起動を得ることが出来ました（まだ難しくて理解できていないです）。
まだまだわからないことだらけで情けない限りです。


繰り返し、>>464さん夜分遅くまでお付き合い下さり
本当に、本当にありがとうございました。

スレを長レスで乱して申し訳ありませんでした。
皆様ありがとうございました。

466 ：デフォルトの名無しさん：2013/10/20(日) 03:54:31.39 .net

>>465
ほー、そうなんだ。
無駄なことさせたようで悪かったね。ごめんなさい。
とにかく目的が果たせて良かった。

467 ：デフォルトの名無しさん：2013/10/20(日) 03:58:05.95 .net

>>466さん
とんでもないです
問題点を精査するアプローチを学べました。
大変参考になりました。本当にありがとうございます。

468 ： ◆rW3tmvmDLc ：2013/10/21(月) 16:33:49.96 .net

>>449
Inludde/Exclude手続きが使えるのは集合型「変数」のみで
集合型「プロパティ」には使えません。

集合演算子に xor があったらありがたかったです。

469 ：デフォルトの名無しさん：2013/10/21(月) 17:39:48.66 .net

初めまして。
VCLフォームアプリケーションで書いたプログラムをFireMonkeyモバイルアプリケ

ーションに移植しようとしているものです。

【症状】
PaintBox.Canvas.Pixels[x,y]のPixelsがエラーメッセージ　E2003 未定義の識別

子を吐き出し、詰まっております。

【質問内容】
PixelsはVCLフォームアプリケーションでしか使用できないものなのでしょうか？
また、そうであるとすれば、PaintBoxに点を描画できる方法はあるのでしょうか？

何かご存知の方、ご教示頂けると幸いと存じます。

470 ：デフォルトの名無しさん：2013/10/21(月) 18:36:30.52 .net

Googleってご存知でしょうか？
もしご存知であれば"FireMonkey Pixels"で検索することはできないのでしょうか？

471 ：デフォルトの名無しさん：2013/10/21(月) 20:07:15.70 .net

個人情報抜かれるから無理ですね。

472 ：デフォルトの名無しさん：2013/10/21(月) 23:14:40.14 .net

高橋(智)です
ソースは画像でうｐしてます（笑）

473 ：デフォルトの名無しさん：2013/10/22(火) 05:08:56.42 .net

高橋さんって嫌われているの？

474 ：デフォルトの名無しさん：2013/10/22(火) 06:04:41.26 .net

遊ばれてるだけだろ。あまり愛想のいい人じゃないけど、嫌いじゃない。

475 ：デフォルトの名無しさん：2013/10/22(火) 23:33:52.71 .net

じゃあ　DEKO さんと Mr.XRAY さんは？

476 ：デフォルトの名無しさん：2013/10/24(木) 23:33:52.26 .net

ネチネチ。

477 ：デフォルトの名無しさん：2013/10/31(木) 23:10:39.41 .net

XE2のフォーマッタで
datetimetostr -> DateTimeToStr
というのをやるオプションってないんですか？
XE3以降では出来たりしますか？

478 ：デフォルトの名無しさん：2013/11/02(土) 07:56:58.37 .net

ちょっと教えてください。

Win7(x64)上のXEで
TListviewのOnCustomDrawSubItemを使って
各行のSubItemに図形を描いています。

これ自体は正常に描けているんですが、
本来、Windowsに任せているハズのCaptionが
マウスを上に持ってくると文字背景が黒くなり
テキストを判別できなくなります。

で、Captionも自力で描こうとOnCustomDrawItemを使うと、
こんどはOnCustomDrawSubItemがまったく機能しなくなります。

OnCustomDraw...って、どうやって使うんでしょうか？

479 ：478：2013/11/02(土) 08:45:01.40 .net

>>478で質問した者です

ここに回答がありました
ttp://stackoverflow.com/questions/8192961/is-there-a-bug-in-the-delphi-list-view-control-when-using-custom-drawing

で、イベントの最後に
SetBkMode(Sender.Canvas.Handle, TRANSPARENT)
を追加すると上手く行きました

480 ：デフォルトの名無しさん：2013/11/06(水) 19:26:53.35 .net

DelphiのTFormのLeftとかWidthって実際の値とは違うの？

Windows 7で2つのFormをピッタリ並べたいんだけど
LeftとWidthだけ使うと、Form同士が微妙に重なってる

実際に画面キャプチャして調べると、LeftもWidthも
設定した値と違ってるんだけど．．．
（外枠相当が数値に反映されてない？）

Formの位置やサイズを正確に調べる方法ってありますか？

481 ：デフォルトの名無しさん：2013/11/06(水) 19:31:56.33 .net

left,top
width,height

482 ：デフォルトの名無しさん：2013/11/06(水) 19:48:02.82 .net

>>480
重なってると思ってる部分は単なる影だろ
Aero切るかクラシック表示にして試してから言え

483 ：デフォルトの名無しさん：2013/11/06(水) 19:59:11.78 .net

>>480
フォームを一つだけ最大化して、その値を半分にしてはどうかな。

484 ：デフォルトの名無しさん：2013/11/06(水) 20:02:08.09 .net

Win32APIのAdjustWindowRectExが現実とは異なる値を返している(かパラメータが正しくない)んじゃないかな。

485 ：デフォルトの名無しさん：2013/11/06(水) 20:39:52.11 .net

>>480
ここにVista以降のウィンドウサイズについて詳しく書いてある
ttp://mrxray.on.coocan.jp/Delphi/plSamples/368_ScreenCaptureTest.htm

ここに出てる2つのAPI使って枠のサイズを計算する
確かWindows 7で5ピクセルだと思った（うろ覚え）

ウィンドウを並べるんだったら右側のウィンドウ位置を
左のウィンドウのLeft+Width+10とする

486 ：480：2013/11/06(水) 21:08:02.18 .net

すばやい回答ありがとうございます。

>>485
試しに10足してみると２つのFormがピッタリ並んだ
APIとかまだ使ったことないけど挑戦してみる

ありがとう

487 ：デフォルトの名無しさん：2013/11/07(木) 10:06:13.17 .net

Form.Widthはクライアント領域の幅で、枠は考慮しない　これは常識だけど・・・？

488 ：デフォルトの名無しさん：2013/11/07(木) 10:09:14.72 .net

常識だったのか…？

489 ：デフォルトの名無しさん：2013/11/07(木) 10:12:43.14 .net

クライアント領域の幅ってForm.ClientWidthじゃなかったっけ？

490 ：デフォルトの名無しさん：2013/11/07(木) 16:10:24.72 .net

そうだね。そっちが常識。>>487は…（笑）

491 ：デフォルトの名無しさん：2013/11/08(金) 01:54:51.72 .net

そういえばScreenSnapをtrueにしてると
Formがスクリーン端に吸着するとき
枠が外にはみ出すんだよな

それ以来ScreenSnapは使わなくなった

492 ：デフォルトの名無しさん：2013/11/08(金) 14:39:53.52 .net

Delphiの「Windows○○対応」は表面上だけだからな
本来はOSや状態による差をVCL内部で考慮するのが当然なんだが

493 ：デフォルトの名無しさん：2013/11/09(土) 02:02:37.76 .net

>本来はOSや状態による差をVCL内部で考慮する
もう何年も前に、そういった思想は破棄されている
ただまぁ昔話は止めておけ

494 ：デフォルトの名無しさん：2013/11/09(土) 14:40:32.88 .net

は？

495 ：デフォルトの名無しさん：2013/11/10(日) 13:18:16.26 .net

ところでScreenSnapってどんな実装になってるの？
自分はStarterだからソースを参照できない

TFormを継承して、外枠の幅を考慮してスナップさせる
クラスを作るのって簡単そう？

496 ：デフォルトの名無しさん：2013/11/11(月) 02:42:49.00 .net

簡単
WM_WINDOWPOSCHANGING
とかでぐぐれば、いくらでも例が出てくるだろう

497 ：デフォルトの名無しさん：2013/11/11(月) 05:34:05.14 .net

>>495 汚いソースで恥ずかしいけど、Del7のを参考にしてみた
uses DWMAPI;
FSnapBuffer: integer FScreenSnap: boolean; FFrameSize: integer;
procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;

function GetWindowFrame(Handle: THandle): integer;
var R1, R2: TRect;
begin
result := 0; try
if Win32MajorVersion >= 6 then begin
DwmGetWindowAttribute(Handle, DWMWA_EXTENDED_FRAME_BOUNDS, @R2, SizeOf(TRect));
GetWindowRect(Handle, R1);
result := Abs(R2.Left - R1.Left);
end; except end; end;

procedure TForm.FormCreate(Sender: TObject);
begin
FSnapBuffer := 20; FScreenSnap := true; FFrameSize := GetWindowFrame(Handle);
end;

procedure TForm.WMWindowPosChanging(var Message: TWMWindowPosChanging);
procedure HandleEdge(var Edge: Integer; SnapToEdge: Integer; SnapDistance: Integer = 0);
begin if (Abs(Edge + SnapDistance - SnapToEdge) < FSnapBuffer) then Edge := SnapToEdge - SnapDistance; end;
var fx, fy, fwidth, fheight: integer;
begin
if FScreenSnap and ((Message.WindowPos^.X <> 0) or (Message.WindowPos^.Y <> 0)) then
with Message.WindowPos^, Monitor.WorkareaRect do begin
fx := x - FFrameSize; fy := y - FFrameSize; fwidth := Width + FFrameSize + FFrameSize; fheight := Height + FFrameSize + FFrameSize;
HandleEdge(fx, Left, Monitor.WorkareaRect.Left); HandleEdge(fy, Top, Monitor.WorkareaRect.Top);
HandleEdge(fx, Right, fWidth); HandleEdge(fy, Bottom, fHeight);
x := fx + FFrameSize; y := fy + FFrameSize;
end; inherited; end;

498 ：497：2013/11/11(月) 05:41:55.66 .net

>>497のを誰か添削してくれない？
Win7上でちょっと動きがぎこちないんだけど

499 ：デフォルトの名無しさん：2013/11/12(火) 06:24:41.56 .net

４月に画像ビュアーで質問したものです。
立て込んでいた仕事が一段落したので
作っていたソフトの改良をしたいと考えています。

DirectoryListBoxでダブルクリックしないと
FilelistBoxにファイルが表示されません。
シングルクリックにする方法はありますか？
イベントにOnClickがあるのでできそうな気がしますが、
何を書いたらいいのか分かりません。

コンパイラはDelphi XE4です。
よろしくお願いいたします。

500 ：デフォルトの名無しさん：2013/11/12(火) 14:11:19.69 .net

>>499
オブジェクトインスペクタで DirectoryListBox1.FileList:=FileListBox1 を設定してる
ということですか？ 前提条件を書いてくださいね。
特にDirectoryListBoxやFileListBoxはWin3.1時代のコンポーネントみたいだから、
使ってる人がほとんどいないと思うので、なおさら。。。。

細かいこと言わないなら、OnClickに DirectoryListBox1.OpenCurrent(); でどうですか。

あと画像ファイルを開くなら、TOpenPictureDialogというのもありますよ。

501 ：デフォルトの名無しさん：2013/11/12(火) 19:50:15.30 .net

シングルクリック時にダブルクリックイベントを呼べばいいんでわ

502 ：デフォルトの名無しさん：2013/11/13(水) 18:41:24.62 .net

>>500-501
ありがとうございます。
DirectoryListBox1.FileList:=FileListBox1
は設定してあります。

インターフェースはListboxで十分で、
選択したjpg,pngファイルをImageに渡しているだけのソフトです。
wavとmp3のサポートしています。

元々はVecterにあるListというソフトを見本にして
勉強のためにDelphiで作っていました。
4月に発生していた原因不明のmp3が再生できないというエラーは
作り直していたら出なくなりました。

ロダにあげたので、もし良かったらアドバイスをいただけないでしょうか？
http://www1.axfc.net/u/3087170.rar
よろしくお願いいたします。

503 ：デフォルトの名無しさん：2013/11/13(水) 20:34:10.84 .net

以前もレスしたお人好しだが今回は時間がないので
ReadMeとUnit1_01.pasだけ目を通した

他の人も書かれたように「DirectryListBox」「FileListBox」は Windows3.1時代のもの
その当時はシングルクリックでフォルダ（ディレクトリ）を開くという考え自体がなかった
敢えてするなら
procedure TForm1.DirectoryListBox1Click(Sender: TObject);
begin
(Sender as TDirectoryListBox).OpenCurrent;
end;
もし他の人にも使ってもらうなら「シングルクリックで開く」と設定で選べるようにするべきだ

>mp3のタグ
「Delphi ID3Tag」でググれ
俺は自分用なので「AudioInfo」というコンポーネントを使ってる

「Delphi 関連づけ」でググれ

>次のファイルを自動で演奏
TMediaPlayer.OnNotify をヘルプで読むなりググるなり


以前も書いたけど人にソースを読んでもらうなら読みやすいように
filelistbox1.FileName→ FileListbox1.FileName;
コード補完機能を使ってちゃんと書いてくれ
TMediaPlayerだけMPlayに名前を変えてるけどｗ
TButton何個も載せるならわかりやすい名前を付けよう
ZoomButton とか UpdateButton とか
格段に読みやすくなる

504 ：デフォルトの名無しさん：2013/11/13(水) 21:15:19.15 .net

>>503
ありがとうございます。
以前お世話になりました。

大文字の問題は教えていただいた後に
拡張子のエラーなどの問題を解決するため
3〜4回作り直しています。全部作り直ししました。

知人にインターフェースがわかりにくい
と指摘され作り直していたらコンパイルすらできなくなって
消しちゃったので教えていただいた頃のソースです。

ゴールについてですが、私がソフトに盛り込みたい内容で
私の宿題だったので、この点についても教えていただき
ありがとうございました。

タグについても、全部手打ちしなければならないと思っていたので
AudioInfoの情報ありがとうございます。早速調べてみます。

関連づけについては、コマンドラインオプションの実装と
フォルダー内のファイルを全て検出して読み出す必要があると考えています。

505 ：デフォルトの名無しさん：2013/11/14(木) 16:24:14.77 .net

>>503
ただいま確認できました。
onClickを選択してもonChangeになって
原因が分かるまで時間がかりました。

＞TButton何個も載せるならわかりやすい名前を付けよう
コード補完と併せて勉強させていただきました。
ありがとうございました。

必要な機能を実装できるよう更に勉強いたします。

506 ：デフォルトの名無しさん：2013/11/17(日) 19:36:38.02 .net

十数年前までVB6で業務アプリを作っていました。
その頃delphiも少しやっていました。
最近になってまた業務アプリ(windows)を定期的に作ることになりました。
delphi、vb.net、python、java、c#、rubyなど、どれを使おうか悩んでいます。
皆さんのお考えをお聞かせください。
ちなみにvb6ではスパゲティープログラムを作ってしまう程度のスキルです

507 ：デフォルトの名無しさん：2013/11/17(日) 20:01:18.63 .net

>>506
業務アプリがどのようなものかによります。
社内で使うものでコマンドラインでいいなら適当なスクリプト言語を。
スクリプトでは都合が悪いなら Delphi がコンパイルも動作も速くてお薦めです。
売り物として作るなら GUI が必要になってくると思うので C# が一番。VB でも可。
.net を嫌う向きには VC++ のアンマネージドコードか Delphi の二択になります。
プラットフォームが Windows 限定ならわざわざ Java を選ぶことはありません。
私なら Perl と Delphi と VC# を適宜使い分けます。
スキルなんて少しでもやる気があればいくらでも伸びるので気にせず選びましょう。

508 ：デフォルトの名無しさん：2013/11/18(月) 11:05:40.05 .net

業務アプリ向けでこだわりが無いなら今ならC#一択でしょ？

509 ：デフォルトの名無しさん：2013/11/18(月) 18:06:28.92 .net

>>507,508
ありがとうございます。
C#はMS社の新技術にこれからどんどん付いていく自信がありません。
.net frameworkにも抵抗があります。
その点delphiはｗｉｎアプリは枯れているような印象があります。
oleオートメーションでwordやexcelを操作する予定です。
delphiはすべてのoleオートメーションの機能を使えるでしょうか？
また近年マイナーになっているのが気になります。

510 ：507：2013/11/18(月) 19:10:01.10 .net

>>509
お使いの Delphi がどこまで ole オートメーションに対応しているのかは存じませんが、そういう業務ならば Delphi でやってみれば良いと思います。
しかし MS 純正ソフト同士の方が色々と都合が良いのではないかと思うので、少しずつ C# にも触れて慣れていってはいかがでしょうか。
.net は近頃のマシンパワーならもたつきは気になりませんよ。

511 ：デフォルトの名無しさん：2013/11/18(月) 21:04:59.02 .net

>>510
ありがとうございます
その線で行きたいと思います
ただMS社のC#研修を受けたときにチンプンカンプンだったので苦労してもおぼえられるかなと思っています
また、.netは新しいWindowsが出るたびに.netのバージョンを上げないといけないようなイメージがあります
ところで今後のモバイル開発を考えた場合delphiがまた人気が出るような気もしますがFireMonkeyの完成度が高くないようであまりメジャーにはなっていないようですね
人気が出そうですかねぇ？

512 ：507：2013/11/19(火) 00:45:16.67 .net

>>511
うちの Delphi は 5Pro なので最近のことはわかりません。
ウェブ用にはメモ帳で Perl で CGI を書くくらいですね。

513 ：デフォルトの名無しさん：2013/11/21(木) 23:54:06.72 .net

>506
迷わずC#と言っておく。業務ソフトは性能よりも生産性重視すべきだから
OLEオートメーションとの相性も良好

VCLをある程度知ってるなら.NET Frameworkはすぐに身につく
…事情知らない奴はパクリにしか見えない位そっくり
Delphiがマイナーになっていくのも同じ事情

＞.netは新しいWindowsが出るたびに.netのバージョンを上げないといけないようなイメージがあります
むしろそれはやらない方がいい。VS2005であと15年は戦える

514 ：デフォルトの名無しさん：2013/11/22(金) 01:48:34.30 .net

>>513
以前C#でexcel操作するサンプルコード見たことあるんだけど
オブジェクトの階層たどっていくのにいちいち
try{・・・}finary のネストが必要でこりゃ面倒だなと思ったんだけど
その辺は解消されてるの？もしくはそれがあってもC#のほうがいいの？
excelとか扱うならVBのほうがいいんじゃねえのと思ったりもするんだけど。

515 ：デフォルトの名無しさん：2013/11/22(金) 11:18:13.53 .net

C#ならusing?
VB.netはやめとけ

516 ：デフォルトの名無しさん：2013/11/22(金) 15:14:14.34 .net

>>514
C#は自身が持つGCとOLEの参照カウントは全く別物だから、
実質的に自分で参照カウントを操作する必要があって激しく面倒。
http://blogs.msdn.com/b/office_client_development_support_blog/archive/2012/02/10/office-part1.aspx

VB（.netではない）やDelphiで自動化されてる部分をいちいち自前でやる必要があるから、
これら二つに比べたら圧倒的に使いづらく、これを相性がいいと言ってる人間がいたら頭がおかしい。

517 ：デフォルトの名無しさん：2013/11/24(日) 21:09:25.11 .net

>>503
レスありがとうございます。
wav再生系統を分離してちまちま作っていました。

TMediaPlayer.OnNotifyですが、
MediaPlayerに対して何かのイベントを起こして
そのイベントが正常に終わったときに
NotifyValueに成功の値が設定されるという
理解でよろしいでしょうか。

正常に終わったときにFileListBox内の
上下方向への移動をソフト内部でできるでしょうか？
無理矢理キー入力されたことにして動かす引かないのでしょうか？

ファイルをあげています。
http://www1.axfc.net/u/3097406
DLkey:delphi
またアドバイスをいただけないでしょうか。
よろしくお願いいたします。

518 ：デフォルトの名無しさん：2013/11/25(月) 13:40:33.02 .net

Notifyイベントで再生終了を知るためには、再生前にMediaPlayer1.Notify := false; しておく
Playの後でNotify := trueにすればいい　そうじゃないとPlayイベントも受け取ってしまうから

with MediaPlayer1 do
begin
　FileName := FileListBox1.FileName;
　Notify := false;
　Open;
　Play;
　Notify := true;
end;

で、Notifyイベント側で次の曲をFileNameにセットすればいい

519 ：デフォルトの名無しさん：2013/11/26(火) 10:09:49.01 .net

>>518
ありがとうございます。
海外のNotifyの使い方を説明しているところを見ても
今ひとつ分からなかったのですが
解説していただいのでよくわかりました。

これが分かったので、今まで今ひとつだった
TMediaPlayerのプレイリストの意味が分かりました。
あらかじめカレントフォルダ内のファイルをプレイリストとして
読み込んでおいてトラックが終了したらNotifyを検出して
Nextすると言うことでいいでしょうか。

520 ：デフォルトの名無しさん：2013/12/01(日) 11:11:13.96 .net

>>518
ずっと次に渡すファイルを取得する方法を考えていましたが、
Notifyイベントを取得したらTMediaPlayerからFileListBoxの
カーソルを下にずらすようにすればいいのでしょうか？

ヘルプ見ても半分くらい空白なので困ってます。

521 ：デフォルトの名無しさん：2013/12/01(日) 18:27:47.51 .net

新規のテスト用のプロジェクトを作っておいて
新しいことを試すときはそちらでやってみるんだ
procedure TForm1.Button1Click(Sender: TObject);
begin
　if FileListBox1.ItemIndex=FileListBox1.Items.Count-1 then
　　FileListBox1.ItemIndex:=0 else FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;
end;

522 ：デフォルトの名無しさん：2013/12/01(日) 19:10:08.93 .net

>>521
ありがとうございます。
ボタンの前曲、次曲の操作を実装することができました。

上下キーでFileListBox内のカーソルを動かす機能を
入れたときに何かから-1(+1)すればいいことは分かっていましたが、
ItemIndexはヘルプになかったので分かりませんでした。
このプロパティは一般的な命令なんでしょうか？

523 ：デフォルトの名無しさん：2013/12/02(月) 21:56:43.31 .net

TComboBox、TListBox、RadioGroup に共通のプロパティだ
Delphi5 か Delphi6 あたりのヘルプなら調べやすいんだけどね、どこかで手に入らんかな
で↑のヘルプなら「TFileListBox プロパティ」を開くと「TCustomListBox からの継承」で分類されて「ItemIndex」がある

「TFileListBox」でググると一番上に docwiki.embarcadero の「Vcl.FileCtrl.TFileListBox - XE2 API Documentation」がでる
そこのプロパティを見ても TFileListBox 固有のものしか書かれていないがコンポーネントってのは継承元のプロパティも使えるので
最初の Vcl.FileCtrl.TFileListBox ページの継承元のひとつである「TCustomListControl」を開いてみる
Vcl.Controls.TCustomListControl のプロパティにぽつんと一つだけ ItemIndex が出てくる

まぁこれじゃあ探せんわなぁｗ

524 ：デフォルトの名無しさん：2013/12/03(火) 08:34:52.71 .net

リストビューのコンポーネントにもあるよ　つかリストにインデクスがあるのは当然の話で
インデクスのプロパティがあるはずだって探していくのがまっとうな手順

525 ：デフォルトの名無しさん：2013/12/03(火) 21:12:50.35 .net

オブジェクトの継承についてわかりやすいのがあった
http://codezine.jp/article/detail/7423
これの 3 あたり

526 ：デフォルトの名無しさん：2013/12/04(水) 12:06:25.93 .net

初心者に当然とか言われましても…

527 ：デフォルトの名無しさん：2013/12/04(水) 21:20:57.51 .net

とあるリストのの禁書目録

528 ：デフォルトの名無しさん：2013/12/15(日) 10:34:36.44 .net

>>523
遅くなってすみません
>>522を投稿した後にRadioGroupにもItemIndexあったよなと思い
しばらくいじっていました。
意味は分かりますが理解するには時間が掛かりそうです。
若い頃に比べてやっぱり頭が固くなっているのを実感しています。

>>522で分かりましたと言ってから、そのファイルがなく
昨日までFileListBoxのカーソルが移動し続けて
タスクマネージャからソフトを止めないと終了できなくなったり
MCIのエラーが出てたりして途方に暮れていました。

ずっと4月の頃のログと最近のログを見ながら
いじり回してやっと>>239の意味が理解できました。

本題なんですが、いろいろいじってやっとボリュームコントロールが
実装できるところまで行きましたが、mp3だとボリュームコントロールが
できますがwavだとできません。
たぶんmp3で出ていたエラーの逆のことが起きているのではないかと思いますが
絞り切れていません。
もう一度ロダにあげます。ご指導いただけないでしょうか？
http://www1.axfc.net/u/3115934.zip
passはdelphiです。
よろしくお願いします。

529 ：デフォルトの名無しさん：2013/12/15(日) 10:41:18.68 .net

続き
delphi4からdelphi2010でもかなりインターフェースが変わって戸惑いましたが、
XE4になって更に分かりにくくなりました。

>>525
書き込みしていただいたときに見ました。
ほかの本だと結構苦労している部分でしたが
シンプルに書いてあるので分かりました。
理解するには自分でVCLを作らないと分からないんだろうなとは思います。

530 ：デフォルトの名無しさん：2013/12/15(日) 13:37:04.11 .net

Delphiってなんて読むんですか？

531 ：デフォルトの名無しさん：2013/12/15(日) 14:00:51.62 .net

>>530
「でるふぁい」。エンバカの人は「る」のとこにアクセントがくる読み方をしてる。

532 ：デフォルトの名無しさん：2013/12/15(日) 20:44:31.55 .net

Google 翻訳で発音してみる

533 ：デフォルトの名無しさん：2013/12/15(日) 21:09:08.87 .net

すまん、Delphi は 〜Delphi5、2005、2007、2009 しか持っていないから
そのプロジェクトは開けない
sound.pas
Unit1.pas
をサラッと観たけど sound.pas はそのまま流用してる？
以前書いた「AudioInfo」はタグ表示くらいにしか使っていないがそこに入っていたのかな？

んで Wave の音量調節も最低限動くソース
（Vista 以前と以降ではちょっと条件が違うから XP ではダメかも知れない、いけるかも知れない）
・行数制限があるから二つに分ける
・半角空白二つを全角一つに置換してるので了承してくれ

　　MediaPlayer: TMediaPlayer;
　　TrackBar: TTrackBar;
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
　　procedure TrackBarChange(Sender: TObject);
---------------------------------------------
implementation

{$R *.DFM}

uses MMSystem{waveOutSetVolume に必要};

534 ：デフォルトの名無しさん：2013/12/15(日) 21:09:52.33 .net

//続き
var
　WaveDevID: Word;

//実際にVolumeをセットする手続き
function VolumeChange(Pos: Integer):Boolean;　//Posはパーセント
var
　LV,RV: Word;
　dwVolume: DWORD;
begin
　LV := ($FFFF*Pos ) div 100;
　RV := ($FFFF*Pos ) div 100;
　dwVolume := (DWORD(LV) shl 16) Or RV;　 {LとRの値を代入}
　Result:=waveOutSetVolume(WaveDevID, dwVolume)=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
　with MediaPlayer do
　begin
　　FileName:='E:\DATA\wave\KAYOWAI.WAV';//実際に存在するファイル
　　Open;
　　Play;
　end;
end;

procedure TForm1.TrackBarChange(Sender: TObject);
begin
　VolumeChange((Sender as TTrackBar).Position);
end;

535 ：デフォルトの名無しさん：2013/12/15(日) 21:54:07.91 .net

>>533
何度もお伺いして申し訳ありません。
hUnit1.pasはいつの間にか勝手に作ったファイルです。

本体はsound.pasです。
このファイルは以前見ていただいたソースから
3〜4回作り替えています。
MCIのエラーやスキップするとカーソルが
勝手に動くようになったりしてました。

Delphi2010からXE4に移行したときにUsesが全部書き変わっていて
互換性がない(ように見える)とヘルプがVCLとFMXが混在していて
VCLが異常に少ない感じです。

エラーの発生が新しく作り直すと出なくなったり。

ソースありがとうございます。
早速試してみます。

AudioInfoはしつこく探しましたがないようです。
ttp://yakki.digi2.jp/vobaudioinfo/でしょうか？
タグに関しては、record型で作るという方法もありますが、
一回ソースを見ましたが途方に暮れています。

536 ：デフォルトの名無しさん：2013/12/16(月) 21:21:32.26 .net

>>535
AudioInfo はドメインもなくなってるみたいだから
「Delphi MP3ファイルのIDタグ」でググって出てきた
http://drang.s4.xrea.com/program/tips/id3tag/id3tag_func_v2.html
http://drang.s4.xrea.com/program/tips/id3tag/id3tag_write.html
ここらへんで

537 ：デフォルトの名無しさん：2013/12/17(火) 22:29:08.65 .net

複数のユニットからインスタンスを共有したいときって
そのインスタンスをグローバルで生成してusesで参照するだけでも良い？
それともどこか基準になるユニットで生成してそれぞれのユニットに渡すほうが良い？

538 ：デフォルトの名無しさん：2013/12/17(火) 23:35:14.88 .net

好きなようにすればええ

539 ：デフォルトの名無しさん：2013/12/18(水) 12:01:44.89 .net

グローバルで作ったインスタンスは
他から参照する場合それっていう保証はないんじゃまいか

540 ：デフォルトの名無しさん：2013/12/18(水) 15:26:27.57 .net

お、おう

541 ：デフォルトの名無しさん：2013/12/18(水) 20:33:37.51 .net

LogList:TStringList
みたいなのなら普通にグローバル

542 ：デフォルトの名無しさん：2013/12/19(木) 08:50:32.92 .net

そのLogListを他unitから参照したときに、生成されたものだという保証があるのか知りたい

543 ：デフォルトの名無しさん：2013/12/19(木) 11:51:14.71 .net

ご冗談を（笑）

544 ：デフォルトの名無しさん：2013/12/19(木) 13:11:45.92 .net

initialization ?

545 ：デフォルトの名無しさん：2013/12/19(木) 13:50:39.91 .net

ALogList: TStringList;

function LogList: TStringList;
begin
if not Assigned(ALogList) then ALogList:= TstringList.Create;
Result:= ALogList;
end;

546 ：デフォルトの名無しさん：2013/12/19(木) 14:56:44.83 .net

インスタンスが生成されたかってのはAssignedでいいけど
例えば”何枚も同時表示することがあるForm2”のグローバルでLogList作ったら
どのLogListを指してるか分からないよね？

547 ：デフォルトの名無しさん：2013/12/19(木) 15:11:02.41 .net

それは設計がおかしい、という話にはならないの？

548 ：デフォルトの名無しさん：2013/12/19(木) 15:24:34.50 .net

それぞれのForm2のアドレスを保持しておいてTForm2(SaveP).LogListとかって
アクセスする。

549 ：デフォルトの名無しさん：2013/12/19(木) 15:41:44.44 .net

そもそも特定クラスの下にある変数をグローバル変数とは呼ばない

550 ：デフォルトの名無しさん：2013/12/19(木) 16:00:45.92 .net

>>546
それ、ただのメモリリーク

551 ：デフォルトの名無しさん：2013/12/19(木) 17:41:23.48 .net

１個のTStringListを使いまわすなら簡単な話だけど、「インスタンスを共有」の意味がわからない
継承とか参照はオブジェクト指向の用語だけど共有なんて聞き覚えがないぞｗ

552 ：デフォルトの名無しさん：2013/12/19(木) 22:29:31.58 .net

>>551
普通にある、君に知識がないだけだ。

「インスタンスを共有」と聞いたら
SingletonパターンやFlyweightパターンなど
少し知識がある人なら思い浮かべると思うが。

>>546
>インスタンスが生成されたかってのはAssignedでいいけど
クラスを生成したものがインスタンス。
インスタンスを生成することはない。

553 ：デフォルトの名無しさん：2013/12/19(木) 22:40:59.71 .net

なら最初からパターン名で伝えればいいじゃん
少し知識があるならそっちの方が伝わるでしょ
あとインスタンスが生成されたなんてのは逆に普通の言い回しで、そこに突っ込んでる意味が分からないけど？
ひょっとして馬鹿なの？

554 ：デフォルトの名無しさん：2013/12/19(木) 23:26:31.69 .net

＞クラスを生成
これ、意味違わね？

555 ：デフォルトの名無しさん：2013/12/20(金) 00:37:16.19 .net

『クラスから(クラスの)インスタンスを生成』とは言うが、『クラスを生成』とは言わんな

556 ：デフォルトの名無しさん：2013/12/20(金) 00:59:26.00 .net

クラスのインスタンスを生成
インスタンスの生成
かと

クラスの生成
は変

557 ：デフォルトの名無しさん：2013/12/20(金) 04:13:22.53 .net

>>552
君の知識は少し足りなかったようだね＾＾；

558 ：デフォルトの名無しさん：2013/12/20(金) 15:17:06.42 .net

>>552
クラスを実体化したものがインスタンス。
クラスを生成することはない。

559 ：デフォルトの名無しさん：2013/12/20(金) 16:32:18.32 .net

>>552 はいいとして
>>546 みたいなことが想定されるなら
グローバルで共有はやめておけってことでおｋ？

560 ：デフォルトの名無しさん：2013/12/20(金) 16:57:39.38 .net

というか似たようなソフトのソース見つけてコピペってポンだろ。速攻できそう

561 ：デフォルトの名無しさん：2013/12/20(金) 19:13:17.81 .net

>>559
そんなことが想定されるようでは設計の段階でおかしい

562 ：デフォルトの名無しさん：2013/12/20(金) 19:33:23.67 .net

>>559はそう言ってるように思うんだがｗ

563 ：デフォルトの名無しさん：2013/12/20(金) 22:26:42.20 .net

>>556
日本語が変だぞｗ

564 ：デフォルトの名無しさん：2013/12/20(金) 22:54:38.34 .net

>>562
お前は日本語の読解力を身につけろｗ

565 ：デフォルトの名無しさん：2013/12/20(金) 23:00:56.43 .net

>>563
おまえの頭が悪すぎるだけかと

566 ：デフォルトの名無しさん：2013/12/20(金) 23:35:31.65 .net

あ、うん…
なんか触れちゃいけないところに触れちゃったみたいでごめん…

567 ：デフォルトの名無しさん：2013/12/21(土) 01:09:42.54 .net

バーーーーーカ

568 ：デフォルトの名無しさん：2013/12/21(土) 03:02:01.00 .net

そうですね

569 ：デフォルトの名無しさん：2013/12/21(土) 09:26:25.64 .net

頭の悪いレスって引くわｗ

一人で何を興奮してるんだ？

570 ：デフォルトの名無しさん：2013/12/21(土) 10:35:59.34 .net

>>569
お前は自分のレスにも引いてるってことか
大変だな

571 ：デフォルトの名無しさん：2013/12/21(土) 10:59:30.67 .net

>お前は自分のレスにも引いてるってことか
"にも"って、「自分も頭の悪い」という自覚はあるのか？

572 ：デフォルトの名無しさん：2013/12/21(土) 11:22:58.87 .net

的外れな質問を書き込む初心者の方が数段ましだよな。
概念とか定義とかいいから具体的にどうコードを書くのかと言う話をしようぜ。

573 ：デフォルトの名無しさん：2013/12/21(土) 15:53:12.48 .net

>>571
興奮しすぎて日本語が変だぞｗ

574 ：デフォルトの名無しさん：2013/12/21(土) 16:16:19.75 .net

ALogList: TStringList;

function LogList: TStringList;
begin
if not Assigned(ALogList) then ALogList:= TstringList.Create;
Result:= ALogList;
end;

575 ：デフォルトの名無しさん：2013/12/21(土) 19:17:21.95 .net

>>574
VCLがやっちゃってるからこういう書き方する人多いけど、実はLogList.Freeとされてしまった場合、
その確認もできない、インスタンスの再生成もできない、欠陥コードなんだよね
implementation内でTStringListを継承して、そのDestroyでALogListをクリアするように直せば多少はましになるよ

576 ：デフォルトの名無しさん：2013/12/22(日) 07:45:36.93 .net

>>VCLがやっちゃってるからこういう書き方する人多いけど、実はLogList.Freeとされてしまった場合、
>>その確認もできない、インスタンスの再生成もできない、欠陥コード
そんな事みんな気付いてるだろ。現状、そこまで厳密にやらなくてもいいと思ってるから、
上のコードですましてるだけで。

577 ：デフォルトの名無しさん：2013/12/22(日) 11:01:50.69 .net

listの使い回しとか持ち主がわからない作り方が欠陥

578 ：デフォルトの名無しさん：2013/12/22(日) 12:06:00.92 .net

CreateやFreeした相手が知りたければそういうクラスを作れば済む話

579 ：デフォルトの名無しさん：2013/12/22(日) 12:28:16.20 .net

何事も適材適所だよ。
１つのコードが全てのニーズに答えられるということはまずないし、
全てのニーズに答えられないからといって悪いコードというわけでもない。

580 ：デフォルトの名無しさん：2013/12/22(日) 15:42:43.85 .net

>>572
スイマセン。確かにそうなので

581 ：デフォルトの名無しさん：2013/12/22(日) 19:05:24.59 .net

ちょっと教えてください。

ポインタの有効／無効を判定する関数にAssignedってありますけど
これって (P <> nil) と同じですよね。

ポインタ変数自体が有効なデータを指しているかどうかを
判定する方法ってあります？

582 ：デフォルトの名無しさん：2013/12/22(日) 23:52:00.27 .net

通常のポインタであればAssignedと<> nilは同じ。
でもポインタが示している場所が有効かどうかを知る方法は一般的には存在しない。
Delphiならバッファオーバフローとかでポインタ変数の中身を吹っ飛ばしてしまったりしない限り
無効な場所を指すことはないしな。解放済のメモリへのアクセスはFastMMで検出できるかもしれん。

583 ：デフォルトの名無しさん：2013/12/23(月) 00:59:01.89 .net

>>575
これいいな
基本生成しちゃったらアプリケーション終了までメモリを占有されるけど、
これなら好きな時に解放してもいいまた必要になれば使えるし

584 ：デフォルトの名無しさん：2013/12/23(月) 01:01:16.21 .net

>>581
そんな判定が必要になる方がおかしいので、
判定方法より設計を見直すことの方が大事

585 ：デフォルトの名無しさん：2013/12/23(月) 07:46:05.85 .net

Delphi6を使っているのですが、最新版のものがどれほど進化しているのか
気になっています。
（購入検討中）

１．VCLは充実してきていますか？
２．オンラインヘルプは親切になっていますか？
３．開発環境（IDE）はサクサク動きますか？

知っている方おりましたら教えてください。

586 ：デフォルトの名無しさん：2013/12/23(月) 08:34:52.83 .net

>>581
有効なデータとは何かをまずは定義してくれ。

587 ：デフォルトの名無しさん：2013/12/23(月) 08:35:07.43 .net

>>585
30日間フル機能のトライアル版があるから試してみたらいいじゃん

588 ：デフォルトの名無しさん：2013/12/23(月) 12:50:48.34 .net

そうですね。そうします。

589 ：デフォルトの名無しさん：2013/12/24(火) 14:21:09.90 .net

>>582
そうですか、やっぱり方法はないですよね。

>>584
おっしゃるとおりです。

590 ：デフォルトの名無しさん：2013/12/26(木) 07:00:48.71 .net

最新版はAndroidのネイティヴコード(ARM)が吐けるっていうからすごい進歩だと思う
ようつべにプレゼンの様子がある

591 ：デフォルトの名無しさん：2013/12/26(木) 14:44:09.25 .net

ただ動くのと実用的に使えるかは大違い。

592 ：デフォルトの名無しさん：2013/12/26(木) 16:40:12.52 .net

おっと、Xamarinの悪口はそこまでだ

593 ：デフォルトの名無しさん：2013/12/29(日) 22:17:38.31 .net

てか、オレなんか高くてProさえ買えない
いまだXE Starterでフリーソフト作ってる

Androidアプリを作るにはPro+アルファだろ
とても手が出せない

594 ：デフォルトの名無しさん：2013/12/30(月) 03:33:32.10 .net

>>593
来年末までの辛抱

595 ：デフォルトの名無しさん：2013/12/30(月) 21:57:20.31 .net

え？なんか出んの？

596 ：デフォルトの名無しさん：2013/12/31(火) 06:50:34.96 .net

オレなんか高くてXE Starterさえ買えない
Lazarus(FPC)でフリーソフト作ってる。
オレのやりたいレベルでは、機能的にほぼ不足はない。
パフォーマンスにはやや不満があるが。

597 ：デフォルトの名無しさん：2013/12/31(火) 19:01:08.90 .net

>>596
Lazarusはどのバージョン使うのがおすすめ？
うちで1.0.14とか1.2.0RC1使おうとするとまともにデバッグできんのよ。

598 ：喪中の名無しさん：2014/01/01(水) 02:44:09.95 .net

>>597
デバッグって、Andoroidのデバッグ？
ならAndoroid用の開発はしてないんで、わかりませんが。

こちらのいまのWin32用の開発環境は1.0.6(FPC2.6.0)です。Lazarus自体も安定してます。
別にこのバージョンにこだわってるわけじゃなくて、特に不具合もないので使ってるだけですが。
Win7に移行したあと、J++ランタイムとか入れるのが嫌だったのでTurbo Delから乗り換えて、
0.9.30辺りから常用していますが、私用であれば十分使いものになると思いますよ。

599 ：デフォルトの名無しさん：2014/01/05(日) 08:56:10.57 .net

すごいなこれ

600 ：デフォルトの名無しさん：2014/01/05(日) 16:33:51.89 .net

Delphi使いです。

Win32のGUIアプリを作る場合、Lazarusに対するDelphiのアドバンテージは何？

Wikiで調べる限り、Lazarusで十分でありDelphiのアドバンテージは無いように
思えるのですが・・・

601 ：デフォルトの名無しさん：2014/01/05(日) 17:43:05.75 .net

じゃあ実際に作ってみればいいんじゃない？

602 ：デフォルトの名無しさん：2014/01/05(日) 19:51:10.08 .net

インストールして学習して作成するのが大変なので、
識者にお聞きしているんですよ、クソガキ君。

603 ：デフォルトの名無しさん：2014/01/05(日) 19:53:26.25 .net

>>600
思ったとおりだよ

604 ：デフォルトの名無しさん：2014/01/05(日) 19:54:18.98 .net

Delphiのアドバンテージは日本語の情報が多いということぐらいかな

605 ：デフォルトの名無しさん：2014/01/06(月) 01:38:33.54 .net

＞インストールして学習して作成するのが大変なので、
答え自分で出してるじゃん
自分の考えてることが自分で分からないとか病院行った方がいいんじゃないかな？

606 ：デフォルトの名無しさん：2014/01/06(月) 06:14:05.28 .net

>>603, 604
レスありがとう。

Webで拾ったソース付きのDelphi用コンポーネントをLazarusに
インストールすることはできるのでしょうか？

607 ：デフォルトの名無しさん：2014/01/06(月) 07:49:06.09 .net

>>606
そのままではほぼできないと思って良いよ。
移植して腕を磨くのが吉。

608 ：デフォルトの名無しさん：2014/01/06(月) 18:43:00.61 .net

>>605
ここでは誰でもなりすまし出来るから

609 ：デフォルトの名無しさん：2014/01/06(月) 19:18:38.60 .net

>>607
そうですか。
移植したのがどっかのサイトに集まっていれば良いのにね。

610 ：デフォルトの名無しさん：2014/01/27(月) 14:00:12.68 .net

XE3 を買ってみました。
7 からの移行なので戸惑ってますが、
コードウインドウとフォームのウインドウは並べて表示って、出来無くなったんでしょうか？

611 ：デフォルトの名無しさん：2014/01/27(月) 14:45:07.87 .net

フローティングデザイナでググれ
それよりなんでわざわざ2世代も前のXE3なんかを買ったのかが知りたい

612 ：デフォルトの名無しさん：2014/01/27(月) 15:01:03.58 .net

単にXE5のtypoでしょう
XE3ってまだ買えるの？

613 ：デフォルトの名無しさん：2014/01/27(月) 16:43:44.64 .net

パッケージならまだ普通にあるんだが
Amazonでも売ってるし

614 ：デフォルトの名無しさん：2014/01/28(火) 00:37:22.78 .net

>611
どもども。
何とかなりました。

XE3 は ずいぶん前にヤフオクで、安かったので買いました。
Por が 4万弱でした。

615 ：デフォルトの名無しさん：2014/01/28(火) 20:47:12.12 .net

ぽぅっ！

616 ：デフォルトの名無しさん：2014/01/29(水) 01:10:57.60 .net

４万が安いとかいう金銭感覚

617 ：デフォルトの名無しさん：2014/01/29(水) 02:20:45.21 .net

貧乏人はMSの無料環境でも使ってればいいんじゃないすかね？（鼻ほじ

618 ：デフォルトの名無しさん：2014/01/29(水) 17:46:47.39 .net

ちょっとTPageControlのTTabSheetの色について教えてください。

TTabSheetの色って、昔はclBtnFaceだったと思うんですが
今は白色ですよね（Windowsのテーマに依存してる？）

TPanelなどのほとんどのコントロールは上に配置しても透過されて
背景が同じ色になるんですが、一部のもの(TLinkLabelとか)は
背景がclBtnFaceのままで、かなり違和感があります。

で、今はテーマのOn/Offを調べてColorプロパティを適当に
設定してますが、その時点でのTTabSheetの本当の色って
どこかから取得できます？

619 ：デフォルトの名無しさん：2014/02/05(水) 12:05:53.54 .net

質問です。
VB6のソースコードをDelphiのソースに変換してくれるいいツールをご存じな方はおられないでしょうか？
有料でもかまいません。
もちろん変換後に作業がたくさん発生することはわかっています。
VBto Converterを使ってみましたが、文字コードの影響か、ソースが途中で切れてしまいます。
書き直した方が早いというのももっともだと思いますが･･･

620 ：デフォルトの名無しさん：2014/02/05(水) 14:33:13.89 .net

書き直したほうが早い

621 ：デフォルトの名無しさん：2014/02/06(木) 01:43:18.94 .net

そういうツールをVBで作ればええやん

622 ：デフォルトの名無しさん：2014/02/06(木) 02:01:46.81 .net

>>619
有料で請け負うよ

623 ：デフォルトの名無しさん：2014/02/06(木) 07:44:34.44 .net

>>622
有料で請け負う場合は書き直すの？

624 ：デフォルトの名無しさん：2014/02/06(木) 07:48:35.80 .net

>>621
VB6で？
スレ的にはDelphiでなのでは？
っていうか、コンバーターは誰も使ったことないの？

625 ：デフォルトの名無しさん：2014/02/06(木) 12:16:20.90 .net

…馬鹿なの？

626 ：デフォルトの名無しさん：2014/02/06(木) 12:48:23.16 .net

>>619
コンバーターを利用するのもなかなか捨てたもんではないぞ。
VBto Converterの以前のバージョンは途中で切れていたが、最新版は途中で切れたりしなくてなかなかよい。
トライアル版は600行までっていう制限があるが、VB6のソースファイルを分割して別々に変換して後で連結すれば問題なし。
もちろん後で作業がいくつもあるのだが、スクラッチから始めるよりも楽だと思う。

627 ：デフォルトの名無しさん：2014/02/06(木) 13:55:02.39 .net

まさかの自演

628 ：デフォルトの名無しさん：2014/02/06(木) 14:40:25.82 .net

規模は？

629 ：デフォルトの名無しさん：2014/02/06(木) 18:39:06.45 .net

ロジックが長いプログラムだったら、コンバーターを使う意味もあるかもな

630 ：デフォルトの名無しさん：2014/02/06(木) 20:41:46.64 .net

delphi to vb は有るが
bv to delphi 無い
今時ベンダーが依頼しない
個人の趣味はあるかもしれないが

631 ：デフォルトの名無しさん：2014/02/07(金) 04:40:09.93 .net

>>630
VB6だったらVBへの移行がベスト？

632 ：デフォルトの名無しさん：2014/02/07(金) 08:12:10.56 .net

死ねゴミ

633 ：デフォルトの名無しさん：2014/02/07(金) 13:04:25.23 .net

>>631
VBに移行するにしても普通書き直した方が早いな。
移行しないという選択肢があるならそのままVB6にしておけば？

634 ：デフォルトの名無しさん：2014/02/07(金) 13:20:13.00 .net

つうかVBスレで聞けよ

635 ：デフォルトの名無しさん：2014/02/11(火) 20:32:16.32 .net

プログラムなんてTK-80 BS　BASIC以来なんで、今時の言語見てもじぇんじぇん分かりません。

そんな俺の野望はNゲージの電車をＰＣで動かすことなんですが、（ＤＣモーターを
チョッパ制御するだけです）、DELPHIでUSBを制御するのはどうしたらいいんでしょ？

636 ：デフォルトの名無しさん：2014/02/11(火) 22:18:39.07 .net

単にUSBで通信するなら

WinUSB Interface for Delphi
ttp://sourceforge.net/projects/winusb-delphi/

TWINUSB BULK通信コンポーネント
ttp://www.csd.co.jp/contents05.html

このあたりかな。

637 ：デフォルトの名無しさん：2014/02/12(水) 17:33:58.54 .net

>>630
Delphi１０年以上前にやってた者だけどDelphiってそんなに厄介者になってるのか…
VB.NETなんかデプロイがたいへんそうなんだけどな

638 ：635：2014/02/12(水) 18:32:23.49 .net

>>636
ありがとうございます。
でも、なんだか難しそうですね。上のは英語だし、下のは有料かぁ。。。
僕の想像では、Ｃの fprint の書式をうにゃうにゃするみたいな感じで、テキトーにＩ／Ｏにアクセス
できるのかなと思っていたのですが、ドライバを別に用意しないといけないのですか。
ハードル高いです。

>>637
delphiかっこいいと思うんですけどねぇ。なんで流行らないんだろ。

639 ：デフォルトの名無しさん：2014/02/12(水) 20:36:07.37 .net

CSDさんのは使うだけならただですが…(ソースは有償)。

VB6はどっちに行くにも変換じゃ済まないので不良資産化してますな。
Delphiはバージョンアップだけで基本的にそのまま動くけど。

640 ：デフォルトの名無しさん：2014/02/13(木) 00:18:30.15 .net

>>637
いいか悪いかという問題ではなく、VBを使える人間はいるがDelを使える奴がいないからVBに変換したいって会社があるってことだな

641 ：デフォルトの名無しさん：2014/02/13(木) 00:35:29.93 .net

>>638
Delphiが流行らないのは値段が高いし、迷走したし、知名度低いし、VB6ほど気軽に使えないし、コードの見た目良くないし。

642 ：デフォルトの名無しさん：2014/02/13(木) 00:57:59.42 .net

>>641
お前馬鹿？ Delphi ほど美しいコードは他にないだろ？

643 ：デフォルトの名無しさん：2014/02/13(木) 02:58:40.54 .net

いまさらVB6とか老害すぎて乾いた笑いしか出ない

644 ：デフォルトの名無しさん：2014/02/13(木) 07:36:30.72 .net

>>642
どんなところが？

645 ：デフォルトの名無しさん：2014/02/13(木) 07:47:08.48 .net

とりあえずCの
i =2;
で代入はおかしい

646 ：デフォルトの名無しさん：2014/02/13(木) 10:42:04.59 .net

キチガイアンチは頼むからエンバカスレに引きこもってろよ
お前がいくら屑でも、最低限のルールくらい守れるだろ？
それともスレ違いかどうかも理解できないほど判断力が低下してるのか？

647 ：デフォルトの名無しさん：2014/02/13(木) 13:35:33.89 .net

>>646
なぜ流行っていないかということは超初心者の疑問だから扱ってもいいんじゃない？

648 ：デフォルトの名無しさん：2014/02/13(木) 14:32:50.10 .net

質問です
FireMonkeyのTFlowLayoutは横に並べるのはわかったんですが、
縦に順に並べるにはどうしたらいいでしょうか？
バージョンはXE5です

649 ：デフォルトの名無しさん：2014/02/13(木) 17:47:23.67 .net

というか流行る必要ってなくね？
むしろ流行ってほしくない

650 ：デフォルトの名無しさん：2014/02/13(木) 18:05:53.05 .net

流行りものをありがたがる男の人って…

651 ：635：2014/02/13(木) 18:59:12.40 .net

>>639
そうでしたか。じゃぁ、それを使ってみることにします。

>>641
素人さんなんで、ＣもPASCALも似たようなもんと思えてしまう^^;
プロから見れば違うんだろうけど。
とりあえず、Ｃの { } がヤなんですね。ミミズののたくったみたい。

652 ：デフォルトの名無しさん：2014/02/13(木) 20:20:41.03 .net

>>649
初心者としては個人や企業で使っている人が余りにも少ないと他の言語を覚えた方がいいのではないかと不安になります

653 ：デフォルトの名無しさん：2014/02/13(木) 21:21:10.59 .net

杞憂でしょう

654 ：デフォルトの名無しさん：2014/02/13(木) 21:25:39.88 .net

そうですか、安心しました

655 ：デフォルトの名無しさん：2014/02/13(木) 23:01:43.84 .net

利用者が少ないから使わないってくだらん
知名度を理由に貶す奴は頭弱そう

656 ：デフォルトの名無しさん：2014/02/13(木) 23:19:17.08 .net

>>652
その感覚は重要
使われてないのにはそれなりに理由があるからね

□産み出されたばかりで知名度が低くて使われていな場合
ドキュメントが少ない

□それそのものが糞だから使われていない場合
糞

他にもあるだろうけど、良いものならみんなが使ってるよ

657 ：デフォルトの名無しさん：2014/02/14(金) 00:03:49.33 .net

なるほどね
じゃあ間違いなくこのスレのみんなが使ってるDelphiは良いものってことか

658 ：デフォルトの名無しさん：2014/02/14(金) 00:08:12.08 .net

Delphiは良いもの。はっきりわかんだね。

659 ：デフォルトの名無しさん：2014/02/14(金) 00:16:40.58 .net

そうですか、安心しました

660 ：デフォルトの名無しさん：2014/02/14(金) 00:19:07.86 .net

みんなが使ってるものだから安心感がある
理由なんてそれ以外全部後付け

661 ：デフォルトの名無しさん：2014/02/14(金) 00:19:47.57 .net

DelphiってWindows向けのソフトウェアしか開発できないんですよね？
これからはマルチプラットフォームの時代だと思うので、他の言語を覚えた方がいいのではないかと不安になります

662 ：デフォルトの名無しさん：2014/02/14(金) 00:23:42.50 .net

>>661
その感覚は重要
でも今はWindows以外にMac OS XやiOSにAndroidと、複数の環境へのクロスコンパイルに対応しているからね

□各OSで用意されている言語を使う場合
それぞれの言語を習得する必要あり、OSごとにアプリケーションを作り直さなくてはならない

□Delphiを使う場合
FireMonkeyというマルチプラットフォームに対応したフレームワークのおかげでワンソースでOK

他にもあるだろうけど、良いものだからみんなが使ってるよ

663 ：デフォルトの名無しさん：2014/02/14(金) 00:24:34.17 .net

マルチプラットフォーム対応＝もっさりアプリだから使いたくない

664 ：デフォルトの名無しさん：2014/02/14(金) 00:25:20.98 .net

Javaのことですねわかります

665 ：デフォルトの名無しさん：2014/02/14(金) 00:39:22.48 .net

Cのソースきったなすぎて目が腐る
あの構文に何の疑問も感じない人間は美意識どうかしてる

666 ：デフォルトの名無しさん：2014/02/14(金) 00:52:39.86 .net

>>663
JVMはダメだよね
やっぱりネイティブじゃないと♪

667 ：デフォルトの名無しさん：2014/02/14(金) 05:00:38.64 .net

>>662
> 良いものだからみんなが使ってるよ
「良いもの」には同意だが、「みんなが使ってる」にははげしく同意できない。

668 ：デフォルトの名無しさん：2014/02/14(金) 05:03:38.96 .net

>>655
仕事で使うとなると、自分が異動した後のことを考えて、マイナーな言語は上司が避ける傾向にありますので不安です。

669 ：デフォルトの名無しさん：2014/02/14(金) 05:04:40.22 .net

>>656
Delphiはどういうことが原因で使われていないのですか？

670 ：デフォルトの名無しさん：2014/02/14(金) 05:16:46.85 .net

結局、Microsoft、Sun、IBMのように、開発ツール以外もビジネスをやっている会社が、
C#、VB、javaを推奨するものだから、総合力でDelphiはビジネス的に不利になったということですか？

671 ：デフォルトの名無しさん：2014/02/14(金) 08:04:25.76 .net

ヘジルスバーグ引き抜き

672 ：デフォルトの名無しさん：2014/02/14(金) 08:12:54.74 .net

Standard Pascal は糞だけど Object Pascal は最強

673 ：デフォルトの名無しさん：2014/02/14(金) 08:18:57.12 .net

プログラマにとって重要なものは言語ではなくセンスだ。

674 ：デフォルトの名無しさん：2014/02/14(金) 09:05:51.61 .net

Delphiが使われていないのは良さを理解できない世の中が悪い

675 ：デフォルトの名無しさん：2014/02/14(金) 09:24:08.60 .net

また変な人が痛いDel厨を演じてるようですな

676 ：デフォルトの名無しさん：2014/02/14(金) 10:15:42.79 .net

C言語厨よりマシ

677 ：デフォルトの名無しさん：2014/02/14(金) 11:01:16.56 .net

Microsoftの資本が入ったときに落ちぶれていく施策を採用させられたからですか？

678 ：デフォルトの名無しさん：2014/02/14(金) 11:03:54.79 .net

ネイティブアプリは業務アプリには危険という認識が広まったというのも一因かな。

679 ：デフォルトの名無しさん：2014/02/14(金) 11:31:37.50 .net

iOS/Androidの同一ソース開発が安定するようになると、もう少しメジャーになるのでしょうか？
今のところ、モバイル開発者がDelphiをやり出したという話はほとんど聞きません。

680 ：デフォルトの名無しさん：2014/02/14(金) 13:15:08.47 .net

やっぱり会社が変わりすぎたのが敗因かな
多プラットフォーム対応も方針が変わりすぎた
MSが.NET以降に手間取ってる隙がチャンスだったんだけど、
.NET版Pascalとか出しちゃうしチャンスを逃してる

681 ：デフォルトの名無しさん：2014/02/14(金) 14:51:04.95 .net

いい加減そういうのはエンバカデロスレでやってくれ
ここは言語やライブラリの使い方に関する質問スレだ
そういう質問をする気も答える気もないなら消えてくれ

>>648
TFlowLayoutには縦に並べる機能はないが、TFlowLayoutをTFlowLayoutの中に横に並べて、
1つずつTFlowLayoutBreakをすれば擬似的に縦に並ぶようにはなる
あとはこちらでは試してないけど、こういったのを作ってる人もいるから参考に
http://delphihaven.wordpress.com/2013/02/03/writing-a-simple-firemonkey-tlistlayout-implementation/

682 ：デフォルトの名無しさん：2014/02/14(金) 15:06:07.62 .net

複数のPCに導入する予定のプログラムで、
自作フォーム上にPDFを表示したいのですが、何か方法はありますでしょうか？
わかる方がいましたらご教示願います。

683 ：デフォルトの名無しさん：2014/02/14(金) 15:23:59.49 .net

>>682
adobe readerインスコしてTWebBrowser（もしくはTEmbeddedWebBrowser）

684 ：デフォルトの名無しさん：2014/02/14(金) 16:47:30.43 .net

>>682
PDFの操作をしたかったり、Adobe Readerに依存したくなければ、
Active PDFのようなフリーのコンポーネントを使う手もあります。

685 ：デフォルトの名無しさん：2014/02/14(金) 19:59:13.01 .net

ありがとうございます。683さんの方法で何とか実現できそうです。
もうひとつ質問なのですが、PDFの１ページ目のサムネイルを得る方法はないでしょうか？
Acrobatや有料コンポーネントなどを買えば可能なようですが、
予算的に厳しいため、できれば無料か、高くても数千円で済むようだとありがたいです。

686 ：デフォルトの名無しさん：2014/02/14(金) 21:13:23.26 .net

TWebBrowerに一度表示させてスクショを取るとか(キャプチャはWinAPIで出来る）

687 ：635：2014/02/16(日) 22:44:03.94 .net

素人な質問でごめんなさい。

あの Type というのは一体どういうものなんでしょう？
Var とかぶってるところもあるし、なんかイマイチ分からないですね。

688 ：デフォルトの名無しさん：2014/02/16(日) 23:00:35.65 .net

型宣言と変数宣言

689 ：635：2014/02/16(日) 23:03:36.67 .net

>>688
ありがとうございます。
でも、その　型宣言　というのがイメージが湧かないんですよ。
解説本見てもちゃんとした説明がないですし。

690 ：デフォルトの名無しさん：2014/02/16(日) 23:09:47.31 .net

Varが　変数を宣言するのに使う。

Typeが、型を宣言するのに使う。
構造体や配列、レコード型など
ユーザーが型を作ることが出来る。

691 ：デフォルトの名無しさん：2014/02/16(日) 23:16:15.37 .net

>>689
６のマニュアル　
http://www.dotup.org/uploda/www.dotup.org4880654.zip.html

692 ：デフォルトの名無しさん：2014/02/17(月) 22:19:19.71 .net

Delphiって関数を使うときにその関数の記述部分が前にないといけないと聞いたのですが本当ですか？

693 ：デフォルトの名無しさん：2014/02/17(月) 22:59:23.87 .net

定義か宣言のいずれかが必要です。Cのように暗黙に関数を仮定することはできませんが、
(Cのプロトタイプ宣言に相当する)前方宣言を用意しておけばOKです。

694 ：デフォルトの名無しさん：2014/02/18(火) 09:53:18.79 .net

Cでいうところのヘッダーファイルがひとつにくっついてる感じ

695 ：デフォルトの名無しさん：2014/02/18(火) 11:14:18.03 .net

forward宣言はpascal本来の文法にもある
unitのinterface部のところはDelphi/Turbo Pascalの拡張じゃなかったかな

696 ：デフォルトの名無しさん：2014/02/18(火) 15:31:54.07 .net

>>692
宣言が前方にある必要があるだけで、実装の記述が前方にある必要はないよ
ついでに言えば、実装の方は下記のように引数や戻り値を全部省略して書いてもいい

function Test(A, B: Integer; C: string = 'test'): string; forward;

procedure TForm1.Button1Click(Sender: TObject);
begin
　ShowMessage(Test(1, 2, '3'));
end;

function Test;
begin
　Result := 'hoge';
end;

697 ：デフォルトの名無しさん：2014/02/18(火) 16:23:26.69 .net

>>696
誰もhoge荒らしにきいてないんだからさっさと消えろよ

698 ：635：2014/02/18(火) 19:51:53.15 .net

>>690
うーん。なんだか分かったようなわかんないような（←ほとんど分かってない）
ま、構造体も配列もまだ使う予定ないから、わかんなくても良しとしよう！
それにしても、みんな何であんなの簡単に使いこなせるんですかねぇ。

>>691
これは良いモノを教えていただきました。ブックマークしときますね^^

699 ：デフォルトの名無しさん：2014/02/19(水) 12:00:39.71 .net

消えるのはお前だな > 697

700 ：デフォルトの名無しさん：2014/02/19(水) 14:36:03.86 .net

はい…

701 ：デフォルトの名無しさん：2014/02/20(木) 15:55:16.23 .net

C#のusingみたいな機能ってありませんか？

702 ：デフォルトの名無しさん：2014/02/20(木) 17:45:42.75 .net

つ try...finally

703 ：デフォルトの名無しさん：2014/02/20(木) 17:49:50.70 .net

C#使いが今頃Delphi触り始めるっていうのは、モバイル向けか？
悪い事言わんから、やめといた方が良いと思う

704 ：デフォルトの名無しさん：2014/02/20(木) 21:28:00.12 .net

>>702
C#のtry-finallyとusingは等価ではないんですが、Delphiでは同じなんですか？

705 ：デフォルトの名無しさん：2014/02/20(木) 21:35:18.01 .net

>>703
そうなんですか？
資料は少ないですが、例えばHello wordlを作ってデプロイして起動するまでは
他の環境よりかなり楽だったので、普及して本とか増えてくれたら結構いいとこいくと思います

706 ：デフォルトの名無しさん：2014/02/20(木) 21:37:41.71 .net

>>704
usingそのものはないよ。

707 ：デフォルトの名無しさん：2014/02/21(金) 16:16:05.13 .net

>>703
なぜ？

708 ：デフォルトの名無しさん：2014/02/21(金) 16:36:56.94 .net

エンバカと一部ユーザー？が喧伝してる夢物語が実現するとは到底思えないから
Delphi,VCL,C++Builderは本当に素晴らしい物だと思うが、エンバカになってからの
状況見てると何も明るい材料が無い
俺はVCL,C++Bulder使いだから知らないだけかもしれないが、Delphiの方はそんなに良い状況なのか？

709 ：デフォルトの名無しさん：2014/02/21(金) 16:40:52.51 .net

エンバカスレは別にあるからそっち行ってくれ

710 ：デフォルトの名無しさん：2014/02/21(金) 16:42:59.99 .net

WindowsとLinuxで同じ事が出来なかった人達に、
iなんたらとAndroidなら同じ事が出来ると思うのか？
今のIDEの出来も、もうEclipseには置いて行かれている

711 ：デフォルトの名無しさん：2014/02/21(金) 18:55:34.45 .net

>>708>>710
関係ない話題を繰り返したいのであれば出て行ってください
あなたがどう思うかはこのスレには関係ありませんのでチラ裏か以下のスレでどうぞ
http://toro.2ch.net/test/read.cgi/tech/1382605000/

712 ：デフォルトの名無しさん：2014/02/21(金) 22:10:23.17 .net

ウザい自治体の>>711はスルーで

713 ：デフォルトの名無しさん：2014/02/21(金) 22:15:19.02 .net

適材適所。

714 ：デフォルトの名無しさん：2014/02/21(金) 23:02:57.95 .net

>>711=自治体

715 ：デフォルトの名無しさん：2014/02/24(月) 16:21:29.26 .net

荒らしが何か言ってる

716 ：デフォルトの名無しさん：2014/03/14(金) 23:02:45.98 ID:SeBq1h8L.net

初歩的な質問で申し訳ないですが．．．

スレッドの Create や Destroy はもしかして
メインスレッドで実行されるんですか？

717 ：デフォルトの名無しさん：2014/03/15(土) 16:30:17.49 ID:+WFsYmz/.net

スレッドが、TThreadクラスの実装で使われてるOSのスレッドの事を意味するなら、
ソースを見るとスレッドの生成はTThreadのCreateコンストラクタで作成されているよーな。
つまり、君がTThreadのCreateを呼ぶタイミングで・・

718 ：デフォルトの名無しさん：2014/03/15(土) 18:14:43.10 ID:1abxrNZC.net

>>717
ちょっと疑問に思ったのは、TThreadのconstructorなどで
メインスレッドの要素（VCLオブジェクトなど）へ直接アクセス
してもいいのか、それもとSynchronizeを使うべきかってことです。

それで、メインスレッドからTThreadをCreateする段階で
constructorもメインスレッドで実行されるのであれば、
constructor内でVCLオブジェクトに直接アクセスしても
問題ないですよね。

719 ：デフォルトの名無しさん：2014/03/15(土) 18:34:42.01 ID:l3tZ6mor.net

逆に呼ぶだけで別スレッドで実行されるコンストラクタの作り方を知ってるなら教えて欲しい

720 ：デフォルトの名無しさん：2014/03/15(土) 19:22:59.24 ID:+WFsYmz/.net

>メインスレッドからTThreadをCreateする段階で
>constructorもメインスレッドで実行されるのであれば、
>constructor内でVCLオブジェクトに直接アクセスしても
>問題ないですよね。
だ。問題ない。
別スレッドで実行されるのはoverrideするexecuteメソッド。
デストラクタはFreeOnTerminateの設定しだい

721 ：デフォルトの名無しさん：2014/03/16(日) 14:13:47.85 ID:s2v9Bhoy.net

>>720
ありがとうございます。

以前より疑問に思ってたことで
これでスッキリしました。

>デストラクタはFreeOnTerminateの設定しだい

メインスレッドから明示的に解放する場合は
メインスレッドでdestructorが実行されるってこと？

722 ：デフォルトの名無しさん：2014/03/17(月) 07:51:51.15 ID:QpwZfi7l.net

FreeOnTerminate=trueは実質的に使い道がないからあまり悩むな

723 ：デフォルトの名無しさん：2014/03/17(月) 14:28:39.76 ID:NiSgUcDM.net

使い道かなりあるだろ
お前が使いこなせてないだけ

724 ：デフォルトの名無しさん：2014/03/18(火) 06:53:32.63 ID:ZB+Vqles.net

>>723
冗談だろｗ
マジで行ってるならバグの元だからやめたほうがいいぞｗ

725 ：デフォルトの名無しさん：2014/03/18(火) 06:56:53.03 ID:ZB+Vqles.net

>>723
「かなり」はないな。
「わずか」に完全非同期のスレッドに使えるけどそれほど必要じゃないし
仮に必要としてもexe別にした方がいい事のほうが多い。

726 ：デフォルトの名無しさん：2014/03/18(火) 15:34:47.95 ID:Qsk0Z8cy.net

必死の自演もむなしく…

727 ：デフォルトの名無しさん：2014/03/18(火) 19:17:52.57 ID:ZB+Vqles.net

自演なら時間空けた上ID変えるはｗ

728 ：デフォルトの名無しさん：2014/03/19(水) 01:10:13.81 ID:YMTMO1GO.net

>FreeOnTerminate=trueは実質的に使い道がないからあまり悩むな
プログラムで書くならFreeOnTerminate := true;なんだが。

>>724
>マジで行ってるならバグの元だからやめたほうがいいぞｗ
バグというよりコンパイルが通らないが．．．

729 ：デフォルトの名無しさん：2014/03/19(水) 01:46:57.53 ID:X5Pm8TEB.net

：のあるなしとかそんなくだらない部分にしか反論できなければ無理してレスしなくていいんじゃ？見ててしらける。

730 ：デフォルトの名無しさん：2014/03/19(水) 07:21:28.20 ID:2cESFier.net

例えばここ http://wiki.lazarus.freepascal.org/Multithreaded_Application_Tutorial/ja
のサンプルの中でFreeOnTerminate=trueにもかかわらず

procedure TForm1.FormDestroy(Sender: TObject);
begin
MyThread.Terminate;

// FreeOnTerminate が true であれば、以下の記述は必要ありません。
// MyThread.Free;
inherited;
end;

などと平気でやっている。
MyThread が先に終了してたらMyThread.Terminateはアクセスバイオレーションだ!
つまりFreeOnTerminate=trueの時はメインスレッドからサブスレッドを制御するのは
サブスレッドの実体をメインスレッドに持っているだけではできないのだ。
そしてFreeOnTerminate=trueの唯一のメリットは「処理が終わったら余分なメモリが空くこと」だが
それはFreeOnTerminate=falseでもスレッドリストを作りガベージコレクトを適切に行うことで解決できる。
これらのことからするとFreeOnTerminate=trueは実質いらない子なのである。

731 ：デフォルトの名無しさん：2014/03/19(水) 07:30:16.83 ID:2cESFier.net

ちなみに「スレッドリストを作りガベージコレクト」とは
単に、適当なタイミング（新しいスレッドを作るときとかタイマで１０分毎とか、どうするかはプログラマの自由）で
if MyThread.finished then MyThread.Free;
とするだけのことである。
サブスレッドが複数なら
for i:= 0 to thredlist.count-1 do
if thredlist[i].finished then thredlist[i].Free;
とかね。

732 ：デフォルトの名無しさん：2014/03/19(水) 07:42:15.76 ID:2cESFier.net

初心者スレなのでさらに正確に書くと
if Assigned(MyThread) and MyThread.finished then begin
MyThread.Free;
MyThread:= nil;
end;
か。
なお以前は
MyThread.Free;
MyThread:= nil;
を
FreeAndNil(MyThread);
にするとなぜかうまく行かなかったが今はどうか知らない。

733 ：デフォルトの名無しさん：2014/03/19(水) 08:22:24.10 ID:2cESFier.net

なお、もちろん「少量のメモリ使用なんて気にしない」という
ならガベージコレクトは不要だ。
仮にサブスレッドが大量のメモリを使うとしても、executeの
最後でそれらを開放してやればいいだけの話なので
眠ってるスレッドが消費するメモリなんてたかが知れている。

734 ：デフォルトの名無しさん：2014/03/19(水) 10:31:13.07 ID:Wx0a5I3W.net

まぁ初心者スレなのでFreeOnTerminateは普通Falseだろ、といわれりゃそうだけど、
>FreeOnTerminate=trueは実質的に使い道がないからあまり悩むな
は乱暴すぎるな。せめて"わからないうちはFalseで十分"くらいにしとけ。

735 ：デフォルトの名無しさん：2014/03/19(水) 14:33:07.91 ID:NwQr/+gL.net

自論を守ることに必死になって本来使われるべき場面すら否定してるだけでしょ
バカはほっとけ

736 ：デフォルトの名無しさん：2014/03/19(水) 16:01:20.43 ID:T8UZmlef.net

子スレッドを使う基本　＝　やらせて放置、終わったら「終わったよ」報告（１）をさせる

メインから終わらせたければ「終わってくださいお願いします」フラグを立てる　＝
　　AThread,Terminate; を呼ぶなど。

（１）の旗はメイン側の場所に作っておく、旗が立ったら次へ。
インスタンスの破棄は子スレッドに任す


TThread のつくりがこういう使い方を想定して作られてるので、それに従うのが紛れがなくていいぞ。

737 ：デフォルトの名無しさん：2014/03/19(水) 19:46:18.29 ID:2cESFier.net

>>735
「本来使われるべき場面」とは？
ちなみに私がバカというのはあたってますが、
ガベージコレクトを標準搭載している言語ではごく普通の手法なので「自論」ではないです。

>>736
それだとメインの旗を立てる際にsyncronizeしないと
いけないので私の提示したた手法より複雑になります。
そして「TThread のつくりがこういう使い方を想定して作られてる」というのは誤解と思われます。

738 ：デフォルトの名無しさん：2014/03/19(水) 22:17:04.02 ID:VkMj3BIA.net

ちょっと教えてください

Delphi7で作成した32ビットアプリケーションをx64のWOW64環境で動かすのですが
プログラムからProgram Files(64ビット用),SYSTEM32のリソース用EXE,DLLをロードする必要があり

SYSTEM32の方は"%WinDir%\Sysnative"でいけるのですが
Program FilesはProgram Files (x86)にリダイレクトされてしまします
Wow64DisableWow64FsRedirectionやリンクを使わない方法ってありますか？

動作環境の方はNT系のx86(NT4以降),x64(XP以降)サーバーOSも含みます

739 ：デフォルトの名無しさん：2014/03/19(水) 23:45:37.42 ID:YMTMO1GO.net

>>729
だったら無視すればいいのにｗ

>>731-732
>MyThread.Free;
>MyThread:= nil;
Freeしてnilする間に呼ばれたらどうするの？
こんな馬鹿の為にFreeOnTerminateは必要なのかなｗ

740 ：デフォルトの名無しさん：2014/03/20(木) 01:54:02.08 ID:vqexB7VW.net

>738
64のプログラムがProgram Filesに、
32のプログラムはProgram Files(x86)、
で良いのでは？

741 ：デフォルトの名無しさん：2014/03/20(木) 07:01:48.61 ID:6vGw0ZTO.net

>>739
Freeにはスレッドが終了するまで待つ処理が入ってますから問題無いですよ。
調べずに書く人はバカな私よりバカだと思います。

742 ：デフォルトの名無しさん：2014/03/20(木) 07:22:58.71 ID:aCZWTFRX.net

そういうこと考えないでいいのが FreeOnTerminate

743 ：デフォルトの名無しさん：2014/03/20(木) 08:45:40.83 ID:6vGw0ZTO.net

>>742
まあそうですが、その代わり>>736さんが適切に指摘されているような機能を実装する必要がありますから
結局面倒ですよね。

744 ：デフォルトの名無しさん：2014/03/20(木) 09:09:09.35 ID:6vGw0ZTO.net

あと、考えるのが面倒、調べるのも面倒、でも心配というのなら
mythread.WaitFor;
mythread.Free;
mythread:= nil;
とすればよいだけの話です。

745 ：デフォルトの名無しさん：2014/03/20(木) 14:27:34.60 ID:O3H8Rb0w.net

それスレッド使う意味なくね？トンデモすぎてもう本末転倒だよ…
お前の糞コードには文句言わないから、せめて何も知らない初心者は巻き込まないで

746 ：デフォルトの名無しさん：2014/03/21(金) 00:36:10.17 ID:pbbcuVJV.net

>>741
>Freeにはスレッドが終了するまで待つ処理が入ってますから問題無いですよ。
えっ？本当に馬鹿なんだｗ
マルチスレッドの意味が分からないのかな？

Freeとnilの間と言う意味が分かってないんだね、こんな馬鹿が作ると
タイミングによって出たり出なかったりするバグを作りだして非常に迷惑するんだよな。

747 ：デフォルトの名無しさん：2014/03/21(金) 02:02:48.57 ID:PlAj+MNn.net

そもそも初心者がマルチスレッドなんてやるの？　そんなのできたら中級以上だよ

748 ：デフォルトの名無しさん：2014/03/21(金) 11:14:31.18 ID:UsfjXS01.net

なんかあれだな　　　基本的に親スレから子スレをいじるのはご法度だよ

さわらぬスレにたたりなしって、知らんのか？

749 ：デフォルトの名無しさん：2014/03/21(金) 12:12:00.72 ID:dYaCWWLA.net

ところで、>>741が言ってる

「Freeにはスレッドが終了するまで
待つ処理が入ってます」って本当なの？

750 ：デフォルトの名無しさん：2014/03/21(金) 14:07:24.14 ID:aCiCqmdu.net

>>749
本当

751 ：デフォルトの名無しさん：2014/03/21(金) 21:20:49.05 ID:dYaCWWLA.net

>>750
なるほど

ほとんどTThreadとか使わないんだけど
改めてHelpを見ると書いてあるね

てか、自分でFreeするんだったら
MyThread.Terminateなんか不要じゃん

752 ：デフォルトの名無しさん：2014/03/21(金) 22:15:52.10 ID:aCiCqmdu.net

いや、それはまた別。Terminateのヘルプに書いてあるけど、
途中で処理をキャンセルしたい場合に使う。

753 ：デフォルトの名無しさん：2014/03/22(土) 20:11:57.19 ID:458foGzL.net

でも途中キャンセルしたらほとんどの場合はそのままFreeするからやっぱりいらないよね

754 ：デフォルトの名無しさん：2014/03/23(日) 08:33:53.01 ID:ZLskKlYl.net

いちどWinAPIだけでスレッド書いてみれば良い
意味がよく分かる

755 ：デフォルトの名無しさん：2014/03/24(月) 07:36:57.69 ID:Eiiayiu7.net

>>746
終了したスレッドが勝手に動き出すとかないですから問題無いですよ。
あなたスレッドの動作や意味を間違えたますよね完全に。
多分Delphiしかできない人なんでしょうけど他言語も触ってみると良いですよ。

756 ：デフォルトの名無しさん：2014/03/24(月) 08:03:56.24 ID:Eiiayiu7.net

>>748
それで顧客が納得してくれれば苦労はしないのです。
あなたが親子という概念を既に導入していることからも分かる通り
親側でクローズボタンが押されても子が終了するまで待つという
ようなプログラムではダメ出しされるのが通常だからです。
そこで
Mythread.terminate;
や
Mythread.free;
が必要になるわけですが
FreeOnTerminate=trueだとMythreadが終了してたらアクセスバイオレーションになるから
工夫が必要だよさあどうするというのがメインの論点です。

757 ：デフォルトの名無しさん：2014/03/24(月) 08:09:51.06 ID:osm7C2MP.net

まさか仕事でマルチスレッドプログラム書いてて
同期オブジェクトやスレッド間通信用のメッセージングの仕組みを
用意してないとか言わないよな？

758 ：デフォルトの名無しさん：2014/03/24(月) 08:15:34.47 ID:Eiiayiu7.net

ひとつの解決方法は >>736さんの提示された
FreeOnTerminate=trueのまま工夫する方法です。
もうひとつは私が提示したFreeOnTerminate=falseにして
必要ならガベージコレクト機能を組み込むという方法です。
あとは具体的解決方法も示さずバカだのアホだ
のいうだけの人が約１名いるという状況です。

759 ：デフォルトの名無しさん：2014/03/24(月) 08:22:55.85 ID:Eiiayiu7.net

>>757
スレッド間通信もひとつの手ですね。
ただそこまで必要ないことのほうが多いです。
DelphiのThreadクラスの優秀さはスレッド間通信を使用しなくても簡単に
マルチスレッドアプリができるというところにあると思います。

なお、758は756の続きでありあなたへのレスではありません。

760 ：デフォルトの名無しさん：2014/03/24(月) 08:52:25.38 ID:Eiiayiu7.net

>>757を受けてここまでの状況をまとめ直しました。

Q　親子型スレッドを作るにはどうればいいの？

A１　>>736さんのようにFreeOnTerminate=trueでサブスレッド側からメイン側のフラグを操作する。
A２　>>757さんのようにFreeOnTerminate=trueで同期オブジェクトやスレッド間通信で処理する。
A３　FreeOnTerminate=falseにして、必要ならスレッドマネージャ（≒ガベージコレクト）機能を組み込む。
番外　具体的解決方法も示さずバカだのアホだのいうだけの人が約１名。

761 ：デフォルトの名無しさん：2014/03/24(月) 15:50:15.88 ID:TTLwjTKi.net

Delphiハックで有名な人らがFreeOnTerminateはTrueのほうがよく使うと発言してる件

762 ：デフォルトの名無しさん：2014/03/25(火) 08:44:40.07 ID:5thxtN7r.net

>>761
730で示したとおりLazarusのWikiでさえ間違ってますから
FreeOnTerminate=trueの方が多数派の可能性は十分あるでしょうね。
私も最初はFreeOnTerminate=trueから始め、A1やA2を採用しておりました
（なお、同期オブジェクトやスレッド間通信は今でも必要に応じて他の目的のために使うことがあります）。
スレッドマネージャ型に気づいたのは、他のガベージコレクション標準搭載言語でのスレッド処理や
ゲームプログラミング（擬似マルチスレッドですが）で最近？流行のオブジェクト管理方法に触れた時です。
眼から鱗でした。
初心者の方は、A１〜A3型すべての親子型スレッドのサンプルを作ってみると勉強になると思います。

763 ：デフォルトの名無しさん：2014/03/25(火) 16:06:46.24 ID:JWqzamQX.net

Delphiと関係ないLazarusのwikiを持ち出して間違ってると言われましても…
それ以外に自分の意見を補強できる資料が無かったんだろうけどｗ

764 ：デフォルトの名無しさん：2014/03/26(水) 00:02:18.41 ID:3vOQuU/w.net

>>755
>終了したスレッドが勝手に動き出すとかないですから問題無いですよ。
誰もそんなことを問題にしていない。
Freeしてnilする間に使われたらどうするんだと言っている。
そんなプログラムを組んでいたらAccess Violationになるぞ。
こいつ本当にマルチスレッドのプログラムを作ったことがあるのか疑問だ？

765 ：デフォルトの名無しさん：2014/03/26(水) 00:17:56.35 ID:PxlFEF9w.net

複数スレッドから読まれることを前提としてたら普通は一時変数に取ってnil入れてそれから解放するわな(FreeAndNilの実装)

766 ：デフォルトの名無しさん：2014/03/26(水) 00:47:26.59 ID:qmu2UESc.net

まぁ、技術レベルが低くて代入演算子に：がないからコンパイルできないとか
本題と関係のない事にしか突っ込むしかできな奴が「マルチスレッドのプログラムを作ったことがあるの？」
と言ってもジョークにしか聞こえないけど。

767 ：デフォルトの名無しさん：2014/03/26(水) 08:11:38.29 ID:r65XrFp2.net

>>764
「使われる」とはどういう意味ですか？
例えば以下のプログラムで誰がFreeしてnilする間に使うのですか？

TForm1=class
button1: TButton;
timer1: TTimer;
private
mythread: TMythread;
end;

TForm1.Button1click;
begin
if Assigned(mythread) then mythread.Free;
mythread:= TMyThread.create;
end;

TForm1.Timer1Timer;
begin
if Assigned(mythread) and mythread.finished then begin
mythread.Free;
mythread:= nil;
end;

TForm1.FormDestroy;
begin
if Assigned(Mythread) then mythread.Free;
end;

こいつ本当にマルチスレッドのプログラムを作ったことがあるのか疑問だ？

768 ：デフォルトの名無しさん：2014/03/26(水) 08:32:03.41 ID:r65XrFp2.net

ちなみに上のプログラムは端折って書いているのでコンパイルできません。
初心者の方には申し訳ないですが是非自分でプログラムしてみてください。
なお、既に述べたとおり、ガベージコレクト部分（上のプログラムのTForm1.Timer1Timerメソッドの部分）
は必ずしも実装する必要はありません。

769 ：デフォルトの名無しさん：2014/03/26(水) 10:57:22.97 ID:MFJ22iPr.net

だからさあ　　メイン側で余計なことする必要なんぞない
タイマー持ち出すとか正気の沙汰じゃない

サブスレッドは仕事終わったら結果残して （残す必要もない場合だってある）　
ひっそりと自ら消えていけばいいだけだよ。

770 ：デフォルトの名無しさん：2014/03/26(水) 11:58:16.25 ID:r65XrFp2.net

>>769
今後必要になった時に「そういえばあんな議論があったな」と思い出して
いただければ結構ですよ。A1〜A3どれもやる必要がないのであれば
用いる必要がないのは当然です。
（あまりにも当然過ぎてあなたを除き誰もそこには疑問を持っておりません）

また、上のプログラムはあなたを含めた初心者宛ではなく
「本当にマルチスレッドのプログラムを作ったことがある」764さん宛のものですので
参考にしないでください。
なお、ガベージコレクトは必須ではないですし、タイマーでやらなければいけないという
ものでもありません（既に書きました）。ですから「タイマー持ち出すとか正気の沙汰じゃない」
という感想も全くマトハズレです。

771 ：デフォルトの名無しさん：2014/03/26(水) 12:04:58.57 ID:r65XrFp2.net

>>763
出所（ソース）不明なだけでなく「Delphiハックで有名」という威光をバックに
自分の意見を補強するよりはだいぶマシかとｗ

772 ：デフォルトの名無しさん：2014/03/26(水) 14:58:18.26 ID:zZlUGj+i.net

つまりどっちもどっちってことか
2chに書くような屑の言葉を信用するなってことだなｗ

773 ：デフォルトの名無しさん：2014/03/26(水) 18:00:37.20 ID:r65XrFp2.net

>>763
あと、よく読めば分かると思いますが
自分の意見の補強ではなくむしろ相手の意見の補強に使ってるのですが・・・

774 ：デフォルトの名無しさん：2014/03/26(水) 19:34:57.44 ID:BF9ctGYU.net

自分の望み通りの動作でバグ無く動きゃいいんだよ

775 ：デフォルトの名無しさん：2014/03/26(水) 19:56:45.56 ID:KA6gGFh4.net

ていうかスレッドの質問って初歩的な質問なんですね。
私は業務でDelphiのプログラムを作ってますが、マルチスレッドの
プログラムなんぞ作ったことがありません。
最近の初心者のみなさんは素晴らしい技術をお持ちですね。

776 ：デフォルトの名無しさん：2014/03/27(木) 07:19:19.10 ID:ArBm9NmN.net

そうですね！

777 ：デフォルトの名無しさん：2014/03/27(木) 14:13:11.20 ID:5hMYU59G.net

自分は初心者だけど、ネット関連のアプリ作ってて
スレッドは多用するな

ちなみに、スレッドの解放にFreeは使わない
理由は、解放中、メインスレッドが停止するから

最悪でも1、2秒の停止時間に文句を言う利用者がいるからね

778 ：デフォルトの名無しさん：2014/03/27(木) 15:07:12.77 ID:6x5K07pQ.net

>>775
それで質問はなんですか？
どうでもいい感想はチラシの裏にお願いします。

779 ：デフォルトの名無しさん：2014/03/27(木) 18:24:52.12 ID:LkX3HMZn.net

>>778
お前を消す方法は？

780 ：デフォルトの名無しさん：2014/03/27(木) 19:31:29.40 ID:6x5K07pQ.net

>>779
あなたが死ねば、色々まとめて消えます。

781 ：デフォルトの名無しさん：2014/03/27(木) 19:34:08.09 ID:loEnDXuM.net

バグと共ににっちもさっちも往かず
沈みます
さようなら

782 ：デフォルトの名無しさん：2014/03/27(木) 19:45:12.28 ID:c5YDAWUv.net

このスレには質問と回答以外は書いちゃダメらしいぞ。

783 ：デフォルトの名無しさん：2014/03/27(木) 19:51:43.82 ID:ArBm9NmN.net

>>777
ネット系はスレッド必須っすよね。初心者で対応できるとはさすがです。
でもどこかでTerminate使うなら結局一緒では？
Free内部でTerminate呼んでるとこでその停止は生じてると思うんで。
Terminate使う必要のないプログラムならFreeも使う必要ないし。

784 ：デフォルトの名無しさん：2014/03/28(金) 01:28:31.10 ID:wmf34mqq.net

>>767
764さんが言っているのは、mythread.Free;とmythread:= nil;の間に別のスレットがmythreadを使うとAccess Violationになるということだと思います。

785 ：777：2014/03/28(金) 02:40:29.80 ID:sGxVzfHB.net

>>783
自分のTThreadの理解が不十分なのかもしれないけど
明示的にFreeすると、メインスレッドでTThreadの解放まで
待たくちゃならないでしょ

たとえば、Terminateを実行したとき、たまたまアクセス中で
さらにサーバの状況が悪くてIndyがタイムアウトを消化中だと
ワーカスレッド内でTerminatedを評価するまで、かなり時間が
かかるケースとかない？

それがイヤで、明示的にFreeで解放はしないんだけど、
自分の理解不足かな？

786 ：デフォルトの名無しさん：2014/03/28(金) 06:56:10.22 ID:d6QGntWj.net

>>785
いやおそらく理解は十分だと思いますよ。
おそらくA3型を前提とした質問だと思うのでそうとして答えますね。
（もしそうでなかったら無視してください）
まず 767 の
TForm1.FormDestroy;
begin
if Assigned(Mythread) then mythread.Free;
end;
というFreeは、「親が子より先には死んではいけない」という親子型の基本理念を実現するものですので
ここでウェイトが生じうることは我慢して下さい。
逆に言えば FreeOnTerminate=true だとその理念が無いために A1型やA２型ではいろいろ苦労されてい
るはずです。
子が親の予想より早く死んでしまったためアクセスバイオレーションとなることは既に書きましたが
親が子の予想より早く死んでしまったためアクセスバイオレーションとなることもあるというわけです。

787 ：デフォルトの名無しさん：2014/03/28(金) 06:58:04.75 ID:d6QGntWj.net

次に 767 の
TForm1.Timer1Timer;
begin
if Assigned(mythread) and mythread.finished then begin
mythread.Free;
mythread:= nil;
end;
という部分での Free ですがここはmythreadが処理を完了していますので
Freeでウエイトが生じることはないはずです。

788 ：デフォルトの名無しさん：2014/03/28(金) 07:07:12.92 ID:d6QGntWj.net

最後に 767 の
TForm1.Button1click;
begin
if Assigned(mythread) then mythread.Free;
mythread:= TMyThread.create;
end;
という部分でのウェイトですがここはサブスレッドを１つだけに制限しているため
Freeして使いまわしているだけです。複数のサブスレッドを作るようにすればここでのFreeは不要です。
例えば、HTTPサーバーでリッスンするスレッドに接続要求があった時は接続可能な数まで
サブスレッドを作成するだけでいちいちFreeはしないと思います。

789 ：デフォルトの名無しさん：2014/03/28(金) 07:13:34.20 ID:d6QGntWj.net

>>784
「別のスレットがmythreadを使う」というプログラムがよくわからないので
具体例を示していただけると幸いです。
FreeOnTerminate=trueだとそういうプログラムでも問題が生じないという
ところまで示していただけると多分今後スムーズに話が進みます。

790 ：デフォルトの名無しさん：2014/03/28(金) 07:24:05.61 ID:d6QGntWj.net

>>784
なお、「別のスレットがmythreadを使う」がもし「子スレッドが複数いて子同士での通信」を意味するなら
mythreadを使うのではなくsyncronizeや同期オブジェクトやスレッド間通信を使ったほうがよいと思います。
それはFreeOnTerminate=trueでも同じのはずです。

791 ：デフォルトの名無しさん：2014/03/28(金) 07:56:07.60 ID:oYluIFxT.net

うん、なんかファイト。

792 ：デフォルトの名無しさん：2014/03/28(金) 07:57:53.78 ID:Dgxgcg2X.net

スレッドの管理は、スレッドリストっていう便利なものが用意されてるから使えばいい
問題の大半はこれで解決

793 ：デフォルトの名無しさん：2014/03/28(金) 10:41:40.30 ID:MhBcNb1x.net

こんなの見つけた
http://homepage2.nifty.com/meiwadensokuki/TThread_1.html
ここはスレッドの事が書いてある

794 ：デフォルトの名無しさん：2014/03/29(土) 00:30:35.70 ID:MLfxEq3F.net

>>767
TForm2 = class(TForm1)
private
function Gatmythread: TMythread;
public
property mythreadA: TMythread read Gatmythread;
end;
function TForm2.Gatmythread: TMythread;
begin
Result := mythread;
end;
これで理解できるか、それとも意味がわからないか？
しかし、いきなりスレッドをprivateフィールドにるすろとは必死すぎるだろう。

オブジェクト指向は継承されても大丈夫なように作るのがわかっていないようだ。
オブジェクト指向のプログラムもろくに理解出来ないとは。
あとフィールドは頭文字はFだ、Delphiの常識的なルールもしらないとは。

795 ：デフォルトの名無しさん：2014/03/29(土) 00:31:24.90 ID:MLfxEq3F.net

>768
>なお、既に述べたとおり、ガベージコレクト部分（上のプログラムのTForm1.Timer1Timerメソッドの部分）
自慢げにガベージコレクト、ガベージコレクトとうるさいが、その仕様は
ガベージコレクションじゃないと分かっていないのが痛いほど悲しい過ぎる。

>756
>それで顧客が納得してくれれば苦労はしないのです。
>親側でクローズボタンが押されても子が終了するまで待つという
>ようなプログラムではダメ出しされるのが通常だからです。
お前が顧客に信用されていないだけだと思わないのか？
顧客も馬鹿じゃないんだから、必要なら待つ。
まっ普段から駄目な技術者は本当に必要なことをいっても信用してもらえないからな。

つまりお前は
・マルチスレッドのプログラムが作れない。
・オブジェクト指向が理解出来ていない。
・Delphi の基本的なルールもわからない。
・客に信用されていない。
と言うことの、駄目駄目の三流技術者でいいんかな。

796 ：デフォルトの名無しさん：2014/03/29(土) 08:43:24.44 ID:ss1xGzqs.net

>>794
>>795
えーはい、適当なプログラム、適当な命名、申し訳ありませんでした。
今後気をつけたいと思います。
「Freeしてnilする間に使われるからおかしい！」という主張は撤回された
ものと受け止めさせていただきます。

797 ：デフォルトの名無しさん：2014/03/29(土) 08:44:25.64 ID:OI7JjiZi.net

どうでもいいがここは初心者の質問スレじゃなかったのかね？
まあ、今更Delphiやろうって奴も少ないだろうけどな。

798 ：デフォルトの名無しさん：2014/03/29(土) 08:58:08.53 ID:ss1xGzqs.net

あ、それから、別に承継しなくても同じUnit内ならprivate内の項目でも自由に使えますよ。
釈迦に説法でしょうけど。

799 ：デフォルトの名無しさん：2014/03/29(土) 09:18:19.16 ID:ss1xGzqs.net

>>797
質問者のレベルが高いと話のレベルも高くなるので難しそうに感じるかもしれませんが、
（質問者のレベルが低くすぎてもポイントがずれまくって難しそうに感じるか）
スレをたどってもらえればわかるように根っこはTThread初めの一歩！みたいな話ですから
初心者向けの話だと思いますよ。
ようは、「FreeOnTerminate=trueが便利そう！」と思ってそこからスタートするとはまるよ、
大したメリットもないんだからFreeOnTerminate=falseで十分だよ、という話です。
多分この話題はもう秋田という感じなのでしょうけど、
初心者を助けたいと思っているだけで自説を押し付けるとかそういう意図ではないので
質問等が消えれば消えますので少しだけ我慢を

800 ：デフォルトの名無しさん：2014/03/29(土) 10:02:01.17 ID:UJJa62hD.net

善意でやってくれてるのは了解した。
ただこの先スレッドの話題がずっと続いたら本当に初歩の初歩の質問がしづらいかなと思っただけ。

801 ：デフォルトの名無しさん：2014/03/29(土) 10:17:55.10 ID:CFiKeRo+.net

昔は質問スレが複数に分かれてたが、現在はスレタイの「超初心者用」に意味はない

802 ：デフォルトの名無しさん：2014/03/29(土) 10:35:32.59 ID:4Djj1jA3.net

>ただこの先スレッドの話題がずっと続いたら本当に初歩の初歩の質問がしづらいかなと思っただけ。
>>795みたいに一人だけ煽ってる奴はいるが、これぐらいで質問できなくなるって、
そんなんじゃ世の中生きていけねぇだろ。配慮の仕方が間違ってるわ。

803 ：デフォルトの名無しさん：2014/03/29(土) 14:33:06.82 ID:6fdBLR4+.net

>>786
>親が子の予想より早く死んでしまったためアクセスバイオレーションとなる

レベルの低い初心者の質問者で申し訳ないけど
このエラーって、どんな感じのエラー？

子が親をアクセスしたときのエラー？
子が親をアクセスしないでもエラーが出る？

804 ：デフォルトの名無しさん：2014/03/29(土) 19:49:54.14 ID:ss1xGzqs.net

>>803
いえいえ「分かる人にはこれだけでわかるだろうけどわからない人も多いかもな・・・」
と思いながら書いた部分を指摘された的確な質問です。
例えばA1型で行こうと決めて（また適当なプログラムですみません）、
procedure TMyThread.execute
begin
Form1.MyThreadFinish:=false;
try
：
finally
Form1.MyThreadFinish:=true; (1)
end;
end;
とかやっただけだと(1)の部分でご指摘のエラーが発生する可能性があります。
そこでこれを避けようと、真っ先に気づくのは既出のように
procedure TForm1.destroy
begin
Mythread.terminate;
end;
とかやることですが、これだけではダメなことは既に指摘したとおりであり、
もうどうしていいかわからなくなりパニクる（私だけかもしれません）と
いうわけです。

805 ：803：2014/03/30(日) 00:49:20.37 ID:wYL9BvPj.net

>>804
説明、ありがとうございます
実は、このスレッドの話題の発端となった>>716の質問者でもあります

実は初心者なのにネット関連のアプリを公開してしまって
今頃になって基本が分かってないことに気づき慌ててる．．．

アプリ内でFreeOnTerminate := Trueで作ったワーカスレッドが
10近く常時動いてます

終了ボタンをクリックすると、終了を示すグローバル変数をセットし
それ以降はワーカスレッドからメインスレッドへアクセスすることはない

で、聞きたかったのは、親（メインスレッド）が子（ワーカスレッド）よりも
早く終了した場合（もしそんなことが内部的にあるのなら）、
やっぱマズイことがあるのかなってこと

今んとこ終了時にエラーが出たとか聞かないけど、ただ運が
良かっただけってこともあるし．．．

806 ：デフォルトの名無しさん：2014/03/30(日) 07:16:18.49 ID:8jWWG5Ib.net

>>805
おそらく Form1、mythread などというDelphiレベルの話ではなく OS　レベルでの話ということですよね。
私は調べたことがないので、直感でしかありませんが多分メインスレッドが先に終了することなどない
のではないでしょうか。有識者の解答をお待ちください。
いずれにせよそういう疑問を生じさせてしまうのは、死期がはっきりしないという
FreeOnTerminate := Trueの功罪だと私は思います。

807 ：デフォルトの名無しさん：2014/03/30(日) 12:50:46.18 ID:B4XYVLF4.net

つ ttp://msdn.microsoft.com/ja-jp/library/cc429099.aspx

少なくとも >>805 で問題になることはない。ただグローバル変数ではなく同期オブジェクトを使うのが
望ましい。

>>806
ＦｒｅｅＯｎＴｅｒｍｉｎａｔｅの功罪って意味不明。FalseならどこかでFreeしなきゃいけないし、Trueなら
勝手にFreeされるので止めた後はアクセスしちゃいけない、それだけ。それにプロセスの終了時は
Windowsがリソースの回収を行うので実際はFalseでもFreeする必要がない(好みじゃないけど)。

808 ：デフォルトの名無しさん：2014/03/30(日) 16:53:22.21 ID:8jWWG5Ib.net

>>807
意味は・・・また話がこじれそうなのでやめときます。

809 ：デフォルトの名無しさん：2014/03/31(月) 14:32:49.41 ID:rltgWKkD.net

この話まだ引っ張ってたのか
頭の固いキチ○イがいると大変だな…

810 ：デフォルトの名無しさん：2014/04/02(水) 23:46:20.07 ID:/gW5Cj+p.net

ちょっとお知恵をお貸しください

アプリで二重起動防止とか、よくありますが
たとえば自分のPC（開発環境）だけは
二重起動を可能にする方法とかあります？

できれば、まったく同じ実行ファイルで実現したい

811 ：デフォルトの名無しさん：2014/04/02(水) 23:49:00.27 ID:8b9j8yIQ.net

>>810
適当にテキストファイルでも何でもいいからファイルかフォルダを用意してそれがあれば二重起動可能にするとか
どうとでもなる

812 ：デフォルトの名無しさん：2014/04/02(水) 23:58:18.35 ID:/gW5Cj+p.net

>>811
すばやいレス、ありがとうございます

その方向ですよね

あとは起動オプションを使うかですかね

813 ：デフォルトの名無しさん：2014/04/03(木) 00:49:18.37 ID:HsT1tdMS.net

ミューテックス

814 ：デフォルトの名無しさん：2014/04/03(木) 01:38:25.85 ID:CHv47MJA.net

DebugHook ttp://docwiki.embarcadero.com/Libraries/XE5/ja/System.DebugHook

815 ：デフォルトの名無しさん：2014/04/03(木) 13:58:35.25 ID:hMZDUBRj.net

>>814
ありがとうございます

ちょっと事情があって、開発環境のあるPCでは
Delphi IDE内で実行するときだけでなく
そのPC上で実行するすべての場合で
アプリの二重起動を可能にしたいので．．．

816 ：デフォルトの名無しさん：2014/04/03(木) 17:37:29.19 ID:+zs34Az8.net

最近のDelphiはドットネットというのに乗せないと動かないとききました。

現状 Windows8.1 64bit の上でD6がいちおう動くようなのでとりあえず使ってるんですが、
やっぱり新しいのにしないとまずいことがあるのですかね？

機能的にはD6で十分なのです

817 ：デフォルトの名無しさん：2014/04/03(木) 20:36:01.67 ID:Ug9VViSs.net

>>816
2004年くらいからタイムスリップしてきましたか？

818 ：デフォルトの名無しさん：2014/04/03(木) 21:14:58.98 ID:e0k67vMi.net

おれもRAD XE2まで持ってるがDelphi7,CBuilder6ばっかり使ってるな

819 ：デフォルトの名無しさん：2014/04/04(金) 14:45:50.82 ID:RM+Iq64G.net

6ではUnicodeにしかない文字を含むパスを渡されるとデフォルトでは読み込めないから
わざわざUnicodeに対応した処理を自分で実装しないといけないってのは面倒
自分専用ならパス側を書き換えて対処すればいいけど、外に出すアプリでそれは強要できないし6は正直無い
あと言語の拡張を考えると6と2009以降では生産性が倍以上は違うと思う
ただIDEの出来は6の方がよかった

820 ：デフォルトの名無しさん：2014/04/04(金) 15:30:05.33 ID:YgvVnaBl.net

すみません、Delphi側でフォームを用意し、そこに入力した文字列を、ボタンを押す事によりFirefoxなどのブラウザの、例えば通販での個人情報入力フォームに反映させるようにしたいのですがどんなメソッドが必要でしょうか？

質問が下手で申し訳ありません
ちなみにDelphi7をWindows7で使っています
よろしくお願いします

821 ：デフォルトの名無しさん：2014/04/04(金) 16:00:36.20 ID:Lb1wU2ET.net

>>819
倍も違うほど何が変わった？

822 ：デフォルトの名無しさん：2014/04/04(金) 16:18:07.61 ID:ebHBrSE5.net

>>820
FireFoxのことは知らないけど
TWebBrowserを使って、Formなどの要素に書き込んだり
ボタンを押す動作を制御することはできる

検索すれば、いろいろと出てくると思う

823 ：デフォルトの名無しさん：2014/04/04(金) 19:32:30.17 ID:Io3jP59G.net

＞6ではUnicodeにしかない文字を含むパスを渡されるとデフォルトでは読み込めないから
＞わざわざUnicodeに対応した処理を自分で実装しないといけない
一発変換かますだけだろ
自分で実装する必要はないわな

824 ：デフォルトの名無しさん：2014/04/04(金) 23:54:12.31 ID:HNmjO1Jh.net

え？「c:\☑\☒.txt」っていうファイルを D6 の TMemo に読み込むのに「一発変換」という
簡単な方法があるんですか？

825 ：デフォルトの名無しさん：2014/04/05(土) 07:09:19.43 ID:Jx7qT/sh.net

そういうわながあるのか。。　　　しかしまあ困るというほどではないかも。

826 ：デフォルトの名無しさん：2014/04/09(水) 16:31:22.56 ID:PRO2eP0Z.net

>>823
一発変換って何？
SJISに変換できない文字があったらVCLのLoadFromFileじゃ絶対読めないけど。
例えば自分で実装せずにTStringList.LoadFromFileする一発変換ってどうやるの？
仮にファイル名に使われている文字がSJISの仕様内におさまっても、
ファイルの中身がSJISに変換できないUnicodeテキストだったらどうやって表示するの？
これも一発変換で表示できるの？

827 ：デフォルトの名無しさん：2014/04/09(水) 16:58:18.78 ID:5wEyC0tG.net

すでにツッコミが入ってるだろーが

828 ：デフォルトの名無しさん：2014/04/09(水) 18:09:07.64 ID:LeGZTXio.net

おまいらマジに
GetShortPathName
で変換することを知らんのか
ってかここは超初心者用だったな

829 ：デフォルトの名無しさん：2014/04/09(水) 18:25:26.16 ID:Kpy3Opz4.net

なんであんなに必死なんだ

830 ：デフォルトの名無しさん：2014/04/09(水) 18:30:35.62 ID:PRO2eP0Z.net

>>828
もしかして今は短いパス名をサポートしない環境があるのを知らない？
ってここは超初心者用だったな、すまん

831 ：デフォルトの名無しさん：2014/04/09(水) 19:08:57.91 ID:2PCUc7IP.net

とりあえずそんなおかしな名前付けるな　で済む

832 ：デフォルトの名無しさん：2014/04/09(水) 21:31:16.62 ID:XdnhU9kU.net

他国とのやりとりをしていると平気で出てくるんだよ
ファイル名もテキスト内容も＞うにこ

833 ：デフォルトの名無しさん：2014/04/09(水) 23:34:49.77 ID:klWzwYGP.net

ファイル名はWideStringに入れて、CreateFileWでファイルをオープンして、THandleStreamで扱う、ってことになるわな。

834 ：デフォルトの名無しさん：2014/04/11(金) 14:55:10.26 ID:UXPfM29I.net

831にとってはおかしな名前でも、その国の人にとっては常用する普通の文字だしな
まさに井の中の蛙だねぇ…

835 ：デフォルトの名無しさん：2014/04/15(火) 21:00:02.58 ID:y7/bYr71.net

>>835
すべてoffという特性は、TRadioButtonには適していないと思う。

複数のTSpeedButtonのGroupIndexを同一にし、かつAllowAllUpをTrueにしたほうが良い気がする。

836 ：デフォルトの名無しさん：2014/04/15(火) 21:00:35.52 ID:pnw/AVzK.net

procedure TForm1.Button1Click(Sender: TObject);
begin
RadioButton1.Checked:=not RadioButton1.Checked;
end;

TRadioGroup も考えてみて
procedure TForm1.Button2Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex<0 then
RadioGroup1.ItemIndex:=0 else
RadioGroup1.ItemIndex:=-1;
end;

837 ：デフォルトの名無しさん：2014/04/15(火) 21:44:38.50 ID:WV05oYWg.net

ラジオボタンってなんでそう呼ばれるのか、若い人にはわからないよなぁとか思ったり

838 ：デフォルトの名無しさん：2014/04/16(水) 01:33:42.30 ID:0PIdiqLV.net

>>835-837
やっぱラジオボタンだけじゃ無理っぽいですね。
チェックボックスのほうが無難かな．．．
ちょっと文字情報付のボタンが欲しかったんで

どれか1つのボタンだけOnで、そのOnのボタンをクリックすると
それもOffになって、全部Offを許容するって感じで

ちょっとコンポーネント調べたんですが、そんなのないですね

>>837
昔のラジカセのボタンみたいなもんでしょうか？
そういえば、カーラジオも選局ボタンがそんなんだったような

839 ：デフォルトの名無しさん：2014/04/16(水) 22:18:31.95 ID:r3bnRP8n.net

質問です、
Windows7でRAD Studio XE5を使用し、FMXの練習をしています。
ttpwww.gesource.jpweblogp=6214
このページの下にあるサンプルアプリケーションのソースをそのままコピーしたのですが
DrawBitmapの部分で中身が空として扱われてしまいImageLargeが表示されませんでした
ImageSource,ImageSmallは正常に表示されます。
どのような原因だと思われるでしょうか。

840 ：デフォルトの名無しさん：2014/04/20(日) 12:24:07.84 ID:sTP8AN8M.net

こちらの環境はWindows7,lazarus1.2です。
「デスクトップの表示」をしても消えないウインドウをつくりたいです。
昔は、TForm.createのなかでParentWindow:=FindWindow('Progman',NIL)という定番のやり方があったのですが、仕様が変わったらしくうまくいきません。
（窓が表示されない）
ネットで調べて、ProgmanのかわりにSHELLDELL_DefViewやWorkerWをいれてもだめでした。（デスクトップの表示できえる）
ParentWindow:=GetDesktopWindow（）;も試したのですがデスクトップの表示できえました。
ガジェットみたいに「デスクトップの表示」をしても消えないウインドウを作るにはどうしたらいいのでしょう。

841 ：デフォルトの名無しさん：2014/04/21(月) 14:17:40.96 ID:p2n411o8.net

ここはDelphiスレです
Lazarusは専用スレがあるのでそちらへどうぞ

842 ：デフォルトの名無しさん：2014/04/22(火) 00:06:55.28 ID:aZUtwyKC.net

つかWin32の質問だよな

843 ：デフォルトの名無しさん：2014/04/22(火) 00:33:15.43 ID:1mdNhLZv.net

Delphi使いは心が狭いな

844 ：デフォルトの名無しさん：2014/04/22(火) 03:00:46.32 ID:P7vsKsdx.net

心の面積とは関係ないような…

845 ：デフォルトの名無しさん：2014/04/22(火) 06:15:48.57 ID:Wc/R4HT8.net

デスクトップの表示ってすべてのアプリを最小化してるのか？
なんらかのmessageが飛んできてるからそれを無視すりゃいい

846 ：デフォルトの名無しさん：2014/04/22(火) 10:23:00.24 ID:Zs7S976a.net

マッピングからはずしてる。
ParentWindow:=nilにしてるという感じ。

847 ：デフォルトの名無しさん：2014/04/22(火) 12:29:37.74 ID:z8WHMXPV.net

教えてくれないと入金催促画面が作れません！！！

848 ：デフォルトの名無しさん：2014/04/22(火) 13:47:00.21 ID:0UJjYfLY.net

UFC 128 - : ジョン・ジョーンズ vs. マウリシオ・ショーグン
https://www.youtube.com/watch?v=wia_sFsAf6g

849 ：デフォルトの名無しさん：2014/04/22(火) 21:34:26.20 ID:aroCR4mU.net

>>840
壁紙に書いちゃえ

850 ：デフォルトの名無しさん：2014/04/22(火) 22:12:14.91 ID:z8WHMXPV.net

天才現る

851 ：デフォルトの名無しさん：2014/04/22(火) 23:11:42.43 ID:K9jQM/w0.net

>>840
WM_MOVEを監視して常にデスクトップ領域内に入るよう監視・調整する

852 ：デフォルトの名無しさん：2014/04/23(水) 06:55:12.12 ID:7+voQcmr.net

>>846
マッピングをいじるわけではないだろう。
アエロなしだと'Progman'、アエロだと'WorkerW’の管理する窓が一番前にきて他の窓を隠す。

853 ：デフォルトの名無しさん：2014/04/27(日) 16:11:50.02 ID:9pN9ZCWS.net

XE2で#20以下の文字をエスケープ、アンエスケープする関数が(なるべく標準で)あったら教えて下さい

'aaa'#13#10'bbb' <-> 'aaa#13#10bbb'

854 ：デフォルトの名無しさん：2014/04/27(日) 16:15:00.00 ID:9pN9ZCWS.net

>'aaa'#13#10'bbb' <-> 'aaa#13#10bbb'

これはあくまで例で、書式の指定は特に無いです

855 ：デフォルトの名無しさん：2014/04/27(日) 16:51:21.96 ID:sr/2zxN+.net

書式はなんでもいいから「#20以下だけ」ってことか・・
そんなものないと思うけどな

856 ：デフォルトの名無しさん：2014/04/28(月) 10:49:56.95 ID:+tUkPlgE.net

XE6でLiveBindingをしているのですが
NumberBoxのValueなどを双方向にバインドすることは可能なのでしょうか

857 ：デフォルトの名無しさん：2014/04/28(月) 20:57:14.17 ID:TqlVJspb.net

>>856
NumberBoxではなく、Gridだけど、UIコントロールのSynchプロパティをバインドするといいよ、ってのをマニュアルで見かけた。

多分ここ

http://docwiki.embarcadero.com/RADStudio/XE5/ja/LiveBinding_を使ったデータの同期

858 ：857：2014/04/29(火) 11:27:25.81 ID:mwSTMqLJ.net

>>857
ありがとうございます！試してみます

859 ：857：2014/04/30(水) 19:50:18.37 ID:IRsEECXr.net

>>857
自分はNumberBox(数値設定用コンポーネント)のValueのように、LiveBindingデザイナにデフォルトで表示されないメンバから
DBのフィールド等の値を変更したいと思っていまして、貼っていただいたURLの内容では目的が達せられませんでした。すみません。
ベタにコーディングするしか無いでしょうか。

860 ：デフォルトの名無しさん：2014/05/01(木) 22:30:17.61 ID:31i14fQn.net

Delphi XE5 で Android アプリを作っています。
TMainMenu/TPopupMenu/TMenubar はモバイルに対応していないようですが、メニューボタンに対応させるにはどうすれば良いでしょうか。

861 ：デフォルトの名無しさん：2014/05/04(日) 20:43:23.18 ID:LhkWbjgu.net

ホント、素人な質問で申し訳ないんだけど。。。

フォームにコンポーネント（って言うのかな。ラベルとかエディットとか）を貼り付ける
というとこまでは分かったんですが、そうするとＤＥＬＰＨＩが自動的にプログラムを
書いてくれる。で、やたら(sender:tobject)というのが出てくるのですが、これって
何なのでしょう？
senderは送る者、tobjectはルートクラス？　何が何やら・・・

862 ：デフォルトの名無しさん：2014/05/04(日) 21:22:38.92 ID:Hhfw7Ggo.net

多態性について学習するよろし。
型宣言が増えまくるのを抑止する手段＞継承元クラスで一緒くたに扱う

863 ：デフォルトの名無しさん：2014/05/04(日) 21:42:22.72 ID:LhkWbjgu.net

>>862
なかなか奥が深いですねぇ。
田舎住まいでしかもインターネットができないので調べるのも一苦労ですが、
今日は都会に来ているので本屋さんに行ってきます。多態性をキーワードに
すればいいわけですね。ありがとです^^

864 ：デフォルトの名無しさん：2014/05/04(日) 22:00:57.52 ID:gHxTmPz5.net

最近は本屋行かなくなっちゃったから分からないけど
あんまり本は頼りにならないというか
そもそも売ってないと思うよ
当時でさえそうだったんだから今はますます（略）
本屋より図書館の方がいいかも
まぁ置いてあればの話だけど
やっぱりネットが一番だと思うけどね

865 ：デフォルトの名無しさん：2014/05/05(月) 01:47:01.38 ID:pYH7L/RU.net

昔はDelphiの入門書が結構あったのに最近見かけないね
入門する人がいなくなったのかな

で、技術評論社の「Delphiオブジェクト指向プログラミング」ってのに
お世話になった。もう15年以上も前の話だけど

866 ：デフォルトの名無しさん：2014/05/05(月) 07:18:01.71 ID:vaZjyLth.net

漫画喫茶でもテキトーに入れば入門の情報はいくらでもある
要は自動生成されたコードの意味がわからんってことだろう

867 ：デフォルトの名無しさん：2014/05/05(月) 10:07:02.66 ID:NN5JEBAd.net

>>865
当時 Delphi 関連書籍は流通を押さえてたソフトバンクの策略により書店から姿を消した
代わりにソフトバンクは全国の書店に VB 関連書籍をバラ撒いた

868 ：デフォルトの名無しさん：2014/05/05(月) 18:47:49.07 ID:ztfUYVnN.net

なんでソフトバンクはそんな策略をしたの？
MSからお金を貰ったとか？

869 ：デフォルトの名無しさん：2014/05/05(月) 18:55:58.45 ID:NN5JEBAd.net

>>868
当然、日本マイクロソフト社との裏取引があったのだろう

870 ：デフォルトの名無しさん：2014/05/05(月) 18:58:30.62 ID:orKzLKCf.net

とりあえず、PDFで転がってるOh!No!のDelphi3 Q&A150選でも見とけ

古すぎてアレだがw

871 ：デフォルトの名無しさん：2014/05/06(火) 00:24:10.00 ID:foRc8yiw.net

FMX.Grid.TStringGrid を使っていて2つほどわからないので教えてください。
Delphi XE5 です。

1.文字列がちょうどおさまるようにセルの幅、高さを変えたい。

SG.RowHeight := SG.Columns[0].Canvas.TextHeight('W');
SG.Columns[0].Width := SG.Columns[0].Canvas.TextWidth('99/99 99:99');

とやっていますが、高さは半分、幅は2/3ぐらいになってしまいます。
マージンは0でやっているはずですが、確認することがあればおしえてください。

2.行毎に背景色を指定したい。

いろいろググったのですが、OnDrawCell（XE5では見つかりませんでした）を使う方法や、すべてのセルを変更する方法しか見つけられませんでした。

872 ：デフォルトの名無しさん：2014/05/06(火) 07:31:33.05 ID:najLXRwS.net

SG.Columns[0].Canvas.Font.Name:= "ほにゃらら";
SG.Columns[0].Canvas.Font.Size:= ほにゃらら;

873 ：デフォルトの名無しさん：2014/05/06(火) 10:59:18.95 ID:foRc8yiw.net

>>872
レスありがとうございます。

Font.Name は無かったので、Font.Family に親フォームと同じ値を入れ、
Font.Size にも親フォームと同じ値を入れて試しましたが結果は変わりませんでした。

874 ：デフォルトの名無しさん：2014/05/06(火) 12:38:28.72 ID:w2wxRZ8k.net

>>867
これ本当なの？
マイクロソフトがそこまで脅威として見ていたのか

875 ：デフォルトの名無しさん：2014/05/06(火) 17:46:19.19 ID:mrCqoALn.net

ＭＳがその程度のことをしてもまったく不思議とは感じないのは確かだな
昔から脅迫にちかいことやりまくってるしな

876 ：デフォルトの名無しさん：2014/05/06(火) 19:03:16.28 ID:IUxNATut.net

ＳＢ主導の方がしっくり来るな

877 ：デフォルトの名無しさん：2014/05/06(火) 23:14:09.67 ID:4ff3GRht.net

ソフトバンクはその昔「一太郎」時代にも
えこひいきして他社製ワープロを奈落に突き落としたからな

878 ：デフォルトの名無しさん：2014/05/07(水) 01:17:07.18 ID:XAsHeWQE.net

>>867が事実かは知らないけど、SBはMSからマニュアル類を請け負ってたので
独断で便宜を図っても不思議ではない
気になる人は電脳曼陀羅事件を調べるといいかも

879 ：デフォルトの名無しさん：2014/05/07(水) 10:53:06.57 ID:weHfcyWe.net

英語のキンドル本だけど
Delphi XE2 Foundations - Part 1〜3
プロモーションで１冊分の料金しかかからなかったよ

880 ：デフォルトの名無しさん：2014/05/07(水) 14:29:26.05 ID:9oyvw0L0.net

>>871
1はTStringGridの各セルにデータを表示した後で、
ループ最も幅の長いセルを見つけてそれに合わせればどうだろう
iColWidth := StringGrid1.Canvas.TextWidth(StringGrid1.Cells[i, j]);
if StringGrid1.ColWidth[i] < iColWidth then
　StringGrid1.ColWidth[i] := iColWidth;

2はonDrawCellイベントを使えばラクに実現出来る
Cell内にチェックボックスやゲージなんかも表示できる
onDrawCellイベントが無いなんて有りえない。見間違い。

881 ：デフォルトの名無しさん：2014/05/07(水) 15:03:37.64 ID:63FuNV7B.net

>>880
固定長のものでも幅が合わないので質問しました。
1.はどうやらモバイルアプリケーション開発では正確な TextWidth が返ってこないことが原因のようです。
デスクトップアプリケーション開発では以下の内容でほぼぴったりになりました。
ただ、'+8'もどこかのマージンだと思うので、参照で求めたいのです。

str := 'あいうえおかきくけこ';
StringGrid1.RowHeight := StringGrid1.Columns[0].Canvas.TextHeight(str) + 8;
StringGrid1.Columns[0].Width := StringGrid1.Columns[0].Canvas.TextWidth(str) + 8;
StringGrid1.Cells[0,0] := str;

onDrawCell ですが、やはり見つかりません。'onD'まで入力して補完しようとした画面です。

ttp://i.imgur.com/sXyDyk7.png

モバイル/デスクトップ共に同じでした。

882 ：デフォルトの名無しさん：2014/05/07(水) 20:06:01.19 ID:q8kCwgwY.net

Delphi-MLの3751から3757の流れを見ろ。Canvas.Font.Assign(Font)としてからでないと
Canvas.TextWidth/TextHeightが正しくならないらしい。

883 ：デフォルトの名無しさん：2014/05/08(木) 08:09:33.30 ID:Mn1gWHfA.net

>>882
アドバイスありがとうございます。
ですが効果が無いようです。

フォームにButton1を貼り付け、次のコードを実行しました。

Button1.Text := 'あいうえおかきくけこ';
Button1.Canvas.Font.Assign(Button1.Font);
Button1.Width := Button1.Canvas.TextWidth(Button1.Text);

デスクトップアプリケーションの方は'あ'と'こ'が欠けた状態になりました。
これは枠の分を考慮していないので当然の結果です。
モバイルアプリケーションでは'あいうえお…'となりました。

884 ：デフォルトの名無しさん：2014/05/08(木) 20:33:41.04 ID:xARMff45.net

ん？ボタンの枠のサイズを知りたいってこと？これはスタイルに依存することになりそうなんだが…

885 ：デフォルトの名無しさん：2014/05/08(木) 21:03:03.99 ID:Mn1gWHfA.net

>>884
モバイルアプリケーションで、文字を描画するのに必要な幅（高さ）が間違って取得されるので、
正しい幅（高さ）を求めるにはどうすればよいかって質問です。

元の質問は >>871 です。

886 ：デフォルトの名無しさん：2014/05/08(木) 21:13:09.54 ID:6IjhqXCv.net

TListViewでGroupViewを使用してグループ表示したいのですが、カスタムドローすると、描画がおかしくなります。
というより、各アイテムの描画する矩形を正しく取得できません。
OnCustomDrawItemや、OnAdvancedCustomDrawItemに渡されるパラメータに描画する矩形の
情報が渡されなくて、代わりに、TListItem.DisplayRectで取得しろ？みたいな感じがすべての元凶のような気がします。
Windowsメッセージレベルでは矩形の情報は含まれてるのに、それを全く使わず(TListItem.DisplayRect内部で呼ばれてる)ListView_GetItemRectを使うとかどんな設計なんでしょうか。
助けて下さい。

887 ：デフォルトの名無しさん：2014/05/08(木) 22:36:00.58 ID:+w5OUIZN.net

>>885
いやだからなんでボタンで試してうまくいかないっていってるの？StringGridで試したらどうなるのさ。

888 ：デフォルトの名無しさん：2014/05/08(木) 23:35:29.57 ID:Mn1gWHfA.net

>>887
同じです。
TButtonに変更したのはTStringColumnがおかしいのではなく、Canvas.TextWidth / Canvas.TextHeight がおかしいというのを、最も標準的なコントロールで試したからです。

889 ：デフォルトの名無しさん：2014/05/09(金) 00:39:15.79 ID:yuWrC3zX.net

そんなことをするよりは具体的にTextWidthが何を返したか等を記述した方がいいよね
ライブラリのソースを読むことはできても、実機で試せない人もいれば他の環境では再現しない可能性だってあるんだし
少なくとも効果があったかなかったかは問題を解決できてないあなたが勝手に判断したらまずいでしょ
TButtonでどうだったかを示されたところでTButtonはTButtonであってTStringGridじゃないし

890 ：デフォルトの名無しさん：2014/05/09(金) 01:18:37.86 ID:/onGlIxd.net

てぇかここじゃなくてMLかフォーラムで聞いたほうがいいと思う。できれば最小限の再現コード付きで。

891 ：デフォルトの名無しさん：2014/05/09(金) 02:24:37.98 ID:g/8QCC4u.net

>>886
TListviewのcustomdrawは自分も結構悩まされるな
色々検索しても、これはって言う回答はなかなか見つからない

最近は色々試行錯誤して(偶然)うまくいったのが回答だと考えてる

892 ：デフォルトの名無しさん：2014/05/09(金) 10:42:24.63 ID:m3mnutMb.net

>>889
デスクトッププロジェクトとモバイルプロジェクトを作成し、双方にTStringGrid/TButtonを貼り付け、
TStringGridは項目の追加でTStringColumnを1つ追加しています。
コードは同じで

procedure TForm2.Button1Click(Sender: TObject);
var
str:string;
begin
str := 'あいうえおかきくけこ';

Button1.Text := str;
Button1.Canvas.Font.Assign(Button1.Font);
Button1.Width := Button1.Canvas.TextWidth(str);

StringGrid1.RowCount := 2;
StringGrid1.Columns[0].Canvas.Font.Assign(Button1.Font);
StringGrid1.Columns[0].Width := StringGrid1.Columns[0].Canvas.TextWidth(str);
StringGrid1.Cells[0,0] := str;
StringGrid1.Cells[0,1] := StringGrid1.Columns[0].Canvas.TextWidth(str).ToString;
end;

結果が以下の画像です。（左がデスクトップ、右がモバイル）
ttp://i.imgur.com/wxIk829.png

フォントが違うにもかかわらず、双方ともTextWidthは82.01123046875を返しています。
モバイルプロジェクトでは、TextWidthはあてにならないということなのでしょうか・・・

893 ：デフォルトの名無しさん：2014/05/10(土) 07:52:36.35 ID:AvOE9ejC.net

偶然同じ値になるなどまずありえんわな。
そこを追求してかないと。

894 ：デフォルトの名無しさん：2014/05/10(土) 07:53:24.91 ID:AvOE9ejC.net

仮に違うフォントが使われているとしたら、偶然同じ値になるなどまずありえんわな。
そこを追求してかないと。

895 ：デフォルトの名無しさん：2014/05/10(土) 09:16:54.90 ID:mf5lm0WO.net

単位がピウセルじゃないから…

896 ：デフォルトの名無しさん：2014/05/10(土) 12:13:44.02 ID:jNvYpmR+.net

？

897 ：デフォルトの名無しさん：2014/05/10(土) 17:08:42.21 ID:hRNlgmq3.net

FireMonkeyよく知らないけど、そもそもコントロールのフォントとスタイルのフォントは別物だから当然じゃないの？
ちゃんとスタイル適用しないように設定変えてる？

898 ：デフォルトの名無しさん：2014/05/14(水) 16:33:02.91 ID:fkiecfrZ.net

勤め先はPC関係でもなんでもないのですがdel7proがあります。
ネットで調べたらwin8の64bitでもインストOK、動作OKと書いてあるサイトがありました。
ウィンドハンドルとか調べるツールも動作するんでしょうか?
32bitのwindowsなら動く気がするのですが、64bitだとどうでしょうか？
インストールして自分で調べればいいのですが、会社のPCには気軽にソフトを
インストールしてはいけないので、教えてください。

899 ：デフォルトの名無しさん：2014/05/14(水) 18:21:44.15 ID:Vdg2wSF3.net

>>898
Windows 7 64bit に Delphi 7 Pro を入れてバリバリ使っています
F1 キーの状況感知ヘルプが上手く動作しない以外は不都合を感じません

900 ：デフォルトの名無しさん：2014/05/14(水) 20:36:09.41 ID:rcx5Ml4g.net

Turbo Delphi Explorerを古本の付録でインストールしてみましたが、許諾ファイルが手に入りません
何とか使う方法は無いですか？

901 ：デフォルトの名無しさん：2014/05/14(水) 21:05:14.25 ID:fPvjsynC.net

https://reg.codegear.com/srs5/serial_number.jsp

902 ：デフォルトの名無しさん：2014/05/14(水) 22:53:04.28 ID:rYahtUE4.net

>>898
そういえばどうなんだろうと昔 Delphi5 で作成した Handle、Caption 取得するソフトを動かしてみた
64bit ソフトの情報も問題なく取得できました

903 ：デフォルトの名無しさん：2014/05/15(木) 17:28:49.83 ID:NpaGHGTx.net

ちょっと教えてください。

自分で開発したアプリを人に上げるとき
含める必要のあるファイルは何でしょう？

*.pas、*.dfm、*.dpr、*.resファイルは必要ですよね

*.dprojファイルも必要ですか？

その他、不足してるファイルがありますか？

904 ：デフォルトの名無しさん：2014/05/15(木) 18:12:55.76 ID:mqKLvEHr.net

なんで exe以外が必要？　ていうかインストーラでまとめてリリースするやろ
ソースもつけるのなら、できたファイル全部だし、

905 ：デフォルトの名無しさん：2014/05/15(木) 18:24:36.25 ID:NpaGHGTx.net

>>904
レスありがとうございます。

実行ファイルではなく、ソースを配布したいと思いまして．．．

で、コンパイル等で生成されるファイルには、パス情報とか
個人情報が含まれてるのもあるみたいで、ソース配布には
最低限、どのファイルが必要なのかと思いまして。

906 ：デフォルトの名無しさん：2014/05/15(木) 19:06:54.73 ID:YEyMKVb+.net

resは自分でリソース含めたりアイコン作ったりしていないのであれば
無くてもIDEが自動生成するからいらない場合もある
ソース部分は基本的に最初に挙げた3つでOK

907 ：デフォルトの名無しさん：2014/05/15(木) 19:14:24.12 ID:c9jY4n9p.net

>>905
D6 だけど、*.dprojファイルはいらない。

*.dpr
*.pas、*.dfm、*.res

この４つで良いと思う。
特別な外部コンポーネントを使ってるのなら
それの入手方法を知らせるなり、仲間内ならそのコンポーネントをセットで

908 ：デフォルトの名無しさん：2014/05/15(木) 19:42:27.16 ID:J6CNeC2R.net

>>900
受付終了なので、正規手段では不可能
http://itpro.nikkeibp.co.jp/article/MAG/20070626/275987/

http://keygens.nl/でパッチがダウンロード出来るが、利用は自己責任で

909 ：デフォルトの名無しさん：2014/05/15(木) 19:57:48.61 ID:NpaGHGTx.net

>>906-908

リソースには何も登録してないので
*.pas、*.dfm、*.dprファイルのみにします。

ありがとうございました。

910 ：デフォルトの名無しさん：2014/05/16(金) 15:57:50.91 ID:7/ABzJ5o.net

Delphi XE6のVCLでスタイルを適用すると、TEditのColorなどが全て統一されてしまうようなのですが、
個別に変更することは可能でしょうか？

911 ：デフォルトの名無しさん：2014/05/18(日) 13:19:59.16 ID:OIeu8RRW.net

DelphiでHTMLタグをエスケープする関数とかありますか？

< --> &lt;
> --> &gt;
& --> &amp;
" --> &quot;

こういう変換をしたいんですけど、自前で書くしか方法はないんでしょうか。

912 ：デフォルトの名無しさん：2014/05/18(日) 17:37:31.86 ID:VX0o3int.net

HTTPApp.pasにHTMLEncodeとHTMLDecodeがあるけど。

913 ：デフォルトの名無しさん：2014/05/18(日) 18:44:20.48 ID:tiXNBR85.net

>>911
regular expression実装されてるからそれでやればいいと思うよ

914 ：デフォルトの名無しさん：2014/05/18(日) 20:59:01.20 ID:zXBFYmAa.net

>>912
http://www.blackcatlab.com/article.php/ProgramingFAQ_del0080
[Delphi] HTTPApp.HTMLEncodeの不具合

915 ：デフォルトの名無しさん：2014/05/18(日) 21:00:36.34 ID:zXBFYmAa.net

2010以前なのかな
http://ht-deko.minim.ne.jp/tech051.html#QC78903

916 ：デフォルトの名無しさん：2014/05/22(木) 08:04:37.04 ID:R/n1HVqS.net

なんと PeaZip は Lazarus製ではないですか！

917 ：デフォルトの名無しさん：2014/05/24(土) 15:36:40.50 ID:YQpzfHL3.net

以前メディアプレイヤーで質問した者です。
色々調べた所MediaPlayer系をいじるのには
MCIを直接いじらなければならいようだという
ことが分かったのですが、
MCIについて勉強するに適したものはありますか？

WindowsMediaPlayerもボリュームコントロールを出来ないようでした。
もし、示唆等いただけましたらよろしくお願いいたします

918 ：デフォルトの名無しさん：2014/05/24(土) 15:49:44.54 ID:hlo3j/US.net

http://www13.plala.or.jp/kymats/study/multimedia.html

919 ：デフォルトの名無しさん：2014/05/25(日) 09:03:44.57 ID:WJDhxoAu.net

>>918
ありがとうございました。早速印刷しましたので勉強させていただきます。

920 ：デフォルトの名無しさん：2014/05/26(月) 14:39:58.61 ID:svaviP7r.net

はるか昔に非推奨になって後は死に行くのみのAPIを今更勉強するの…？
それ以前にMCIじゃ個別の音量設定なんてできないし

921 ：デフォルトの名無しさん：2014/05/26(月) 19:50:32.54 ID:rKneIVz3.net

delphiでオーディオ再生だとNewACってのがいいと思う
コンポーネント貼り付けて簡単に再生できるし

再生できるには*.wav、*.mp3、*.wmaなどなど
ボリュームや再生速度も簡単に指定できる
自作のフリーソフトで使ってるけど結構いいよ

難点はDirectSound終了でNewACの開発も終了しちゃったこと


．．．って、動画も再生するんだっけ？ じゃ、ダメだね

922 ：デフォルトの名無しさん：2014/05/26(月) 20:05:21.38 ID:En0fnIi5.net

WMPとかFlashPlayerとかVLCとかをActiveX貼り付けで使えるけど、だめなん？

923 ：デフォルトの名無しさん：2014/05/26(月) 20:10:50.35 ID:En0fnIi5.net

あとは html 吐いて、ブラウザで表示させるのが楽かも

924 ：デフォルトの名無しさん：2014/05/28(水) 06:26:39.46 ID:B4+4ztrr.net

>>920
そうなんですか？
手持ちのソフトやサンプルソースが
MCI使っていたので…

他に良い制御系があるのでしょうか？

925 ：デフォルトの名無しさん：2014/05/28(水) 07:57:11.89 ID:LKrLROO8.net

>>924
ttp://docwiki.embarcadero.com/RADStudio/XE5/ja/FireMonkey_%E3%81%A7%E3%81%AE%E3%82%AA%E3%83%BC%E3%83%87%E3%82%A3%E3%82%AA/%E3%83%93%E3%83%87%E3%82%AA

じゃダメ？

926 ：デフォルトの名無しさん：2014/05/28(水) 09:18:48.20 ID:IF06EKAI.net

https://code.google.com/p/sakuramml/

927 ：デフォルトの名無しさん：2014/05/28(水) 09:33:36.36 ID:IF06EKAI.net

↑
ソース
https://code.google.com/p/sakuramml/source/browse/#svn%2Ftrunk

928 ：デフォルトの名無しさん：2014/05/28(水) 15:42:01.29 ID:2wPOB5Uj.net

便乗して質問するけど
Media Foundationを簡単に扱える
コンポーネントって出てる？

929 ：デフォルトの名無しさん：2014/05/28(水) 23:57:18.16 ID:hE6fxPKH.net

コンポーネントは出てないと思うが、そもそも基本的な事をするぐらいならMedia Foundationで簡単に扱えるし。
http://msdn.microsoft.com/library/windows/desktop/ms694197%28v=vs.85%29.aspx
英語読むの苦にならないのならだけど

930 ：918：2014/05/29(木) 06:05:02.27 ID:FkL52Gv9.net

>>925
Live 2chに変えたせいで>>918-922に気づきませんでした。

931 ：929：2014/05/29(木) 18:23:52.12 ID:U5vZ2NRt.net

>>929
英語を読むのは平気だけど
アプリの中で効果音的にちょっとオーディオ再生するだけのために
Microsoftのサイトを読んでゼロからプログラミングするのは
少し効率が悪いかも

932 ：918：2014/06/04(水) 17:34:52.13 ID:9Ld+1Bja.net

NewAC 2.61やっと見つけました。
使用方法とか説明しているサイトとか有るでしょうか？
やりたいことは、wavとmp3のコントロールです。

933 ：デフォルトの名無しさん：2014/06/04(水) 20:28:52.83 ID:gFPb9jxH.net

recordと暗黙のキャスト使えば

s: TString;

s := 'hello';
if s.pos('e')>0 then...

とか書けそうだけど
TString, TInteger, TDoubleといった基本型のラッパーライブラリを
気合と根性で作ったものって無いの？

934 ：デフォルトの名無しさん：2014/06/04(水) 23:04:38.42 ID:rS3+cXLk.net

>>933
2010以降なら、record helperを使ってがんばって自前で用意、
XE3以降なら、各種recor helperが標準で用意されてるけど、
これらよりも前のバージョンでの利用を考えてる？

935 ：デフォルトの名無しさん：2014/06/04(水) 23:22:02.87 ID:vvtrsgyN.net

>>932
NewAc261でWavやmp3を再生するだけだったら
デモアプリが参考になると思う

newac261.zip\newac261\demos\Players\AudioPlayer


あとはヘルプがhtmlファイルになってるので
index.htmlファイルから適当に

936 ：デフォルトの名無しさん：2014/06/05(木) 16:01:34.01 ID:4fEc3xBU.net

最新の XE6 で作成したプロジェクトのソースをサンプルとして配布したいのですが、
XE5 以前(〜2009 あたりまでを想定)で正常に読み込みできるのでしょうか。
使用しているコンポーネント等は標準的なものです。

937 ：デフォルトの名無しさん：2014/06/05(木) 16:05:17.90 ID:D5lArFFw.net

そんなの内容にもよるから何とも言えないし、自分で試してみればいいだけのような
XE6持ってるならライセンスあるんだし

938 ：デフォルトの名無しさん：2014/06/05(木) 16:33:03.85 ID:4fEc3xBU.net

>>937
おおせの通りなんですが、わざわざそのために昔のバージョンをインストール
するのもなあというのもありまして。
まあ Unicode 対応の 2009 と 64bit 対応の XE2 あたりを入れて試して
みます。

939 ：デフォルトの名無しさん：2014/06/06(金) 07:30:37.85 ID:6OfeBEdh.net

>>934
サンクス
XE6Trial落としてみたけどいちいちTStringとか作らなくても
showmessage('hello'.length.tostring)
とか普通にできるように拡張されてるんだね
しかもXE3からとか
XE2買っちゃったのが悔やまれる…
XE6安いから買っちゃおうかな

940 ：デフォルトの名無しさん：2014/06/07(土) 08:00:41.45 ID:6LoUSKZr.net

UTF16めっっちゃおせぇぇぇぇぇぇ

941 ：デフォルトの名無しさん：2014/06/07(土) 18:53:26.75 ID:U8sWAyx/.net

Delphi7です
リッチエディットで任意の場所にある文字列の文字装飾を知るためには必ず選択状態にして
SelAttributesを見るしか方法はないのでしょうか？
例えば太字になっている部分を検索したり、書き換えたりするときに
プログラム内部で一文字ずつ選択して調べるのでしょうか？
長い文章だと相当時間がかかりそうです

942 ：918：2014/06/09(月) 13:01:16.65 ID:K7gwbRPX.net

>>935
でもアプリをコンパイルしようとすると、コンポーネントが無いとか出てきてしまうんです。

943 ：デフォルトの名無しさん：2014/06/09(月) 13:07:06.72 ID:fxFPhf5Y.net

コンポーネントが無いなら入れたらいいじゃない(高慢な感じで

944 ：デフォルトの名無しさん：2014/06/09(月) 15:18:14.49 ID:HLpaXUPq.net

>>942
無いと指摘されたコンポーネントがNewACだったら
NewACが正しくインストールされてないんじゃないかな

一度アンインストールして、再インストール

それでもインストールできなかったら...\newac261\srcを
検索パスに追加する．．．

945 ：918：2014/06/09(月) 16:42:00.32 ID:K7gwbRPX.net

>>944
英語がさっぱり…
何をしたら良いのかさっぱり分かりません…

946 ：デフォルトの名無しさん：2014/06/09(月) 16:55:05.37 ID:fxFPhf5Y.net

エラーメッセージも書かずに質問とな
英語くらいgoogle先生とかexcite先生に訳してもらえ

947 ：デフォルトの名無しさん：2014/06/09(月) 19:46:39.50 ID:u+LuodF+.net

codesite.exe -send hello
みたいに使えるCodeSiteLoggingのラッパーツールって無いですか

948 ：918：2014/06/10(火) 06:15:23.34 ID:DxaG/FAR.net

プロジェクトを呼び出すと
クラスTVorbisInが見つかりません。エラーを無視して実行しますか？
注意:エラーを無視すると、コンポーネントまたはプロパティが失われる可能性があります

とでます。

NawAC6.1をインストールするにも解説しているサイトが無いのでどうしたら良いか…

949 ：デフォルトの名無しさん：2014/06/10(火) 06:30:57.98 ID:VLOfpc1m.net

>>948
てか、コンポーネント/パッケージをインストールする方法をまず調べたら？
インストール方法は共通だよ

950 ：デフォルトの名無しさん：2014/06/11(水) 19:30:47.40 ID:Bs2QtGfm.net

type
TMyClass = class(TMyBaseClass);
...
initialization
RegisterMyClass(TMyClass);

この手の登録処理を省きたいんですが
RTTI使って全クラスを列挙してTMyBaseClassの派生クラスを抽出する方法ないですか？

951 ：デフォルトの名無しさん：2014/06/11(水) 21:06:23.57 ID:0Fb7ZLHS.net

TRttiContext.GetTypesで型を列挙して、それぞれのTRttiTypeのTypeKindがtkClassかどうかで
クラスかどうかをチェックして、Handle.Nameでクラスの型名を取得して、TypeData.ParentInfoで
継承元クラスのTypeInfoを取得して、それをずっと辿って継承元にTMyBaseClassが出現するか、ってな
手順になるかな。もし具体的なコードが欲しければここじゃなくて公式フォーラムかMLにどうぞ。

952 ：デフォルトの名無しさん：2014/06/12(木) 17:09:44.54 ID:WVwRtvyG.net

列挙はともかく親までわざわざRTTIで辿らなくてもクラス参照取り出してInheritsFrom呼ぶだけでいいんじゃないの？

953 ：デフォルトの名無しさん：2014/06/12(木) 17:14:45.28 ID:rSU+gR4e.net

それもそうだね

954 ：デフォルトの名無しさん：2014/06/14(土) 04:45:46.47 ID:NSoK88RM.net

// TStringsを乗っ取るサンプル
type
　TStringsHelper = class helper for TStrings
　　procedure Add; overload;
　　procedure Add(s: String); overload;
　　procedure Add(fmt: String; args: array of const); overload;
　end;

{ TStringsHelper }

procedure TStringsHelper.Add;
begin
　Add('');
end;

procedure TStringsHelper.Add(s: String);
begin
　Add(s); ← ここでオリジナルのTStrings.Addを呼び出すのってどうやるの？
end;

procedure TStringsHelper.Add(fmt: String; args: array of const);
begin
　Add(Format(fmt, args));
end;

955 ：デフォルトの名無しさん：2014/06/14(土) 10:28:41.73 ID:pZZwN6gt.net

Self.

956 ：デフォルトの名無しさん：2014/06/16(月) 21:58:08.16 ID:CcnTOfaT.net

inherited;
または
inherited Add(s);

957 ：デフォルトの名無しさん：2014/06/19(木) 07:14:48.98 ID:NCzAFLQA.net

inherited
はうまく行きませんでしたが(実行できたものの何も文字が入らなかった)
inherited Add(s);
はうまく行きました。ありがとうございます。

958 ：デフォルトの名無しさん：2014/06/19(木) 13:56:12.16 ID:5QFFttI7.net

初心者でとんちんかなことを言ってるかもしれませんが教えてください

TGiｆImage.Bitmap.ScanLineを使いたいんですが、
このときの色深度はどうなってるんでしょうか？

TGiｆImage.Bitmap.PixelFormatを調べればいいのですか？
それともPixelFormatを明示的に、たとえばpf24Bitにすればいいの？

Gifだから本来pf8Bitだと思うんですが、得られた値を
パレット色で変換するのですか（GlobalColorMap.Colors[]など）？

効率のいいピクセル値の取得法を教えてください。
よろしくお願いします。

959 ：デフォルトの名無しさん：2014/06/19(木) 17:54:59.52 ID:9F/+Tvyf.net

GifだろうがJpegだろうが内部的にはBitmapでしょ

960 ：デフォルトの名無しさん：2014/06/19(木) 19:34:44.51 ID:5QFFttI7.net

>>959
そうですね。

ダウンロードしてGif.LoadFromStream(TMemoryStream)後、
PixelFormatはpfDeviceになってました。

で、ScanLineで試したところ、pf32Bit相当のフォーマットでした。

pfDeviceって機種依存だと思いますが、1Pixelが何バイトかは
どこから分かるんでしょうか？
2回のScanLineして得たアドレスの差を画像の横幅で割る？

961 ：デフォルトの名無しさん：2014/06/20(金) 09:42:53.62 ID:TWd9CfnL.net

> TGiｆImage.Bitmap.PixelFormatを調べればいいのですか？
これじゃねーの？

962 ：デフォルトの名無しさん：2014/06/24(火) 15:09:10.53 ID:MRk4no2J.net

>>960
何か勘違いしてるがDDBを直接操作する手段は無いからScanLineでは当然触れない
ソースを見れば分かるとおりScanLineを呼び出した時点でDIBに変換されてる

963 ：デフォルトの名無しさん：2014/06/24(火) 18:22:21.83 ID:abfxo/wj.net

>>962
>勘違い...

大いにありえます。DDBとかDIBとかはじめて聞きました
最終目的はネットからダウンロードしたGif画像を高速に
スキャンすることです

どうすれば高速に任意のピクセルの色情報を取得できるでしょうか？



>ソースを見れば

残念ながらStarter使用者です。ソースは参照できません

964 ：デフォルトの名無しさん：2014/06/24(火) 19:40:17.20 ID:y6vzvZsg.net

>>962が言うには、ScanLineを呼び出せばDIBに変換されてるというらしいから、
ScanLineで1,2バイト適当に読んだ後に、PixelFormatをチェックしてみれば？
そしたらお望みのDIBのフォーマットになってるってことじゃね？

965 ：デフォルトの名無しさん：2014/06/24(火) 20:02:10.28 ID:y6vzvZsg.net

つか、TGifImageで適当な画像読んでもPixelFormatがpf8bitになってるけど。
どんな画像読んだんだ？

966 ：デフォルトの名無しさん：2014/06/24(火) 22:44:28.85 ID:abfxo/wj.net

>>965
たぶんアルファチャンネルの有無による違いかと

967 ：デフォルトの名無しさん：2014/06/25(水) 15:24:02.24 ID:2LLNN4pY.net

>>964
なんでそんな無駄なことするんだ
「お望みのDIBのフォーマット」が欲しいなら最初からPixelFormat弄ればいいだろ

968 ：デフォルトの名無しさん：2014/06/26(木) 08:29:30.85 ID:NGdvOluE.net

ScanLineする前にbitmap.PixelFormat := pf24bit で統一しておけばよさそう　アルファチャンネルはいらないでしょ

969 ：918：2014/07/01(火) 19:13:32.79 ID:PUCNylXr.net

すみません。以前wav再生ソフトのボリュームコントロールの

970 ：デフォルトの名無しさん：2014/07/01(火) 19:15:54.89 ID:PUCNylXr.net

すみません。以前wav再生ソフトのボリュームコントロールの
質問した物です。

WindowsMediaPlayerコンポーネントを使おうかと思っていますが、
日本語のSDKって手に入るのでしょうか?
ボリュームコントロールは簡単にできる物でしょうか?

よろしくお願いいたします。

971 ：デフォルトの名無しさん：2014/07/01(火) 21:24:31.31 ID:aOmMjglY.net

ActiveX使えば簡単
SDKとか必要ない
ActiveXでプロジェクトに取り込めばＯＫ

972 ：デフォルトの名無しさん：2014/07/02(水) 09:28:10.80 ID:fePmEt/5.net

でもSDKの資料がないと使い方が分からんね
WMPの資料はWindows7 SDKの資料の中にWMP SDKというのが入ってる
もちろん全部英語

973 ：デフォルトの名無しさん：2014/07/14(月) 11:26:56.90 ID:A2xnrbKD.net

D7でTEditのOnExitで入力内容のチェックをして正しくないときはフォーカスを移動しないようにしたかったのですが
うまくいきません
このような場合どこでチェックをしたらいいのでしょうか

974 ：デフォルトの名無しさん：2014/07/14(月) 11:59:10.95 ID:fik+oCj3.net

>>973
OnExitはフォーカスが移動したときに発生するイベントだからなぁ。
OnChangeでチェックする訳にはいかないの？
それかOnExitでチェックしたあとエラーだったら自分自身にSetFocusするとか。

975 ：デフォルトの名無しさん：2014/07/14(月) 17:14:07.37 ID:+5XDJE2M.net

ちなみにLazarusにはOnEditingDoneイベントというのがあるよ

976 ：デフォルトの名無しさん：2014/07/14(月) 21:10:27.58 ID:MBSGNiM/.net

あーそーですかー

977 ：デフォルトの名無しさん：2014/07/15(火) 11:15:08.24 ID:ar3EwYI5.net

>>974
どうもです
OnChangeだと１文字入力するごとに動いてしまうのでダメでした
OnExitで自分自身にSetFocusして戻ってこれましたっけ?
ダメだったような気がしたが何かミスってたのかな
またやってみます

>>975
Lazarusは使ったことないので

978 ：デフォルトの名無しさん：2014/07/15(火) 11:29:48.33 ID:/OAZiFpr.net

>>977
自分がD7で確認した限りでは上手くいったんだけど…。OnExitの発生する状況
にもよるんかね。
あとは面倒だけどOnChangeで色々と小細工をする。
有効な文字数になるまでチェック処理をスキップするとか
TEdit.Textの内容を保存しておいて前と同じだったらチェックしないとか

979 ：デフォルトの名無しさん：2014/07/15(火) 13:50:36.17 ID:XxK55HNo.net

フォーカス移動のメッセージを、メッセージループで無視してみるとか？　フラグ使って
これなら入力チェックの結果をそのままフラグに使える

これはDelphiのどんなバージョンでも関係なくできる手法

980 ：デフォルトの名無しさん：2014/07/15(火) 14:17:20.89 ID:XxK55HNo.net

だいたいコンポーネントを細かく制御しようとしたらメッセージループに手をつけざるをえない
なんでもかんでもイベントドリヴンでお手軽にやれるわけじゃない
OnChangeで、とか安易に考える人は、開発力が低く、不要にソースを複雑化してデスマーチに陥りがちだろう
細かい制御をするときは、イベントドリヴンな考えから離れてみるべきなんだよ
ある程度経験ある人なら>>978をチラっと見て「こりゃデスマだな」って連想するよ

981 ：デフォルトの名無しさん：2014/07/15(火) 14:21:51.02 ID:ueYQQSJv.net

チェック処理が相当重く無い限りOnChangeで1文字ごとにチェックしてもたかが知れてるような

982 ：デフォルトの名無しさん：2014/07/15(火) 14:37:28.53 ID:/OAZiFpr.net

>>980
あなたが俺より開発力が高いのは分かるんだけどね、上の様な質問をしてくる
人にメッセージループを使いなさいとか言って伝わるんかね。
俺自身分からんからもし質問した人がそれで理解できるなら俺はもうロムってるよ。

983 ：976：2014/07/15(火) 18:02:25.36 ID:MNelpFeK.net

>>977
ソースを参考にすればいいだけなんで
使ったことのあるなしは関係ないよ

984 ：デフォルトの名無しさん：2014/07/15(火) 20:06:33.85 ID:TDrfNmAN.net

普通は糸口を教えてくれた人にお礼を言う
その糸口を調べてる､考える

985 ：デフォルトの名無しさん：2014/07/15(火) 21:45:08.88 ID:s3FJhuBU.net

まあ
結論としては
>>980 は
スレッドのタイトルさえ読むことができないバカ

986 ：528：2014/07/16(水) 09:48:26.85 ID:zPJuhVsB.net

>>528
以前にmp3とwavでボリュームコントロールが一本化できないことで質問した者です。
ttp://delphi.about.com/od/adptips2006/qt/mediaplayer_vol.htm
ではmp3のボリュームコイントロールはできますが、wavには反応しません

>>533ではmp3が反応しません

wmpコンポーネントを埋め込んだときには両方に反応するようにできるでしょうか？
その場合の命令というのはどういった物になるのでしょうか？

987 ：デフォルトの名無しさん：2016/12/26(月) 17:47:08.94 ID:rjPaEzIFh

var
r: extended;
begin
r:= 9.6 - 9 - 0.6;
Memo1.Text:=FloatToStr(r)
end;

結果は 3.25260651745651E-19

そんなアホなと、vbsで同じことをやってみた。

Dim r
r = 9.6 - 9 - 0.6
MsgBox r

-3.33066907387547E-16
だとさ。

誰かひまなやつ理由を語り尽くせ。