クライアント アプリケーションの作成（TObject と DataSnap のチュートリアル）
チュートリアル：DataSnap で PODO（Plain Old Delphi Object）を渡す への移動
クライアント アプリケーションの作成
クライアント アプリケーションを作成するには、次の手順に従います。
1. プロジェクト グループを右クリックして、［新規プロジェクトを追加...］を選択します。
2. ［C++Builder プロジェクト］ノードまたは［Delphi プロジェクト］ノードで、［マルチデバイス アプリケーション］を選択し、［OK］をクリックします。
3. プロジェクトをサーバーと同じ場所に保存します。最初のユニットの名前を「FormClientUnit」、プロジェクト名を「PODOClient」、グループ名を「PODOGrp」にします。
4. ［ファイル｜新規作成｜その他...］を選択します。
5. 左列の［C++Builder プロジェクト］または［Delphi プロジェクト］から［DataSnap Server］ノードをクリックします。右ペインで［DataSnap クライアント モジュール］を選択し、［OK］をクリックします。
6. モジュールの種類を次のように指定します。
-
- デフォルト値［ローカル サーバー］を選択したままで［次へ >>］をクリックします。
- デフォルト値［DataSnap スタンドアロン サーバー］を選択したままで［次へ >>］をクリックします。
- デフォルト値［TCP/IP］を選択したままで［次へ >>］をクリックします。
- ［接続テスト］をクリックしてポート 211 の接続を確認し、［完了］をクリックします。
メモ： サーバー アプリケーションが動作していることを確認します。
- これで、ウィザードによって ClientModuleUnit と ClassesClientUnit が生成されます。
注意： ClientClassesUnit には TServerMehods1Client クラスと GetPerson 関数が生成されています。このシグネチャはサーバーのクラスと同じです。このメソッドはローカルで呼び出す必要があります。
7. ドラッグ アンド ドロップ操作でサーバー プロジェクトの SharedStuffUnit をクライアント プロジェクトに移動します。
8. クライアント用の簡単なグラフィカル ユーザー インターフェイスを次のように実装します。
-
- FormClientUnit の［デザイン］ページで、［ツール パレット］を使って TEdit 要素を 2 つ追加し、名前を「EditLastname」および「EditFirstname」に変更します。
- ［ツール パレット］を使って TButton コンポーネントを追加し、キャプションを「Show Person」に変更します。
9. FormClientUnit で、［ファイル｜使用するユニット...］を選択します。
10. ClientClassesUnit1、ClientModuleUnit1、SharedStuffUnit を選択し、［OK］をクリックします。
11. Show Person ボタンをダブルクリックし、機能を実装します。
Delphi の場合：
var
p: TPerson;
begin
p := ClientModule1.ServerMethods2Client.GetPerson(EditFirstname.Text, EditLastname.Text);
if p <> nil then
begin
ShowMessage(p.ToString);
end;
end;
C++Builder の場合：
TPerson *p;
p = new TPerson(EditFirstname->Text, EditLastname->Text);
if (p != NULL)
ShowMessage(p->ToString());
-
- ShowPerson ボタンの実装では、人オブジェクト（TObject から派生した TPerson）を返すサーバーのメソッドを呼び出します。その後、サーバーから実際に何かが返されているかを確認します。返されていれば、その人の Firstname と Lastname をメッセージに表示します。