Delphiッこ倶楽部東京出張所

LiveBindingを試してみる。

2011-09-24T12:03:00.003+09:00

DelphiXE2のLiveBindingの機能を使って、現在時刻を更新する処理を

チュートリアルを参考作ってみた。

処理としては、時刻が更新されると、登録した通知先（作った例場合はフォーム）の

表示を更新する処理になっています。

以下ソース

まずは、時計のソース、タイマーを使って定周期で時刻を更新し、登録先の

更新通知を行っています。

また、変更通知先を登録する処理を書いています。

unit Unit4;

interface

uses
 System.SysUtils, System.Classes,Vcl.ExtCtrls, Data.Bind.EngExt,
 Vcl.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors,
 Data.Bind.Components,
 System.Bindings.EvalProtocol,
 System.Bindings.Expression,
 System.Bindings.ObjEval,
 System.Bindings.Helper;

type
 TDataModule4 = class(TDataModule)
   FTimer: TTimer;
   procedure FTimerTimer(Sender: TObject);
   procedure DataModuleCreate(Sender: TObject);
   procedure DataModuleDestroy(Sender: TObject);
 private
   { Private 宣言 }
   FNowString : String;
   BindingExpression1: TBindingExpression;
 public
   procedure AddBindingList(const InputScopes: array of IScope; const BindExprStr: string; const OutputScopes: array of IScope; const OutputExpr: string);
   published
   { Public 宣言 }
   property NowString : String read FNowString;
 end;

var
 DataModule4: TDataModule4;

implementation

{%CLASSGROUP 'Vcl.Controls.TControl'}

uses Unit1;

{$R *.dfm}

procedure TDataModule4.AddBindingList(const InputScopes: array of IScope;
 const BindExprStr: string; const OutputScopes: array of IScope;
 const OutputExpr: string);
begin

 BindingExpression1 :=  TBindings.CreateManagedBinding(
       InputScopes,
       BindExprStr,
       OutputScopes,
       OutputExpr,
       nil);

end;

procedure TDataModule4.DataModuleCreate(Sender: TObject);
begin
 //BindScope1.Active := true;
end;

procedure TDataModule4.DataModuleDestroy(Sender: TObject);
begin
 //BindScope1.Active := false;
end;

procedure TDataModule4.FTimerTimer(Sender: TObject);
begin
 FNowString := DateTimeToStr(Now);
 TBindings.Notify(Self, 'NowString');

end;

end.

次に、時計を表示するソース。比較のためにポーリング処理で上記のソースのプロパティを使って
タイムスタンプを更新する処理もあります。

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,
 Data.Bind.EngExt, Vcl.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs,
 Unit4,
 System.Bindings.Expression,
 System.Bindings.ObjEval,
 System.Bindings.Helper,
 Vcl.Bind.Editors, Data.Bind.Components;


type
 TForm1 = class(TForm)
   Label1: TLabel;
   Label3: TLabel;
   Timer1: TTimer;
   Label2: TLabel;
   Label4: TLabel;
   procedure Timer1Timer(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private 宣言 }
   FSakaClock : TDataModule4;
 public
   { Public 宣言 }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 //FSakaClock.Free;
 FSakaClock.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 FSakaClock := TDataModule4.Create(Self);
 FSakaClock.AddBindingList(
      { inputs }
     [TBindings.CreateAssociationScope([
       Associate(FSakaClock, 'I1')
     ])],
     'I1.NowString',
     { outputs }
     [TBindings.CreateAssociationScope([
       Associate(Label3, 'O1')
     ])],
     'O1.Caption');

 //FSakaClock := TSakaClock.Create(Self);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption := FSakaClock.NowString;
end;

end.

CPUのコア数を数える。

2011-08-17T20:56:00.002+09:00

Delphiのドキュメントによれば、System.CPUCount変数を参照すればCPUのコア数が
表示できるようだ。

たとえば、

Label1.Caption := IntToStr(System.CpuCount)

でラベルにCPUのコア数が表示できる。

自分のPCで試したけど、シングルコアのCPUなので

当然のことながら1と表示された。

指定したウインドウを最前面にもってくる

2011-07-07T23:36:00.000+09:00

VBAから指定したアプリが起動してない場合は起動し、既に起動済みの場合は、最前面に持ってくる
という処理が必要になったので、Delphiで作成してみた。

以下、指定したアプリを前面に持ってくるサンプル。

procedure TForm1.Button1Click(Sender: TObject);
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation
Uses JclSysInfo;

{$R *.dfm}
function AllowSetForegroundWindow(dwProcessID: Cardinal): BOOL; stdcall; external 'user32.DLL';


procedure TForm1.Button1Click(Sender: TObject);
var
  ProcessList : TStringList;
  i : Integer;
  Pid : Cardinal;
  Wnd: THandle;
begin

  ProcessList := TStringList.Create;
  try
    //起動するアプリは、自前のものではないので
    //プロセスがいるかどうかは、プロセスのリストを総当りで
    //確認
    JclsysInfo.RunningProcessesList(ProcessList,true);
    i := -1;
    ProcessList.Find(LabeledEdit1.Text,i);
    if i >= 0 then
    begin
      Pid := GetPidFromProcessName(ProcessList.Strings[i]);
      Wnd :=GetMainAppWndFromPid(Pid);
      //いつぞやのバージョンのwindowsから前面に出す許可を
      //しておくことが必要
      AllowSetForegroundWindow(Pid);
      //最小化されているのでアイコンからもとのサイズに
      //戻す
      if IsIconic(Wnd) then
      begin
        OpenIcon(Wnd);
      end
      else
      begin
        //指定したウインドウを前面に
        SetForegroundWindow(wnd);
        //場合によっては、AttachThreadInputで
        //前面に出したいウインドのスレッドにあタッチが必要
      end;
    end;

  finally
  　ProcessList.Free;
　　end;
end;

end.

プロセスリストを表示する（その２）

2011-07-07T22:59:00.000+09:00

Project jediのJclのJclSysInfoユニットにある。RunningProcessesList関数を使用すると
プロセスリストが簡単にとれます。

以下、サンプル

procedure TForm1.Button1Click(Sender: TObject);
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    Button1: TButton;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation
Uses JclSysInfo;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
　ProcessList : TStringList;
  i : Integer;
  Pid : Cardinal;

begin
　ListBox1.Clear;
  ProcessList := TStringList.Create;
  try
　　JclsysInfo.RunningProcessesList(ProcessList,true);
    for i := 0 to ProcessList.Count-1 do
    begin
      Pid := GetPidFromProcessName(ProcessList.Strings[i]);
      ListBox1.Items.Add('(' + IntToStr(Pid) + ')' + ProcessList.Strings[i]);
    end;

  finally
  　ProcessList.Free;
  end;

end;

RunningProcessesListは、引数で指定したTStringsを継承した型インスタンスに
プロセスのリストを返してくれます。

このJclSysInfoユニット、ざっと見た感じで、便利そうなものが一杯あった。
サンプルプログラムを元にもうチョットみてみよう。

VBスクリプトを動かす（動画付き）

2011-04-07T23:16:00.003+09:00

先日、ツイッターでMicrosoft Scriptコントロールの話題がでたのでDelphiでMicrosoft Scriptコントロールを
使うサンプルを作ってみた。

Microsoft ScriptコントールをDelphiに取り込む必要がある。

Microsoft Scriptコントール取り込むには、コンポーネントの取り込みを選択し

ActiveXコントールの取り込みを選択する。

（ここでタイプライブラリの取り込みを選択するとクラスがつくられないみたい
なので要注意）

コントロールの一覧からMicroSoft Scriptコントロールを選択する。

あとは、画面の支持にしたがってファイルを作成し、Microsoft Scriptコントールを
組み込みたいプロジェクトに読み込む。

ここから、実際につくったサンプル。

サンプルは、

1) a,b二つの引数を持つVBSのＦＵＮＣＴＩＯＮプロシージャを実行する。
2) VBSはメモコンポーネントに記述する。
3) メモコンポーネントに記述したFUNCTIONのリストをListBoxに表示する。
4) ListBoxから選んだFUNCTIONを実行し結果をラベルに表示する。

とゆうものです。

以下、ソースファイル

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    スクリプトを登録: TButton;
    ListBox1: TListBox;
    選択した関数を実行: TButton;
    実行結果: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure スクリプトを登録Click(Sender: TObject);
    procedure 選択した関数を実行Click(Sender: TObject);
  private
    { Private 宣言 }
    FScriptControl:TScriptControl;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses ActiveX,VarUtils;

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 FScriptControl.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FScriptControl := TScriptControl.Create(Self);
  {Jscriptを使用するときは、'VBSCRIPT'を'JScript'に変更する。}
  FScriptControl.Language := 'VBSCRIPT';
end;

procedure TForm1.スクリプトを登録Click(Sender: TObject);
var
  i : Integer;
begin

  ListBox1.Clear;
  
　{Scriptコントロールにコードを追加}
　FScriptControl.AddCode(WideString(Memo1.Text));

  {プロシージャコレクションを操作することでプロシージャーのリストを得る}
  for i := 0  to FScriptControl.Procedures.Count -1 do
  begin

    {VB(VB6,VBA)用のCOMのコレクションは1基数のものが多いので注意}
    ListBox1.Items.Add(FScriptControl.Procedures.Item[i+1].Name);
  end;

end;
procedure TForm1.選択した関数を実行Click(Sender: TObject);
var
  ResultStr : OleVariant;
  ParamArray : Variant;
  PParamArray : PVarArray;
  MyParams : PIntegerArray;
begin
  
  {パラメータはヴァリアント型の配列で渡す必要がある}
  ParamArray := VarArrayCreate([0, 1], varVariant);
  ParamArray[0] := 3;
  ParamArray[1] := 5;
  
  PParamArray := VarArrayAsPSafeArray(ParamArray);
  ResultStr := FScriptControl.Run(WideString(ListBox1.Items[ListBox1.ItemIndex]),
                              PSafeArray(PParamArray));
  Label2.Caption := VarToStr(ResultStr);

end;

end.

以下、コントロールの取り込みと上記プログラムを実行しているところのデモ動画

Guid文字列を得る

2011-04-03T22:34:00.003+09:00

Delphiで、Guidを得るには、通常の場合CreateGuid手続きを使用します。
また、Guid文字列を得るする場合には、GuidToString手続きを使用して文字列に変換します。

procedure TForm1.Button1Click(Sender: TObject);
var
  guid : TGuid;
begin
  CreateGuid(guid);
  LabeledEdit1.Text := GuidToString(guid);

end;

Delphi XEでは、TGuid型に対して、TGuidHelperクラスが実装されているので
このHelperを利用してもGuidを得ることができます。
(Helperは.Net FrameworkのGuid構造体と同じ動きをするように実装されている
ようです。但し、.Net側のToStringメソッドでは文字列が中括弧で囲まれないので
注意が必要かなぁ？)

procedure TForm1.Button2Click(Sender: TObject);
var
  guid:TGUID;
  S:String;
begin
  guid := TGUID.NewGuid;
  LabeledEdit1.Text := guid.ToString;
end;

TGuidHelperクラスにはGuidの表現形式に応じていくかのCreate関数が用意されていますで
プログラム中で使用している表現形式からGUDIの生成が可能です。

下記の例は、文字列で表現されたGUIDからTGuid型の変数を得る例です。

procedure TForm1.Button3Click(Sender: TObject);
var
  guid:TGUID;
begin
　guid := TGUID.Create('{1F447130-60E2-40A0-9A00-EB94C1C7D691}');
  label1.Caption := guid.Tostring; //{1F447130-60E2-40A0-9A00-EB94C1C7D691}が表示される
end;

TSingletonImplementationクラス

2011-04-03T01:01:00.000+09:00

Delphi XEのHelpを見ていて、TSingletonImplementationというクラスがあるのに気づいた。

HELPをみると、IInterface の基本実装が必要で参照カウントが無効なシンプルなクラスの基底クラスなそうな。

ということは、COMでなインターフェイスについては、このクラスを使えばよいのかぁ～。

でも、何故Generics.Defaultsに配置してあるのだろう。

ClientDatasetのでも

2011-04-01T00:48:00.004+09:00

Buleberry社のFlashBack ExpressのテストでClientDataSetのチョットしたサンプル動画(スクリーンキャプチャー）を
作ってみた。

サンプルの内容は、IDE上でクライアントデータセットのフィールドを作成し

Delphiのプログラムでデータをセットするものです。

編集もなにもしてないので、チョットまのびした動画になっちゃてます。

Null許容型

2011-03-01T00:09:00.002+09:00

delphilhlplibの中にNull許容型が容易されてるのでちょっと試してみた。

delpjihlplibは上記のリンクから最新のモジュールをダウンロードして
パッケージをインストールすることで使用可能になります。

以下試したソースコード

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation
Uses DeHL.Nullable;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Nullable <integer>
begin

  //値を代入する前はNULL
  if i.IsNull then
  begin
    Label1.Caption := 'Null';
  end;

  //値を代入すると普通の型のように扱える
  i.Value := 100;
  Label2.Caption := IntToStr(i);

  //MakeNullでNullをセットできるようだ。
  i.MakeNull;

  if i.IsNull then
  begin
    Label3.Caption := 'Null';
  end;

end;

end.

delphihelplibには、そのほかにもいろいろなクラスがあるようなので、追々試してみようと思う。

Unified Interbaseコンポーネントをつかってみた（その4）

2011-02-06T23:57:00.000+09:00

Unified Interbaseコンポーネントをつかってみた（その3）で、ClientDataSet接続用に
TUIBDataSetをカスタマイズした。このカスタマイズしたコンポーネントを使って
TClientDataSet及びTDataSetProviderを使ってのデータ更新を試してみた。

以下、その備忘録

DBExpressドライバを使えば、フラットなテーブルや簡単なリンクテーブルであれば
自動的にデータ操作のSQLを作ってDBに書き込んでくれる。

しかし、複雑なJoin等でデータを表示する場合はDbExpressドライバを使っても
テーブルへの操作は自前で実施する必要がある。

また、FlameRobin、黒猫 SQL Studio、A5:SQL Mk-2のツールでデータ更新用の
SQLである程度自動で作成できるので自前で実施してもそんなに手間ではないので
データの更新を手動で行う。

DataSetProviderで、データの更新を自分で実施する方法は、エンバカデロさんのヘルプ
に手順が書いてあるのでこれに従って更新処理を書いた。

その実装は、以下のとおり

フォームのUIBTransactionコンポーネントを配置し、UIBDatabaseコンポーネントを
接続する。また今回はテストなので、暗黙のトランザクションになるようの
コンポーネントを設定した。（下図）

UIBQueryコンポーネントを配置し上記のUIBTransactionオブジェクトに接続する。

DataSetProviderのUpdateModeを実際の処理に合わせて設定する。
（今回は、"upWhereChanged"に設定)

DataSetProviderのBeforeUpdateRecordイベントハンドラにDB更新の処理を
記述する。このとき、更新処理が終わったら、

Applied := true

とし、ClientDataSetのキャッシュの更新終了状態にする。

今回のテストで書いた処理は下のとおり、

procedure TForm1.DataSetProvider1BeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind;
  var Applied: Boolean);
var
    i : Integer;
  SQL : String;
  ValueStr : String;
  NewStr : String;
  OldStr : String;
  //UIBDeltaDs : TUIBClientDataSet;
