KOLIndy/myindy/IdUDPClient.pas

   1 // 19-nov-2002
   2 unit IdUDPClient;
   3
   4 interface
   5
   6 uses KOL,
   7   IdUDPBase;
   8
   9 type
  10   PIdUDPClient=^TIdUDPClient;
  11   TIdUDPClient = object(TIdUDPBase)
  12   protected
  13   public
  14     procedure Send(AData: string); overload;
  15     procedure SendBuffer(var ABuffer; const AByteCount: integer); overload;
  16    { published }
  17     property Host: string read FHost write FHost;
  18     property Port: Integer read FPort write FPort;
  19     property ReceiveTimeout;
  20   end;
  21
  22 function NewIdUDPClient:PIdUDPClient;
  23
  24 implementation
  25
  26 function NewIdUDPClient:PIdUDPClient;
  27 begin
  28   New( Result, Create );
  29 end;
  30
  31 procedure TIdUDPClient.Send(AData: string);
  32 begin
  33   Send(Host, Port, AData);
  34 end;
  35
  36 procedure TIdUDPClient.SendBuffer(var ABuffer; const AByteCount: integer);
  37 begin
  38   SendBuffer(Host, Port, ABuffer, AByteCount);
  39 end;
  40
  41 end.