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

Size: px

Start display at page:

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

ようじろうすすむ
9 years ago
Views:

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

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

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

4 サーバープログラムの自動生成ウィザードで次の2つのユニットが自動生成される [ServerContainerUnit1] unit ServerContainerUnit1; interface unit ServerMethodsUnit1; uses System.SysUtils, System.Classes, Vcl.SvcMgr, interface Datasnap.DSTCPServerTransport, Datasnap.DSServer, Datasnap.DSCommonServer, uses System.SysUtils, System.Classes, Datasnap.DSServer, Datasnap.DSAuth; Datasnap.DSAuth, IPPeerServer; type type {$METHODINFO ON} TServerContainer1 = class(tservice) TServerMethods1 = class(tcomponent) DSServer1: TDSServer; private DSTCPServerTransport1: TDSTCPServerTransport; { private 宣言 } DSServerClass1: TDSServerClass; public procedure DSServerClass1GetClass(DSServerClass: TDSServerClass; { public 宣言 } var PersistentClass: TPersistentClass); function EchoString(Value: string): string; procedure ServiceStart(Sender: TService; var Started: Boolean); function ReverseString(Value: string): string; private { private 宣言 } {$METHODINFO OFF} protected function DoStop: Boolean; override; implementation function DoPause: Boolean; override; function DoContinue: Boolean; override; uses System.StrUtils; procedure DoInterrogate; override; public function TServerMethods1.EchoString(Value: string): string; function GetServiceController: TServiceController; override; Result := Value; : [ServerMethodsUnit1] : 56 プロジェクトの保存とビルド [ファイルすべて保存 ]を実行するプロジェクトを DataSnapWinServiceApp.dpr と言う名前で保存する他はそのままの名前で保存するビルドを実行する DataSnapWinServiceApp.dpr ServerContainerUnit1.pas 2 ServerMethodsUnit1.pas

5 はじめてのDataSnap 生成されたユニットを見てみる 58 サーバーコンテナユニットを見てみる (1/4) ウィザードで自動生成される ServerContainerUnit1 には 3つ*1 のコンポーネントが配置されている TDSServer: すべてのDataSnapコンポーネントを結びつけるためのメインのサーバー設定コンポーネント必ず配置される TDSServerClass: 公開するクラスごとに必要なコンポーネント publicなインターフェイスを持つクラスを参照する TDSTCPServerTransport: 転送プロトコルと使用するTCP/IP 等の設定を定義するコンポーネント *1 サーバー機能の選択でチェックした内容によって配置されるコンポーネントが異なる

6 サーバーコンテナユニットを見てみる (2/4) unit ServerContainerUnit1; interface uses System.SysUtils, System.Classes, Vcl.SvcMgr, Datasnap.DSTCPServerTransport, Datasnap.DSServer, Datasnap.DSCommonServer, Datasnap.DSAuth, IPPeerServer; TServiceから派生 type TServerContainer1 = class(tservice) DSServer1: TDSServer; DSTCPServerTransport1: TDSTCPServerTransport; DSServerClass1: TDSServerClass; procedure DSServerClass1GetClass(DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass); procedure ServiceStart(Sender: TService; var Started: Boolean); private { private 宣言 } protected function DoStop: Boolean; override; function DoPause: Boolean; override; function DoContinue: Boolean; override; procedure DoInterrogate; override; public function GetServiceController: TServiceController; override; 自動追加されている var ServerContainer1: TServerContainer1; implementation uses Winapi.Windows, ServerMethodsUnit1; {$R *.dfm} 60 サーバーコンテナユニットを見てみる (3/4) procedure TServerContainer1.DSServerClass1GetClass( DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass); PersistentClass := ServerMethodsUnit1.TServerMethods1; procedure TServerContainer1.ServiceStart(Sender: TService; var Started: Boolean); DSServer1.Start; function TServerContainer1.GetServiceController: TServiceController; Result := ServiceController; procedure ServiceController(CtrlCode: DWord); stdcall; ServerContainer1.Controller(CtrlCode); End; procedure TServerContainer1.DoInterrogate; inherited; function TServerContainer1.DoStop: Boolean; DSServer1.Stop; Result := inherited; function TServerContainer1.DoPause: Boolean; DSServer1.Stop; Result := inherited; function TServerContainer1.DoContinue: Boolean; Result := inherited; DSServer1.Start; end

7 サーバーコンテナユニットを見てみる (4/4) ウィザードで自動生成される ServerContainerUnit1.pas にはサービスアプレット内の操作 ( 赤枠 )で呼び出される4つのメソッドが生成される DoInterrogate: 開始ボタンが押されたときに呼び出される DoStop : 停止ボタンが押されたときに呼び出される DoPause: 一時停止ボタンが押されたときに呼び出される DoContinue: 再開ボタンが押されたときに呼び出される 62 サーバーメソッドユニットを見てみる 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

8 サーバーメソッドの追加サーバークラス(TServerMethods1.pas)にクライアントから呼び出されるメソッドを追加する unit ServerMethodsUnit1; {$METHODINFO ON} TServerMethods1 = class(tcomponent) : 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; function TServerMethods1.Mult(a, b: Double): Double; Result := a * b; function TServerMethods1.Sub(a, b: Double): Double; Result := a - b; 64 サービスのインストールインストールは次の手順で行う管理者権限でコマンドプロンプトを起動するコマンドラインから次の通り入力し [Enter]キーを押す [パス名 ] [DataSnapサーバ名 ] /INSTALL

9 サービスの登録確認と起動サービスが正しく登録されたかは次の手順で確認することができるコントロールパネルを開き [ 管理ツール][サービス]をクリックしてサービスを起動するサービス名 (ServerContainer1)が登録されているか確認状態が開始となっていない場合はサービス名をダブルクリックしプロパティ画面から[ 開始 ]ボタンを押す 66 サービスの削除登録されたサービスは次の手順で削除することができる管理者権限でコマンドプロンプトを起動するコマンドラインから次の通り入力し [Enter]キーを押す sc.exe DELETE [サービス名 ]

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

Microsoft PowerPoint - はじめてのDataSnapアプリケーション_ 第 27 回エンバカデロデベロッパーキャンプ A2 Delphi/C++Builder テクニカルセッションはじめての DataSnap 2013 年 X 月 X 日田中芳起 Ver.1.0.0 1 http://www.avsoft.jp DataSnap の概要多層型のデータベースアプリケーションを構築するためのフレームワーク Delphi3 で実装された技術で Delphi5 までは