begin

  //UIBDeltaDs := TUIBClientDataSet.Create(Self);
  //UIBDeltaDs := DeltaDS.CloneCursor();

  UIBQuery1.SQL.Clear;

  UIBQuery1.SQL.Add('UPDATE EMPLOYEE SET ' + #13#10);

  while not(DeltaDS.eof) do
  begin
      //DeltaDS
     SQL := '';
     for i := 0 to DeltaDS.FieldCount - 1 do
     begin
       //UIBDeltaDs.DataConvert(
       if not(VarIsEmpty(DeltaDS.Fields[i].NewValue)) then
       begin
          //UIBQuery1.SQL.Add
          NewStr := VarToStr(DeltaDS.Fields[i].NewValue);
          OldStr := IfThen(not(VarIsNull(DeltaDs.Fields[i].OldValue)), VarToStr(DeltaDS.Fields[i].OldValue));

          if CompareText(NewStr,OldStr) <> 0 Then
          begin
             if (DeltaDs.Fields[i].DataType = ftDatetime) then
             begin
                ValueStr := FormatDateTime(
                                 'yyyy/mm/dd hh:nn:ss',
                                 VarToDateTime(DeltaDs.Fields[i].NewValue)
                            );
                   ValueStr := QuotedStr(ValueStr);
             end
             else
             begin
                       ValueStr := VarToStr(DeltaDS.Fields[i].NewValue);
                     if   (DeltaDs.Fields[i].DataType = ftString)
                       Or (DeltaDs.Fields[i].DataType = ftWideString)
                     then
                     begin
                        ValueStr := QuotedStr(ValueStr);
                     end
                end;
            end;

             SQL := SQL + ', ' + DeltaDS.Fields[i].FieldName + ' = ' + ValueStr + #13#10;
                 ListBox1.Items.Add(DeltaDS.Fields[i].FieldName);
                 ListBox1.Items.Add(NewStr);
                 ListBox1.Items.Add(OldStr);
          end;
       end;

     if Length(Trim(SQL)) > 0 then
     begin
       Sql := RightStr(Sql,Length(Sql)-1);
     end;

     UIBQuery1.SQL.Add(SQL);

     UIBQuery1.SQL.Add('WHERE EMP_NO = ' + VarToStr(DeltaDS.FieldByName('EMP_NO').OldValue));

     Memo1.Lines.Assign(UIBQuery1.SQL);

     UIBQuery1.ExecSQL;

      DeltaDS.Next;
  end;
    Applied := true;
  //UIBDeltaDs.Free;
end;

ここで、テーブルに対する操作は、UpdateKindで、変更対象のレコードは、DeltaDS
で取得できる。

あとは、適当なタイミングでClientDataSetのApplyUpdateメソッドをよびだせば、
データの更新ができる。(今回はボタンのクリックに割り当てた。)

以下、ソース例

procedure TForm1.Button1Click(Sender: TObject);
begin
  //ClientDataSet1.Post;
    UIBClientDataSet1.ApplyUpdates(-1);
end;

Unified Interbaseコンポーネントをつかってみた（その３）

2011-02-06T02:15:00.001+09:00

Unified Interbaseコンポーネントをつかってみた（その1）でUIBDataSet経由でDBグリッドに
データを表示した。

しかし、UIBDataSetはReadOnlyのデータセットなので、編集が不可となっています。
(前回のサンプルを実行してもグリッドに入力ができません。)

いくつか、実験をおこなった結果、UIBDataSetは、単方向データセットとして機能している
ようなので、ClientDataSetを経由で接続すれば、DbExpressドライバのように使えるはず
だと思い試してみた。

以下、試して確認できたことを備忘録代わりに記述

フォームにTClientDataSetコンポーネントとTDataSetProviderコンポーネントを配置し、
UIBDataset → DatasetProvieder → ClientDataset → DataSourceにリンク変更

ここで、ClientDataset をActiveにするとタイムスタンプがうまく処理できないようでエラーが
発生するので、ClinetDataSet、およびUIBDataSetのソースを調べた結果、以下のとおり
データ形式の不整合があった。

UIBDataSet -> TDatetime型
ClinetDataSet　→ 通算のミリ秒(ftDatetime指定時）

そこで、ClientDatasetと時刻データが正しく連携が取れるようUIBDataSetを拡張したコンポーネントで、接続した。
以下、ソース

unit UIBCdsDataSet;

interface

uses
  SysUtils, Classes, DB, uibdataset;

type
  TUIBCdsDataSet = class(TUIBDataSet)
  private
    { Private 宣言 }
  protected
    { Protected 宣言 }
  public
    { Public 宣言 }
    function GetFieldData(FieldNo: Integer; Buffer: Pointer): Boolean; overload;{$IFNDEF FPC} override; {$ENDIF}
    {$IFNDEF FPC}
    function GetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean): Boolean; overload; override;
    {$ENDIF}
  published
    { Published 宣言 }
  end;

procedure Register;

implementation

uses uiblib;

procedure Register;
begin
  RegisterComponents('UIB', [TUIBCdsDataSet]);
end;

{ TUIBCdsDataSet }

function TUIBCdsDataSet.GetFieldData(FieldNo: Integer;
  Buffer: Pointer): Boolean;
var
  doubleBuf : TDateTime;
  aFieldType: TUIBFieldType;
  tsbuf : TTimeStamp;
begin

 Result := inherited GetFieldData(FieldNo, Buffer);
  if not(Result) then Exit;
  if Buffer = nil then Exit;

  aFieldType := Self.InternalFields.FieldType[FieldNo -1];

  if aFieldType = uftTimestamp then
  begin
   doubleBuf := TDateTime(Buffer^);
    tsbuf := DateTimeToTimeStamp(doubleBuf);

   Double(Buffer^) :=  TimeStampToMSecs(tsbuf);
 end;
end;

function TUIBCdsDataSet.GetFieldData(Field: TField; Buffer: Pointer;
  NativeFormat: Boolean): Boolean;
var
 //SF : TSQLResult;
  doubleBuf : TDateTime;
  aFieldType: TUIBFieldType;
  tsbuf : TTimeStamp;
begin

  Result := inherited GetFieldData(Field, Buffer,NativeFormat);
  if not(Result) then Exit;
  if Buffer = nil then Exit;

  //SF := Self.InternalFields;
  aFieldType := Self.InternalFields.FieldType[Field.FieldNo-1];

  if aFieldType = uftTimestamp then
  begin
   doubleBuf := TDateTime(Buffer^);
    tsbuf := DateTimeToTimeStamp(doubleBuf);

   Double(Buffer^) :=  TimeStampToMSecs(tsbuf);
  end;

end;

end.

これで時刻型のフィールドでエラーが発生することなく連携ができた。

Unified Interbaseコンポーネントをつかってみた（その2-- Delphi2007に入れる）

2011-01-30T01:35:00.000+09:00

Unified Interbaseコンポーネントは、Delphi2007で使えます。

インストールするには、UIBD11Win32.groupprojを開き
実行時パッケージ→開発時パッケージの順でインストールします。

ただし、Delphi2007のUnified Interbaseコンポーネントは、内部で
SynEditコンポーネントを使用しているので先にSynEditをインストール
する必要があります。

SynEditは、次の手順でインストールします。（自分が行った方法です。)

1. ダウンロードサイトより最新版(2011.01.30現在では2.0.6)をダウンロードして
適当な場所に解凍します。

2. PackageフォルダーからDelphi2006用のプロジェクトグループ
SynEdit_R2006.groupprojを開きます。(Delphi2007用のものがない為です。)

3. プロジェクトファイル名をSynEdit_R2007.groupproj、および、として保存します。
これは、下図のようにDelphi2007用のパッケージがSynEdit_R2007を
要求しているからです。

(ここをR2006にしても良いと思いますが自分はSynEditのパッケージ名を変えました。)

4. SynEditをインストールします。

なお、この状態で、SynEditの開発用パッケージもインストールする場合は、

(a)．上記2と同様にSynEdit_D2006.groupprojを開き
(b). パッケージソースファイルをのrequiresのSynEdit_R2006をSynEdit_R2007と
しパッケージ名をSynEdit_D2007.groupprojに変更して保存し
(c)．開発時パッケージをインストールします。

Unified Interbaseコンポーネントをつかってみた（その１）

2011-01-27T23:23:00.000+09:00

Unified Interbaseコンポーネントは、Delphi XE対応のInterbase, Firebird接続用のコンポーネントです。
FB2.5にも対応しているということなのでちょっと試してみたので備忘録代わりに記述

先ずは、インストール

Unified Interbaseのリポジトリからファイルをダウンロード

ダウンロードしたZIPファイルを適当なフォルダに展開し、パッケージフォルダから
UIBD15Win32.groupprojを開く。

開発時パッケージUIBD15Win32D.bplをインストール
エラーが発生しなければ

下図のようにツールパレットにコントロールが登録されます。

Firebirdに接続してみる。

フォームにTUIBDatabaseコンポーネントを配置して右クリックを押すと
接続エディタが表示されるので、接続情報を入力する。
テストボタンで接続をテストすることができます。

UIBDataSetコンポーネントを配置しDatabsaeプロパティにUIBDatabseを指定します。
SQLプロパティにSQL文を記述します。

次に、UIBTransactionプロパティを配置し、DatabaseプロパティにUIBDatabseを指定します。
（UIBTransactionは、きめ細かい設定ができるようなのですが、ここではそのまま使います。）

また、UIBDataSetコンポーネントのTransactionプロパティにUIBTransactionを指定します。

あとは、DataSourceコンポーネントを介してDatabaseコントロールと接続します。

UIBDatabseのConnectedプロパティと、UIBDatasetのActiveプロパティをTrueにすれば
下図のようにデータが読み込めます。

プロセスの再起動

2010-12-09T23:19:00.000+09:00

仕事で、プロセスを外部から強制的に再起動を
する必要があったのでとりあえずつくってみた。

停止させるプロセスは、仕様上一意性が保障されている
ので、コマンドライン引数に起動するプロセスの絶対パスを
与えて、そこからプロセスIDを求めています。

プロセスに停止メッセージ（メインウインドウのクローズ）を
ポストし、5秒まっても終了していなかったら
強制終了しています。

プロセスの起動には、JvCreateProcessコンポーネントを
使っています。
このコンポーネントは、非常に便利ですね。

program RestartProcess;

{$APPTYPE CONSOLE}

uses
  SysUtils,Windows,TLHELP32,Messages,JvCreateProcess;


function GetProcessFromName(ProcessName :String) : Cardinal;
var
   ProcEntry : TProcessEntry32;
   SanpshotHandle : THandle;
   ListProcName : String;

begin
   //Toolhelp32を使用する例
  Result := 0;
   SanpshotHandle := TlHelp32.CreateToolhelp32Snapshot(TlHelp32.TH32CS_SNAPPROCESS,0);
   if (SanpshotHandle <> -1) then
      begin
         ProcEntry.dwSize := Sizeof(TProcessEntry32W);
         if (TlHelp32.Process32First(SanpshotHandle,ProcEntry)) Then
         begin
            repeat
              ListProcName := ProcEntry.szExeFile;
              if CompareText(ListProcName,ProcessName) = 0 then
              begin
                 Result := ProcEntry.th32ProcessID;
              end;
              //WriteLn(ListProcName);
          until (TlHelp32.Process32Next(SanpshotHandle,ProcEntry) = false);
       end;
    end;
    CloseHandle(SanpshotHandle);

end;


function EnumWindowsProc(hwindow :HWnd; lparam :LPARAM):BOOL; stdcall;
var
  ProcessID : Cardinal;
  ThreadID : Cardinal;
begin

   Result := True;

   ThreadID := GetWindowThreadProcessId(hwindow, ProcessID);

   If (ProcessID = lParam) Then
   begin
      PostMessage(hwindow, WM_CLOSE, 0, 0);
     Result := true;
   End;
End;


function SendClose(ProcID : Cardinal) : Boolean;
begin
   Result := EnumWindows(@EnumWindowsProc, ProcID)
End;

function StopProcess(ProcessName : String; Force : Boolean = false) : Integer;
var
   ProcessID : Cardinal;
  hProcess : THandle;
begin
   ProcessID := GetProcessFromName(ProcessName);
  if ProcessID = 0 then
  begin
     Result := -1;
  end
  else
  begin
     if (ProcessID > 0) Then
     begin
        if Force then
        begin
           hProcess := OpenProcess(PROCESS_TERMINATE, False, ProcessID);
           TerminateProcess(hProcess , 0 );
           CloseHandle(hProcess);
           Result := 0;
        end
        else
        begin
           Result := 1;
           if SendClose(ProcessID) then
           begin
              Result := 0;
           end;
        end;
     end;
  end;
end;

var
   StopResult : Integer;
   JvCreateProcess: TJvCreateProcess;
  ExeName : String;
  ProcessID : Cardinal;

begin
  try
  { TODO -oUser -cConsole Main : ここにコードを記述してください }

     if ParamCount > 0 then
     begin
        ExeName := ExtractFileName(ParamStr(1));
         StopResult := StopProcess(ExeName);

        //五秒まって停止イしたかどうかを確認する
        Sleep(5000);

        ProcessID := GetProcessFromName(ExeName);

        //プロセスが正常に停止できなかったので' +
        //強制終了する
        if ProcessID > 0 Then
        begin
           StopResult := StopProcess(ExeName,true);
           Sleep(10000);
        end;


        if StopResult <> 1 then
        begin
           JvCreateProcess := TJvCreateProcess.Create(nil);
           try
              JvCreateProcess.CommandLine := ParamStr(1);
              JvCreateProcess.WaitForTerminate := false;
              JvCreateProcess.Run;
           finally
              JvCreateProcess.Free;
            end;
        end;
     end;
     //ReadLn;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

StartsStr関数,EndsStr関数

2010-11-05T00:11:00.000+09:00

プログラムの作成中にHelpを眺めていてたまたま目についた関数

StartsStrは、ある文字列が指定したサブ文字列で始まるかをチェックする関数
EndsStrは、ある文字列が指定したサブ文字列で終わるるかをチェックする関数
ともに大文字小文字は別物として扱います。

上記のようなチェックを大文字小文字区別しないで行う関数もあり、
それぞれ、StartsText,EndsTexstです。

以下、サンプル

WriteLn('大文字小文字区別して比較');
      if StartsStr('so','So What ?') then
      begin
       WriteLn('はじまるよ')
      end
      else
      begin
       WriteLn('はじまらない')
      end;

      WriteLn('大文字小文字区別なしに比較');
      if StartsText('so','So what ?') then
      begin
       WriteLn('はじまるよ')
      end
      else
      begin
       WriteLn('はじまらない')
      end;

でも、これらの関数っていつからあったのだろうか？
手元の環境で調べたところ少なくともDelphi2007には
あったようだけど

Purgeもどき

2010-11-03T22:49:00.000+09:00

仕事で使っているアプリケーションがExeName_YYYYMMDDHHNNSS.Logのような
ログファイルを一杯作るので、消してくれという依頼があった。

ただし、このフォルダには、上記のログを作るファイルがいくつかああって
3世代程度は残してくれという依頼があった。

