Microsoft PowerPoint - はじめてのDataSnapアプリケーション_

Transcription

1 第 27 回エンバカデロ デベロッパーキャンプ A2 Delphi/C++Builder テクニカルセッション はじめての DataSnap 2013 年 X 月 X 日 田中芳起 Ver DataSnap の概要 多層型のデータベースアプリケーションを構築するためのフレームワーク Delphi3 で実装された技術で Delphi5 までは MIDAS と呼ばれていたが Delphi6 からは DataSnap と名称を変更 Win32 ベースの Windows ネイティブアプリケーション開発を前提とした技術だった Delphi2009 からは COM 依存性を排除して再構築.NET クライアント からも接続可能となった Delphi 2010 からは Windows サービス /Web サービス / インターネットサーバー API/HTTP 認証等をサポート 2 1

2 はじめての DataSnap 作成するアプリケーションの説明 3 アプリケーションの概要 これから作成する DataSnap を使ったアプリケーションは 次の通り クライアントからリクエストを送出し サーバーからの結果をクライアントに表示する プロトコルは TCP/IP を使用する Request Application (Client) Response Server 4 2

3 はじめての DataSnap サーバーの作成 5 新規プロジェクトを作成 ウィザードを使って新規プロジェクトを作成する [ ファイル 新規作成 その他...] メニューを選択すると 下の画面が表示される 左のペインから DataSnap Server 右のペインから DataSnap Server を選択し OK ボタンを押す 6 3

4 サーバー機能の選択 DataSnap サーバーに追加する機能を選択する ( 通信 ) プロトコル 認証 サーバーメソッドクラス フィルタ JavaScript ファイル モバイルコネクタ ここでは 標準設定のまま 次へ を押す 7 プロジェクト種類の選択 DataSnap サーバーの種類を選択する 作成するアプリケーション タイプを次の 3 種類から選択 VCL フォームアプリケーション コンソールアプリケーション (Windows) サービスアプリケーション ここでは VCL フォームアプリケーション を選択し 次へ を押す 8 4

5 ポート番号の指定 クライアントからのリスニングを行うポート番号を指定する 前ページで選択した プロトコル のポート番号を指定 ここでは 標準設定のまま 次へ を押す [ ポートのテスト ] ボタンを押すと 指定のポートが使用可能かどうかを確認できる 9 サーバー メソッド クラスの上位クラスを指定 サーバーメソッドクラスの上位の型を指定する TComponent TDataModule TDSServerModule ここでは TComponent を選択し 完了 を押す

6 サーバープログラムの自動生成 ウィザードで次の3つのユニットが自動生成される [Unit1] unit Unit1; [ServerMethodsUnit1] interface unit ServerMethodsUnit1; [ServerContainerUnit1] uses Winapi.Windows, Winapi.Messages, interface System.SysUtils, System.Variants, unit ServerContainerUnit1; System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs; uses System.SysUtils, System.Classes, interface Datasnap.DSServer, Datasnap.DSAuth; type TForm1 = class(tform) type uses System.SysUtils, System.Classes, procedure FormClose(Sender: {$METHODINFO TObject; ON} var Action: TCloseAction); Datasnap.DSTCPServerTransport, private TServerMethods1 = class(tcomponent) Datasnap.DSServer, Datasnap.DSCommonServer, { private 宣言 } private Datasnap.DSAuth, IPPeerServer; public { private 宣言 } { public 宣言 } public type { public 宣言 } TServerContainer1 = class(tdatamodule) var Form1: TForm1; function EchoString(Value: DSServer1: string): TDSServer; string; function ReverseString(Value: string): string; {$METHODINFO OFF} implementation implementation {$R *.dfm} uses System.StrUtils; uses ServerContainerUnit1; function TServerMethods1.EchoString(Value: string): string; end. Result := Value; : DSTCPServerTransport1: TDSTCPServerTransport; DSServerClass1: TDSServerClass; procedure DSServerClass1GetClass(DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass); private { private 宣言 } public var ServerContainer1: TServerContainer1; implementation uses Winapi.Windows, ServerMethodsUnit1; {$R *.dfm} 11 サーバー コンテナユニットを見てみる (1/2) ウィザードで自動生成される ServerContainerUnit1 には 3 つ *1 のコンポーネントが配置されている TDSServer: すべての DataSnap コンポーネントを結びつけるためのメインのサーバー設定コンポーネント 必ず配置される TDSServerClass: 公開するクラスごとに必要なコンポーネント public なインターフェイスを持つクラスを参照する TDSTCPServerTransport: 転送プロトコルと使用する TCP/IP 等の設定を定義するコンポーネント *1 サーバー機能の選択 でチェックした内容によって配置されるコンポーネントが異なる

