1. constructor
   1. tcpServer = new QTcpServer(this)
   2. tcpServer->serverPort()
   3. if (!tcpServer->listen())
      1. close();
   4. connect(tcpServer, SIGNAL(newConnection()), this, SLOT(sendFortune()));
2. QTcpServer::newConnection()
   1. Подготовка данных
      1. QByteArray block;
      2. QDataStream out(&block, QIODevice::WriteOnly);
      3. out <<
   2. QTcpSocket *clientConnection = tcpServer->nextPendingConnection();
   3. connect(clientConnection, SIGNAL(disconnected()), clientConnection, SLOT(deleteLater()));
   4. clientConnection->write(block);
   5. clientConnection->disconnectFromHost();