Rttiを試してみるその４

以前のポストで、可視性がPrivateのメソッドは、読めないということを
記述しましたが、実際には、

自分で定義したメソッドであれば

コンパイラ指定{$RTTI EXPLICIT METHODS}で
TRttiContextのGetMehtodで列挙する可視性を制御することが可能のようです。

{$RTTI EXPLICIT METHODS([vcPublished,vcPublic,vcProtected,vcPrivate])}

とすれば、すべての可視性の列挙が可能です。（正し、継承元のメソッドには
可視性の制御は及ばない見たいです。）

また、

{$RTTI EXPLICIT METHODS([vcPrivate])}

とすれば、Private可視性のメソッドの列挙が可能です。

以下、検証ように使ったソースです。

view plainprint?

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.  Dialogs, StdCtrls, CheckLst;  
8.   
9. type  
10.  TForm1 = class(TForm)  
11.    Button1: TButton;  
12.    CheckListBox1: TCheckListBox;  
13.    procedure Button1Click(Sender: TObject);  
14.  private  
15.    { Private 宣言 }  
16.  public  
17.    { Public 宣言 }  
18.  end;  
19.   
20. var  
21.  Form1: TForm1;  
22.   
23. implementation  
24.   
25. uses Rtti,Typinfo,Unit2;  
26.   
27. {$R *.dfm}  
28.   
29. procedure TForm1.Button1Click(Sender: TObject);  
30. var  
31.  ctx : TRttiContext;  
32.  rtmary : TArray<rtti.trttimethod>;  
33.  rtm : TRttiMethod;  
34.  obj : TObject;  
35.  Args : Array of TValue;  
36.  rtp : TRttiType;  
37.  idx : Integer;  
38. begin  
39.   
40.  ctx := TRttiContext.Create;  
41.   
42.  //自分で定義したメソッドのみを取得するには、  
43.  //GetDeclaredMethodsを使います。  
44.  rtmary := ctx.GetType(Unit2.TSakaTest).GetDeclaredMethods;  
45.  //rtmary := ctx.GetType(Unit2.TSakaTest).GetMethods();  
46.   
47.  CheckListBox1.Clear;  
48.   
49.  if rtmary <> nil then  
50.  begin  
51.    for rtm in rtmary do  
52.    begin  
53.      idx := CheckListBox1.Items.Add(rtm.Name);  
54.      if rtm.Visibility = TMemberVisibility.mvPrivate then  
55.      begin  
56.          CheckListBox1.Checked[idx] := true;  
57.      end;  
58.   
59.    end;  
60.   
61.  end;  
62.   
63. end;  
64.   
65. end.  
66. </rtti.trttimethod>  

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, CheckLst;

type
 TForm1 = class(TForm)
   Button1: TButton;
   CheckListBox1: TCheckListBox;
   procedure Button1Click(Sender: TObject);
 private
   { Private 宣言 }
 public
   { Public 宣言 }
 end;

var
 Form1: TForm1;

implementation

uses Rtti,Typinfo,Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 ctx : TRttiContext;
 rtmary : TArray;
 rtm : TRttiMethod;
 obj : TObject;
 Args : Array of TValue;
 rtp : TRttiType;
 idx : Integer;
begin

 ctx := TRttiContext.Create;

 //自分で定義したメソッドのみを取得するには、
 //GetDeclaredMethodsを使います。
 rtmary := ctx.GetType(Unit2.TSakaTest).GetDeclaredMethods;
 //rtmary := ctx.GetType(Unit2.TSakaTest).GetMethods();

 CheckListBox1.Clear;

 if rtmary <> nil then
 begin
   for rtm in rtmary do
   begin
     idx := CheckListBox1.Items.Add(rtm.Name);
     if rtm.Visibility = TMemberVisibility.mvPrivate then
     begin
         CheckListBox1.Checked[idx] := true;
     end;

   end;

 end;

end;

end.

view plainprint?

