<?php
                 header('Content-Type: text/plain;');
                 error_reporting(E_ALL ^ E_WARNING);
                 set_time_limit(0);
                 ob_implicit_flush();
                             
                 echo "-= Server =-\n\n";

                 $address = 'localhost';
                 $port    = 010101;          // убедитесь, что у сервера и клиента один порт

                  try {
                             
                     echo 'Create socket ... ';
                      if (($sock = socket_create(AF_INET, SOCK_STREAM, SOL_TCP)) < 0) {
                          throw new Exception('socket_create() failed: '.socket_strerror(socket_last_error())."\n");
                      } else {
                          echo "OK\n";
                      }

                     echo 'Bind socket ... ';
                      if (($ret = socket_bind($sock, $address, $port)) < 0) {
                          throw new Exception('socket_bind() failed: '.socket_strerror(socket_last_error())."\n");
                      } else {
                          echo "OK\n";
                      }

                     echo 'Listen socket ... ';
                      if (($ret = socket_listen($sock, 5)) < 0) {
                          throw new Exception('socket_listen() failed: '.socket_strerror(socket_last_error())."\n");
                      } else {
                          echo "OK\n";
                      }

                     do {
                         echo 'Accept socket ... ';
                          if (($msgsock = socket_accept($sock)) < 0) {
                    throw new Exception('socket_accept() failed: '.socket_strerror(socket_last_error())."\n");
                          } else {
                    echo "OK\n";
                          }
                          
                         $msg = "Hello, Client!";
                         echo "Say to client ($msg) ... ";
                         socket_write($msgsock, $msg, strlen($msg));
                         echo "OK\n";

                         do {
                          
                             echo 'Client said: ';
                             if (false === ($buf = socket_read($msgsock, 1024))) {
                       throw new Exception('socket_read() failed: '.socket_strerror(socket_last_error())."\n");
                             } else {
                       echo $buf."\n";
                             }
                    
                             if (!$buf = trim($buf)) {
                       continue;
                             }
                    
                             if ($buf == 'shutdown') {
                       socket_close($msgsock);
                       break 2;
                             }               
                    
                             echo "Say to client ($buf) ... ";
                             socket_write($msgsock, $buf, strlen($buf));
                             echo "OK\n";
                    
                         } while (true);
                          
                     } while (true);

                 } catch (Exception $e) {
                     echo "\nError: ".$e->getMessage();
                 }
                             
                 if (isset($sock)) {
                             
                     echo 'Close socket ... ';
                     socket_close($sock);                
                     echo "OK\n";
                             
                 }
?>

<?php
                 header('Content-Type: text/plain;');
                 error_reporting(E_ALL ^ E_WARNING);
                 set_time_limit(0);
                 ob_implicit_flush();
                             
                 echo "-= Client =-\n\n";

                 $address = 'localhost';
                 $port    = 010101;         // убедитесь, что у сервера и клиента один порт

                 try {
                             
                     echo 'Create socket ... ';
                     $socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
                     if ($socket < 0) {
                         throw new Exception('socket_create() failed: '.socket_strerror(socket_last_error())."\n");
                     } else {
                         echo "OK\n";
                     }

                     echo 'Connect socket ... ';
                     $result = socket_connect($socket, $address, $port);
                     if ($result === false) {
                         throw new Exception('socket_connect() failed: '.socket_strerror(socket_last_error())."\n");
                     } else {
                         echo "OK\n";
                     }

                     echo 'Server said: ';
                     $out = socket_read($socket, 1024);
                     echo $out."\n";
                      
                     $msg = "Hello, Server!";
                     echo "Say to server ($msg) ...";
                     socket_write($socket, $msg, strlen($msg));
                     echo "OK\n";
                      
                     echo 'Server said: ';
                     $out = socket_read($socket, 1024);
                     echo $out."\n";
                      
                     $msg = 'shutdown';
                     echo "Say to server ($msg) ... ";
                     socket_write($socket, $msg, strlen($msg));
                     echo "OK\n";
                      
                 } catch (Exception $e) {
                     echo "\nError: ".$e->getMessage();
                 }
                             
                 if (isset($socket)) {
                             
                     echo 'Close socket ... ';
                     socket_close($socket);
                     echo "OK\n";
                      
                 }