昔、仕事で触ってたOpenVmsのファイルシステムにはバージョンというのが
あって、古いバージョンのファイルを消すPurgeコマンドがあり
これとにたようなものが欲しいなということで、とりあえず作ってみた。
(本家には似ても似つかぬ、あくまでももどきですが。）

使い方は、

PurgeMock "パージファイルマスク" /D:パージファイルがあるフォルダ /G:残す世代数

で、/R: を指定することで、パージファイルマスクに正規表現が使用できます。

また、ファイルの更新日時を基準に/G:で指定した数だけ残るよう古い日付のものを
削除しますが、 /T:を指定することでファイルの作成日時を基準にPurgeすることが
できます。

なお、パージファイルマスクにより、複数の異なるファイル名のファイルが削除対象
となりえますが、このツールでは、このような場合のことを想定しておりません。
（/G:で指定した数になるようにばっさり消します。）

以下、ソース(delphi Xeがあればコンパイル可能です。)を置いておきます。
ライセンスは、MITライセンスとします。
ソース使用は自由ですが、無保証とします。

まずはメイン。

program PurgeMock;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  PurgeMockImp in 'PurgeMockImp.pas',
  MidasLib
  ;

function CreatePurgeMockParams : TPurgeMockParams;
var
  PurgeMockParams : TPurgeMockParams;
 i : Integer;
begin

  PurgeMockParams := TPurgeMockParams.Create;
  try
    try
   PurgeMockParams.Init(Paramstr(0));
   for i := 1 to ParamCount -1 do
      begin
       PurgeMockParams.SetPurgeParam(Paramstr(i));
      end;
    except
      PurgeMockParams.Free;
      PurgeMockParams := nil;
    end;

  finally
    Result := PurgeMockParams;
  end;

end;

var
  PurgeMockParams : TPurgeMockParams;
  DoPurgeMock     : TPuregMock;
  Ret : Integer;

begin
  try
    { TODO -oUser -cConsole メイン : ここにコードを記述してください }
    PurgeMockParams := CreatePurgeMockParams;
    if Assigned(PurgeMockParams) then
    begin
      DoPurgeMock := TPuregMock.Create(PurgeMockParams);
      try
        Ret := DoPurgeMock.Purge;
      finally
        DoPurgeMock.Free;
      end;
      PurgeMockParams.Free;
    end;


  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

次に、パージコマンドの本体

unit PurgeMockImp;

interface

uses
  SysUtils
 ,DB
  ,DBClient
  ;

type
  TPurgeTimeStamp = (ptCreate, ptUpdate);

  TPurgeMockParams = class
  private
    FTargetDir: String;
    FUseRegularExpression: Boolean;
    FFileMask: String;
    FLeavingGenerations: Integer;
    FPurgeTimeStamp: TPurgeTimeStamp;
    procedure SetTargetDir(val: String);
    procedure SetUseRegularExpression(val: Boolean);
    procedure SetFileMask(val: String);
    procedure SetLeavingGenerations(val: Integer);
    procedure SetPurgeTimeStamp(val: TPurgeTimeStamp);
  public
    property TargetDir: String read FTargetDir write SetTargetDir;
    property UseRegularExpression: Boolean read FUseRegularExpression
      write SetUseRegularExpression;
    property FileMask: String read FFileMask write SetFileMask;
    property LeavingGenerations: Integer read FLeavingGenerations
      write SetLeavingGenerations;
    property PurgeTimeStamp: TPurgeTimeStamp read FPurgeTimeStamp
      write SetPurgeTimeStamp;
    procedure Init(ExePath: String);
  procedure SetPurgeParam(PurgeParam : String);
  end;

  TPuregMock = class
  public
    constructor Create(Params: TPurgeMockParams);
    function Purge: Integer;
    destructor Destroy; override;
  strict private
    FPurgeMockParams: TPurgeMockParams;
    FPurgeMockDataSet : TClientDataSet;
    function MakePurgeFileList: Integer;
    function ExecPurge: Integer;
    function CreatePurgeDataSet : TClientDataSet;
  end;

  function TryParseCmdLineSw(ParameterString : String; Sw : Array of String; var ParamValue : String; IgnoreCase: Boolean = true) : boolean;

implementation

Uses
   StrUtils
  ,IOUtils
  ,Types
  ,RegularExpressionsCore
  ;

procedure TPurgeMockParams.SetTargetDir(val: String);
begin
  FTargetDir := val;
end;

procedure TPurgeMockParams.SetUseRegularExpression(val: Boolean);
begin
  FUseRegularExpression := val;
end;

procedure TPurgeMockParams.Init(ExePath: String);
begin

 FTargetDir := ExtractFileDir(ExePath);
 FUseRegularExpression := false;
 FileMask := '*.*';
 FLeavingGenerations := 1;
 FPurgeTimeStamp := ptUpdate;

end;

procedure TPurgeMockParams.SetFileMask(val: String);
begin
  FFileMask := val
end;

procedure TPurgeMockParams.SetLeavingGenerations(val: Integer);
begin
 if Val >= 0 then
  begin
   FLeavingGenerations := val;
  end
  else
  begin
   FLeavingGenerations := 0;
  end;
end;

procedure TPurgeMockParams.SetPurgeParam(PurgeParam: String);
var
  ValueStr : String;
begin

 if TryParseCmdLineSw(PurgeParam,['/D:','-D:'],ValueStr) then
  begin
   FTargetDir := ValueStr;
    Exit;
  end;

 if TryParseCmdLineSw(PurgeParam,['/U:','-U:'],ValueStr) then
  begin
   FUseRegularExpression := true;
    Exit;
  end;

 if TryParseCmdLineSw(PurgeParam,['/G:','-G:'],ValueStr) then
  begin
   LeavingGenerations := StrToIntDef(ValueStr,1);
    Exit;
  end;

 if TryParseCmdLineSw(PurgeParam,['/T:','-T:'],ValueStr) then
  begin
   FPurgeTimeStamp := ptCreate;
    Exit;
  end;

 if TryParseCmdLineSw(PurgeParam,[],ValueStr) then
  begin
    FFileMask := ValueStr;
    Exit;
  end;

end;

procedure TPurgeMockParams.SetPurgeTimeStamp(val: TPurgeTimeStamp);
begin
  FPurgeTimeStamp := val;
end;

constructor TPuregMock.Create(Params: TPurgeMockParams);
begin
  inherited Create;
  FPurgeMockParams := Params;
end;

function TPuregMock.Purge: Integer;
begin

  Result := -1;

 FPurgeMockDataSet := CreatePurgeDataSet;
  if Assigned(FPurgeMockDataSet) then
  begin
    if MakePurgeFileList > 0 then
    begin
      Result := ExecPurge;
    end;
    FPurgeMockDataSet.EmptyDataSet;
    FPurgeMockDataSet.Active := false;
    FPurgeMockDataSet.Free;
  end;

end;

function TPuregMock.CreatePurgeDataSet: TClientDataSet;
var
 PurgeDataSet : TClientDataSet;
 FD : TFieldDef;
begin
 PurgeDataSet := TClientDataSet.Create(nil);
  try
    try
   FD := PurgeDataSet.FieldDefs.AddFieldDef;
      FD.Name := 'FileName';
      FD.DataType := ftString;
      FD.Size := 1024;

   FD := PurgeDataSet.FieldDefs.AddFieldDef;
      FD.Name := 'TimeStamp';
      FD.DataType := ftDatetime;

      PurgeDataSet.CreateDataSet;
      PurgeDataSet.AddIndex('Purge_Idx','TimeStamp;FileName',[]);
      PurgeDataSet.IndexName := 'Purge_Idx';

    Except
     if Assigned(PurgeDataSet) then PurgeDataSet.Free;
      PurgeDataSet := nil;
    end;
  finally
   Result := PurgeDataSet;
  end;
end;

destructor TPuregMock.Destroy;
begin
  if Assigned(FPurgeMockParams) then
  begin
    FPurgeMockParams := nil;
  end;

  inherited Destroy;
end;

function TPuregMock.MakePurgeFileList: Integer;
var
 SearchOption: TSearchOption;
 SearchDir : TDirectory;
  SearchFileMask : String;
  LList: TStringDynArray;
  FileFullName,FileName : String;
  CanAddList : Boolean;
  PerlRegEx: TPerlRegEx;
  PurgeFile : TFile;

begin

  Result := 0;

  //使っても使わなくても正規表現用のクラスをオープンしておく。
  PerlRegEx:= TPerlRegEx.Create;
  try
    SearchOption := TSearchOption.soTopDirectoryOnly;
    SearchFileMask := FPurgeMockParams.FileMask;


    if FPurgeMockParams.UseRegularExpression then
    begin
      PerlRegEx.RegEx := SearchFileMask;
      SearchFileMask := '*.*';
    end;

    try
      LList := SearchDir.GetFiles(FPurgeMockParams.FTargetDir,SearchFileMask, SearchOption);
      FPurgeMockDataSet.Active := true;
      for FileFullName in LList do
      begin
        CanAddList := true;
        if FPurgeMockParams.UseRegularExpression then
        begin
          FileName := ExtractFileName(FileFullName);
          PerlRegEx.Subject := FileName;
          CanAddList := PerlRegEx.Match;
        end;

        if CanAddList then
        begin
          //パージ対象リストに追加
          FPurgeMockDataSet.Append;
          FPurgeMockDataSet.FieldByName('FileName').AsString := FileFullName;
          if FPurgeMockParams.FPurgeTimeStamp = ptCreate then
          begin
           FPurgeMockDataSet.FieldByName('TimeStamp').AsDateTime := PurgeFile.GetCreationTime(FileFullName);
          end
          else
          begin
           FPurgeMockDataSet.FieldByName('TimeStamp').AsDateTime := PurgeFile.GetLastAccessTime(FileFullName);
          end;
          FPurgeMockDataSet.Post;
        end;
      end;
      Result := FPurgeMockDataSet.RecordCount;

    except
      Result := -1;
    end;
  finally
  if Assigned(PerlRegEx) then PerlRegEx.Free;

  end;
end;

function TPuregMock.ExecPurge: Integer;
var
 DeleteCount : integer;
  DeleteFileName : string;
  PurgeFile : TFile;
begin
  DeleteCount := 0;

  try
    FPurgeMockDataSet.Active := true;
    FPurgeMockDataSet.First;

    while not(FPurgeMockDataSet.Eof) do
    begin
      DeleteFileName := FPurgeMockDataSet.FieldByName('FileName').AsString;
      PurgeFile.Delete(DeleteFileName);
      inc(DeleteCount);

      //レコードをDeleteした場合は、Next不要なので注意
      FPurgeMockDataSet.Delete;
      if FPurgeMockDataSet.RecordCount <= FPurgeMockParams.LeavingGenerations then Break;
    end;
   Result := DeleteCount;

  Except
   Result := -1;
  end;
end;

function TryParseCmdLineSw(ParameterString : String;
                           Sw : Array of String;
                           var ParamValue : String;
                           IgnoreCase: Boolean) : boolean;
var
 i : integer;
begin

 Result := false;

  if Length(Sw) = 0 then
  begin
   //SW指定がない場合はそのままの文字列を返す
   ParamValue := ParameterString;
    Result := true;
  end
  else
  begin
   for i := low(Sw) to high(Sw) do
    begin
      if IgnoreCase then
      begin
        if StartsText(Sw[i],ParameterString) then
        begin
          Result := true;
          ParamValue := ReplaceText(ParameterString,Sw[i],'');
          Break;
        end;
      end
      else
      begin
        if StartsStr(Sw[i],ParameterString) then
        begin
          Result := true;
          ParamValue := ReplaceStr(ParameterString,Sw[i],'');
          Break;
        end;
      end;
    end;
  end;

end;

end.

サービスの起動と停止

2010-11-03T00:18:00.000+09:00

現在、進行中の案件で、サービスの再起動を定期的に行う必要が
あるので、Delphiでできるかどうか調べてみた。

Delphi PrismではdotNetFreameworkに標準で用意されたクラスが使えるので
簡単だが、Delphi(Win32)では用意されていないみたいだ。

さらに調べたところ、Jedi Code Library(Jcl)には、サービスを扱うクラス
(TJclSCManager,TJclNTService)が用意されていることを知ったので、
実際に検証してみた。

以下、検証用に作ったサンプル（サービスの列挙と指定したサービスの
停止と起動）です。

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses
    JclSvcCtrl
  , TypInfo
  ;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  SvcMgr : TJclSCManager;
  i : Integer;
begin
//
  SvcMgr := TJclSCManager.Create();

  try
    SvcMgr.Refresh(true);
    ListBox1.Clear;
    for i := 0 to SvcMgr.ServiceCount -1 do
    begin
      ListBox1.Items.Add(SvcMgr.Services[i].ServiceName);
    end;


  finally
    SvcMgr.Free;
  end;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  SvcMgr : TJclSCManager;
  Svc : TJclNTService;
begin
//
  //if True then
  SvcMgr := TJclSCManager.Create();
  try
    SvcMgr.Refresh(true);
    if (SvcMgr.FindService(LabeledEdit1.Text,Svc)) Then
    begin
      if TComponent(Sender).Tag = 1 then
      begin
        Svc.Start;
      end
      else
      begin
        Svc.Stop;
      end;
      Label1.Caption := GetEnumName(TypeInfo(TJclServiceState),Ord(Svc.ServiceState)) ;
    end;
  finally
    SvcMgr.Free;
  end;


end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  SvcMgr : TJclSCManager;
  Svc : TJclNTService;
begin
  if ListBox1.ItemIndex >=0 then
  begin
    LabeledEdit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
    SvcMgr := TJclSCManager.Create();
    try
      SvcMgr.Refresh(true);
      if (SvcMgr.FindService(LabeledEdit1.Text,Svc)) Then
      begin
        Label1.Caption := GetEnumName(TypeInfo(TJclServiceState),Ord(Svc.ServiceState));
      end;
    finally
      SvcMgr.Free;
    end;

  end;

end;

end.

なお、jclには上記クラスを使用したサンプルプログラムがありますので詳細については
そちらを参照して下さい。

JvScheduledEventsを試してみる。

2010-11-02T00:47:00.000+09:00

仕事で、とあるプロセスを定刻起動する必要があった。

ＯＳ標準のタスクスケジューラを使用してもよっかったが
起動できるのがバッチファイルか単独のEXEになるので
もううちょっと処理を柔軟にしたいと思いJVCLの
JvScheduledEventsを試してみた。

TJvScheduledEventsは、画面でスケジューリングの
設定が可能であるが、今回は、スケジュールを外部
ファイルに持たせたかったので、プラグラム中で
設定することにした。

以下、サンプルで試したソース。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, JvScheduledEvents, StdCtrls, ExtCtrls, ComCtrls, JvComponentBase,
  JvCreateProcess;

type
  TForm1 = class(TForm)
    Button1: TButton;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    LabeledEdit1: TLabeledEdit;

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    FJvScheduledEvents : TJvScheduledEvents;
    procedure JvScheduledEventsExecute(Sender: TJvEventCollectionItem;
              const IsSnoozeEvent: Boolean);
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  JclSchedule;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  EventItem : TJvEventCollectionItem;
  IJclSched : JclSchedule.IJclSchedule;
  IDaySched : IJclDailySchedule;
  IDyaFreq : IJclScheduleDayFrequency;

begin
  EventItem := FJvScheduledEvents.Events.Add;
  IJclSched := EventItem.Schedule;

   //イベントアイテムのスケジュール自体は、
   //IJclScheduleで受けますが、実態はTJclScheduleで
   //IJclScheduleのほか
   //IJclScheduleDayFrequency,
   //IJclDailySchedule,
    //IJclWeeklySchedule,
   //IJclMonthlySchedule,
   //IJclYearlySchedule
   //を継承しています。

   IJclSched.RecurringType := srkDaily;

   IDaySched := (IJclSched as IJclDailySchedule);
   if Assigned(IDaySched) then
   begin
      //毎日実行する場合は、EveryWeekDayをFalseにして
      //間隔を1(日)にします。
      IDaySched.EveryWeekDay := false;
      IDaySched.Interval := 1;
   end;

   IDyaFreq := (IJclSched as IJclScheduleDayFrequency);
   if Assigned(IDyaFreq) then
   begin
      IDyaFreq.StartTime := DateTimeToTimeStamp(Self.DateTimePicker1.Time).Time;
      IDyaFreq.EndTime   := IDyaFreq.StartTime;
      IDyaFreq.Interval := 1;
   end;

   EventItem.Name := LabeledEdit1.Text;
   EventItem.OnExecute := JvScheduledEventsExecute;
   EventItem.Start;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FJvScheduledEvents := TJvScheduledEvents.Create(Self);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FJvScheduledEvents.Events.Clear;
  FJvScheduledEvents.Free;
end;

procedure TForm1.JvScheduledEventsExecute(Sender: TJvEventCollectionItem;
  const IsSnoozeEvent: Boolean);
var
  JvCreateProcess: TJvCreateProcess;
begin

  JvCreateProcess := TJvCreateProcess.Create(Self);
  try
    JvCreateProcess.CommandLine := Sender.Name;
    JvCreateProcess.WaitForTerminate := true;
    JvCreateProcess.Run;

  finally
    JvCreateProcess.Free;
  end;


end;

end.

ポイントは、以下の２つかと思います。

JclScheduleをUsesに加えることと
TJvEventCollectionItem.Scheduleの戻り値がIJclSchedule型であるが実態はTJclSchedule型でIJclScheduleのほかIJclScheduleDayFrequency,IJclDailySchedule,IJclWeeklySchedule,IJclMonthlySchedule,
IJclYearlyScheduleを継承していて設定したいスケジュールにあわせて適切にキャストする必要があること

今回のサンプルは、『ボタンを押したら指定した時刻にメモ帳を起動する』というタイマーで処理しても
十分なものですが、リフレクション、パッケージの動的ロードなどを使えば、もっと面白いことが
できそうな気がします。

SQL Server のデータベースのテーブルとフィールド名を表示する。（その2)

