WSClient1.Port := 443;
WSClient1.Host := 'someendpoint.com';
WSClient1.TLS := True;
WSClient1.Proxy.Enabled := False;
WSClient1.Extensions.DeflateFrame.Enabled := False;
WSClient1.Specifications.RFC6455 := True;
WSClient1.Options.Parameters := '/mqtt';
MQTT1.Authentication.Enabled := False;
WSClient1.Active := True;
procedure TMainForm.MQTT1MQTTConnect(Connection: TsgcWSConnection; const
Session: Boolean; const ReturnCode: TmqttConnReturnCode);
begin
Memo1.Lines.Add('[Conectado...]');
MQTT1.Subscribe(
'environment/clientIdentifier/qry'
);
end;