unit TimeServer_ServerMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROIndyTCPServer,
   uROSOAPMessage, uROIndyUDPServer, uROBroadcastServer,
  uROPoweredByRemObjectsButton;

type
  TTimeServer_ServerMainForm = class(TForm)
    ROMessage: TROBINMessage;
    UDPServer: TROBroadcastServer;
    mmRequest: TMemo;
    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
    procedure FormCreate(Sender: TObject);
    procedure UDPServerRORequest(Sender: TObject);
  private

  protected

  public

  end;

var
  TimeServer_ServerMainForm: TTimeServer_ServerMainForm;

implementation


{$R *.DFM}

procedure TTimeServer_ServerMainForm.FormCreate(Sender: TObject);
begin
  UDPServer.Active := True;
  mmRequest.Lines.Add({+UDPServer.IndyUDPServer.LocalName+}'Server is ready to receive broadcasts.');
  mmRequest.Lines.Add('');
end;

procedure TTimeServer_ServerMainForm.UDPServerRORequest(Sender: TObject);
begin
  mmRequest.Lines.Add('Received a broadcast to process a RO message.');
end;

end.