1. unit Unit2;  
2. interface  
3.   
4.    uses classes;  
5.   
6. //   {$RTTI EXPLICIT METHODS([vcPublished,vcPublic,vcPrivate])}  
7.   {$RTTI EXPLICIT METHODS([vcPrivate])}  
8.   Type TSakaTest = Class(TObject)  
9.       private  
10.          function SayPrivateMessage : String;  
11.      public  
12.          function SayPublicMessage : String;  
13.   End;  
14.   
15. implementation  
16.   
17. { TSakaTest }  
18.   
19. function TSakaTest.SayPrivateMessage: String;  
20. begin  
21.   Result := 'This is a Private Method';  
22. end;  
23.   
24. function TSakaTest.SayPublicMessage: String;  
25. begin  
26.   Result := 'This is a Public Method';  
27. end;  
28.   
29. end.  

unit Unit2;
interface

   uses classes;

//   {$RTTI EXPLICIT METHODS([vcPublished,vcPublic,vcPrivate])}
  {$RTTI EXPLICIT METHODS([vcPrivate])}
  Type TSakaTest = Class(TObject)
      private
         function SayPrivateMessage : String;
     public
         function SayPublicMessage : String;
  End;

implementation

{ TSakaTest }

function TSakaTest.SayPrivateMessage: String;
begin
  Result := 'This is a Private Method';
end;

function TSakaTest.SayPublicMessage: String;
begin
  Result := 'This is a Public Method';
end;

end.

Rttiを試してみるその３

