TvsPastellaServer

type TvsPastellaServer = class(TVisualServer)

protected

  Queue: TQueue;

  Delegator: TDelegator;

  Connector: TConnector;

  ClientCallBack: TClientCallBack;

  function SendPacket();

  function SendBroadcast();

  function RoutePacket();

  function SetPersistant();

  function InsertAgent();

  function InsertWalker();

public

  P2PSettings: TP2PSettings;

  constructor Create(); override;

  destructor Destroy; override;

  procedure CreateRandomUID;

  procedure CreateUIDFromString();

  function Send();

  function BroadCast();

  function Route();

  function Walker();

  function Connect();

  procedure SetUID();

published

  property UID: string; [rw]

  property OnAnyPacket: TOnPastellaPacket; [rw]

  property OnBroadcast: TOnPastellaPacket; [rw]

  property OnRoutedPacket: TOnPastellaPacket; [rw]

  property OnPersistantPacket: TOnPastellaPacket; [rw]

  property OnAgentPacket: TOnPastellaPacket; [rw]

  property OnStreamPacket: TOnPastellaPacket; [rw]

end;

TvsPastellaServer

TVisualServer

TObject