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

var DGramSocket,D1 : TDgramBlockSocket;
    s : string = '';

begin
   DGramSocket := TDgramBlockSocket.Create;
   D1 := TDgramBlockSocket.Create;

   DGramSocket.CreateSocket;
   D1.CreateSocket;

   DGramSocket.bind('127.0.0.1','2007');
   D1.bind('127.0.0.1','2008');
   DGramSocket.Connect('127.0.0.1','2008');
   D1.Connect('127.0.0.1','2007');

   while true do
      begin
         if keypressed then
            begin
               if readkey = #0 then readkey;
               writeln('test1');
               DGramSocket.SendString('test');
               with DGramSocket do
                  writeln('sending',GetErrorDesc(LastError));
            end;
         try
            s := D1.RecvString(1000);
         except;
            s := '';
            with D1 do
               writeln('getting',GetErrorDesc(LastError));
         end;
         if s <> '' then writeln(s);
      end;
end.