YOUSEFUL / DELPHI / COMPONENTS

All Atlas MQTT components · Atlas MQTT guide

TAtlasMqttTransportEvent

The type of TAtlasMqttClient.OnCreateTransport: supply the byte pipe for the next connection attempt.

Type Unit Atlas.MqttClient · Product Atlas MQTT

Description

TAtlasMqttTransportEvent = procedure(Sender: TObject; var Transport: TAtlasMqttTransport) of object;

Transport is nil on entry. Set it to a new, unconnected descendant of TAtlasMqttTransport, or leave it nil to get a TAtlasTcpTransport. The client takes ownership, connects it, and frees it when the connection ends. It runs on the client's own thread before every attempt. Add Atlas.MqttTransport to uses.

This type has no members of its own beyond those listed in its description.

Examples

uses
  System.SysUtils, System.Classes, Atlas.MqttTransport, Atlas.MqttClient;

type
  TSlowTransport = class(TAtlasTcpTransport)
  public
    procedure Send(const Data: TBytes); override;
  end;

  TSlowLink = class
    procedure CreateTransport(Sender: TObject; var Transport: TAtlasMqttTransport);
  end;

procedure TSlowTransport.Send(const Data: TBytes);
begin
  Sleep(50);
  inherited;
end;

procedure TSlowLink.CreateTransport(Sender: TObject; var Transport: TAtlasMqttTransport);
begin
  Transport := TSlowTransport.Create;  // the client connects it, uses it and frees it
end;

Related

TAtlasMqttClient · TAtlasMqttTransport · TAtlasTcpTransport

Also in Atlas MQTT

TAtlasMqttClient · TAtlasMqttBroker