2010-09-23T23:50:00.000+09:00

Sql Server 2005以上であれば、システムカタログに対してクエリを発行することで
テーブル名とフィールド名のリストの取得ができます。
(詳細は、システムカタログのクエリのQandAページを参照)

クエリを発行できるということは、

程度の画面であればマスターリンクを使ってノンコーディング
（クエリーは組む必要はありますが）でテーブルとフィールドのリストを表示できます。

このへんがDelphiのすごいところですね。

以下、フォーム表示をテキスト表示したもの

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 535
  ClientWidth = 727
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
   Left = 0
   Top = 0
   Width = 727
   Height = 535
   ActivePage = TabSheet2
   Align = alClient
   TabOrder = 0
   object TabSheet1: TTabSheet
   Caption = 'TabSheet1'
   object Label1: TLabel
   Left = 192
   Top = 88
   Width = 56
   Height = 13
   Caption = #12501#12451#12540#12523#12489#21517
   end
   object Label2: TLabel
   Left = 16
   Top = 88
   Width = 50
   Height = 13
   Caption = #12486#12540#12502#12523#21517
   end
   object Label3: TLabel
   Left = 552
   Top = 88
   Width = 56
   Height = 13
   Caption = #12501#12451#12540#12523#12489#21517
   end
   object Label4: TLabel
   Left = 376
   Top = 88
   Width = 50
   Height = 13
   Caption = #12486#12540#12502#12523#21517
   end
   object Button1: TButton
   Left = 96
   Top = 16
   Width = 169
   Height = 33
   Caption = 'dbGo'#12398#12513#12477#12483#12489#12434#20351#29992
   TabOrder = 0
   OnClick = Button1Click
   end
   object ListBox1: TListBox
   Left = 16
   Top = 106
   Width = 169
   Height = 401
   ItemHeight = 13
   TabOrder = 1
   OnClick = ListBox1Click
   end
   object ListBox2: TListBox
   Left = 191
   Top = 106
   Width = 169
   Height = 401
   ItemHeight = 13
   TabOrder = 2
   end
   object ListBox3: TListBox
   Left = 376
   Top = 106
   Width = 169
   Height = 401
   ItemHeight = 13
   TabOrder = 3
   OnClick = ListBox3Click
   end
   object ListBox4: TListBox
   Left = 550
   Top = 106
   Width = 169
   Height = 401
   ItemHeight = 13
   TabOrder = 4
   end
   object Button2: TButton
   Left = 472
   Top = 16
   Width = 169
   Height = 33
   Caption = 'DbExpress'#12398#12513#12477#12483#12489#12434#20351#29992
   TabOrder = 5
   OnClick = Button2Click
   end
   end
   object TabSheet2: TTabSheet
   Caption = 'TabSheet2'
   ImageIndex = 1
   object DBGrid1: TDBGrid
   Left = 0
   Top = 0
   Width = 145
   Height = 507
   Align = alLeft
   DataSource = DataSource1
   TabOrder = 0
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -11
   TitleFont.Name = 'Tahoma'
   TitleFont.Style = []
   Columns = <
   item
   Expanded = False
   FieldName = 'Name'
   Visible = True
   end>
   end
   object DBGrid2: TDBGrid
   Left = 145
   Top = 0
   Width = 160
   Height = 507
   Align = alLeft
   DataSource = DataSource2
   TabOrder = 1
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -11
   TitleFont.Name = 'Tahoma'
   TitleFont.Style = []
   Columns = <
   item
   Expanded = False
   FieldName = 'NAME'
   Visible = True
   end>
   end
   end
   object TabSheet3: TTabSheet
   Caption = 'TabSheet3'
   ImageIndex = 2
   object DBGrid3: TDBGrid
   Left = 0
   Top = 0
   Width = 177
   Height = 507
   Align = alLeft
   DataSource = DataSource3
   TabOrder = 0
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -11
   TitleFont.Name = 'Tahoma'
   TitleFont.Style = []
   Columns = <
   item
   Expanded = False
   FieldName = 'Name'
   Visible = True
   end>
   end
   object DBGrid4: TDBGrid
   Left = 177
   Top = 0
   Width = 184
   Height = 507
   Align = alLeft
   DataSource = DataSource4
   TabOrder = 1
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -11
   TitleFont.Name = 'Tahoma'
   TitleFont.Style = []
   Columns = <
   item
   Expanded = False
   FieldName = 'NAME'
   Visible = True
   end>
   end
   end
  end
  object ADOConnection1: TADOConnection
   Connected = True
   ConnectionString =
   'Provider=SQLNCLI10.1;Integrated Security="";Persist Security Inf' +
   'o=False;User ID=sa;Initial Catalog=AdventureWorks;Data Source=SA' +
   'KANOTE-PC\SqlExpress;Initial File Name="";Server SPN=""'
   LoginPrompt = False
   Provider = 'SQLNCLI10.1'
   Left = 16
   Top = 456
  end
  object SQLConnection1: TSQLConnection
   ConnectionName = 'MSSQLConnection'
   DriverName = 'MSSQL'
   GetDriverFunc = 'getSQLDriverMSSQL'
   LibraryName = 'dbxmss.dll'
   LoginPrompt = False
   Params.Strings = (
   'SchemaOverride=%.dbo'
   'DriverUnit=DBXMSSQL'

   'DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver150.' +
   'bpl'

   'DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borla' +
   'nd.Data.DbxCommonDriver,Version=15.0.0.0,Culture=neutral,PublicK' +
   'eyToken=91d62ebb5b0d1b1b'

   'MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDr' +
   'iver150.bpl'

   'MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFact' +
   'ory,Borland.Data.DbxMSSQLDriver,Version=15.0.0.0,Culture=neutral' +
   ',PublicKeyToken=91d62ebb5b0d1b1b'
   'GetDriverFunc=getSQLDriverMSSQL'
   'LibraryName=dbxmss.dll'
   'VendorLib=sqlncli10.dll'
   'MaxBlobSize=-1'
   'OSAuthentication=False'
   'PrepareSQL=True'
   'DriverName=MSSQL'
   'HostName=SAKANOTE-PC\SQLEXPRESS'
   'Database=AdventureWorks'
   'User_Name=sa'
   'Password=sysdba'
   'BlobSize=-1'
   'ErrorResourceFile='
   'LocaleCode=0000'
   'IsolationLevel=ReadCommitted'
   'OS Authentication=False'
   'Prepare SQL=False'
   'ConnectTimeout=60'
   'Mars_Connection=False')
   VendorLib = 'sqlncli10.dll'
   Connected = True
   Left = 464
   Top = 56
  end
  object ADOQuery1: TADOQuery
   Connection = ADOConnection1
   CursorType = ctStatic
   Parameters = <>
   SQL.Strings = (
   'SELECT Object_ID, Name FROM SYS.TABLES')
   Left = 16
   Top = 488
  end
  object DataSetProvider1: TDataSetProvider
   DataSet = ADOQuery1
   Left = 56
   Top = 504
  end
  object ClientDataSet1: TClientDataSet
   Active = True
   Aggregates = <>
   Params = <>
   ProviderName = 'DataSetProvider1'
   Left = 88
   Top = 504
  end
  object DataSource1: TDataSource
   DataSet = ClientDataSet1
   Left = 24
   Top = 184
  end
  object ADOQuery2: TADOQuery
   Connection = ADOConnection1
   CursorType = ctStatic
   Parameters = <
   item
   Name = 'Object_ID'
   DataType = ftInteger
   Value = 14623095
   end>
   SQL.Strings = (
   'SELECT Object_ID , NAME FROM sys.columns')
   Left = 144
   Top = 504
  end
  object ClientDataSet2: TClientDataSet
   Active = True
   Aggregates = <>
   IndexFieldNames = 'Object_ID'
   MasterFields = 'Object_ID'
   MasterSource = DataSource1
   PacketRecords = 0
   Params = <>
   ProviderName = 'DataSetProvider2'
   Left = 208
   Top = 504
  end
  object DataSetProvider2: TDataSetProvider
   DataSet = ADOQuery2
   Left = 176
   Top = 504
  end
  object DataSource2: TDataSource
   DataSet = ClientDataSet2
   Left = 96
   Top = 176
  end
  object ClientDataSet3: TClientDataSet
   Active = True
   Aggregates = <>
   Params = <>
   ProviderName = 'DataSetProvider3'
   Left = 464
   Top = 112
  end
  object DataSetProvider3: TDataSetProvider
   DataSet = SQLQuery1
   Left = 464
   Top = 168
  end
  object SQLQuery1: TSQLQuery
   MaxBlobSize = -1
   Params = <>
   SQL.Strings = (
   'SELECT Object_ID, Name FROM SYS.TABLES')
   SQLConnection = SQLConnection1
   Left = 464
   Top = 216
  end
  object DataSource3: TDataSource
   DataSet = ClientDataSet3
   Left = 456
   Top = 280
  end
  object DataSetProvider4: TDataSetProvider
   DataSet = SQLQuery2
   Left = 600
   Top = 176
  end
  object ClientDataSet4: TClientDataSet
   Active = True
   Aggregates = <>
   IndexFieldNames = 'Object_ID'
   MasterFields = 'Object_ID'
   MasterSource = DataSource3
   PacketRecords = 0
   Params = <>
   ProviderName = 'DataSetProvider4'
   Left = 592
   Top = 104
  end
  object DataSource4: TDataSource
   DataSet = ClientDataSet4
   Left = 576
   Top = 280
  end
  object SQLQuery2: TSQLQuery
   MaxBlobSize = -1
   Params = <
   item
   DataType = ftInteger
   Name = 'Object_ID'
   ParamType = ptInput
   Value = 14623095
   end>
   SQL.Strings = (
   'SELECT Object_ID , NAME FROM sys.columns')
   SQLConnection = SQLConnection1
   Left = 584
   Top = 240
  end
end

SQL Server のデータベースのテーブルとフィールド名を表示する。（その1)

2010-09-23T23:35:00.001+09:00

仕事でSql Serverのテーブルリストを表示する必要があったので・・・

DelphiでSQl Srerverのテーブルリストを表示する方法をいくつか

1. dbGOのConnectionのGetTableNamesメソッドとGetFieldNamesメソッドを利用する。

dbGoのGetTableNamesを利用すればInitial_Catalogで指定したデータベースの
テーブルリストを取得できます。

また、GetFieldNamesを利用すれば、指定したテーブルのフィールドのリストを表示できます。

ソースは、こんな感じ・・・
（ボタンをクリックするとテーブルのリストを表示し、リストの中のテーブルをクリックすると
クリックしたテーブルのリストを表示します。）

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.Connected := true;
  ADOConnection1.GetTableNames(ListBox1.Items,false);
  ADOConnection1.Connected := false;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
  TableName : String;
begin
   if ListBox1.Items.Count > 0 then
   begin
      TableName := ListBox1.Items[ListBox1.ItemIndex];
      if Length(TableName) > 0 then
      begin
        ADOConnection1.Connected := true;
        ADOConnection1.GetFieldNames(TableName,ListBox2.Items);
        ADOConnection1.Connected := false;
      end;
   end;
end;

2. DbExpressを利用する。

DbExpressのSQLConnectionにもGetTableNamesメソッドとGetFieldNamesがあるので
dbGOと同様に処理できます。

ただし、試した中では、DbExpressでは、スキーマを指定しないとdboスキーマのテーブル
しか取得しないようなので、GetSchemaNamesでスキーマ名のリストを取得したうえで
スキーマ毎にテーブルを取得する必要がありました。

でソースはこんな感じ。スキーマ名を取得してる関係でちょっと複雑です。

procedure TForm1.Button1Click(Sender: TObject);

procedure TForm1.Button2Click(Sender: TObject);
var
  GetSchemaNames : TStringList;
  TableNames : TStringList;
  i,j : Integer;
begin
  ListBox3.Items.Clear;
  SQLConnection1.Connected := true;
  GetSchemaNames := TStringList.Create;
  try
    SQLConnection1.GetSchemaNames(GetSchemaNames);
    for i := 0 to GetSchemaNames.Count -1 do
    begin
      TableNames := TStringList.Create;
      try
        SQLConnection1.GetTableNames(TableNames,GetSchemaNames.Strings[i],false);
        for j := 0 to TableNames.Count-1 do
        begin
          ListBox3.Items.Add(GetSchemaNames.Strings[i] + '.' + TableNames.Strings[j]);
        end;
      finally
        TableNames.Free;
      end;
    end;
  finally
    GetSchemaNames.Free;
  end;
  SQLConnection1.Connected := false;
end;

procedure TForm1.ListBox3Click(Sender: TObject);
var
  TableName : String;
begin
   if ListBox1.Items.Count > 0 then
   begin
      TableName := ListBox3.Items[ListBox3.ItemIndex];
      if Length(TableName) > 0 then
      begin
        SQLConnection1.Connected := true;
        SQLConnection1.GetFieldNames(TableName,ListBox4.Items);
        SQLConnection1.Connected := false;
      end;

   end;
end;

JoinStringはないの？（その２）

2010-09-12T21:45:00.000+09:00

