program main;
uses crt,
     blcksock in 'lib\blcksock.pas';

var DGramSocket : TUDPBlockSocket;
    s : integer;
    k : integer;

begin
   DGramSocket := TUDPBlockSocket.Create;

   DGramSocket.CreateSocket;

   DGramSocket.bind('127.0.0.1','2007');
   with DGramSocket do
      writeln('binding DGramSocket ',GetErrorDesc(LastError));

   while true do
      begin
         try
            k := DGramSocket.RecvBufferFrom(@s,4);
            with DGramSocket do
               writeln('getting ',GetErrorDesc(LastError));
            if k > 0 then writeln(s);
         except;

         end;
      end;
end.