TF5UDP

type TF5UDP = class(TComponent)

protected

  procedure Init; virtual;

  procedure InitDefaults; virtual;

  procedure Lock;

  procedure Unlock;

  procedure Log();

  procedure LogException();

  procedure CheckNotActive;

  procedure CheckActive;

  procedure CheckReady;

  procedure SetAddressFamily();

  procedure SetBindAddress();

  procedure SetServerPort();

  procedure SetMaxReadBufferPackets();

  function GetState;

  function GetStateStr;

  procedure SetState();

  procedure SetReady; virtual;

  procedure SetClosed; virtual;

  procedure SetActive();

  procedure Loaded; override;

  procedure TriggerStart; virtual;

  procedure TriggerStop; virtual;

  procedure TriggerRead;

  procedure TriggerWrite;

  procedure StartProcessThread;

  procedure StopThread;

  procedure CreateSocket;

  procedure BindSocket;

  procedure CloseSocket;

  procedure FillBufferFromSocket;

  procedure WriteBufferToSocket;

  procedure ProcessSocket();

  procedure ProcessThreadExecute();

  procedure ThreadError();

  procedure ThreadTerminate();

  procedure Close;

  procedure InternalStart;

  procedure InternalStop;

public

  constructor Create(); override;

  destructor Destroy; override;

  property AddressFamily: TIPAddressFamily; [rw]

  property BindAddress: string; [rw]

  property ServerPort: Int32; [rw]

  property MaxReadBufferPackets: Integer; [rw]

  property OnLog: TUDPLogEvent; [rw]

  property OnStateChanged: TUDPStateEvent; [rw]

  property OnStart: TUDPNotifyEvent; [rw]

  property OnStop: TUDPNotifyEvent; [rw]

  property OnReady: TUDPNotifyEvent; [rw]

  property OnThreadIdle: TUDPIdleEvent; [rw]

  property OnRead: TUDPNotifyEvent; [rw]

  property OnWrite: TUDPNotifyEvent; [rw]

  property State: TUDPState; [r]

  property StateStr: string; [r]

  property Active: Boolean; [rw]

  procedure Start;

  procedure Stop;

  function Read();

  procedure Write();

  property UserTag: NativeInt; [rw]

  property UserObject: TObject; [rw]

end;

TF5UDP

TObject