WAMP | Simple RPC

WAMPコンポーネントの最も一般的な用途は、クライアントがサーバーにメソッドをリクエストし、 サーバーがクライアントに応答を送信することです。クライアントは メソッドの名前のみを送信したり、サーバーが結果を計算するために必要なパラメータを 渡したりできます。サーバーはリクエストを処理し、成功した場合は結果とともに クライアントに応答を送信します。エラーがある場合、サーバーはクライアントにエラー 応答を送信します。

わかるように、リクエストは 1 つで応答も 1 つ (成功または 失敗) です。

例： サーバーに GetTime というメソッドがあり、クライアントがこのメソッドをリクエストするたびにサーバーはサーバー時刻を返します。

WAMP サーバー

procedure OnServerCall(Connection: TsgcWSConnection; const CallId, ProcUri, Arguments: string);
begin
  if ProcUri = 'GetTime' then
    oServerWAMP.CallResult(CallId, FormatDateTime('yyyymmdd hh:nn:ss', Now))
  else
    oServer.WAMP.CallError(CallId, 'Unknown method');
end;
oServer := TsgcWebSocketServer.Create(nil);
oServer.Port := 80;
oServerWAMP := TsgcWSPServer_WAMP.Create(nil);
oServerWAMP.OnCall := OnServerCallEvent;
oServerWAMP.Server := oServer;
oServer.Active := True;

WAMP クライアント

procedure OnCallResultClient(Connection: TsgcWSConnection; CallId, Result: string);
begin
  ShowMessage(Result);
end;
procedure OnCallErrorClient(Connection: TsgcWSConnection; const Error: string);
begin
  ShowMessage(Error);
end;
oClient := TsgcWebSocketClient.Create(nil);
oClient.Host := '127.0.0.1';
oClient.Port := 80;
oClientWAMP := TsgcWSPClient_WAMP.Create(nil);
oClientWAMP.OnCallResult := OnCallResultClient;
oClientWAMP.OnCallError := OnCallErrorClient;
oClientWAMP.Client := oClient;
oClient.Active := True;
// After client has connected, request GetTime from server
oClientWAMP.Call('GetTime');