文字列で指定したクラスのインスタンスを作成する例を作ってみました。
(Button3Click）
試行錯誤のうえで作成したソースなので、とりあえず動きましたが
正しいソースかどうかは、分かりません。もっと良い方法が
あれば教えて下さい。

この手の処理はActivatorクラスのある.Netのほうが簡単だと
思います。

view plainprint?

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.   Dialogs, StdCtrls, ExtCtrls,Unit2;  
8.   
9. type  
10.   TForm2 = class(TForm)  
11.     Button3: TButton;  
12.     LabeledEdit1: TLabeledEdit;  
13.     ListBox1: TListBox;  
14.     Button1: TButton;  
15.     Label1: TLabel;  
16.     procedure Button3Click(Sender: TObject);  
17.     procedure Button1Click(Sender: TObject);  
18.   private  
19.     { Private 宣言 }  
20.   protected  
21.   public  
22.     { Public 宣言 }  
23.   
24.   end;  
25.   
26. var  
27.   Form1: TForm2;  
28. implementation  
29. uses  
30.   Rtti,TypInfo;  
31.   
32. {$R *.dfm}  
33.   
34.   
35. procedure TForm2.Button1Click(Sender: TObject);  
36. var  
37.   LContext: TRttiContext;  
38.   LType: TRttiType;  
39.   LTypes:TArray<trttitype>;  
40.   
41. begin  
42.   
43.  LoadPackage('SakaPack.bpl');  
44.   
45.   { Obtain the RTTI context }  
46.   LContext := TRttiContext.Create;  
47.   
48.   { Obtain the second package (rtl140) }  
49.   LTypes := LContext.GetTypes();  
50.   
51.   { Enumerate all types in the rtl140 package }  
52.   
53.    //for LPackage in LPackages do  
54.  //begin  
55.       for LType in LTypes do  
56.       begin  
57.          ListBox1.Items.Add(LType.QualifiedName);  
58.       end;  
59.    //end;  
60.    ListBox1.Items.SaveToFile('P.Txt');  
61.   
62. end;  
63.   
64. procedure TForm2.Button3Click(Sender: TObject);  
65. var  
66.  ctx : TRttiContext;  
67.  rtm : TRttiMethod;  
68.  rst : TValue;  
69.  SakaInf : ISakaTest;  
70.    rtt : TRttiType;  
71.    Args : Array of TValue;  
72.   
73.   
74. begin  
75.   
76.    //とりあえず別パッケージで動的ロード化とする  
77.    LoadPackage('SakaPack.bpl');  
78.   
79.  ctx := TRttiContext.Create;  
80.   
81.    //文字列で型情報を探す場合は、FindTypeを使う  
82.    //完全一致なのでユニット名を含めて指定  
83.    rtt := ctx.FindType('Unit2.' + LabeledEdit1.Text);  
84.   
85.    //コンストラクタはとりあえずCreateであることが前提  
86.    rtm := rtt.GetMethod('Create');  
87.   
88.  if rtm <> nil then  
89.  begin  
90.       if rtm.IsConstructor then  
91.       begin  
92.          //1. クラスの場合は、TRttiInstanceTypeで戻ってくるのでキャスト  
93.          //2. MetaaclassTypeプロパティで実際のクラスがとれるみたい。  
94.          rst := rtm.Invoke(TRttiInstanceType(rtt).MetaclassType,Args);  
95.          if rst.IsObject Then  
96.          begin  
97.             SakaInf := TSakaTest(rst.AsObject) As ISakaTest;  
98.             Label1.Caption := SakaInf.SayMessage();  
99.          end;  
100.             //Label1.Caption := obj.ClassName;  
101.       end;  
102.    end;  
103.   
104.   
105. end;  
106.   
107. end.  
108. </trttitype>  

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Unit2;

type
  TForm2 = class(TForm)
    Button3: TButton;
    LabeledEdit1: TLabeledEdit;
    ListBox1: TListBox;
    Button1: TButton;
    Label1: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  protected
  public
    { Public 宣言 }

  end;

var
  Form1: TForm2;
implementation
uses
  Rtti,TypInfo;

{$R *.dfm}


procedure TForm2.Button1Click(Sender: TObject);
var
  LContext: TRttiContext;
  LType: TRttiType;
  LTypes:TArray;

begin

 LoadPackage('SakaPack.bpl');

  { Obtain the RTTI context }
  LContext := TRttiContext.Create;

  { Obtain the second package (rtl140) }
  LTypes := LContext.GetTypes();

  { Enumerate all types in the rtl140 package }

   //for LPackage in LPackages do
 //begin
      for LType in LTypes do
      begin
         ListBox1.Items.Add(LType.QualifiedName);
      end;
   //end;
   ListBox1.Items.SaveToFile('P.Txt');

end;

procedure TForm2.Button3Click(Sender: TObject);
var
 ctx : TRttiContext;
 rtm : TRttiMethod;
 rst : TValue;
 SakaInf : ISakaTest;
   rtt : TRttiType;
   Args : Array of TValue;


begin

   //とりあえず別パッケージで動的ロード化とする
   LoadPackage('SakaPack.bpl');

 ctx := TRttiContext.Create;

   //文字列で型情報を探す場合は、FindTypeを使う
   //完全一致なのでユニット名を含めて指定
   rtt := ctx.FindType('Unit2.' + LabeledEdit1.Text);

   //コンストラクタはとりあえずCreateであることが前提
   rtm := rtt.GetMethod('Create');

 if rtm <> nil then
 begin
      if rtm.IsConstructor then
      begin
         //1. クラスの場合は、TRttiInstanceTypeで戻ってくるのでキャスト
         //2. MetaaclassTypeプロパティで実際のクラスがとれるみたい。
         rst := rtm.Invoke(TRttiInstanceType(rtt).MetaclassType,Args);
         if rst.IsObject Then
         begin
            SakaInf := TSakaTest(rst.AsObject) As ISakaTest;
            Label1.Caption := SakaInf.SayMessage();
         end;
            //Label1.Caption := obj.ClassName;
      end;
   end;


end;

end.

でUnit2で使ったソースがこちら

view plainprint?

1. unit Unit2;  
2.   
3. interface  
4.  uses classes;  
5.   
6.    {$RTTI EXPLICIT METHODS([vcPublic])}  
7.  Type ISakaTest = interface(IInterface)  
8.   ['{FAAA20A5-E078-4E22-96C2-139E7E57CBFB}']  
9.   function SayMessage : String;  
10.  end;  
11.   
12.    {$RTTI EXPLICIT METHODS([vcPublished,vcPublic])}  
13.    Type TSakaTest = Class(TInterfacedPersistent, ISakaTest)  
14.     function SayMessage : String; virtual;  
15.    End;  
16.   
17.    {$RTTI EXPLICIT METHODS([vcPublished,vcPublic])}  
18.  Type TSakaTest1 = Class(TSakaTest)  
19.       Public  
20.        function  SayMessage : String; override;  
21.    End;  
22.   
23.    {$RTTI EXPLICIT METHODS([vcPublished,vcPublic])}  
24.  Type TSakaTest2 = Class(TSakaTest)  
25.     Public  
26.       function  SayMessage : String; override;  
27.    End;  
28.   
29. var  
30.   SakaTest : ISakaTest;  
31.   
32. implementation  
33.   
34. //uses  
35.  //Classes;  
36.   
37.   
38.   
39. { TSakaTest1 }  
40.   
41. function TSakaTest1.SayMessage: String;  
42. begin  
43.  Result := 'Hello Delphi First';  
44. end;  
45.   
46. { TSakaTest2 }  
47.   
48. function TSakaTest2.SayMessage: String;  
49. begin  
50.  Result := 'Hello Delphi Second';  
51. end;  
52.   
53. { TSakaTset }  
54.   
55. function TSakaTest.SayMessage: String;  
56. begin  
57.  Result := '';  
58. end;  
59.   
60. initialization  
61.    RegisterClass(TSakaTest);  
62.    RegisterClass(TSakaTest1);  
63.    RegisterClass(TSakaTest2);  
64.   
65. end.  

unit Unit2;

interface
 uses classes;

   {$RTTI EXPLICIT METHODS([vcPublic])}
 Type ISakaTest = interface(IInterface)
  ['{FAAA20A5-E078-4E22-96C2-139E7E57CBFB}']
  function SayMessage : String;
 end;

   {$RTTI EXPLICIT METHODS([vcPublished,vcPublic])}
   Type TSakaTest = Class(TInterfacedPersistent, ISakaTest)
    function SayMessage : String; virtual;
   End;

   {$RTTI EXPLICIT METHODS([vcPublished,vcPublic])}
 Type TSakaTest1 = Class(TSakaTest)
      Public
       function  SayMessage : String; override;
   End;

   {$RTTI EXPLICIT METHODS([vcPublished,vcPublic])}
 Type TSakaTest2 = Class(TSakaTest)
    Public
      function  SayMessage : String; override;
   End;

var
  SakaTest : ISakaTest;

implementation

//uses
 //Classes;



{ TSakaTest1 }

function TSakaTest1.SayMessage: String;
begin
 Result := 'Hello Delphi First';
end;

{ TSakaTest2 }

function TSakaTest2.SayMessage: String;
begin
 Result := 'Hello Delphi Second';
end;

{ TSakaTset }

function TSakaTest.SayMessage: String;
begin
 Result := '';
end;

initialization
   RegisterClass(TSakaTest);
   RegisterClass(TSakaTest1);
   RegisterClass(TSakaTest2);

end.

Jedi VCL Versionアップ

Delphi 2010の対応です。

ユニットを使うダイアログ

Unitの追加先を選択できるようになってたんだ。
気づかなかった。

Rttiを試して見るその２

前回のポストに引き続いて、メソッドの動的呼び出し。

整数の足し算を行う例です。以下ソース

view plainprint?

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.  Dialogs, StdCtrls, ExtCtrls;  
8.   
9. type  
10.  TForm1 = class(TForm)  
11.    Button3: TButton;  
12.    LabeledEdita: TLabeledEdit;  
13.    Label1: TLabel;  
14.    LabeledEditb: TLabeledEdit;  
15.    Label2: TLabel;  
16.    LabelResult: TLabel;  
17.    procedure Button3Click(Sender: TObject);  
18.  private  
19.    { Private 宣言 }  
20.  protected  
21.  public  
22.    { Public 宣言 }  
23.    function Sakasum(a,b : Integer) : Integer;  
24.   
25.  end;  
26.   
27. var  
28.  Form1: TForm1;  
29.   
30. implementation  
31. uses  
32.  Rtti,TypInfo;  
33.   
34. {$R *.dfm}  
35.   
36.   
37. procedure TForm1.Button3Click(Sender: TObject);  
38. var  
39.  ctx : TRttiContext;  
40.  rtm : TRttiMethod;  
41.  Args : Array of Rtti.TValue;  
42.  rst : TValue;  
43. begin  
44.  //  
45.  ctx := TRttiContext.Create;  
46.  rtm := ctx.GetType(Self.ClassType).GetMethod('SakaSum');  
47.   
48.  if rtm <> nil then  
49.  begin  
50.    SetLength(Args,2);  
51.    //TValueは、演算子Implicitが定義されているので基本的な型は  
52.    //変換による代入が可能  
53.    Args[0] := StrToInt(LabeledEdita.Text);  
54.    Args[1] := StrToInt(LabeledEditb.Text);  
55.    rst := rtm.Invoke(Self,Args);  
56.    //結果はAsXXXXX関数を使って取り出せる。  
57.    Self.LabelResult.Caption := IntToStr(rst.AsInteger);  
58.  end;  
59. end;  
60.   
61.   
62. function TForm1.Sakasum(a, b: Integer): Integer;  
63. begin  
64.  Result := a + b;  
65. end;  
66.   
67. end.  

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;

type
 TForm1 = class(TForm)
   Button3: TButton;
   LabeledEdita: TLabeledEdit;
   Label1: TLabel;
   LabeledEditb: TLabeledEdit;
   Label2: TLabel;
   LabelResult: TLabel;
   procedure Button3Click(Sender: TObject);
 private
   { Private 宣言 }
 protected
 public
   { Public 宣言 }
   function Sakasum(a,b : Integer) : Integer;

 end;

var
 Form1: TForm1;

implementation
uses
 Rtti,TypInfo;

{$R *.dfm}


procedure TForm1.Button3Click(Sender: TObject);
var
 ctx : TRttiContext;
 rtm : TRttiMethod;
 Args : Array of Rtti.TValue;
 rst : TValue;
begin
 //
 ctx := TRttiContext.Create;
 rtm := ctx.GetType(Self.ClassType).GetMethod('SakaSum');

 if rtm <> nil then
 begin
   SetLength(Args,2);
   //TValueは、演算子Implicitが定義されているので基本的な型は
   //変換による代入が可能
   Args[0] := StrToInt(LabeledEdita.Text);
   Args[1] := StrToInt(LabeledEditb.Text);
   rst := rtm.Invoke(Self,Args);
   //結果はAsXXXXX関数を使って取り出せる。
   Self.LabelResult.Caption := IntToStr(rst.AsInteger);
 end;
end;


function TForm1.Sakasum(a, b: Integer): Integer;
begin
 Result := a + b;
end;

end.

TValueの使い方が分からなくて結構悩みました。

で、ソースをみたら基本的な型については、
Implicit演算子のオーバーロードが
定義されているのね。

このへんはHelpに書いといて欲しかったです。
(C++ のHELPには書いてあります。）

（英語版のDoc Wikiがメンテナンス中だったので
日本語版でのみ書いていないのかはちょっと不明です。）

また、こちらにDelphi Prismで上記と同様な処理を
記述しました。

Rttiを試して見る

動的にメソッドを読み出す簡単なプログラムを作ってみました。
プログラムそのものには意味はありません。

プレビュー会に説明があったようにprivateなメソッドは読めませんでした。
メソッドの可視属性を示す型があったので読めてもよいと思ったのですが・・・

また、GetDeclaredMethodsをつかうと自分が宣言したメソッドのみ
リストできます。

以下ソースです。

view plainprint?

1. unit Unit1;  
2.   
3. interface  
4.   
5. uses  
6.  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
7.  Dialogs, StdCtrls, ExtCtrls;  
8.   
9. type  
10.  TForm1 = class(TForm)  
11.    Button1: TButton;  
12.    LabeledEdit1: TLabeledEdit;  
13.    Button2: TButton;  
14.    ListBox1: TListBox;  
15.    procedure Button1Click(Sender: TObject);  
16.    procedure Button2Click(Sender: TObject);  
17.  private  
18.    { Private 宣言 }  
19.    //procedure SakaTest2;  
20.  protected  
21.    //procedure SakaTest1;  
22.    procedure SakaTest2;  
23.  public  
24.    { Public 宣言 }  
25.    procedure SakaTest2;  
26.    procedure SakaTest1;  
27.  end;  
28.   
29. var  
30.  Form1: TForm1;  
31.   
32. implementation  
33. uses  
34.  Rtti,TypInfo;  
35.   
36. {$R *.dfm}  
37.   
38. procedure TForm1.Button1Click(Sender: TObject);  
39. var  
40.  ctx : TRttiContext;  
41.  rtm : Rtti.TRttiMethod;  
42.  obj : TObject;  
43.  Args : Array of TValue;  
44. begin  
45.  //  
46.  ctx := TRttiContext.Create;  
47.   
48.   
49.  //rtm := ctx.GetType(obj).GetMethod(LabeledEdit1.Text);  
50.   
51.  rtm := ctx.GetType(Self.ClassType).GetMethod(LabeledEdit1.Text);  
52.   
53.  if rtm <> nil then  
54.  begin  
55.    //obj := Self;  
56.    rtm.Invoke(Self,Args);  
57.  end;  
58.   
59. end;  
60.   
61. procedure TForm1.Button2Click(Sender: TObject);  
62. var  
63.  ctx : TRttiContext;  
64.  rtmary : TArray<rtti.trttimethod>;  
65.  rtm : TRttiMethod;  
66.  obj : TObject;  
67.  Args : Array of TValue;  
68.  rtp : TRttiType;  
69. begin  
70.   
71.  ctx := TRttiContext.Create;  
72.   
73.  //rtm := ctx.GetType(obj).GetMethod(LabeledEdit1.Text);  
74.  //ctx.FindType()  
75.  //rtp := ctx.GetType(Self.ClassType);  
76.  //rtp.IsPublicType := false;  
77.   
78.  rtmary := ctx.GetType(Self.ClassType).GetDeclaredMethods;  
79.   
80.  ListBox1.Clear;  
81.   
82.  if rtmary <> nil then  
83.  begin  
84.    for rtm in rtmary do  
85.    begin  
86.      ListBox1.Items.Add(rtm.Name);  
87.      if rtm.Name = LabeledEdit1.Text then  
88.      begin  
89.        rtm.Invoke(Self,Args);  
90.      end;  
91.   
92.    end;  
93.   
94.  end;  
95.   
96. end;  
97.   
98. procedure TForm1.SakaTest1;  
99. begin  
100.  Application.MessageBox('Hello Delphi','First Text');  
101. end;  
102.   
103. procedure TForm1.SakaTest2;  
104. begin  
105.  Application.MessageBox('Hello Delphi','Second Text');  
106. end;  
107.   
108. end.  
109. </rtti.trttimethod>  

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   LabeledEdit1: TLabeledEdit;
   Button2: TButton;
   ListBox1: TListBox;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
 private
   { Private 宣言 }
   //procedure SakaTest2;
 protected
   //procedure SakaTest1;
   procedure SakaTest2;
 public
   { Public 宣言 }
   procedure SakaTest2;
   procedure SakaTest1;
 end;

var
 Form1: TForm1;

implementation
uses
 Rtti,TypInfo;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 ctx : TRttiContext;
 rtm : Rtti.TRttiMethod;
 obj : TObject;
 Args : Array of TValue;
begin
 //
 ctx := TRttiContext.Create;


 //rtm := ctx.GetType(obj).GetMethod(LabeledEdit1.Text);

 rtm := ctx.GetType(Self.ClassType).GetMethod(LabeledEdit1.Text);

 if rtm <> nil then
 begin
   //obj := Self;
   rtm.Invoke(Self,Args);
 end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
 ctx : TRttiContext;
 rtmary : TArray;
 rtm : TRttiMethod;
 obj : TObject;
 Args : Array of TValue;
 rtp : TRttiType;
begin

 ctx := TRttiContext.Create;

 //rtm := ctx.GetType(obj).GetMethod(LabeledEdit1.Text);
 //ctx.FindType()
 //rtp := ctx.GetType(Self.ClassType);
 //rtp.IsPublicType := false;

 rtmary := ctx.GetType(Self.ClassType).GetDeclaredMethods;

 ListBox1.Clear;

 if rtmary <> nil then
 begin
   for rtm in rtmary do
   begin
     ListBox1.Items.Add(rtm.Name);
     if rtm.Name = LabeledEdit1.Text then
     begin
       rtm.Invoke(Self,Args);
     end;

   end;

 end;

end;

procedure TForm1.SakaTest1;
begin
 Application.MessageBox('Hello Delphi','First Text');
end;

procedure TForm1.SakaTest2;
begin
 Application.MessageBox('Hello Delphi','Second Text');
end;

end.

引数つきのメソッドコールはまた次回

サポートプログラムの配布方法

サポートプログラムの配布方法が
メールによるキー送付に変わった。

いち早く、使用できるのは良いが
やっぱりメディアもあったほうが
良いと思う。

プログラマがマニュアル読まなくどうするの

タイトルだけみて、気分を悪くされた方すみません。

これは、あくまでも自分への戒めのためのタイトルです。

DEKO様はじめ、先日、ご助言頂いた方々どうもありがとうございました。
なお、コメントは非公開と致しますのでご了承願います。

DelphiのHelpがWikiかされたので、ちょっとのぞいていたら
書いてあるんですわ。オブジェクトインスペクタの動作が・・・

ここに

大澤の親分の張本さんに大喝を食らったうえに
タイトルの台詞で叱咤されそうですわ。

しばらくは、懺悔と精進の日々です。

Rad Stduio 2010発売

正式発表があった見たいですね。

とりあえず、値段が据え置きでよかったです。
（スタンダードサポートの更新料も据え置きのようです。）

日本の公式サイトもエンバカデロドメインに移るようで
しばらくはばたばたしそうですね。

Delphiのウィルスについて思うこと

遅ればせながらひとこと。

エンバカデロさんからは、ウィルスに関する(対策）情報を
出す準備をしているとのことであり、コミュニティ方々も
いろいろな情報を出している。

しかし、現状、ウィルスに狙われているバージョンは4～7で、
エンバカデロさんのサポート情報によれば、すべて
サポート終了バージョンになっている。
（将来的には、新しいバージョンがターゲットになるかも
しれません。）

従って、Delphi4～7については、エンバカデロさんが
対策をしないと言ったとしても、僕らは、文句を言うことは
できないと思う。（言ってみるのは良いと思うが取り合って
くれない可能性のほうが高い。）

僕らにできることは、通常のウィルス対策と一緒のことですが
Delphiを最新の状態に保つこと。
すなわち、メーカのサポート中のバージョンの最新アップデートに
することだと思う。

ただ、開発言語（環境）で難しいのは、その環境の
過去バージョンで作ったアプリのサポートが必要だと
思う。

Versionを上げることは、Versionアップそのものの作業と
それに伴う動作検証に多大な労力がかかり、なおかつ
DelphiのVersionアップ料で多大な費用がかかることになる。

Delphiの開発元がBorland→Codegear->Embarcaderoと
変わる間にすくなくとも日本では、値段が高くなり
個人ユーザにはものすごい負担になると思う。

また、既にDelphiでの開発を止めている企業さんも多いと思う。
これらの企業さんは、メンテナンス用に古いバージョンを
保持しているとは思うが、いまさら新バージョン投資するかどうかは、
怪しいと思う。

ただし、個人的には、上記のような理由があっても、セキュアな
システムを提供するためにはVerupは提供する側の責任で
あると思う。

穴があったら入りたい。

コメント頂いた皆様ありがとうございました。

あまりのショボさに前のエントリーを非表示と致しました。

前のエントリーについては、期間をおいてなんらかの形で
復活させたいと思います。

しかし、１０年以上使っててこんな初歩的なことを
しらなかったなんて・・・・

正に、穴があったら入りたい気分です。（穴はかなり深い穴が良いです。）

もう一回基本を固めて出直しです。

IDEの配置（その１)

上の図は、自分のIDEの配置です。
Visual Studioでオブジェクトインスペクタが右にあるのに
なれちゃったのでオブジェクトインスペクタは右側に
配置しています。

また、ツールパレットなど、構造ペインなども右側に
持っています。

これは、自分が右利きだからです。

意外に便利な配置なので、右利きの人は
良かったら試して下さい。

Rad Studio 2010の値段（米国）

Info Worldの記事によれば、エンプラ版のRad Studio 2010の米国での値段は
2799ドル(日本円で約26万7千円）だそうです。

さて、日本での値段はいくらになるのでしょうか？
ちょっと心配

思いつき

Delphi2010では、マウスジェスチャーがサポートされています。

これとWilリモコンを組み合わせたら、オモシロイことが出来そうですね。
（具体案は浮かばないので単なる思いつきですが・・・）

使い勝手にこだわれること

エンバカデロさんのサイト、フィールドテスターの皆様、ブロガーの皆様から
Delphi 2010に関する情報がいろいろ出てきてます。

これらを読むにつれて、地味だけど、かなり使い勝手を重視した機能を
盛り込んでいると思う。

これで、サクサク動けば、言うことなしなのですが、プレビュー会のビデオや
プレビュー動画を見る限りでは問題無さそうなのですが・・・

個人的には、使い勝手にこだわった開発が出来ているときは、
非常に良い状態で開発が出来ていると思います。

Delphi8から始まった製品の品質に関する混乱は完全に収束しつつある
といった状況と勝手に推測しています。

Delphi8の発売が2004年(本国は2003年11月）であることを考えると
会社自体の混乱もありましたが、品質を立て直すのに5年を要しています。

この間に失った信頼を取り戻すのは容易ではないかと思いますが、
現在の状態、（メーカさんとユーザさんとで適切にコミュニケーションが
とれている状態）であれば、なんとかなっていくのではないかと思います。

個人的には、発売前の情報で買いたいと思えるバージョンなのですが
問題は、価格ですね。（最近、Ver Upの度に価格があがっていますので・・・）

Delphi 2010 プレビュー会

仕事で参加できなかったかつ社内ネットワークから
中継が見れなかったので、とりあえずTwitterをROM

気になった点を以下列挙

1) RTTIの機能強化 Private メンバーは見れないみたいですね。
　 Protectメンバーが見れれば良いのだけど、どうなんでしょう？

2) C++ 系で******_S系の関数が追加されたのはGoodです。

3) midasのソースコード有るんだ？ちょっとびっくりです。

参加者の皆さんお疲れ様でした。

今頃は、場所を変えて第２段かな？

Delphi 2010 の情報へのブックマーク

Nick Hodgesさんのブログポストが

Delphi2010の情報のブックマークになっています。

とりあえず、備忘録としてリンク

EmbarcderoのBlogでも、Radstudio 2010に関する記事が
ものすごい勢いで公開されています。

ついてくのがちょっと大変（(^_^;))