Delフサさんから指摘を受けましたので、オープン配列版のJoinString関数を
作成してみました。(Delフサ様ご指摘ありがとうございます。）

でついでに、文字列の最後にDelemeterを付加するかどうかを指定できる
オーバーロード関数をも作ってみました。

以下、ソースコード

unit VbLikeStringUtil;

interface

uses
  StrUtils,Types;

  function JoinString(AStrings : Array of String; Delemeter: String) : String overload;
  function JoinString(AStrings : Array of String; Delemeter: String; AddLastDelemeter : Boolean) : String overload;


implementation

uses
  SysUtils;


function JoinString(AStrings : Array of String; Delemeter: String) : String overload;
begin
  Result := JoinString(AStrings,Delemeter,false);
end;

function JoinString(AStrings : Array of String; Delemeter: String; AddLastDelemeter : Boolean) : String overload;
var
  i : Longint;
begin

  Result := '';
  if (Length(AStrings) > 0) then
  begin

    //最後の
    for i := low(AStrings) to high(AStrings)-1 do
    begin
      Result := Result + AStrings[i] + Delemeter;
    end;

    //文字配列の最後の要素
    Result := Result + AStrings[high(AStrings)];

    //最後にデリミターを付加する場合
    if AddLastDelemeter then
    begin
      Result := Result + Delemeter;
    end;

  end;
end;

でテストコードはこんな感じ。

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses
  StrUtils,Types, VbLikeStringUtil;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  JoinItems : TStringDynArray;
begin


  SetLength(JoinItems,5);

  JoinItems[0] := 'イージス';
  JoinItems[1] := 'ジャスティス';
  JoinItems[2] := 'ザク';
  JoinItems[3] := 'セイバー';
  JoinItems[4] := 'グフ';

  Assert('イージス|ジャスティス|ザク|セイバー|グフ'=JoinString(JoinItems,'|'));

  Label1.Caption := JoinString(JoinItems,'|');



end;

procedure TForm1.Button2Click(Sender: TObject);
begin

  //空配列の場合は空文字を返す
  Assert(''=JoinString([],'|'));

  //通常の場合
  Assert('ミリアリア|キラ|メイリン|バルトフェルド'
     = JoinString(['ミリアリア','キラ','メイリン','バルトフェルド'],'|'));

  //オプションの第３引数にTrueを指定すると文字列の最後にデリミタを付加します。
  Assert('ミリアリア|キラ|メイリン|バルトフェルド|'
     = JoinString(['ミリアリア','キラ','メイリン','バルトフェルド'],'|',true));

  Label1.Caption := JoinString(['ミリアリア','キラ','メイリン','バルトフェルド'],'|',true);
end;

end.

ちなみに、今回の文字列は、Seedの自分の好きなキャラシリーズです。

JoinStringはないの？

2010-09-05T01:07:00.000+09:00

VB6のJoin関数および.Net FrameworkのString.Joinメソッドは、
XEで追加されたほどSplitString使用頻度は多くないがたまに必要に
なることがある。

Help,ソースをざっくり見たところなさそうだったので実装してみた。
（といっても文字列を連結しただけですが・・・)

以下、ソースコード

unit VbLikeStringUtil;

interface

uses
  StrUtils,Types;

  function JoinString(AStrings: TStringDynArray; Delemeter : String) : String;

implementation

uses
  SysUtils;

function JoinString(AStrings: TStringDynArray; Delemeter : String) : String;
var
  i : Longint;
begin

  Result := '';
  for i := low(AStrings) to high(AStrings) do
  begin
    Result := Result + AStrings[i];
    if i < high(AStrings) then Result := Result + Delemeter;
  end;


end;

end.

実際の使用方法のサンプルは、こんな感じ

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses
  StrUtils,Types, VbLikeStringUtil;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  JoinItems : TStringDynArray;
begin


  SetLength(JoinItems,5);

  JoinItems[0] := 'イージス';
  JoinItems[1] := 'ジャスティス';
  JoinItems[2] := 'ザク';
  JoinItems[3] := 'セイバー';
  JoinItems[4] := 'グフ';


  Label1.Caption := JoinString(JoinItems,'|');


end;

end.

SplitStringを試してみる。

2010-09-03T23:52:00.001+09:00

Delphi XEでSplitString関数が追加された。VBにあって、Delphiになかった関数で
個人的には気になってた関数です。（欲しかった関数です。）

で、ちょっとためしてみた。

以下、ソースコード

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  StrUtils,Types;

procedure TForm1.Button1Click(Sender: TObject);
var
  TestString : String;
  SplitResult:TStringDynArray;
begin
  TestString := 'フリーダム,ジャスティス,デストロイ,セイバー';
  SplitResult := SplitString(TestString,',');
  Label1.Caption := TestString;

  for TestString in SplitResult do begin
    ListBox1.Items.Add(TestString);
  end;

end;

end.

Visual Basicライクで非常に簡単に使えます。

内部的には、FindDelimiter関数を使ってDelemeterをみつけ
Copy関数で部分文字列を切り出してます。

これなら、下位バージョンでも実装できそうですね。

ところでFindDelimiter関数は、いつから存在したのでしょうか？
個人的には、Delphiにはまだまだ知らない便利な関数が一杯ありそうです。

2010.09.10 山本隆の開発日記で紹介して頂いたので
調子にのってC++ Builderで書いてみました。
(C++は自信がないので、役に立つかどうかわかりませんが・・・)

//---------------------------------------------------------------------------

#include 
#include 
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
 : TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

 UnicodeString TestString = "イージス|バスター|デュエル|ブリッツ|ストライク";

 LabeledEdit1->Text = TestString;

 TStringDynArray SplitResult = SplitString(TestString,"|");

 for (int i = 0; i < SplitResult.Length; i ++) {
  ListBox1->Items->Add(SplitResult[i]);
 }

 SplitResult.set_length(0);

}
//---------------------------------------------------------------------------

SameValue関数

2010-05-03T09:44:00.001+09:00

StackOverFlowのTopicのトピックを見ていてDelphiのMathユニットに

SameValue関数なる関数が用意されていることを初めて知りました。

この関数は、指定した値が、２つの値がEpsilonで指定した値以内に
あれば、等しいと見なす関数です。

DelphiというかVCL(RTLも含むには）便利な比較関数が用意されています。

今まで、都度都度、自作していたかと思うとちょっと反省。

プロセスリストを表示する。

2010-04-17T15:37:00.001+09:00

プロセスの一覧を表示するサンプルです。

Toolhelp32(DelphではTlHelp32)が使える環境では
比較的簡単ですが、

procedure TForm1.Button2Click(Sender: TObject);
var
 ProcEntry : TProcessEntry32W;
   SanpshotHandle : THandle;
begin
 //Toolhelp32を使用する例
   SanpshotHandle := TlHelp32.CreateToolhelp32Snapshot(TlHelp32.TH32CS_SNAPPROCESS,0);
   if (SanpshotHandle <> -1) then
   begin
    ListBox1.Items.Clear;
    ProcEntry.dwSize := Sizeof(TProcessEntry32W);
      if (TlHelp32.Process32First(SanpshotHandle, ProcEntry)) Then
      begin
         repeat
          ListBox1.Items.Add(ProcEntry.szExeFile);
         until (TlHelp32.Process32Next(SanpshotHandle,ProcEntry) = false);
      end;
   end;
   CloseHandle(SanpshotHandle);

end;

使えない環境(といいても、4.0以下のNTだけですが・・・）だと
大変です。

procedure TForm1.Button1Click(Sender: TObject);
var
    cb : Cardinal;
   elements : Cardinal;
   Needs : Cardinal;
   ProcIdArray : Array of DWORD;
   Win32Ret : LongBool;
   i : Cardinal;
   ProcHandle : THandle;
   OpenMode : THandle;
   ProcessName : String;

begin

    //プロセス数がいくつあるか解らないので大きめにとっておく
   elements := 128;
   Needs := elements * Sizeof(DWORD);
   cb := 0;
   while (cb <= Needs) do
   begin

        SetLength(ProcIdArray, elements);
       cb := Length(ProcIdArray) * Sizeof(DWORD);
       Needs := 0;
      Win32Ret := PsApi.EnumProcesses(PDWORD(ProcIdArray),cb,Needs);

      //APIが失敗したら抜ける
      if (not(Win32Ret)) then
      begin
         break;
      end;

      //領域が足りなかったときに備えて倍にする。
      elements := elements * 2;

   end;

   if (Win32Ret) then
   begin
       ListBox1.Items.Clear;
      OpenMode := Windows.PROCESS_QUERY_INFORMATION or Windows.PROCESS_VM_READ;
        elements := Needs div Sizeof(DWORD);
       for i := 0 to elements - 1 do
       begin
          //プロセスIDから情報をえる
         ProcHandle := Windows.OpenProcess(OpenMode,FALSE,ProcIdArray[i]);
         if (ProcHandle <> 0) then
         begin
             ProcessName := GetProcessName(ProcHandle);
            if (Length(ProcessName) > 0) then
            begin
                ListBox1.Items.Add(ProcessName);
            end;
         end;
         Windows.CloseHandle(ProcHandle);
      end;
   end;

end;

function TForm1.GetProcessName(ProcessHandle: THandle): String;
var
    cb : Cardinal;
   elements : Cardinal;
   Needs : Cardinal;
   ModuleHandleArray : Array of THandle;
   Win32Ret : LongBool;
   i : longint;
   ModuleHandle: THandle;
   ModuleName : WideString;
   ModeleNameLength : Integer;
   ProcessName : String;
   FileExt : String;
begin

    Result := '';
    //モジュール数数がいくつあるか解らないので大きめにとっておく
   elements := 128;
   Needs := elements * Sizeof(DWORD);
   cb := 0;
   while (cb <= Needs) do
   begin

        SetLength(ModuleHandleArray, elements);
       cb := Length(ModuleHandleArray) * Sizeof(DWORD);
       Needs := 0;
      Win32Ret := PsApi.EnumProcessModules(ProcessHandle,PDWORD(ModuleHandleArray),cb,Needs);

      //APIが失敗したら抜ける
      if (not(Win32Ret)) then
      begin
         break;
      end;
      //領域が足りなかったときに備えて倍にする。
      elements := elements * 2;
   end;

   if (Win32Ret) then
   begin
       ModeleNameLength := 255;
      SetLength(ModuleName,ModeleNameLength);
        elements := Needs div Sizeof(DWORD);
       for i := 0 to elements - 1 do
       begin
          ModuleHandle := ModuleHandleArray[i];
          ModeleNameLength := PsApi.GetModuleBaseName(
                                  ProcessHandle,
                                ModuleHandle,
                                PWideChar(ModuleName),
                                ModeleNameLength);
         if (ModeleNameLength > 0) then
         begin
             //モジュール名がExeファイルであればプロセスとみなす。
             SetLength(ModuleName,ModeleNameLength);
            ProcessName := ModuleName;
            FileExt := ExtractFileExt(ProcessName);
            if (CompareText(FileExt,'.EXE') = 0)  then
            begin
                Result :=  ProcessName;
               break;
            end;
         end;
      end;
   end;
end;

IOUtilsユニットをつかってみる（その1)

2009-10-26T21:55:00.003+09:00

Delphi2010で追加されたIOUtilsユニットを使ってファイルリスト
（正確にはファイル名のリスト）を取得するだけであれば、

TDirectory.GetFilesメソッドで簡単に取得できます。

Delphi Prism(.Net版）とほぼ同じ形でかけます。

GetFilesメソッドはいくつかOverLoadの定義がありますが、

今回は、

function GetFiles(const Path: string;
const SearchPattern: string;
const SearchOption: TSearchOption): TStringDynArray; overload; static;

を使用した簡単なサンプルを作ってみました。

ここで、Pathは検索パス
　　　　SearchPatternは、検索パターン(全検索は'*')
　 SearchOptionは、
　　　　　サブディレクトリも検索するときはsoAllDirectories
　　　　　指定したディレクトリのみを検索するときは、soTopDirectoryOnly
を指定します。

以下、サンプルプログラム


procedure TForm1.ButtonExecGetFileClick(Sender: TObject);
var
MyDir : IOUtils.TDirectory;
 FileList : TStringDynArray;
 FileName : String;
begin

ListBox1.Clear;

if Self.CheckBoxFindSubDir.Checked then
 begin
 FileList := MyDir.GetFiles(EditStartPath.Text,'*',TSearchOption.soAllDirectories);
 end
 else
 begin
 FileList := MyDir.GetFiles(EditStartPath.Text,'*.XLS',TSearchOption.soTopDirectoryOnly);
 end;

 for FileName In FileList do
 begin
  ListBox1.Items.Add(FileName);
 end;

end;

と結構簡単にかけます。
（ただ、ファイル数が多いとなかなか帰ってこないです。)

Delphi 2010 Survey

2009-10-24T08:24:00.002+09:00

http://wings-of-wind.com/2009/10/23/newsflash-the-official-delphi-2010-survey/

によると、Delphi Surveyが始まったみたいだ。

来週か、再来週には、日本語でできるのかな？

Rttiを使ってClientDataSetを作ってみる

2009-10-07T22:29:00.002+09:00

以前、Team JapanのブログにEmployeeクラスのインスタンスからInsert文を
生成するサンプルのポストがありましたが、ちょっと改良してTClientDataSetを
動的生成する例を書いてみた。（って使い道があるかちょっと疑問です。）

一応ソースは、こんな感じ


unit Unit3;

interface

uses
　　DBClient;

  type DataSetOperator = Record
     function CreateDataSet(obj : TObject) : TClientDataSet;
     function AddRecord(cds : TClientDataSet; obj : TObject) : Boolean;
  End;


implementation

uses
 Rtti,TypInfo, DB, SysUtils;
{ DataSetFactory }

function DataSetOperator.AddRecord(cds: TClientDataSet; obj: TObject): Boolean;
var
 ctx    : TRttiContext;
 rtp    : TRttiProperty;
 rtps   : TArray;
begin

 ctx := TRttiContext.Create;

 rtps := ctx.FindType(obj.UnitName + '.' + obj.ClassName).GetProperties;
  cds.Append;
 for rtp in rtps do
 begin
   cds.FieldByName(rtp.Name).Value := rtp.GetValue(obj).AsVariant;
 end;
  cds.UpdateRecord;
end;

function DataSetOperator.CreateDataSet(obj: TObject): TClientDataSet;
var
 ctx    : TRttiContext;
 rtp    : TRttiProperty;
 rtps   : TArray;
 cds    : TClientDataSet;
 ft     : TFieldType;
  fn     : String;
  ftSize : Integer;
  //ftdf : TFieldDef;
begin

 cds := TClientDataSet.Create(nil);

 ctx := TRttiContext.Create;

 rtps := ctx.FindType(obj.UnitName + '.' + obj.ClassName).GetProperties;

 for rtp in rtps do
 begin
   //ここがちょっとダサイかも
     //DelphiのRTTIの型とDBの型のマッチング
     ftSize := 0;
     if CompareText(rtp.PropertyType.Name,'Integer') = 0 then ft := ftInteger;
     if CompareText(rtp.PropertyType.Name,'String')  = 0 then
     begin
    ft := ftString;
        ftSize := 50;
     end;
     if CompareText(rtp.PropertyType.Name,'TDateTime') = 0 then ft := ftDateTime;
     if CompareText(rtp.PropertyType.Name,'Currency') = 0 then ft := ftCurrency;
     //if CompareText(rtp.PropertyType.Name,'Currency') = 0 then ft := ftCurrency;

     cds.FieldDefs.Add(rtp.Name,ft,ftSize);

 end;
  cds.CreateDataSet;
  Result := cds;
  //cds.FieldDefs.Add();

end;

end.

DBのデータ型の列挙とRTTIのデータ型の列挙が微妙に違っているので
そのマッピングを少々強引に行ってます。

で、上のユニットを利用する例が


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids;

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

var
  Form1: TForm1;

implementation

uses Unit2, Unit3,DBClient;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Emp : TEmployee;
   DF  : DataSetOperator;
   cds : TClientDataSet;
begin

 Emp := TEmployee.Create;

   cds := DF.CreateDataSet(Emp);
   cds.Active := true;
 DataSource1.DataSet := cds;
   //DataSource1.DataSet.Active := true;

   Emp.EmpNo := 2;
   Emp.FirstName := 'OldTPFun';
   Emp.LastName := 'Delphi';
   Emp.HireDate := StrToDate('2009/10/07');
   Emp.Salary := 100000.00;
   DF.AddRecord(cds,Emp);

   Emp.Free;
end;

end.

このプログラム上で使っているEmployee型の定義は以下のとおりです。



unit Unit2;

interface

 type TEmployee = class
   private
    FEmpNo: Integer;
    FFirstName: String;
    FLastName: String;
    FHireDate: TDateTime;
    FSalary: Currency;
    procedure SetEmpNo(const Value: Integer);
    procedure SetFirstName(const Value: String);
    procedure SetLastName(const Value: String);
    procedure SetHireDate(const Value: TDateTime);
    procedure SetSalary(const Value: Currency);
   public
    property EmpNo : Integer read FEmpNo write SetEmpNo;
    property FirstName : String read FFirstName write SetFirstName;
      property LastName : String read FLastName write SetLastName;
      property HireDate : TDateTime read FHireDate write SetHireDate;
      property Salary : Currency read FSalary write SetSalary;
   end;
implementation

{ TEmployee }

procedure TEmployee.SetEmpNo(const Value: Integer);
begin
  FEmpNo := Value;
end;

procedure TEmployee.SetFirstName(const Value: String);
begin
  FFirstName := Value;
end;

procedure TEmployee.SetHireDate(const Value: TDateTime);
begin
  FHireDate := Value;
end;

procedure TEmployee.SetLastName(const Value: String);
begin
  FLastName := Value;
end;

procedure TEmployee.SetSalary(const Value: Currency);
begin
  FSalary := Value;
end;

end.

TValue型を試してみる

2009-09-03T21:41:00.002+09:00

Rttiユニットで新たに定義されたTValue型は、汎用に使えるデータ型に
なっていて、Delphiで使う基本的な型は、Implicit演算子が定義されており
代入可能になっている。

で、実験してみた。以下ソースコード



program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils,
  rtti,
  typinfo;

var
  tv: TValue;
  obj: TObject;
  intary: Array of TValue;

begin
  try
      { TODO -oUser -cConsole Main : ここにコードを記述してください }
      // 先ずは何も入れない場合
      if tv.IsEmpty then
      begin
          writeln('TValueはからです');
      end;

      tv := 100;
      writeln('TValueは' + tv.TypeInfo.Name + 'です。');

      tv := 100.0;
      writeln('TValueは' + tv.TypeInfo.Name + 'です。');

      tv := 'saka';

      writeln('TValueは' + tv.TypeInfo.Name + 'です。');

      obj := TObject.Create;
      tv := obj;
      writeln('TValueは' + tv.TypeInfo.Name + 'です。');

      tv := obj.ClassType;
      writeln('TValueは' + tv.TypeInfo.Name + 'です。');

      obj.Free;

end.

で実行した様子が下図。

Rttiを試してみるその４

2009-08-29T23:11:00.003+09:00

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

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

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

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

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

また、

{$RTTI EXPLICIT METHODS([vcPrivate])}

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

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


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.



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を試してみるその３

2009-08-29T22:36:00.002+09:00

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

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


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で使ったソースがこちら



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アップ

2009-08-29T14:14:00.000+09:00

Delphi 2010の対応です。

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

2009-08-29T07:52:00.002+09:00

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

Rttiを試して見るその２

2009-08-29T00:10:00.004+09:00

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

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


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を試して見る

2009-08-28T00:41:00.004+09:00

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

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

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

以下ソースです。


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.

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

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

2009-08-26T22:54:00.002+09:00

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

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

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

2009-08-25T21:41:00.003+09:00

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

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

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

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

ここに

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

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

Rad Stduio 2010発売

2009-08-25T21:17:00.002+09:00

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

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

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

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

2009-08-23T22:03:00.003+09:00

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

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

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

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

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

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

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

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

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

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

穴があったら入りたい。

2009-08-18T06:49:00.001+09:00

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

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

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

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

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

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

IDEの配置（その１)