7 サーバー コンテナユニットを見てみる (2/2) unit ServerContainerUnit1; interface uses System.SysUtils, System.Classes, Datasnap.DSTCPServerTransport, Datasnap.DSServer, Datasnap.DSCommonServer, Datasnap.DSAuth, IPPeerServer; type TServerContainer1 = class(tdatamodule) DSServer1: TDSServer; DSTCPServerTransport1: TDSTCPServerTransport; DSServerClass1: TDSServerClass; procedure DSServerClass1GetClass(DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass); private { private 宣言 } public OnGetClass が自動追加されている var ServerContainer1: TServerContainer1; implementation uses Winapi.Windows, ServerMethodsUnit1; {$R *.dfm} Server Class procedure TServerContainer1.DSServerClass1GetClass( DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass); PersistentClass := ServerMethodsUnit1.TServerMethods1; end TDSServer コンポーネント すべての DataSnap コンポーネントを結びつけるためのメインのサーバー設定コンポーネント プロパティ / メソッド説明 AutoStart ChannelQueueSize True: TDSServer コンポーネントがロードされたときにサーバーを自動的に起動 送信のキューに入れられるメッセージの数を指定 ChannelResponseTimeout クライアントがレスポンスを返すまで待機する時間を指定 ( 単位 : ミリ秒 ) Started True: DataSnap サーバーを開始されている Start DataSnap サーバーを開始する (AutoStart が False の場合 このメソッドを呼ぶ ) Stop DataSnap サーバーを停止する var MyDSServer: TDSServer; // DataSnap サーバーを作成 MyDSServer := TDSServer.Create(Self); // DataSnap サーバーを開始 if MyDSServer.Started then MyDSServer.Start; // DataSnap サーバーを停止し メモリを解放 MyDSServer.Stop; MyDSServer.Free;

8 TDSServerClass コンポーネント リモートクライアントに public メソッドを公開するために使われるサーバーサイドのクラスを定義する公開するクラスごとに必要なコンポーネント LifeCycle Server プロパティ / メソッド説明 インスタンス (Server class) のライフサイクルを指定 Session : DataSnapSession 毎にインスタンスを使用 ( 既定値 ) Server: サーバー毎にインスタンスを使用 Invocation: メソッドの呼び出し毎にインスタンスを使用 DataSnap サーバーを指定 OnGetClass サーバークラスを指定 [OnGetClass の使用例 ] procedure TServerContainer1.DSServerClass1GetClass( DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass); PersistentClass := ServerMethodsUnit1.TServerMethods1; 15 TDSTCPServerTransport コンポーネント DataSnap のサーバーとクライアント間の通信を担当し TCP/IP を通信プロトコルとして使用する プロパティ / メソッド説明 AuthenticationManager BufferKBSize Filters MaxThreads PoolSize 認証マネージャを指定 TCP/IPが読み / 書きするバッファサイズを指定 ( 単位 :KB) プロセス内インスタンスに対する DataSnap 通信フィルタを指定スケジューラで許されるスレッドの最大数を指定スレッドプールに割り当てられる最大数を指定 Port TCP/IP サーバーサイドポートを指定 ( デフォルトは 211) Server DataSnap サーバーを指定

9 サーバー メソッドユニットを見てみる ServerMethodsUnit1 には サーバー クラスとサーバーメソッドが自動的に追加されている unit ServerMethodsUnit1; interface uses System.SysUtils, System.Classes, Datasnap.DSServer, Datasnap.DSAuth; Server Class type {$METHODINFO ON} TServerMethods1 = class(tcomponent) private { private 宣言 } [ サンプルメソッド ] にチェックを付けると... public { public 宣言 } function EchoString(Value: string): string; function ReverseString(Value: string): string; {$METHODINFO OFF} implementation uses System.StrUtils; function TServerMethods1.EchoString(Value: string): string; Result := Value; function TServerMethods1.ReverseString(Value: string): string; Result := System.StrUtils.ReverseString(Value); end サーバー メソッドの追加 サーバー クラス (TServerMethods1) にメソッドを追加する [ サーバー クラス ] {$METHODINFO ON} TServerMethods1 = class(tcomponent) private { private 宣言 } public { public 宣言 } function EchoString(Value: string): string; function ReverseString(Value: string): string; 追加! function Add(a, b: Double): Double; function Dic(a, b: Double): Double; function Mult(a, b: Double): Double; function Sub(a, b: Double): Double; {$METHODINFO OFF} [ 追加したサーバー メソッド ] function TServerMethods1.Add(a, b: Double): Double; Result := a + b; function TServerMethods1.Dic(a, b: Double): Double; Result := a / b;

10 インスタンスを停止するコードを付加する フォームを閉じる前に DataSnap サーバーのインスタンスを停止させるコードを追加する uses ServerContainerUnit1; *1 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); ServerContainer1.DSServer1.Stop; *1 uses に ServerContainerUnit1 を追加する 19 はじめての DataSnap クライアントの作成

11 新規プロジェクトを追加 プロジェクトグループにクライアントの新規プロジェクトを作成する プロジェクト マネージャのプロジェクト グループ名を右クリックし 新規プロジェクトの追加 を選択 左のペインから Delphi プロジェクト を選択 右のペインから FireMonkey デスクトップアプリケーション を選択し OK ボタンを押す 21 FireMonky アプリケーションを作成する FireMonkey アプリケーションの種類を選択する HD FireMonkey アプリケーション を選択し OK ボタンを押す

12 FireMonky アプリケーションを作成する コントロールを Form に配置する プロジェクトとプロジェクト グループを保存する 23 DataSnap クライアント クラスの作成 重要なポイントは サーバーで実装されているすべてのインターフェースを作成すること プロジェクト グループでサーバー プログラムを選択し デバッガを使わずに実行 で起動する