RadPHPでRESTクライアントを作成する

実行したサーバーはそのままにして、今度はクライアントを作成してみましょう。RESTサーバーを作成したため、クライアントの作成には、さまざま言語を選択できるようになりました。ここでは、以前紹介したRadPHPを用いて、PHPによるWebクライアントを作成してみましょう。

［ファイル｜新規作成］で「RPCLアプリケーション」を選択します。

次に、［ファイル｜新規作成］で「その他」を選択し、「新規追加」ダイアログを表示します。［RadPHPプロジェクト｜PHPファイル］カテゴリから、「DataSnap RESTクライアントモジュール」を選択し、［OK］ボタンをクリックすると、「DataSnap RESTクライアントモジュールの作成」ダイアログが表示されます。

図9：DataSnap RESTクライアントモジュールの作成

ウィザードでは、使用するプロトコル、呼び出しに用いる言語（PHPかJavaScriptか？）を選択できます。「ホスト」と「ポート」を指定し（必要に応じてその他のオプションも指定します）、［OK］ボタンをクリックすると、RESTサーバーに接続して、必要な情報を取得し、コードを生成します（このとき、RESTサーバーは起動していなければなりません）。

ウィザードは、2つのユニットを作成します。ClientModuleUnit1.phpは、Delphiで作成したWebモジュールと同じように、必要なコンポーネントが配置されたモジュールクラスです。ここには、サーバーとの接続を確立するためのメソッドがあります。

もうひとつは、ClientClassUnit1.phpです。こちらには、リモートメソッドを呼び出すための、クライアントスタブが定義されています。

/**
  * @param string $Value [in]
  * @return string
  */
function EchoString($Value) {
  $params[1]=@func_get_arg(1);
  $params[2]=@func_get_arg(2);
  $params[3]=@func_get_arg(3);
  $returnObject = $this->executor->executeMethod('EchoString',
    'GET', array($Value), $params[1], true, $params[2], $params[3]);
  if (@func_get_arg(1) === FALSE) {
    if (($returnObject != null) && ($returnObject->result != null)
      && (is_array($returnObject->result))) {
      $resultArray = $returnObject->result;
      $resultObject=new DSObject();
      $resultObject->Value = $Value;
      $resultObject->result = $resultArray[0];
      return $resultObject;
    }
    return $returnObject;
  }
}
/**
  * @param string $Value [in]
  * @return string
  */
function ReverseString($Value) {
  $params[1]=@func_get_arg(1);
  $params[2]=@func_get_arg(2);
  $params[3]=@func_get_arg(3);
  $returnObject = $this->executor->executeMethod('ReverseString',
    'GET', array($Value), $params[1], true, $params[2], $params[3]);
  if (@func_get_arg(1) === FALSE) {
    if (($returnObject != null) && ($returnObject->result != null)
      && (is_array($returnObject->result))) {
      $resultArray = $returnObject->result;
      $resultObject=new DSObject();
      $resultObject->Value = $Value;
      $resultObject->result = $resultArray[0];
      return $resultObject;
    }
    return $returnObject;
  }
}

RESTクライアントのGUI設計

これらのクライアントモジュールを使ってリモートメソッドを呼び出す処理を、先ほど作成したRPCLアプリケーションunit1.phpに記述します。まず、GUIを設計します。

図10：GUIの設計（クリックで拡大）

図のようにフォーム上に、ラベル、エディット、ボタンを配置します。ボタンをクリックすると、エディットに入力された文字列をサーバーに渡します。そして戻された値をラベルに表示します。うまくいけば、文字列は反転して表示されることでしょう。

フォームからリモートメソッドを呼び出すには、もうひとつ準備作業が必要です。［ファイル｜ユニットを使う］メニューを実行して、ClientModuleUnit1.phpを選択します。これで、unit1には、以下のコードが追加されています。

require_once("ClientModuleUnit1.php");

実際のクライアントクラスは、ClientClassUnit1.phpにありますが、このユニットは、ClientModuleUnit1.phpから使うように定義されていますので、ここで選択するのは、ClientModuleUnit1.phpだけで十分です。

フォームに配置したボタンをダブルクリックして、OnClickイベントのイベントハンドラを記述します。

function Button1Click($sender, $params)
{
  global $ClientModuleUnit1;

  $this->Label1->Caption = 
    $ClientModuleUnit1->ServerMethods1Client->ReverseString(
    $this->Edit1->Text)->result;
}

以上でクライアントは完成です。［実行］ボタンを押して、アプリケーションを実行します。

図11：クライアントアプリケーションの実行（クリックで拡大）

文字列を入力してボタンをクリックすると、反転した文字列がラベルに表示されます。

以上の手順は、こちらのビデオでもご覧いただけます。

もちろんPHP以外でも…

ここではPHPを使ってDelphiのRESTサーバーにアクセスしましたが、JavaScriptなどさまざまな言語からも利用できます。また、RESTサーバーも他のWebサービスを利用することができるので、例えば、ソーシャルネットワークやクラウドサービスなどと通信する機能をサーバーに実装し、これをクライアントアプリケーションから利用するといった形態も考えられます。

さまざまなプラットフォームやデバイスが台頭してきている現在、ひとつの開発言語、ひとつのプラットフォームですべてを開発するという時代から、適材適所で使い分け、それらをつないでいくシステムの時代に変わろうとしています。このような中、RAD技術は、既存アプリケーション資産を新しいテクノロジーを結びつける方向へと進化を続けているのです。