www.pudn.com > Indy_9_00_14_src.zip > IdEchoUDPServer.pas

{ $HDR$} 
{**********************************************************************} 
{ Unit archived using Team Coherence                                   } 
{ Team Coherence is Copyright 2002 by Quality Software Components      } 
{                                                                      } 
{ For further information / comments, visit our WEB site at            } 
{ http://www.TeamCoherence.com                                         } 
{**********************************************************************} 
{} 
{ $Log:  10151: IdEchoUDPServer.pas  
{ 
{   Rev 1.0    2002.11.12 10:37:26 PM  czhower 
} 
unit IdEchoUDPServer; 
 
interface 
uses IdAssignedNumbers, IdSocketHandle, IdUDPBase, IdUDPServer, Classes; 
type 
   TIdEchoUDPServer = class(TIdUDPServer) 
   protected 
      procedure DoUDPRead(AData: TStream; ABinding: TIdSocketHandle); override; 
   public 
     constructor Create(axOwner: TComponent); override; 
   published 
     property DefaultPort default IdPORT_ECHO; 
   end; 
 
implementation 
 
{ TIdEchoUDPServer } 
 
constructor TIdEchoUDPServer.Create(axOwner: TComponent); 
begin 
  inherited Create(axOwner); 
  DefaultPort := IdPORT_ECHO; 
end; 
 
procedure TIdEchoUDPServer.DoUDPRead(AData: TStream; ABinding: TIdSocketHandle); 
var s : String; 
begin 
  inherited DoUDPRead(AData, ABinding); 
  SetLength(s, AData.Size); 
  AData.Read(s[1], AData.Size); 
  with ABinding do 
  begin 
    SendTo(PeerIP, PeerPort, s[1], Length(s)); 
  end; 
end; 
 
end.