Passo a Passo para Criar uma Aplicação Básica de WebSockets

Para se familiarizar com WebSockets no uniGUI, a melhor forma é testar esse recurso em uma aplicação simples.

1

Crie uma nova aplicação standalone uniGUI

Crie uma nova aplicação standalone uniGUI em seu ambiente Delphi.

2

Habilite WebSocketConnection no MainModule

Abra o MainModule e habilite a WebSocketConnection propriedade. Habilitar esta propriedade forçará as sessões a estabelecerem uma conexão WebSocket com o servidor. Essa conexão será usada para receber mensagens do servidor.

Habilitar WebSocketConnection

3

Adicione um botão ao MainForm

Abra MainForm e coloque um botão nele.

Botão no MainForm

4

Transmitir uma mensagem a partir do servidor

Adicione um manipulador de evento ao botão e chame BroadcastMessage conforme mostrado abaixo.

MainForm - Clique do Botão

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  BroadcastMessage('msg', ['text', 'This is the message!']);
end;

5

Tratar mensagens transmitidas no cliente/sessão

Adicione um manipulador de evento ao MainForm chamado OnBroadcastMessage para receber e tratar a mensagem transmitida:

MainForm - OnBroadcastMessage

procedure TMainForm.UniFormBroadcastMessage(const Sender: TComponent;
  const Msg: string; const Params: TUniStrings);
begin
  se Msg = 'msg' então
  begin
    ShowMessage(Params['text'].AsString);
  end;
end;

6

Execute e teste a aplicação

Execute a aplicação. No navegador, abra uma nova aba e navegue até a URL da aplicação (por exemplo, http://localhost:8077 dependendo da configuração da sua porta). Na aplicação web pressione o botão — uma janela de mensagem deve exibir o texto parâmetro.

Mensagem exibida

Você pode abrir várias abas do navegador (sessões). Todas as sessões conectadas devem exibir a mensagem instantaneamente quando o botão for pressionado.

Múltiplas sessões