Najczęstszym zastosowaniem komponentu WAMP jest żądanie przez klienta metody od serwera, a następnie wysłanie przez serwer odpowiedzi do klienta. Klient może przekazać wyłącznie nazwę metody lub dodatkowo parametry wymagane przez serwer do obliczenia wyniku. Serwer przetwarza żądania i w przypadku sukcesu wysyła do klienta odpowiedź z wynikiem. W przypadku błędu serwer wysyła do klienta odpowiedź z błędem.
Jak widać, istnieje tylko jedno żądanie i jedna odpowiedź (pomyślna lub nie).
Example: serwer posiada metodę o nazwie GetTime, więc za każdym razem, gdy klient wywoła tę metodę, serwer zwraca bieżący czas serwera.
Serwer 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;Klient 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');