2009-08-14T22:02:00.004+09:00

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

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

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

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

Rad Studio 2010の値段（米国）

2009-08-14T10:24:00.004+09:00

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

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

思いつき

2009-08-11T07:10:00.001+09:00

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

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

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

2009-08-11T05:20:00.002+09:00

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

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

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

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

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

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

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

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

Delphi 2010 プレビュー会

2009-08-06T20:31:00.003+09:00

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

気になった点を以下列挙

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

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

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

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

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

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

2009-08-06T06:56:00.002+09:00

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

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

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

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

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

Win32でリフレクション

2009-08-05T20:10:00.001+09:00

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

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

これは楽しみ

DbExpress Firebird Driver

2009-08-05T00:09:00.003+09:00

Delphi Feed経由の情報です。

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

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

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

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

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

IDEインサイトは便利そう

2009-08-04T23:09:00.003+09:00

次期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しています。

Delphi2006 販売停止

2009-07-18T07:57:00.003+09:00

Daniel Magin’s Weblogさんのblog Psotによれば

エンバカデロさんは、2009年08月末日にDelphi2006の販売を
停止（ダウンロード販売も停止）するそうです。

2009/07/19 追記
自分のところにもメールがきてました。

HELP UPDATE!!

2009-07-11T09:33:00.003+09:00

Delphi2009 と C++ Builder の HELP UPDATE3
がリリースされています。
(日本語のHELPはUPDATE2相当です。）

以下リンク

http://blogs.embarcadero.com/nickhodges/2009/07/10/39253

http://edn.embarcadero.com/jp/article/39661

第13回エンバカデロデベロッパーキャンプ

2009-06-30T22:06:00.000+09:00

出席します。（予定）

POKEN持ってますので
よかったらハイタッチ
してやって下さい。

Delphiのクロスプラットフォーム化

2009-06-24T21:48:00.003+09:00

こちらのWayne Williams氏へのインタビュー記事によれば
Delphiのクロスプラットフォーム化は、現在の最重要課題との
ことで、来年早々にはお目見えの予定だそうです。

また、この記事ではNative Codeに対するエンバカデロの
考え方についても答えていて、この件については、
マルコ氏もコメントを出しています。

オンライン販売

2009-06-20T07:16:00.004+09:00

Delphi および RadStudioのダウンロード版が

ComponentSource社から発売されることになった。

プレスリリースによると、

TeeChart, QuickReport, Develper Express VCL Subxcription
などのコンポーネントがバンドルされた製品も購入可能
のようです。（ComponentSourecさんのサイトでも
購入が可能になっていました。）

日本で、商用のコンポーネントを買うのは結構大変なので
こういったサービスがあるのは良いよ思う。

また、バンドル版のほうが安いので、ちょっと
お買い得感が出ているかも。

ただ、ComponentSourecさんの説明を良く読むと
コンポーネントを同時に購入しろと書いてあるので、
実際の費用は、

バンドル版　+ 　コンポーネント

になるみたいですね。

コンポーネント

2009-06-15T23:32:00.002+09:00

SourceForge.Netで良さげなコンポーネントを
見つけたのでブックマーク

１つは、TCy components pack for Delphi 7 to 2009
(http://sourceforge.net/projects/tcycomponents/)

結構カラフルなGUI作れそうです。

もう一つは、Delphi2009には対応してないのですが
Alcinoe(http://sourceforge.net/projects/alcinoe/)

のっぺりしたＧＵＩが作れそうなのと、Firebirdの
UDEFがあったりといろいろな機能がありそうです。

Alt + (team)

2009-06-12T21:38:00.003+09:00

知っている人は知ってると思うけど
Delphi(Rad Studio)のバージョン画面を開いて
Altキーを押しながらteamと入力すると
制作に関わった方々のクレジットがでます。

ちなみに私は、Stack OverflowのHidden Features of Delphiで
知りました。

手元の環境で試したところDelphi7,Delphi2007,Delphi2009は
クレジットが出ました。

あとの環境では確認していないのでクレジットが表示されるか
どうかは不明です。

Bold For Delphi2009

2009-06-06T07:22:00.002+09:00

Embarcadero(Codegear)さんがRad Studioで.NETのサポートを
止めたことなどがあってECOがバンドルされなくなった。

で、ECOの代わりにBOLDを統合しようという動きがあるようです。
（元ネタは、Any active Bold for Delphi users ?)

ただ、いろいろあって、作業はしているようなのですが、
実現はまだまだのようです。
（元ネタは、Embarcadero Discussion Forums : Bold for delphi 2009 あたり）
（明示的なロードマップのアナウンスがないためなんとも
言えないのですが・・・）

個人的には、次期Delphiで実現して欲しいと思う。
でもって、プロ版でも使用可能にして頂きたいと思う。

Devgems DataModeler

2009-06-05T00:07:00.003+09:00

Devgems DataModelerは、Devgems社から発売されている
DB構築用のツールです。

TMS SoftwareでDevgems DataModeler用のライブラリーが
リリースされていたのがきっかけで本ツールの存在をしりました。

Devgems社から30日のトライアル版が出ていたので
ちょっと試用してみました。

試用の感想ですが、非常に軽いです。
Firebirdの2に対応していて、
ビジュアルにテーブル・リレーションシップが
作成できるので、ものぐさな自分には有用に
感じました。

値段も99ユーロ（日本円で約15000円）なので
個人的には安いと思います。
（他のERツールが高すぎだと思うのですが・・・(^_^;))

Firebirdの他はSql Serverの2000/2005に
対応しています。

これに、

黒猫SQLStudio,
A5:SQL MK-2

があれば、自分に必要なことのほとんどが
対応可能です。

興味があったら一度試して見て下さい。

入手可能なコンポーネント

2009-06-04T23:32:00.003+09:00

Stack Overflowで、

入手可能なOpenSourceのコンポーネントは？

入手可能な商用のコンポーネントは？

お気に入りのコンポーネントは？

という質問に対して、様々な回答がよせられている。

コンポーネントのブックマークとして
忘れないウチにメモメモっと。。。

Delphiの次期バージョン

2009-05-16T09:01:00.002+09:00

現在アメリカで開催中のDelphi liveで次期Ｖｅｒｓｉｏｎの概要（実施予定の項目）が
公開されている。

個人的には、DbExpressでのFirebirdのNative Supportに注目

これ、Ent版ではなくPro版で実現されると良いのですが・・・・

Getting Started with Delphi and C++Builder 2009

2009-04-28T05:08:00.002+09:00

エンバカデロさんのブログで、Dee Ellingさんから
Getting Started with Delphi and C++Builder 2009の
案内が出ています。

製本したものは、Lulu.comから購入可能で、PDF版が
ドキュメントサイトからダウンロード可能です。

内容は、初めてRad Studioを使うた人のための
IDEの使い方のガイドとなっています。

HELPはなんだかんだ言って、読み物としては
読みにくいものなので、このようなものがあると
大変助かります。

日本語版も是非欲しいところです。

僕の使っている言語でもできるんです。（その１）

2009-04-12T21:30:00.005+09:00

遅ればせながら『More Joel On Software』をよんでいます。

そのなかで、「君のプログラミング言語で、これ、できる？」と
題して、無名関数をあつかっていたのでDelphi2009で書いてみました。
今回はその前半部分です。

話の流れは、『More Joel On Software』を参照にしてください。

まづは、関数を使わない例

0001 program Project1;

0002

0003 {$APPTYPE CONSOLE}

0004

0005 uses

0006   SysUtils;

0007

0008 begin

0009   try

0010   { TODO -oUser -cConsole Main : ここにコードを記述してください }

0011   WriteLn('スパゲッティが食べたい!');

0012   WriteLn('チョコレートムースが食べたい!');

0013   except

0014     on E:Exception do

0015       Writeln(E.Classname, ': ', E.Message);

0016   end;

0017 end.

0018

0019

食べたいが一緒だから関数化して

0001 program Project2;

0002

0003 {$APPTYPE CONSOLE}

0004

0005 uses

0006   SysUtils;

0007

0008 procedure SwedishChef(food : string);

0009 begin

0010   WriteLn(food + 'が食べたい');

0011 end;

0012

0013 begin

0014   try

0015   { TODO -oUser -cConsole Main : ここにコードを記述してください }

0016     SwedishChef('スパゲッティ');

0017     SwedishChef('チョコレートムース');

0018   except

0019     on E:Exception do

0020       Writeln(E.Classname, ': ', E.Message);

0021   end;

0022 end.

0023

0024

ここまでは、今までのDelphiでも可能です。

従来の手続き型で呼び出す関数を切り替えて

0001 program Project3_1;

0002

0003 {$APPTYPE CONSOLE}

0004

0005 uses

0006   SysUtils;

0007

0008 Type

0009   TTakeSometingProc = procedure( S : String);

0010

0011 procedure PutInPot(food : string);

0012 begin

0013   Writeln(food);

0014 end;

0015

0016 procedure BoomBoom(food : string);

0017 begin

0018     Writeln(food);

0019 end;

0020

0021 procedure Cook(food1,food2 : String; aTakeSometingProc : TTakeSometingProc);

0022 begin

0023   Writeln(food1 + 'を取る');

0024   aTakeSometingProc(food1);

0025   aTakeSometingProc(food2);

0026 end;

0027

0028 begin

0029   try

0030   { TODO -oUser -cConsole Main : ここにコードを記述してください }

0031     Cook('ロブスター','水',PutInPot);

0032     Cook('チキン','ココナッツ',BoomBoom);

0033   except

0034     on E:Exception do

0035       Writeln(E.Classname, ': ', E.Message);

0036   end;

0037 end.

0038

これも問題なくうごきます。

手続き型を無名メソッドの宣言に書き換えて

0001 program Project3_2;

0002

0003 {$APPTYPE CONSOLE}

0004

0005 uses

0006   SysUtils;

0007

0008 Type

0009   TTakeSometingProc = reference to procedure ( s : String);

0010

0011

0012 procedure PutInPot(food : string);

0013 begin

0014   Writeln(food);

0015 end;

0016

0017 procedure BoomBoom(food : string);

0018 begin

0019     Writeln(food);

0020 end;

0021

0022 procedure Cook(food1,food2 : String; aTakeSometingProc : TTakeSometingProc);

0023 begin

0024   Writeln(food1 + 'を取る');

0025   aTakeSometingProc(food1);

0026   aTakeSometingProc(food1);

0027 end;

0028

0029 begin

0030   try

0031   { TODO -oUser -cConsole Main : ここにコードを記述してください }

0032     Cook('ロブスター','水',PutInPot);

0033     Cook('チキン','ココナッツ',BoomBoom);

0034   except

0035     on E:Exception do

0036       Writeln(E.Classname, ': ', E.Message);

0037   end;

0038 end.

0039

手続き型の仮引数に対する本引数をコードブロックにすると

0001 program Project4_1;

0002

0003 {$APPTYPE CONSOLE}

0004

0005 uses

0006   SysUtils;

0007

0008 Type

0009   TTakeSometingProc = procedure( S : String);

0010

0011 procedure PutInPot(food : string);

0012 begin

0013   Writeln(food);

0014 end;

0015

0016 procedure BoomBoom(food : string);

0017 begin

0018     Writeln(food);

0019 end;

0020

0021 procedure Cook(food1,food2 : String; aTakeSometingProc : TTakeSometingProc);

0022 begin

0023   Writeln(food1 + 'を取る');

0024   aTakeSometingProc(food1);

0025   aTakeSometingProc(food2);

0026 end;

0027

0028 begin

0029   try

0030   { TODO -oUser -cConsole Main : ここにコードを記述してください }

0031     Cook('ロブスター','水',PutInPot);

0032     Cook('チキン','ココナッツ',BoomBoom);

0033   except

0034     on E:Exception do

0035       Writeln(E.Classname, ': ', E.Message);

0036   end;

0037 end.

これは、コンパイルエラーになります。

無名メソッド型を使えば、コンパイルがとおります。

0001 program Project4_2;

0002

0003 {$APPTYPE CONSOLE}

0004

0005 uses

0006   SysUtils;

0007

0008 Type

0009   TTakeSometingProc = reference to procedure ( s : String);

0010

0011

0012 procedure Cook(food1,food2 : String; aTakeSometingProc : TTakeSometingProc);

0013 begin

0014   Writeln(food1 + 'を取る');

0015   aTakeSometingProc(food1);

0016   aTakeSometingProc(food2);

0017 end;

0018

0019 begin

0020   try

0021   { TODO -oUser -cConsole Main : ここにコードを記述してください }

0022     Cook('ロブスター','水',procedure(food : string)

0023                           begin

0024                             WriteLn(food + 'を鍋に入れる');

0025                           end

0026                           );

0027     Cook('チキン','ココナッツ',procedure(food : string)

0028                             begin

0029                               WriteLn(food + 'を撃つ');

0030                             end

0031                           );

0032   except

0033     on E:Exception do

0034       Writeln(E.Classname, ': ', E.Message);

0035   end;

0036 end.

0037

コンバータ

2009-04-11T08:14:00.003+09:00

RemObjects社が、C#のコードをDelphi Prism(Oxygen)のコードに
コンバートするツールを作ったようです。（最初のバージョンがリリース
されたようです。）

また、SVN Repsostoriesを公開したようです。

追伸 Delphi FeedのLookが変わっています。
Stack OverFlowのようなLookになっています。
個人的には、新しいLookは良いと思います。

新書版かペーパバック版が欲しいです。

2009-04-11T08:01:00.004+09:00

遅くなりましたがDelphi 2009 Handbook日本語版を
読みました。

この手の本は、実際にコードを打ち込んだり、
サンプルで動作を確認しながら読むのが
筋だと思うが、個人的には通勤電車の中で
読むことが多い。

その時に、気になるのが本の大きさ。
一般的な大きさではありますが、
満員電車のなかでたったまま頁を
送るにはちょっとつらいです。

そこで、値段は同じか高くても良いから
新書版かペーパバック版の
Delphi 2009 Handbookがあったら良いな
と思ったりします。

そもそも、満員電車で読むなと言う話も
ありますので、こんなことを思うのは
自分だけかな？

ほんとかな？

2009-04-10T23:11:00.002+09:00

C#の機能に関するブログですが、このブログによれば、

DelphiのほうがVC++より優れているのがMSの公式見解らしいです。

まあ、Delphi2が発売されてからしばらくの間の"凄まじい”ほどの
引き抜き工作を見ればなんとなく明らかなんですが・・・・

こういった、感想をもたれたかたもいるみたいですし
（Action Listはヘジルスバーグさんがいなくなってから
実装された機能）

個人的には、Delphiは過小評価されている製品だと思うので
もっと正当な評価がされるべきだと思う

偶然見つけた記事

2009-04-10T23:05:00.001+09:00

2chはあまり詳しくはありませんが

こういった、Delphi製のアプリケーションが
大々的に紹介されることは良いことだと思います。

ブログのタイトル変えます。

2009-03-19T23:13:00.002+09:00

買収成立時からずっと迷ってけど、日本法人さんも
名実ともにEmbarcaderoさんに変わったようなので
これを気にブログのタイトルを変更致します。

Delphi Prism 2009 February Release

2009-03-13T03:38:00.002+09:00

Delphi Prism 2009 February ReleaseがCodeCentralに
アップされたとのことです。

Delphi PHP Survey

2009-03-05T14:40:00.001+09:00

がはじまってまして、日本語のページもできてます。

爆速コンパイラ

2009-03-04T22:31:00.002+09:00

ブログでは、いろいろ不満も書いていますが

自分がDelphiを使い続ける１番の理由は、
Turbo Pascal からの爆速コンパイラです。

自分がBorland(現Embacadero）のPascal処理系
を本格的に使い出したのはTrubo Pascal 5.5
からです（最初に使ったのは学校のコンピュータ
の授業でのTrubo Pascal3.0)が、それまでは
プログラムを組んだことも無かったので
爆速コンパイラが特別だとは思いませんでした。

その後、会社でN88, MS-C,Turbo-C,など
いろいろな処理系を使いましたが、
これらの処理系を使えば、使うほど
Delphi(Trubo pascal)の爆速コンパイラが
特別であることを実感しました。

エンバカデロオールアクセス

2009-03-04T22:07:00.002+09:00

ったった高いです。

378000～って、うちのようなソフトがメインではない
弱小企業では、稟議すら通らないです。(T_T)

このような、大企業様向けのサービスよりも
もっと、個人開発者や、弱小企業にも
優しくして欲しいと思う。

VS2010のFLOATINGサポート

2009-03-03T05:33:00.003+09:00

Marco氏のBlogポストによれば、Visual Studio2010のIDEは、
Floating Designerをサポートするとのことだ。

DelphiのIDEでは、Floating Designerが無くなるかもしれないが、
上記のことが今後のIDEのFeatureの方針に何らかの影響を
与えるかも

エンバカデロデベロッパーネットワーク

2009-02-18T23:15:00.001+09:00

CDNがEDNに変わっていた。

ログオンしようとすると認証エラーがでるのだけど

これって、自分のPC(FireFox)だけかな？

セキュリティ関係のセミナに行ってきた。

2009-02-18T23:02:00.002+09:00

で、思ったのだけど
DelphiというかVCLの脆弱性の話題って
あまり聞いたことがない。

実は、気づかないだけで、Quality Centralには
あがっているのかな？

もしそうであれば、アラートが欲しいものだ。

第12回エンバカデロデブキャンプに行ってきた。

2009-02-17T21:01:00.003+09:00

ということで、以下感想および気になったことなどを雑記

・オンデマンドラインセンス

　　エンバカデロさんがオンデマンドライセンスを
　　始めるとのこと。

　　内容は、エンバカデロさんに一定金額払うと
　　エンバカデロさんのすべての製品をを使用できるとのこと。

　　期間は、明記が無かったがたぶん１年後のと年契約に
　　なるのではないかと思う。
　
　　１ライセンスあたりの金額は３製品買うとお釣りが
　　来るぐらいに設定すると言っていた。
　　
　　同様なライセンスを持つDelphi PrisimのEnt版3本分で
　　考えると50万円前後にになるので、このあたりの
　　金額設定ではないかと想像します。

　　でも、これがRad Studio Arc版３本分だったら・・・・

　　ちょっと怖いです。

・Delphi For PHP

　　今回は、開発者のホセさんがスピーカーとして来日て講演
　　デモを見る限りでは、使いやすくて拡張しやすそう。
　　今のところWEB系をあつかう案件はないのだか、案件が
　　来たときには、使用を検討してみよう。
　　
　　ところで、スピーカさんがデモをやっているのを見ると
　　大変簡単に思えるのだが実際やってみるとなかなかできなので
　　デモのチュートリアルが欲しいのですが・・・
　　
・Delphi for Win32

　　DBGRIDの使い方は大変参考になった。
　　こういった、ものをまとめたWhite Paperあると良いと
　　感じた。
　　
・Delphi Prism

　　容易に書かれた日本語の情報があまりないので、今回の
　　資料は大変有用だと思った。
　　
　　MSのVC#がMONOをサポートするとは思えないので
　　商用でサポートのあるDelphi Prismは大変魅力だ。
　　
　　Design by Contract周りの機能(Require/Ensure)は
　　是非ともDelphi for Win32に入れて欲しい。
　　
・トークセッション

　　話を聞いていて思ったことは、
　　
　　どっかで一時期『三昧』になる次期が必要

　　作るべきかどうかの判断が重要
　　（市場から調達可能であれば逢えてつくる必要はない）
　　作るのであれば最後までやりきることが重要
　　
　　自分はできそうなメドが立ったらできた気になって
　　しまうので成長しない（飛躍しない）のだろう(^_^;)
　　
　　アンケートに対する自分の回答は以下のとおり
　　
　　0)ビールが好きかSAKEが好きか？
　　　　無回答
　　　　理由）下戸だから
　　　　　　　（今までアルコールをうまいと
　　　　　　　思ったことがない。）
　　　　
　　1)初めて使った言語がDelphi? OTHER
　　　　最初にさわったのはSharpのポケコンBASIC
　　　　PCではTurbo Pascal 3.0
　　　　
　　　　ちなみにDelphiを選択した理由は、
　　　　Delphiが日本でのTurbo Pascal 6.0の
　　　　次のVersionだったことです。
　　　　（そこに特にドラマは無いです。）
　　　　
　　2)問題が会ったときは自決する? 自決
　　　　ネットでの検索も含めて自決
　　　　理由）Delphiユーザは事務所内で自分だけなので
　　　　　　　聞けない。
　　　　　　　以前、ネットで質問してひどい目にあったのが
　　　　　　　トラウマになりネットでは質問できない。
　　　　　　　（恐れ多くて聞けない。）
　　　　　　　
　　3)自分の方法は標準だと思うか？
　　　　思わない。
　　　　理由）標準の定義がよくわからないのと
　　　　　　　他人と比べたことがないので
　　　　　　　
　　4)次回のこのセッションはトーク？飲み会？
　　　　トーク
　　　　理由）人見知りがひどいので・・・
　　　　　　　また恐れ多くて発言なんてとてもとても
　　　　　　　
　　5)飲み会であれば、会費でも良いか？
　　　　会費がよい。
　　　　理由）もっと他のことにお金をつかって欲しい
　　　　
　　6)Delphiのフィールドテストに参加する意志はあるか？
　　　　無い。
　　　　理由）NDAを守れる自信がない
　