Win32でリフレクション

日経ソフトウェアの記事によれば

Delphi2010では、.Netのリフレクション並にRTTIが強化される
見たいです。

これは楽しみ

DbExpress Firebird Driver

Delphi Feed経由の情報です。

次期Delphi2010でサポート予定のFirebirdですが、

Chee Yang ChauさんがDelphi2007, 2009対応の

FirebirdのDbExpressドライバを開発されました。

Firebird用のDbExpressドライバを探していたので
一度テストしてみる価値はありそうです。

開発者のChee Yang Chauさんに感謝です。

IDEインサイトは便利そう

次期Delphi(delphi2010)のPreview Videoが公開されたので
早速みてみた。

以下覚え書き（内容はVideoの要旨にも書かれてます。）

IDEインサートは、IDEの状況に応じて、専用のダイアログを使って
ショートカットを提供する機能で、Videoでは、IDEインサートから
Component名を入れてフォームに貼り付けるデモをしていた。

コンポーネント名さえ覚えていれば、コンポーネントパレットを
探さなくても（今までは、コンポーネントパレット内での検索可）
コンポーネントをフォームに貼れるので大変便利だ。

また、IDEでCode Formatterをサポートするようだ。
これは、DevCampでもリクエストがあった機能だ。

また、スレッドのデバッグ、TStringsのViewerなど
デバッグ時に便利な機能が追加されている。

細かいところでは、オブジェクトインスペクタの２値の設定が
チェックでできるようになっているみたいだ。

Videoの内容だけで判断すると2010はものすごく使い勝手に
こだわったVersionのような気がします。


でも、もっとも気になったなのはDavid Iの服の色目かな（冗談です。）

2009/08/05 追記

Nick Hodges氏もdelphi2010でIDEに新搭載の機能のブログを
POSTしています。