クライアント アプリケーションの作成(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. クライアント用の簡単なグラフィカル ユーザー インターフェイスを次のように実装します。
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 をメッセージに表示します。