コンパイラの将来を読んで思うこと

2009-01-28T22:46:00.002+09:00

このポストはあくまでも私見であり、自分な勝手
思い込みで書いてますので、疑いながら
読んでいただければと思います。

CDN上に将来のDelphiコンパイラの概要を
示す論文がアップされていた。

この論文でNickが言いたかったことは

『中間ファイルを通してフロントエンドと
バックエンドを交換可能な構造にする』

ということではないだろうかと思う。

Nick氏が以前のデベロッパーキャンプで
64bitコンパイラはクロスコンパイラにする
予定だと言っていた。

この64bitコンパイラ作成の作業では、当然の
ことながら、32Bitコンパイラと生成する
機械語を変える必要がある。

この作業の過程でコンパイラのフロントエンド
とバックエンドの切り離しのメドが立ったのでは
ないだろうか？

『中間ファイルを通してフロントエンドと
バックエンドを交換可能な構造にする』

って考え方は.NetのCLRと基本的には
同じだと思う。エンバカデロさんは
これをネイティブで実施しようということ
でしょうか？

Linuxのクロスコンパイラも考えている
ようなことをNickが言っていた記憶が
あるのでWindows64Bitコンパイラを
足ががかりにその他の環境にも手を
広げる予定なのだろうか？

とすれば、Delphi Prismの意味が
なくなってしまうような・・・
（もちろんASP.NETでは意味がありますが・・・）

.NetもWin32 Or Win64 のNativeコンパイラ
を用意する計画があるようなので.Netより
前にしないとインパクトとしてはちょっと
弱くなっちゃうかな？

年貢方式に変えるのかな？

2009-01-20T22:07:00.005+09:00

3rd Rail 2.0の日本語版が発売になりました。

でこの製品の売り方がこれまでと変わっていて

一年間限定のライセンスで19,800円となっている。

一年間の間は、常に最新のバージョンにアップする

権利がありるとのことなのだが、使用権については

どうなんだろう？一年毎に更新料がいるのかな？

気になって価格表を確認してみるとDelphi Prismも

同様なライセンスになっている。

ということは、今後、エンバカデロさんは１年間継続

ライセンスに移行するつもりなのだろか？

メーカさんからしてみれば、２～３年に一度

大きなお金が入るよりも年間一定額入るほうが

事業計画が立てやすいと思う。

年間契約がよいか？メジャーバージョン内有効の

契約が良いか？は個人によって判断が分かれる

ところであるとおもうが、それは『中抜けOK』での

話だと思う。

現状のスタンダードサポートのように

『中抜けだめよ！』の契約（中抜けしたときは

中抜け期間分の金額も払わないと更新できない。）

であれば、エンバカデロから年間契約に値する

ロードマップを提供されなければ、使用者にとっての

メリットは少ないと個人的には思う。

今後エンバカデロさんがどのような製品体系（価格体系）

を構成してゆくのかは要経過観察が必要だ。

2009/01/21 追記

藤井さんのブログによれば、3rdRailは、ウィルスバスターと同様な

年貢方式のライセンスのようです。

Delphi 2009 Handbook日本語版

2009-01-08T22:01:00.001+09:00

エンバカデロさんで翻訳中です。
実際に出版されるのを楽しみにしよう。
それにしても1週間で半分も訳すなんて
凄過ぎです。

年貢の季節が・・・

2008-12-26T01:25:00.002+09:00

Rad Studio のスタンダードサポートの更新案内が今年もやってきた。
製品本体の価格の上昇につれてサポート費用も上がっているので
支払いがだんだんつらくなります。(T_T)

来年は、バージョンアップがあるのだろうか？・・・

メジャーバージョンアップがあれば、元がとれるので
来年のバージョンアップに期待しよう。

DelphiでDesign Patterns

2008-12-12T23:12:00.002+09:00

TDelphiHobbyistさんが、Delphiで書かれたDesign Patternの解説・サンプルの
ブックマークをBlogにポストしています。

これは、良いブックマークだ。

自分もブックマークしておこう。

Using New Delphi Coding Styles and Architectures

2008-12-10T20:35:00.002+09:00

Nickさんのブログ記事で、CDN記事Using New Delphi Coding Styles and Architecturesが
紹介されていた。

これは、Delphiw2009で追加された新機能のコーディングスタイルのガイドラインのようだ。

現状参考にしているObject Pascal Style Guideが1999年のものなので
一度、現状のすべての機能踏まえたスタイルガイドラインが、欲しいとこだ。
（あくまでも他力本願です。(^_^;)）

Pascal Script Ver Up

2008-12-07T01:37:00.002+09:00

RemObjectsのPascal ScriptがVersionアップされています。
今度のリリースは、インストーラーがDelphi IDEにコンポーネントを
登録します。

これでやっとDelphi2009で試せます。（とりあえず、RemObjects添付の
サンプルは動いたみたいです。）

OxygeneのコマンドラインEditonもFreeでダウンロードできます。

また、Delphi Prismの壁紙も用意されています。

Delphi 2009 Handbook

2008-12-05T23:54:00.003+09:00

Code CentralでDelphi2009の登録ユーザ向けに
マルコさんのDelphi2009 HandbookのPDF版が
公開されていたので早速ダウンロード

ざっと見たけどUnicode周りだけで100頁弱ありました。
しばらくは、辞書と格闘しながら読んでみよう。

エンバカデロデベロッパーキャンプに行ってきた。

2008-12-03T21:54:00.003+09:00

以下感想

今回は、アドバルーン的な派手な発表はなかったが
線香花火のように地味ながら非常に有益な情報が
多かった。

トークセッションについて・・・

自分は、ガリレオの組み込み環境派です。
業務ではもっぱらVSを使うのであまりMDI形式の
環境には違和感を感じないのです。
それよりもエディターの行末のフリーカーソルON/OFF
編集行の下線表示（強調表示をしてくれるのですが
個人的には下線表示が良いです。）とか、逆方向検索機能
のキーの割り当てなど、ソースエディタの使い勝手を改善
して欲しいと思います。

スクリプト（インタープリター）については質問者の方が
何を意図しているのかによって扱いが違ってくるので
この辺をまずはっきりさせたほうが良いかと思った。

(1)自前のアプリケーションに組み込むのか、
(2)ちょっとした動作検証を行うのか

で随分意味合いが変わってくるので

(2)の場合であれば、Delphiのコンパイル速度の
早さもあって個人的には必要性を感じないです。

(1)の場合は、仕事柄、ビルの各フロワーの電力使用量の
加算など、実行時に処理を変えたいので、実行時バイナリで
スクリプトを動かせることは非常魅力をかんじますが
この場合は、有用なコンポーネントが数多くあるので
これらを利用すれば良いと思う。

