クライアントサーバー: サーバー上でロジックを実行する新しい方法

クライアントサーバーモードでは、サーバー上でホストされているリソースがロジックの実行に必要なことがよくあります。これまで、サーバー上でコードを実行するには、専用のプロジェクトメソッドや ORDAデータモデル関数を記述するのが一般的でした。

これにより、必ずしも必要とは言えない大量のプロジェクトメソッドや ORDAデータモデル関数が大量に生成されてしまう原因になっていました。 

4D 21 R3 では、一部のシングルトンにおいて、 関数をサーバー上で実行できるようになりました。 

コードの構成を改善する方法について、ぜひ読み進めてください！

HDI: シングルトンにおける server キーワード

デスクトップアプリケーションでは、接続されたすべての 4D クライアントで共有する必要があるデータを読み取ったり更新したりするため、コードの一部はサーバー上で実行する必要があります。たとえば、接続されたすべてのクライアント間でメモリ内のデータを共有するために、現在はサーバー上のストレージを使用しているかもしれません。 

また、ロジックによっては、サーバーでホストされるリソース（データのクエリなど）が必要になる場合もあります。

サーバー上でコードを実行するために、以前は次のように記述していました：

• 「Execute on server」プロパティを有効にしたプロジェクトメソッド
• 「サーバー上で実行」コマンド
• ORDAデータモデル関数（デフォルトでサーバー上で実行されます）

現在、一部のシングルトンには 、常にサーバー上で実行される関数が含まれる場合があります。

 

共有およびセッションシングルトンの `server` キーワード

共有およびセッションシングルトンの関数は、現在 server キーワードをサポートするようになりました。

このserver キーワードを使用して関数を宣言すると、シングルトンが4D Client上でインスタンス化されている場合でも、その関数は常にサーバー上で実行されます。

例

以下の例では、Administration共有シングルトンが serverProcess activity()コマンドを実行する関数を定義しています。 

このシングルトンは 4D クライアント上でインスタンス化され、そこから関数が呼び出されます。サーバーからアクティビティ（プロセス + セッション）を返します。

Administration共有シングルトン：

shared singleton Class constructor

// This function is executed on the server
server Function processActivity() : Object
return Process activity()

// This function is executed locally
Function localProcessActivity() : Object
return Process activity()

4Dクライアント上で実行されるコード：

var $localActivity; $serverActivity : Object
var $administration : cs.Administration


ASSERT(Application type()=4D Remote mode)

// The Administration singleton is instantiated on the 4D Client
$administration:=cs.Administration.me

// Get the processes running on the 4D client
$localActivity:=$administration.localProcessActivity()

ASSERT($localActivity.sessions=Null)

// Get the processes + sessions running on 4D Server
$serverActivity:=$administration.processActivity()

ASSERT($serverActivity.sessions.length>=1)

セッションシングルトンのさらなる活用

この文脈において、セッションシングルトンは大きな利点を提供します。セッションシングルトンは、セッション内のすべてのプロセスに対して一意の共有インスタンスを持ちます。

セッションシングルトンがサーバー上でロジックを実行できるようになれば、 Session コマンドの機能を効果的に拡張できます。

例

ユーザーをUsersテーブルに格納し、カスタム認証を実装する場合、この目的でセッションシングルトンを使用できます。

以下の例では、UserSessionセッションシングルトンが、サーバー上で実行される `checkUser() ` 関数を持っています。ユーザー ID は、セッション storage 共有オブジェクトに保存されます。

server Function checkUser($credentials : Object) : Boolean
	
var $user : cs.UsersEntity
var $result:=False
	
If ($credentials#Null)
	$user:=ds.Users.query("Email === :1"; $credentials.identifier).first()
		
	If (($user#Null) && (Verify password hash($credentials.password; $user.Password)))
		Use (Session.storage)
			Session.storage.userInfo:=New shared object("userId"; $user.ID)
		End use 
			
		$result:=True
	End if 
End if 
	
return $result

すべての 4D クライアントに現在のユーザーを提供するために、セッションシングルトンは、サーバーから取得した `user ` 計算プロパティを公開します。

session singleton Class constructor()

server Function get user() : cs.UsersEntity
	return ds.Users.get(Session.storage.userInfo.userId)

添付のHDIを実行して、具体的な例を確認してください。次のステップは、関連するロジックを適切なクラスに配置してコードを整理することです。そして……4Dセッションの活用を今すぐ始めてみましょう！