?>

<?php
                header('Content-Type: text/plain;');
                set_time_limit(0);
                ob_implicit_flush();                
             echo "-= Server =-\n\n";
                         
$NULL           = NULL;
$adres          = "localhost";
$port           = 1024;
$max_clients    = 3;
$sockets_clients = array();
$creat         = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
$rez            = true;

             echo 'Create socket ... ';
              if(!$creat){
                die("socket_create() failed\n") ;
              }else{
                echo "OK\n";
              }
                         
$rez &= @socket_bind($creat, $adres, $port);
             echo 'Bind socket ... ';
              if(!$rez){
                die("socket_bind() failed\n") ;
              }else{
                echo "OK\n";
              }

$rez &= @socket_listen($creat);
             echo 'Listen socket ... ';
              if(!$rez){
                die("socket_listen() failed\n") ;
              }else{
                echo "OK\n";
              }
             echo "Accepting of socket ... OK\n";
$abort = false;
$read = array($creat);
                         
while(!$abort){
                $num_changed = socket_select($read, $NULL, $NULL, 0, 10);
                /* Изменилось что-нибудь? */
                if ($num_changed){
                    /* Изменился ли главный сокет (новое подключение) */
                    if(in_array($creat, $read)){
                            if(count($sockets_clients) < $max_clients){
                          $sockets_clients[]= socket_accept($creat);
                          echo " Accept socket (" . count($sockets_clients)  . " of $max_clients clients)\n";
                          socket_write($sockets_clients[count($sockets_clients)-1], "Hello, Client!", 15);
                          echo "  Say to ".count($sockets_clients)." client: Hello, Client!\n";
                            }
                    }                  
                    /* Цикл по всем клиентам с проверкой изменений в каждом из них */
                    foreach($sockets_clients as $key => $client){

                        /* Новые данные в клиентском сокете? Прочитать и ответить */
                        if(in_array($client, $read)){
                            $input = socket_read($client, 1024);
                    
                      
                             if($input === false){
                      socket_shutdown($client);
                      unset($sockets_clients[$key]);
                             }else{
                      $input = trim($input);
                      echo "  ($client) Client say: ".$input."\n";
                      echo "  Say to ($client) client: ".$input."\n";
                      
                      if (!@socket_write($client,"You say: $input") ){              
                          socket_close($client);
                          unset ( $sockets_clients[$key] ) ;
                      }             
                             }
                      
                            if($input == 'bye'){
                      echo "Close socket ... OK\n";
                      socket_close($creat);
                      $abort = true;
                            }                         
                      
                        }// END IF in_array                      
                    
                    } // END FOREACH
                             
                } // END IF ($num_changed)
                            
                            
                $read = $sockets_clients;
                $read[] = $creat;
} // END WHILE
?>

uses Sockets;
var
              sock: integer;
              b: boolean;
              s,m: string;
begin
              cls;
              sock:=CreateClientSocket;
              b:=Connect(sock,'127.0.0.1',1024);
               if not b then
                begin
                 writeln('Ñîåäèíåíèå çàâåðøèëîñü íåóäà÷íî');
                 Exit;
               end;
               repeat
                 sleep(100);
                 ReceiveString(sock,m);
                 writeln(m);
                 read(s);
                 SendString(sock,s);
               until s='bye';
              CloseSocket(sock);
end.

         /* connect to socket */
var socket = new Socket("localhost", 1024);
                socket.connect;             
             socket.flush;
                             
                     /* state of connect to socket */                  
socket.addEventListener(Event.CONNECT,socketConnected);
             function socketConnected(e:Event):void{
             trace("client - socket connected", socket.connected);
             }
                         
                     /* read the string from the socket*/
socket.addEventListener(ProgressEvent.SOCKET_DATA,socketData);
             function socketData(e:ProgressEvent):void{
             var read_socket=socket.readUTFBytes(socket.bytesAvailable);
             trace(read_socket);             
             }
                             
             socket.writeUTFBytes('bye');

             socket.close;