PDFを希望したのは、自分だったりするのですが
紙には紙の良さがあり、電子媒体にはその良さが
あるので、紙とPDFのセットというのが良いかと
思います。

その他・・・

今回は、日頃ネットでお世話になっている方々が講師を
されていたのでちょっとビックリというのか、このような
すごい方々と接していたかと思うと永遠の初心者の自分
には恐れ多いなと思ってしまいました。

それにしてもViperさん名前のとおり毒舌でしたね。
でも、"安くしてよ"っというのはそのとおりで
Rad Studioの一番高いのなんて50万円ですものね。
普通には買えないですよ。(T_T)
ソフトウェアアシュランスを使えば良いと言っても
エンバカデロさんの場合は最初に製品を
買わないといけないのでこの点がね・・・・
せめて製品＋アシュランスのセットで半額にする
などしないと結構苦しいのではと思います。

サブスクリプション通知

2008-11-21T21:37:00.003+09:00

エンバカデロさんからサブスクリプションの案内が来た。

前回メール便で物議を醸したこともあり、今回は事前に
連絡すれば宅急便で送付してくれるとのことだ。

こういった姿勢は、ボーランドさんでは見られなかった
ことだ。

こういった、前回の問題となった点を改善してくれた
ことは非常に好感がもてますね。

クレームは、起こったことよりもその後どうするかが
非常に大事だと思います。

ある意味、接客を生業とする自分もこういった姿勢は
見習いたいと思います。

非公認パッチ

2008-11-08T11:21:00.002+09:00

AndyさんがDelphi2009の非公認パッチを公開しています。

パッチはQC#66892に関するものです。

これって日本語を扱った場合でもOKかな？

25周年

2008-11-07T22:12:00.003+09:00

Turbo Pascal 1.0が世に出てから今年で25周年ということで
David Iがブログにいろいろ記事を載っけている。

自分は、学生の時に触ったFMR50用のTurbo pascal Ver3が最初
（確かサザンパシフィック版だったと思う）

本格的に使い出したのはTubro pascal 5.5からで、もう15年も
使っているのだけど、一向に上達しないんだなこれが・・・(T_T)

にしても、会社が変わりながらでも、同一もコンパイラが
25年もつづくのはすごいことだと思う。

Pascal Scriptを使ってみた

2008-11-03T21:04:00.008+09:00

Delphi Prismの関係でRemObjectsのWEBサイトを見たところPascal Scriptが
Freeと書いてあったのインストール。

Delphi2009にインストールしてみたけど、コンパイルエラーが・・・
内容を良く調べてみるとUnicode化に伴うエラーコードっぽい。

自分の手ではちょっと直しようがないので（パーサー周りポインターが
多くなるのでちょっとつらいかな？）とりあえずDelphi 2007で試用

サンプルは右図のメモにコードを入力して、結果をラベルに表示する簡単なものです。

ソースコードは、こんな感じ。


unit Unit1;

interface

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

type
TForm1 = class(TForm)
  Memo1: TMemo;
  Button1: TButton;
  Label1: TLabel;
  PSScript1: TPSScript;
  procedure Button1Click(Sender: TObject);
  procedure PSScript1Compile(Sender: TPSScript);
private
  { Private declarations }
  procedure DsWrite(s: string);
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Self.PSScript1.Script.Assign(Self.Memo1.Lines);
Self.PSScript1.Compile;
Self.PSScript1.Execute;
end;

procedure TForm1.DsWrite(s: string);
begin
Label1.Caption := s;
end;

procedure TForm1.PSScript1Compile(Sender: TPSScript);
begin
  Sender.AddMethod(Self,@TForm1.DsWrite, 'procedure Writeln(s: string);');
end;

end.

Pascal ScriptのコンパイラとDelphiのコードを結びつけることができるので
以外に応用範囲が広いかも・・・・

また、上の例ではやってないが、Pascal Scriptでコンパイル済みのストリーム
データの読み書きもできるので、自作のアプリケーションにちょっとした演算を
組み込むには便利かも？

もうちょっと深く突っ込んでみよう。

ありがとうVCL.NETそしてさよならだ

2008-10-28T22:04:00.003+09:00

エンバカデロさんのサイトにDelphi Prismの概要が公開された。

FAQによれば、Delphi PrismではVCL.NETは提供されない。
（原文は、deprecatedとなっているのでVCL.NETは廃止予定と考えられる）

VCL.NETは、Win32から.NETへ手間をかけずに移行するのが目的だったので
既にその役目は終えたのでしょう。

実際(ここはあえて）Borlandさんの.Net戦略のまずさやdelphi 8(ガリレオVer2)の
できばえの悪さに足を引っ張られたので、十分に役目を果たしたとはちょっと
言い難いですが・・・

もともと、Borlandさんも新規.NetソリューションはVCL.NETを使わないで
というアナウンスをしていたので妥当といえば妥当でしょう。

ただ、Borland→Codegear→Embarcaderoと変わっていく中で
.Netに関する方針がかなり右往左往したので、今後はあまり軸の
ぶれない方針でお願いしたいです。

追伸・・・
本記事のタイトルは、某アニメから引用しました。
出典がわかる方はかなりのアニメ通ですね。(^_^;)

Delphi Prism In PDC

2008-10-28T05:48:00.002+09:00

PDCでDelphi Prismが発表されました。
CodegearさんのウェブサイトにもDelphi Prismのページが
アップされています。（まだ英語のみ）
Marco CantuによればRemobjects社から
Oxygeneのライセンスの提供をうけた
共同開発の製品だとのことです。

Delphi Prism Beta

2008-10-04T12:30:00.002+09:00

次期Delphi.Netのテストが始まったようです。

ジェネリックの例

2008-09-25T06:03:00.002+09:00

Craig StuntzさんがGenericを使ったstatistics libraryを
ブログで紹介している。

面白そうな例なので、とりあえずブックマーク

じっくり読読むのは週末かな？

Delphiの復権

2008-09-20T23:37:00.004+09:00

TIOBE SoftwareさんのCommunity Reportというものが
Andreano Lanusse氏のブログポストで紹介されていました。

このレポートによれば、ユーザ数は昨年比で2%近く増加
しているとのことで、レポートのヘッドラインも

strong comeback（力強い復活)

となっています。

Borland時代(Delphi6以降～Codegear発足まで）の不安低要素
が、Codegear発足以降がかなり少なくなっていることが
復権の大きな理由ではないかと思います。

また、MSとの差が明確になってVSとの棲み分けが可能
になったのも復活の要因かと思います。

あとは、ドキュメントの品質がもう少し良くなればと
思います。（すみません、ここは他力本願です。）

Tiburon到着

2008-09-20T15:39:00.001+09:00

Delphi2009が届いたので早速インストール。

すると何かメッセージが表示されのでよく見るとリボンコントロールの作成・使用には
マイクロソフト許可がいるみたいだ。

で、ググってみるとOffice 2007の無償UIライセンス、コードは提供せず
って記事が・・・
当時はリボンコントロールが有用だと思っていなかったので気にも止めていなかった。(^_^;)

とりあえず、ライセンシー取得用のURLを記録しておこっと。

上記の記事によれば、マイクロソフトさんは使用のガイドラインは提供するが、
ソースコードは一切提供しないみたいだ。
それで、前回のデブキャンプでNick氏がリボンコントロールにマイクロソフトの
コードは一切無いと言っていたのね。

Delphiクラスエクスプローラーをつかってみた。

2008-09-19T21:03:00.005+09:00

以下、ちょっとさわったところで気になった点

a) フィールド変数を先につくっておかないと、readerにフィールドが指定できない。
　
　　-- この変はテキストエディターで対応できているので、こちらも対応していただけると・・　

b) メソッドのパラメータが２つ以上指定できなさそう。

　　-- こちらは、とりあえず借りで作ると考えれば良いいかな

せっかくダイアログベースでひな形が定義できるのだから、もうちょっと
使い勝手がよくなるとよいな。

stackoverflow

2008-09-19T21:03:00.002+09:00

NickがブログでstackoverflowというQAサイトを紹介しています。
その中でdelphiに関するQAは(http://stackoverflow.com/questions/tagged/delphi)
で参照できるとのことです。

The Podcast at Delphi.orgによれば、stackoverflowのHidden Features of Delphiの
スレッドで、delphiの隠れた機能が紹介されているとのことです。

ということなので実際にみてみました。上のスレッドはIDEのショートカットキーが数多く
紹介されています。
CTRL + /で選択行のコメントアウトができるなんて知らなかった。（メモしておこうっと。）

このスレッドのほかにもろいろなQAがあるので、あとから見てみよっと。

親会社

2008-09-18T20:18:00.001+09:00

リーマンさんの影響をうけないのだろうか？
ちょっと疑問です。

ソフトウェアアシュランス

2008-09-16T20:39:00.002+09:00

Team Japan ブログでスタンダードサポートサービスでの
送付内容が発表になってました。

一応、Borland(Codegear)さんからきたユーザ登録委譲の
確認書は返送したけど、ちゃんとTiburonが送付されて
くるのだろうか？

ちょっと心配。

はやっ！

2008-09-12T22:58:00.002+09:00

Anders Ohlssonさんの環境では、５秒程度Delphiが起動するみたいだ。

ところで、今日気づいたのですが、今年の１１月で
エンバカデロさんのPASCAL処理系は25歳に
なる見たいですね。(Turbo Pascal 1.0からの通算年数）

なんかアニバーサリー的なイベントはあるのでしょうか・・・

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

10TH EMBARCADERO DEVELOPER CAMP IN TOKYO

2008-09-11T23:17:00.006+09:00

自分が参加したセッションは、以下のとおり

G1 「コーポレートアップデート＆DatabaseGearプロダクトオーバービュー」
G2「CodeGearプロダクトアップデート - ベールを脱ぐDelphi/C++Builder次期バージョン"Tiburon"」
A3「データモデリングを見直そう！ - モデリングの基本とモデル駆動 DB 設計のポイント」
A4「Delphi 2009 / C++Builder 2009最新情報」
A5「知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス3.0」
A6「Delトーーク！ボクのほしいDelphi」

以下に気になった点・感想・私見などを
下記の内容は自分のメモを本に書いていますので信憑性は保障致しません。
後日CDNからビデオなどが公開されると思いますのであくまでも参考ベース
で読んでください（(^^ゞ)

G1「コーポレートアップデート＆DatabaseGearプロダクトオーバービュー」

Databasegear製品の紹介があった。
現状では、販促活動の検討を行っているとのこと
(ER/STUDIOでは、日揮情報システムさんがローカライズしているが
その他の製品についても積極的にローカライズをしてゆくとのこと）

Codegear製品とDatabaseGear製品を段階的に統合していくとのこと
まだ、Codegear製品から見た場合アイデアのレベルではあるが

TQueryのSQL文を書くエディターにDatabeseGearのPowerSQLを使う
DelphiからSql文を自動生成する

などのようなことを考えているとのこと

G2「CodeGearプロダクトアップデート - ベールを脱ぐDelphi/C++Builder次期バージョン"Tiburon"」

Delphi2009(C++ Builder2009)の新規の説明と今後の開発予定の話があった。

今回の説明ではWin32 Nativeということを強調した説明であった。
特にここにきてCOMのサポートの仕組みを強化していることは
DelphiはNativeを中心に開発していくものだと思われる。

Commodoreはちょっと遅れそう
ただし、64bitサポートとマルチコア・マルチスレッド（並列処理のサポート）を
同時提供できるよう検討している。

Commodore後は、

チーム開発サポート
HELPとIDEの統合
CODE FORMATTER
BDEのマイグレーションパス
デバッガーのカスタムビューワ(StringListやBitマップに特化したViewer)

などを考えてるとのこと

また、Nickは、将来的にはフローティングデザイナ（Delphi7までのデザイナ）のサポートを打ち切り
たいようなことも言っていた。

DotNetについては、Visual StudioとMonoのプラグンインにするとのこと
(なお、Visual StudioのShellはMSから無償で利用可能みたいだ）

今後のRad Studioはガリレオ(Native用）とVisual Studio Shell(.Net用）の
２つを一つのパッケージにして販売して行くようだ。

VCL.Netの今後の扱いが気になったのだが、聞くことができなかった。

これは自分の想像であるが、Commodoreがクロスコンパイラでの提供予定であることと
TiburonでTObjectにToStringやGetHashCodeなどの.NetのObjectと同様なメソッドを
追加するなどライブラリレベルでの互換性の強化をしていることを考えると
ガリレオからクロスコンパイラでdot Netのアセンブリを作ることを考えているのでは
ないだろうか？

Turbo製品の提供の予定についての質問がありNickから提供の予定は
あるが言語学習目的の用途を想定した製品にする予定だとの回答があった。
（現在のTruboシリーズよりも機能的にには少ないものになりそうだ）

また、Firebirdをサポートして欲しいとの要望があったが、この要望に対しては
Nick「自分としてはサポートしたいのだが解決しないといけない問題が・・・」
と渋い顔をしていたので、CodegearでのFirebirdをサポートのためいに、技術的
ではない大人の問題の解決が必要のようだ。

A3「データモデリングを見直そう！ - モデリングの基本とモデル駆動 DB 設計のポイント」

ER/Studioの機能を説明するために必要なDB設計（モデリング）の基礎を
非常にわかりやすい資料と平易な言葉で説明して頂けた。
こういった内容は、自分の周りではなかなか聞けない内容なので
非常に勉強になったと思う。

A4「Delphi 2009 / C++Builder 2009最新情報」

NickがDEMOをしながらDelphi2009の新機能を説明してくれた。
もともとのボリュームが多かったことと、DEMOに対する質疑が
活発だったこともあり予定したDEMOが全て紹介できなかった
見たいだ。

自分が覚えている参加者からの質問は以下のとおり

Genericを使うとEXEサイズはでかくなるのか
→Nick:そんなことはない。TypeSafeを保障しかつサイズ・実行効率ともに
　　　　　既存の継承をつかう方法よりもようなるよう設計してある。

無名メソッドで.NetのMultiCastイベントに相当することはできるのか
→Nick:できる。（答えてデモを行おうとしているとこで時間切れで）
　　　　　Allen Bauerの(DelphiのGenericsの設計者と言ってた思う）Blog
に詳細な説明があるので見てくれとのこと。

個人的には伝統のTThreadを使ったSortの例を無名メソッドに
置き換えるDEMOがよかった。これはぜひとも手順を記載した
チュートリアルが欲しいと思った。

A5「知って得する！現役ヘルプデスクが答えるDelphiテクニカルエッセンス3.0」

VCL for WEBの使い方に関するQ&Aセッションだった。

VCL for WEBについては、日本語で書かれた説明書がないので
使っては見たいが使用に二の足を踏んでいたの手をつける良い資料となった。

余談であるが、RaveReportなどDelphiにバンドルされるツールは
日本語の説明書がないので非常にとっつきにくい。
こういったバンドル製品の日本語のチュートリアルがあるとよいと
個人的には思う。

そういったいみでは、実際に現場でバリバリと使われている企業さんの
Q&Aは使用方法の勘所が抑えてあるので非常に貴重だ。

A6「Delトーーク！ボクのほしいDelphi」

5人の方が発表されて、非常に盛り上がったセッションであった。
質問も数多く出て６０分ではとても足りないぐらいだった。

自分の周りにはDelphiユーザがいないので、実際のユーザ様の
生の声とともにDelphiに対する熱い思いを感じることができて
大変良かった思う。

こんなにもりあがるのであれば、小集団活動的なものを行うのも
良いかと思ったりした。

(以下、また内容を思い出したり、思うことがあれば、追記します。）