{"id":100,"date":"2008-01-12T22:18:35","date_gmt":"2008-01-12T19:18:35","guid":{"rendered":"http:\/\/pblog.ru\/?p=100"},"modified":"2008-08-10T18:33:27","modified_gmt":"2008-08-10T15:33:27","slug":"%d1%81%d0%be%d0%b7%d0%b4%d0%b0%d0%bd%d0%b8%d0%b5-%d0%bc%d0%bd%d0%be%d0%b3%d0%be%d0%bf%d0%be%d0%bb%d1%8c%d0%b7%d0%be%d0%b2%d0%b0%d1%82%d0%b5%d0%bb%d1%8c%d1%81%d0%ba%d0%be%d0%b3%d0%be-%d1%87%d0%b0%d1%82","status":"publish","type":"post","link":"http:\/\/pblog.ru\/?p=100","title":{"rendered":"\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043c\u043d\u043e\u0433\u043e\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u0441\u043a\u043e\u0433\u043e \u0447\u0430\u0442\u0430"},"content":{"rendered":"

\u0412 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0435\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 (\u201c\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043a\u043b\u0438\u0435\u043d\u0442-\u0441\u0435\u0440\u0432\u0435\u0440\u0430\u201d) \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u044b\u0432\u0430\u043b\u043e\u0441\u044c \u043e \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0435 \u043f\u0440\u043e\u0441\u0442\u0435\u0439\u0448\u0435\u0433\u043e \u0447\u0430\u0442\u0430 \u043d\u0430 \u0434\u0432\u043e\u0438\u0445 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439. \u0421\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u0447\u0430\u0442\u0430 \u201chead-to-head\u201d \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u0430, \u0432\u0435\u0434\u044c \u0435\u0441\u0442\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0434\u0438\u043d \u043a\u0430\u043d\u0430\u043b, \u0441 \u043e\u0434\u043d\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0441\u0435\u0440\u0432\u0435\u0440, \u0441 \u0434\u0440\u0443\u0433\u043e\u0439 \u2013 \u043a\u043b\u0438\u0435\u043d\u0442. Multy-user-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u043b\u043e\u0436\u043d\u0435\u0435. \u0415\u0441\u0442\u044c \u043e\u0434\u0438\u043d \u0441\u0435\u0440\u0432\u0435\u0440 \u0438 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u043a\u043b\u0438\u0435\u043d\u0442\u043e\u0432. \u0421\u0435\u0440\u0432\u0435\u0440 \u043f\u0440\u0438 \u044d\u0442\u043e\u043c \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0443 \u0432\u0445\u043e\u0434\u044f\u0449\u0438\u0445 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0439, \u043f\u0435\u0440\u0435\u0441\u044b\u043b\u0430\u0435\u0442 \u0438\u0445 \u043f\u043e \u043d\u0443\u0436\u043d\u044b\u043c \u043a\u0430\u043d\u0430\u043b\u0430\u043c, \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u0443\u0435\u0442 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 \u0438 \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442 \u0432\u0441\u0435\u043c, \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 \u043e\u0431\u0449\u0430\u044e\u0442\u0441\u044f \u0432 \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u043c\u043e\u043c\u0435\u043d\u0442. \u0412 \u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u043c\u044b \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u0435\u043c \u0432\u0441\u0435 \u044d\u0442\u043e \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u0442\u044c.<\/p>\n

\u041c\u043d\u043e\u0433\u043e\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u0441\u043a\u0438\u0439 \u0447\u0430\u0442 (Multy-user on-line)<\/strong><\/p>\n

\u041d\u0430\u0447\u043d\u0435\u043c \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0443 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f \u0447\u0430\u0442\u0430 \u0441 \u0443\u0436\u0435 \u0433\u043e\u0442\u043e\u0432\u043e\u0439 \u0444\u043e\u0440\u043c\u044b \u0438\u0437 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0435\u0439 \u0441\u0442\u0430\u0442\u044c\u0438, \u0438\u043b\u0438 \u0441 \u043d\u043e\u0432\u043e\u0439. \u0412\u043e\u0442, \u0447\u0442\u043e \u0434\u043e\u043b\u0436\u043d\u043e \u0431\u044b\u0442\u044c \u0432 \u0444\u043e\u0440\u043c\u0435:<\/p>\n

PortEdit<\/strong> (Edit)
\nHostEdit<\/strong> (Edit)
\nNikEdit<\/strong> (Edit)
\nTextEdit<\/strong> (Edit)
\nChatMemo<\/strong> (Memo)
\nClientBtn<\/strong> (Button)
\nServerBtn<\/strong> (Button)
\nSendBtn<\/strong> (Button)
\nServerSocket<\/strong> (ServerSocket)
\nClientSocket<\/strong> (ClientSocket)<\/p>\n

\u041a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b \u0438\u0437 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u043e\u0433\u043e \u043f\u0430\u043a\u0435\u0442\u0430 Delphi ServerSocket<\/strong> \u0438 ClientSocket<\/strong> \u043d\u0435 \u0432\u0441\u0435\u0433\u0434\u0430 \u043c\u043e\u0433\u0443\u0442 \u0431\u044b\u0442\u044c \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u044b \u0432 \u043f\u0430\u043b\u0438\u0442\u0440\u0435 Internet<\/strong>, \u0438 \u0438\u0445 \u043d\u0443\u0436\u043d\u043e \u0437\u0430\u0433\u0440\u0443\u0437\u0438\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c:<\/p>\n

\u0432\u044b\u0431\u0440\u0430\u0442\u044c \u043c\u0435\u043d\u044e: Component — Install Packages… — Add., \u0434\u0430\u043b\u0435\u0435 \u043d\u0443\u0436\u043d\u043e \u0443\u043a\u0430\u0437\u0430\u0442\u044c \u0444\u0430\u0439\u043b …\\bin\\dclsockets70.bpl.<\/p>\n

\u0414\u043e\u0431\u0430\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u043d\u043e\u0432\u044b\u0435 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b:<\/p>\n

UserListView<\/strong> (ListView)
\nImageList<\/strong> (ImageList)
\nServerTimer<\/strong> (Timer)<\/p>\n

<\/p>\n

UserListView<\/strong> \u043f\u0440\u0435\u0434\u043d\u0430\u0437\u043d\u0430\u0447\u0435\u043d \u0434\u043b\u044f \u0432\u044b\u0432\u043e\u0434\u0430 \u0441\u043f\u0438\u0441\u043a\u0430 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0431\u0443\u0434\u0435\u0442 \u0434\u0438\u043d\u0430\u043c\u0438\u0447\u0435\u0441\u043a\u0438 \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0442\u044c\u0441\u044f \u043f\u0440\u0438 \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0438 \u0438\u043b\u0438 \u043e\u0442\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439. \u0421\u0430\u043c \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442 ListView<\/strong> \u043d\u0430\u0441\u0442\u0440\u0430\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u043a\u0430\u043a \u0442\u0430\u0431\u043b\u0438\u0447\u043d\u044b\u0439 \u043e\u0442\u0447\u0435\u0442: \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e ViewStyle = vsReport<\/strong> (\u0441\u0442\u0438\u043b\u044c \u0442\u0430\u0431\u043b\u0438\u0446\u044b), \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e ShowColumnHeaders = False<\/strong> (\u043d\u0435 \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u0442\u044c \u0438\u043c\u0435\u043d\u0430 \u0441\u0442\u043e\u043b\u0431\u0446\u043e\u0432), \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e ReadOnly = True<\/strong> (\u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435), \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e SmallImages = ImageList<\/strong> (\u043c\u0430\u0441\u0441\u0438\u0432 \u0441 \u0438\u043a\u043e\u043d\u043a\u0430\u043c\u0438). \u0414\u0432\u043e\u0439\u043d\u044b\u043c \u043a\u043b\u0438\u043a\u043e\u043c \u043d\u0430 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u0435 ListView<\/strong> \u0432\u044b\u0432\u043e\u0434\u0438\u0442\u0441\u044f \u0440\u0435\u0434\u0430\u043a\u0442\u043e\u0440 Editing UserListView.Columns<\/strong>. \u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043e\u0434\u0438\u043d \u0441\u0442\u043e\u043b\u0431\u0435\u0446 (\u043f\u043e\u0440\u044f\u0434\u043a\u043e\u0432\u044b\u0439 \u043d\u043e\u043c\u0435\u0440 -0).
\n\u0412 ImageList<\/strong> \u0447\u0435\u0440\u0435\u0437 Add<\/strong> \u0437\u0430\u043a\u0438\u0434\u044b\u0432\u0430\u044e\u0442\u0441\u044f \u0438\u043a\u043e\u043d\u043a\u0438, \u0432 \u043d\u0430\u0448\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0434\u0432\u0435, \u0441 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435\u043c \u0441\u0438\u043b\u0443\u044d\u0442\u0430 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f: \u0432 \u0431\u0435\u043b\u043e\u043c \u2013 \u043f\u043e\u043c\u0435\u0442\u043a\u0430 \u0441\u0435\u0440\u0432\u0435\u0440\u0430, \u0432 \u043a\u0440\u0430\u0441\u043d\u043e\u043c \u2013 \u043f\u043e\u043c\u0435\u0442\u043a\u0430 \u043a\u043b\u0438\u0435\u043d\u0442\u0430.<\/p>\n

\u0422\u0435\u043f\u0435\u0440\u044c \u0440\u0430\u0437\u0431\u0435\u0440\u0435\u043c \u043f\u0440\u0438\u043d\u0446\u0438\u043f \u0440\u0430\u0431\u043e\u0442\u044b \u0441\u0435\u0440\u0432\u0435\u0440\u0430. \u0422\u0440\u0430\u0434\u0438\u0446\u0438\u043e\u043d\u043d\u043e \u0432 ServerSocket<\/strong> \u0434\u043b\u044f \u043f\u0440\u0438\u0435\u043c\u0430 \u043a\u043b\u0438\u0435\u043d\u0442\u0441\u043a\u0438\u0445 \u043f\u0430\u043a\u0435\u0442\u043e\u0432 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f OnClientRead<\/strong>, \u043d\u043e \u0434\u0430\u043d\u043d\u044b\u0439 \u0441\u043f\u043e\u0441\u043e\u0431 \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u0443\u0434\u043e\u0431\u0435\u043d, \u0432\u0435\u0434\u044c \u0434\u043b\u044f \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u043a\u0430\u0446\u0438\u0438 \u043f\u0430\u043a\u0435\u0442\u0430 (\u043a\u0442\u043e \u043f\u0440\u0438\u0441\u043b\u0430\u043b) \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u043f\u043e\u0432\u043e\u0437\u0438\u0442\u044c\u0441\u044f \u0441\u043e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u043e\u0439 \u201c\u043f\u0440\u0438\u0435\u043c\\\u043e\u0442\u0432\u0435\u0442\u201d \u0438 \u0440\u0435\u0448\u0438\u0442\u044c \u043a\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442\u044c \u0441\u0438\u043d\u0445\u0440\u043e\u043d\u0438\u0437\u0430\u0446\u0438\u044f. \u0413\u043e\u0440\u0430\u0437\u0434\u043e \u043f\u0440\u043e\u0449\u0435 \u0438 \u044d\u0444\u0444\u0435\u043a\u0442\u0438\u0432\u043d\u0435\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0446\u0438\u043a\u043b \u043f\u043e \u0447\u0438\u0441\u043b\u0443 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u0432\u0435\u0434\u0435\u0442\u0441\u044f \u201c\u043f\u0440\u043e\u0441\u043b\u0443\u0448\u0438\u0432\u0430\u043d\u0438\u0435\u201d \u0432\u0441\u0435\u0445 \u043a\u0430\u043d\u0430\u043b\u043e\u0432 \u0438 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u043f\u0430\u043a\u0435\u0442\u0430, \u0435\u0441\u043b\u0438 \u043e\u043d \u043f\u0440\u0438\u0448\u0435\u043b \u043d\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u0439 \u043a\u0430\u043d\u0430\u043b, \u0437\u0430\u043a\u0440\u0435\u043f\u043b\u0435\u043d\u043d\u044b\u0439 \u0437\u0430 \u043a\u043e\u043d\u043a\u0440\u0435\u0442\u043d\u044b\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u043c. \u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u201c\u043f\u0440\u043e\u0441\u043b\u0443\u0448\u0438\u0432\u0430\u043d\u0438\u044f\u201d \u043a\u0430\u043d\u0430\u043b\u043e\u0432 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442\u0441\u044f \u0432 \u0442\u0435\u043b\u0435 \u0442\u0430\u0439\u043c\u0435\u0440\u0430, \u0438\u043d\u0442\u0435\u0440\u0432\u0430\u043b (Interval<\/strong>) \u0440\u0430\u0431\u043e\u0442\u044b \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u0438\u0437\u043c\u0435\u043d\u044f\u0442\u044c \u043f\u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e\u0441\u0442\u0438 (\u0434\u043b\u044f \u0447\u0430\u0442\u0430 \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u043e 500 \u043c\u0441, \u0434\u043b\u044f \u0438\u0433\u0440 \u043d\u0443\u0436\u043d\u043e \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043c\u0435\u043d\u044c\u0448\u0435). \u0412\u043e\u0442 \u0442\u0430\u043a \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u043e\u0431\u0449\u0430\u044f \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u043e\u043f\u0440\u043e\u0441\u0430:<\/p>\n

procedure TForm1.Timer1Timer(Sender: TObject);
\nbegin
\n\/\/ \u0443\u0441\u043b\u043e\u0432\u0438\u0435 \u043d\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u043d\u044b\u0445 \u043a\u0430\u043d\u0430\u043b\u043e\u0432
\nif ServerSocket.Socket.ActiveConnections<>0 then
\nbegin
\n\/\/ \u0446\u0438\u043a\u043b \u043f\u043e \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u043c \u043a\u0430\u043d\u0430\u043b\u0430\u043c
\nfor i:=1 to ServerSocket.Socket.ActiveConnections do
\nbegin
\n\/\/ \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u043c \u043f\u0430\u043a\u0435\u0442 (\u0435\u0441\u043b\u0438 \u043d\u0438\u0447\u0435\u0433\u043e \u043d\u0435 \u043f\u0440\u0438\u0441\u043b\u0430\u043b\u0438, \u043f\u043e \u043f\u0430\u043a\u0435\u0442 \u043f\u0443\u0441\u0442\u043e\u0439)
\ntext:=ServerSocket.Socket.Connections[i-1].ReceiveText();
\n\/\/ \u0443\u0441\u043b\u043e\u0432\u0438\u0435, \u0447\u0442\u043e \u043f\u0430\u043a\u0435\u0442 \u043d\u0435 \u043f\u0443\u0441\u0442
\nif text<>'' then
\nbegin
\n{\u0442\u0443\u0442 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u0441\u0442\u0440\u043e\u043a\u0438, \u0432\u044b\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u0441\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0445 \u043a\u043e\u0434\u0430 \u043a\u043e\u043c\u0430\u043d\u0434 (com) \u0438 \u043f\u0440.}
\n\/\/ \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043a\u043e\u043c\u0430\u043d\u0434
\ncase com of
\n\u043a\u043e\u0434: begin
\n{\u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430}
\nend;
\n\u043a\u043e\u0434: begin
\n{\u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430}
\nend;
\n\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026\u2026.
\nend;
\nend;
\nend;
\nend;
\n\/\/ \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043d\u0430 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f
\nif UpdDo=True then
\nbegin
\n{\u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b}
\n\/\/ \u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u043c \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u0435
\nUpdDo:=False;
\nend;
\nend;<\/code><\/p>\n

\u0415\u0441\u043b\u0438 \u0437\u0430\u043c\u0435\u0442\u0438\u043b\u0438, \u0447\u0442\u043e \u0446\u0438\u043a\u043b \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u0442\u0441\u044f \u0441 \u0435\u0434\u0438\u043d\u0438\u0446\u044b, \u0430 \u0432 \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u043a\u0430\u043d\u0430\u043b\u0430 \u0441\u0442\u0440\u0430\u043d\u043d\u043e\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u0435 [i-1] (\u0432\u043c\u0435\u0441\u0442\u043e \u043b\u043e\u0433\u0438\u0447\u043d\u043e\u0433\u043e \u043d\u0430\u0447\u0430\u043b\u0430 \u0441 \u043d\u0443\u043b\u044f \u0438 \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 <\/em>), \u0442\u043e \u0442\u0430\u043a\u043e\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u043e\u0431\u043b\u0435\u0433\u0447\u0430\u0435\u0442 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0446\u0438\u044e \u0440\u044f\u0434\u0430 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0432 \u0441\u043f\u0438\u0441\u043a\u0435 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439, \u0441\u0435\u0440\u0432\u0435\u0440 \u0447\u0438\u0441\u043b\u0438\u0442\u0441\u044f \u043f\u043e\u0434 \u043d\u043e\u043c\u0435\u0440\u043e\u043c \u201c0\u201d, \u0430 \u043a\u043b\u0438\u0435\u043d\u0442\u044b — \u043d\u0430\u0447\u0438\u043d\u0430\u044f \u0441 \u201c1\u201d. \u0422\u0430\u043a \u0436\u0435 \u0443\u0434\u043e\u0431\u043d\u043e \u0441\u043e\u0432\u043c\u0435\u0449\u0430\u0442\u044c \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u043a\u0430\u043d\u0430\u043b\u043e\u0432 (ServerSocket.Socket.ActiveConnections<\/strong>) \u0441 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430\u043c\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0430\u043a\u0442\u0438\u0432\u043d\u043e\u0441\u0442\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439.
\n\u041f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0435 \u0443\u0441\u043b\u043e\u0432\u0438\u0435 \u0432 \u0442\u0435\u043b\u0435 \u0442\u0430\u0439\u043c\u0435\u0440\u0430 \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0434\u043b\u044f \u0437\u0430\u0434\u0435\u0440\u0436\u043a\u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f. \u042d\u0442\u0438 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u0434\u043e\u043b\u0436\u043d\u044b \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0442\u044c\u0441\u044f \u0432 \u0441\u0430\u043c\u043e\u043c \u043a\u043e\u043d\u0446\u0435 \u201c\u043f\u0440\u043e\u0441\u043b\u0443\u0448\u0438\u0432\u0430\u043d\u0438\u044f\u201d \u043e\u0442\u043a\u0440\u044b\u0442\u044b\u0445 \u043a\u0430\u043d\u0430\u043b\u043e\u0432, \u0438 \u043d\u0435 \u0432\u0441\u0435\u0433\u0434\u0430 (\u0435\u0441\u043b\u0438 \u0431\u0443\u0434\u0435\u0442 \u043a\u043e\u043c\u0430\u043d\u0434\u0430).
\n\u0414\u0430\u043d\u043d\u044b\u0439 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u043f\u0440\u0438\u043c\u0435\u043d\u0438\u043c \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u043a \u043b\u044e\u0431\u043e\u0433\u043e \u0440\u043e\u0434\u0430 \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u044f\u043c \u041a\u043b\u0438\u0435\u043d\u0442-\u0441\u0435\u0440\u0432\u0435\u0440, \u0432 \u0442\u043e\u043c \u0447\u0438\u0441\u043b\u0435 \u0438 \u0434\u043b\u044f \u0438\u0433\u0440.<\/p>\n

\u0412\u041d\u0418\u041c\u0410\u041d\u0418\u0415!<\/strong> \u0415\u0441\u043b\u0438 \u0432\u044b \u043d\u0435 \u0443\u0432\u0435\u0440\u0435\u043d\u044b \u0432 \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e\u0441\u0442\u0438 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u043e\u0433\u043e \u0432\u0430\u043c\u0438 \u043a\u043e\u0434\u0430 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u043a\u043e\u043c\u0430\u043d\u0434 \u0432 \u0446\u0438\u043a\u043b\u0435 \u201c\u043f\u0440\u043e\u0441\u043b\u0443\u0448\u0438\u0432\u0430\u043d\u0438\u044f\u201d \u043e\u0442\u043a\u0440\u044b\u0442\u044b\u0445 \u043a\u0430\u043d\u0430\u043b\u043e\u0432, \u0442\u043e \u0412\u0421\u0415\u0413\u0414\u0410 \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0439\u0442\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u044e Try..Except..End;<\/strong>, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u043f\u043e\u0437\u0432\u043e\u043b\u0438\u0442 \u0438\u0437\u0431\u0435\u0436\u0430\u0442\u044c \u0441\u0435\u0440\u044c\u0435\u0437\u043d\u044b\u0445 \u043e\u0448\u0438\u0431\u043e\u043a, \u0432\u0435\u0434\u044c \u043f\u043e\u0432\u0442\u043e\u0440\u044f\u0435\u043c\u043e\u0441\u0442\u044c \u0446\u0438\u043a\u043b\u0430 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043e\u0447\u0435\u043d\u044c \u0431\u044b\u0441\u0442\u0440\u043e\u0439. \u041f\u0440\u0438\u043c\u0435\u0440:<\/p>\n

Try
\n{\u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430}
\nExcept
\n\/\/ \u043e\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 \u0442\u0430\u0439\u043c\u0435\u0440\u0430 \u0438 \u0441\u043e\u043f\u0443\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0435 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u044f
\nEnd;<\/code><\/p>\n

\u041f\u0435\u0440\u0435\u0439\u0434\u0435\u043c \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043a \u043d\u0430\u0448\u0435\u043c\u0443 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044e \u0447\u0430\u0442\u0430 \u0438 \u0435\u0433\u043e \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430\u043c. \u041a\u0430\u043a \u0438 \u043f\u0440\u0435\u0436\u0434\u0435, \u043f\u0440\u043e\u0432\u0435\u0440\u043e\u043a \u043d\u0430 \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e\u0441\u0442\u044c \u0432\u0432\u043e\u0434\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0432 \u043f\u043e\u043b\u044f \u043d\u0435 \u0431\u0443\u0434\u0435\u0442.
\n\u0421\u043e\u0437\u0434\u0430\u0434\u0438\u043c \u043d\u043e\u0432\u044b\u0439 \u0442\u0438\u043f, \u0434\u043b\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432, \u0442\u0430\u043a \u0433\u043e\u0440\u0430\u0437\u0434\u043e \u0443\u0434\u043e\u0431\u043d\u0435\u0435:<\/p>\n

Type
\nTUserList = object
\nStatus: Byte; \/\/ 1 - \u0441\u0435\u0440\u0432\u0435\u0440, 2 - \u043a\u043b\u0438\u0435\u043d\u0442
\nRec: Boolean; \/\/ \u043e\u0442\u043c\u0435\u0442\u043a\u0430 \u0437\u0430\u043f\u0438\u0441\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u0432 \u0441\u043f\u0438\u0441\u043e\u043a
\nName: String; \/\/ \u0438\u043c\u044f (\u043d\u0438\u043a)
\nImage: Byte; \/\/ \u0438\u043d\u0434\u0435\u043a\u0441 \u0438\u043a\u043e\u043d\u043a\u0438
\nend;<\/code><\/p>\n

\u0412\u043e\u0442 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0435, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u044f\u0442\u0441\u044f \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435:<\/p>\n

var
\nForm1: TForm1;
\ni, j, com, ContList: Byte;
\nlen, pos, x: Word;
\ntext, StrUserList: String;
\nUpdDo: Boolean;
\nBuf: array[0..3] of Byte;
\nUserMas: array[0..255] of TUserList; \/\/\u043c\u0430\u0441\u0441\u0438\u0432 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432
\nUItems: TListItem;<\/code><\/p>\n

\u041e\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 OnCreate<\/strong> \u0444\u043e\u0440\u043c\u044b:<\/p>\n

procedure TForm1.FormCreate(Sender: TObject);
\nbegin
\n\/\/ \u0437\u0430\u0433\u043e\u043b\u043e\u0432\u043e\u043a \u0444\u043e\u0440\u043c\u044b
\nCaption:='\u041c\u043d\u043e\u0433\u043e\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u0441\u043a\u0438\u0439 \u0447\u0430\u0442';
\nApplication.Title:=Caption;
\n\/\/ \u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u043e\u0440\u0442\u0430
\nPortEdit.Text:='7777';
\n\/\/ \u0430\u0434\u0440\u0435\u0441 \u043f\u0440\u0438 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043d\u0430 \u043e\u0434\u043d\u043e\u043c \u041f\u041a (\"\u0441\u0430\u043c \u043d\u0430 \u0441\u0435\u0431\u044f\")
\nHostEdit.Text:='127.0.0.1';
\n\/\/ \u0432\u0432\u0435\u0434\u0435\u043c \u043d\u0438\u043a \u043f\u043e-\u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e, \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u043f\u043e\u043b\u044f \u043f\u0440\u043e\u0441\u0442\u043e \u043e\u0447\u0438\u0441\u0442\u0438\u043c
\nNikEdit.Text:='\u0410\u043d\u0430\u043d\u0438\u043c';
\nTextEdit.Clear;
\nChatMemo.Lines.Clear;
\nend;<\/code><\/p>\n

\u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u201c\u043f\u0440\u043e\u0441\u043b\u0443\u0448\u0438\u0432\u0430\u043d\u0438\u044f\u201d \u043e\u0442\u043a\u0440\u044b\u0442\u044b\u0445 \u043a\u0430\u043d\u0430\u043b\u043e\u0432 \u0441\u0435\u0440\u0432\u0435\u0440\u043e\u043c, \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0442\u0430\u043a:<\/p>\n

procedure TForm1.ServerTimerTimer(Sender: TObject);
\nbegin
\n\/\/ \u0443\u0441\u043b\u043e\u0432\u0438\u0435 \u043d\u0430 \u043d\u0430\u043b\u0438\u0447\u0438\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u043d\u044b\u0445 \u043a\u0430\u043d\u0430\u043b\u043e\u0432
\nif ServerSocket.Socket.ActiveConnections<>0 then
\nbegin
\n\/\/ \u0446\u0438\u043a\u043b \u043f\u043e \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u043c \u043a\u0430\u043d\u0430\u043b\u0430\u043c
\nfor i:=1 to ServerSocket.Socket.ActiveConnections do
\nbegin
\n\/\/ \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u043c \u043f\u0430\u043a\u0435\u0442 (\u0435\u0441\u043b\u0438 \u043d\u0438\u0447\u0435\u0433\u043e \u043d\u0435 \u043f\u0440\u0438\u0441\u043b\u0430\u043b\u0438, \u043f\u043e \u043f\u0430\u043a\u0435\u0442 \u043f\u0443\u0441\u0442\u043e\u0439)
\ntext:=ServerSocket.Socket.Connections[i-1].ReceiveText();
\n\/\/ \u0443\u0441\u043b\u043e\u0432\u0438\u0435, \u0447\u0442\u043e \u043f\u0430\u043a\u0435\u0442 \u043d\u0435 \u043f\u0443\u0441\u0442
\nif text<>'' then
\nbegin
\n\/\/ \u043f\u043e\u043b\u0443\u0447\u0438\u043c \u043a\u043e\u0434 \u043a\u043e\u043c\u0430\u043d\u0434\u044b, \u0434\u043b\u0438\u043d\u0443 \u0441\u0442\u0440\u043e\u043a\u0438
\ncom:=StrToInt(Copy(text,1,1));
\nlen:=Length(text)-1;
\n\/\/ \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043a\u043e\u043c\u0430\u043d\u0434
\ncase com of
\n\/\/ \u043a\u043e\u0434 \u043f\u0440\u0438\u0435\u043c\u0430 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f
\n0: begin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\nChatMemo.Lines.Add(Copy(text,2,len));
\n\/\/ \u0440\u0430\u0437\u043e\u0448\u043b\u0435\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f\u043c (\u043a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u043a\u0442\u043e \u043f\u0440\u0438\u0441\u043b\u0430\u043b)
\nfor j:=0 to ServerSocket.Socket.ActiveConnections-1 do
\nbegin
\nif (j+1)<>i then ServerSocket.Socket.Connections[j].SendText('0'+Copy(text,2,len));
\nend;
\nend;
\n\/\/ \u043a\u043e\u0434 \u043f\u0440\u0438\u0435\u043c\u0430 \u043d\u0438\u043a\u0430 \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\n1: begin
\n\/\/ \u0437\u0430\u043f\u0438\u0448\u0435\u043c \u0432 \u043c\u0430\u0441\u0441\u0438\u0432 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0439 \u043d\u0438\u043a
\nUserMas<\/em>.Name:=Copy(text,2,len);
\n\/\/ \u043e\u0442\u043c\u0435\u0442\u0438\u043c, \u0447\u0442\u043e \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u0437\u0430\u043f\u0438\u0441\u0430\u043d \u0432 \u0441\u043f\u0438\u0441\u043e\u043a
\nUserMas<\/em>.Rec:=True;
\n\/\/ \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a
\nUpdateUserList;
\nend;
\nend;
\nend;
\nend;
\nend;
\n\/\/ \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043d\u0430 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f
\nif UpdDo=True then
\nbegin
\n\/\/ \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0435\u043c \u043c\u0430\u0441\u0441\u0438\u0432 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439
\nUpdateUserMas;
\n\/\/ \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439
\nUpdateUserList;
\n\/\/ \u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u043c \u0440\u0430\u0437\u0440\u0435\u0448\u0435\u043d\u0438\u0435
\nUpdDo:=False;
\nend;
\nend;<\/code><\/p>\n

\u041f\u0435\u0440\u0435\u0432\u043e\u0434 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0432 \u0440\u0435\u0436\u0438\u043c \u0441\u0435\u0440\u0432\u0435\u0440\u0430 \u043e\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043a\u043b\u0430\u0432\u0438\u0448\u0435\u0439 \u201c\u0421\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0435\u0440\u0432\u0435\u0440\u201d (ServerBtn<\/strong>). \u0412\u043e\u0442 \u0442\u0430\u043a \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043d\u0430 \u043d\u0430\u0436\u0430\u0442\u0438\u0435 \u043a\u043b\u0430\u0432\u0438\u0448\u0438 ServerBtn<\/strong> (OnClick<\/strong>):<\/p>\n

procedure TForm1.ServerBtnClick(Sender: TObject);
\nbegin
\nif ServerBtn.Tag=0 then
\nbegin
\n\/\/ \u043a\u043b\u0430\u0432\u0438\u0448\u0443 ClientBtn \u0438 \u043f\u043e\u043b\u044f HostEdit, PortEdit, NikEdit \u0437\u0430\u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u043c
\nClientBtn.Enabled:=False;
\nHostEdit.Enabled:=False;
\nPortEdit.Enabled:=False;
\nNikEdit.Enabled:=False;
\n\/\/ \u0437\u0430\u043f\u0438\u0448\u0435\u043c \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0439 \u043f\u043e\u0440\u0442 \u0432 ServerSocket
\nServerSocket.Port:=StrToInt(PortEdit.Text);
\n\/\/ \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u0441\u0435\u0440\u0432\u0435\u0440
\nServerSocket.Active:=True;
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0441 \u0432\u0440\u0435\u043c\u0435\u043d\u0435\u043c \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f
\nChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u0421\u0435\u0440\u0432\u0435\u0440 \u0441\u043e\u0437\u0434\u0430\u043d.');
\n\/\/ \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u043c \u0442\u044d\u0433
\nServerBtn.Tag:=1;
\n\/\/ \u043c\u0435\u043d\u044f\u0435\u043c \u043d\u0430\u0434\u043f\u0438\u0441\u044c \u043a\u043b\u0430\u0432\u0438\u0448\u0438
\nServerBtn.Caption:='\u0417\u0430\u043a\u0440\u044b\u0442\u044c \u0441\u0435\u0440\u0432\u0435\u0440';
\n\/\/ \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u043c \u0442\u0430\u0439\u043c\u0435\u0440 \u0441\u0435\u0440\u0432\u0435\u0440\u0430
\nServerTimer.Enabled:=True;
\n\/\/ \u0432\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0441\u0435\u0440\u0432\u0435\u0440\u0430
\nUserMas[0].Status:=1;
\nUserMas[0].Rec:=True;
\nUserMas[0].Name:=NikEdit.Text;
\nUserMas[0].Image:=1;
\n\/\/ \u0440\u0430\u0437\u0440\u0435\u0448\u0430\u0435\u043c \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435
\nUpdDo:=True;
\nend
\nelse
\nbegin
\n\/\/ \u0432\u044b\u043a\u043b\u044e\u0447\u0430\u0435\u043c \u0442\u0430\u0439\u043c\u0435\u0440 \u0441\u0435\u0440\u0432\u0435\u0440\u0430
\nServerTimer.Enabled:=False;
\n\/\/ \u0441\u0442\u0438\u0440\u0430\u0435\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0441\u0435\u0440\u0432\u0435\u0440\u0430
\nUserMas[0].Status:=0;
\nUserMas[0].Rec:=False;
\nUserMas[0].Name:='\u041d\u0435\u0438\u0437\u0432\u0435\u0441\u0442\u043d\u044b\u0439';
\nUserMas[0].Image:=0;
\n\/\/ \u0440\u0430\u0437\u0440\u0435\u0448\u0430\u0435\u043c \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435
\nUpdDo:=True;
\n\/\/ \u043e\u0447\u0438\u0449\u0430\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a \u043a\u043b\u0438\u0435\u043d\u0442\u043e\u0432
\nUserListView.Items.Clear;
\n\/\/ \u043a\u043b\u0430\u0432\u0438\u0448\u0443 ClientBtn \u0438 \u043f\u043e\u043b\u044f HostEdit, PortEdit, NikEdit \u0440\u0430\u0437\u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u043c
\nClientBtn.Enabled:=True;
\nHostEdit.Enabled:=True;
\nPortEdit.Enabled:=True;
\nNikEdit.Enabled:=True;
\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0441\u0435\u0440\u0432\u0435\u0440
\nServerSocket.Active:=False;
\n\/\/ \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0432 ChatMemo
\nChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u0421\u0435\u0440\u0432\u0435\u0440 \u0437\u0430\u043a\u0440\u044b\u0442.');
\n\/\/ \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0442\u044d\u0433\u0443 \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435
\nServerBtn.Tag:=0;
\n\/\/ \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0438\u0441\u0445\u043e\u0434\u043d\u0443\u044e \u043d\u0430\u0434\u043f\u0438\u0441\u044c \u043a\u043b\u0430\u0432\u0438\u0448\u0438
\nServerBtn.Caption:='\u0421\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0435\u0440\u0432\u0435\u0440';
\nend;
\nend;<\/code><\/p>\n

\u0414\u0430\u043b\u0435\u0435 \u0438\u0434\u0443\u0442 \u0441\u043e\u0431\u044b\u0442\u0438\u044f, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0434\u043e\u043b\u0436\u043d\u044b \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442\u044c \u043f\u0440\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u043e\u043c \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0438 ServerSocket<\/strong>\u2019\u0430. \u041d\u0430\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443, \u043a\u043e\u0433\u0434\u0430 \u043a\u043b\u0438\u0435\u043d\u0442 \u043f\u043e\u0434\u0441\u043e\u0435\u0434\u0438\u043d\u0438\u043b\u0441\u044f \u043a \u0441\u0435\u0440\u0432\u0435\u0440\u0443 (OnClientConnect<\/strong>):<\/p>\n

procedure TForm1.ServerSocketClientConnect(Sender: TObject;
\nSocket: TCustomWinSocket);
\nbegin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0441 \u0432\u0440\u0435\u043c\u0435\u043d\u0435\u043c \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\nChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u041f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u043b\u0441\u044f \u043a\u043b\u0438\u0435\u043d\u0442.');
\n\/\/ \u0440\u0430\u0437\u0440\u0435\u0448\u0430\u0435\u043c \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435
\nUpdDo:=True;
\nend;<\/code><\/p>\n

\u041d\u0430\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443, \u043a\u043e\u0433\u0434\u0430 \u043a\u043b\u0438\u0435\u043d\u0442 \u043e\u0442\u043a\u043b\u044e\u0447\u0430\u0435\u0442\u0441\u044f (OnClientDisconnect<\/strong>):<\/p>\n

procedure TForm1.ServerSocketClientDisconnect(Sender: TObject;
\nSocket: TCustomWinSocket);
\nbegin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0441 \u0432\u0440\u0435\u043c\u0435\u043d\u0435\u043c \u043e\u0442\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\nChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u041a\u043b\u0438\u0435\u043d\u0442 \u043e\u0442\u043a\u043b\u044e\u0447\u0438\u043b\u0441\u044f.');
\n\/\/ \u0440\u0430\u0437\u0440\u0435\u0448\u0430\u0435\u043c \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u0435
\nUpdDo:=True;
\nend;<\/code><\/p>\n

\u041e\u0442\u043f\u0440\u0430\u0432\u043a\u0430 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0439. \u0423 \u043d\u0430\u0441 \u043e\u043d\u0430 \u043e\u0441\u0443\u0449\u0435\u0441\u0442\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043d\u0430\u0436\u0430\u0442\u0438\u0435\u043c \u043a\u043b\u0430\u0432\u0438\u0448\u0438 \u201c\u041e\u0442\u043f\u0440\u0430\u0432\u0438\u0442\u044c\u201d (SendBtn<\/strong>), \u043d\u043e \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u0430 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u0440\u0435\u0436\u0438\u043c\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0441\u0435\u0440\u0432\u0435\u0440 \u0438\u043b\u0438 \u043a\u043b\u0438\u0435\u043d\u0442. \u041d\u0430\u043f\u0438\u0448\u0435\u043c \u0435\u0435 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 (OnClick<\/strong>):<\/p>\n

procedure TForm1.SendBtnClick(Sender: TObject);
\nbegin
\n\/\/ \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0430, \u0432 \u043a\u0430\u043a\u043e\u043c \u0440\u0435\u0436\u0438\u043c\u0435 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430
\nif ServerSocket.Active=True then
\n\/\/ \u043e\u0442\u043f\u0440\u0430\u0432\u043b\u044f\u0435\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0441 \u0441\u0435\u0440\u0432\u0435\u0440\u0430 \u0432\u0441\u0435\u043c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f\u043c
\nfor i:=0 to ServerSocket.Socket.ActiveConnections-1 do
\nServerSocket.Socket.Connections<\/em>.SendText('0['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text)
\nelse
\n\/\/ \u043e\u0442\u043f\u0440\u0430\u0432\u043b\u044f\u0435\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0441 \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\nClientSocket.Socket.SendText('0['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text);
\n\/\/ \u043e\u0442\u043e\u0431\u0440\u0430\u0437\u0438\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0432 ChatMemo
\nChatMemo.Lines.Add('['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text);
\n\/\/ \u043e\u0447\u0438\u0449\u0430\u0435\u043c TextEdit
\nTextEdit.Clear;
\nend;<\/code><\/p>\n

\u0420\u0435\u0436\u0438\u043c \u043a\u043b\u0438\u0435\u043d\u0442\u0430. \u041f\u0440\u0438 \u043d\u0430\u0436\u0430\u0442\u0438\u0438 \u043a\u043b\u0430\u0432\u0438\u0448\u0438 \u201c\u041f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u0442\u044c\u0441\u044f\u201d (ClientBtn<\/strong>), \u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u0442\u0441\u044f ServerBtn<\/strong> \u0438 \u0430\u043a\u0442\u0438\u0432\u0438\u0440\u0443\u0435\u0442\u0441\u044f ClientSocket<\/strong>. \u0412\u043e\u0442 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 ClientBtn<\/strong> (OnClick<\/strong>):<\/p>\n

procedure TForm1.ClientBtnClick(Sender: TObject);
\nbegin
\nif ClientBtn.Tag=0 then
\nbegin
\n\/\/ \u043a\u043b\u0430\u0432\u0438\u0448\u0443 ServerBtn \u0438 \u043f\u043e\u043b\u044f HostEdit, PortEdit \u0437\u0430\u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u043c
\nServerBtn.Enabled:=False;
\nHostEdit.Enabled:=False;
\nPortEdit.Enabled:=False;
\n\/\/ \u0437\u0430\u043f\u0438\u0448\u0435\u043c \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0439 \u043f\u043e\u0440\u0442 \u0432 ClientSocket
\nClientSocket.Port:=StrToInt(PortEdit.Text);
\n\/\/ \u0437\u0430\u043f\u0438\u0448\u0435\u043c \u0445\u043e\u0441\u0442 \u0438 \u0430\u0434\u0440\u0435\u0441 (\u043e\u0434\u043d\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 HostEdit \u0432 \u043e\u0431\u0430)
\nClientSocket.Host:=HostEdit.Text;
\nClientSocket.Address:=HostEdit.Text;
\n\/\/ \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\nClientSocket.Active:=True;
\n\/\/ \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u043c \u0442\u044d\u0433
\nClientBtn.Tag:=1;
\n\/\/ \u043c\u0435\u043d\u044f\u0435\u043c \u043d\u0430\u0434\u043f\u0438\u0441\u044c \u043a\u043b\u0430\u0432\u0438\u0448\u0438
\nClientBtn.Caption:='\u041e\u0442\u043a\u043b\u044e\u0447\u0438\u0442\u044c\u0441\u044f';
\nend
\nelse
\nbegin
\n\/\/ \u043a\u043b\u0430\u0432\u0438\u0448\u0443 ServerBtn \u0438 \u043f\u043e\u043b\u044f HostEdit, PortEdit \u0440\u0430\u0437\u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u043c
\nServerBtn.Enabled:=True;
\nHostEdit.Enabled:=True;
\nPortEdit.Enabled:=True;
\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\nClientSocket.Active:=False;
\n\/\/ \u043e\u0447\u0438\u0449\u0430\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a \u043a\u043b\u0438\u0435\u043d\u0442\u043e\u0432
\nUserListView.Items.Clear;
\n\/\/ \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0432 ChatMemo
\nChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u0421\u0435\u0441\u0441\u0438\u044f \u0437\u0430\u043a\u0440\u044b\u0442\u0430.');
\n\/\/ \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0442\u044d\u0433\u0443 \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435
\nClientBtn.Tag:=0;
\n\/\/ \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0438\u0441\u0445\u043e\u0434\u043d\u0443\u044e \u043d\u0430\u0434\u043f\u0438\u0441\u044c \u043a\u043b\u0430\u0432\u0438\u0448\u0438
\nClientBtn.Caption:='\u041f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u0442\u044c\u0441\u044f';
\nend;
\nend;<\/code><\/p>\n

\u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u043d\u0430 OnConnect<\/strong>, OnDisconnect<\/strong>, OnRead<\/strong> \u043a\u043b\u0438\u0435\u043d\u0442\u0430 ClientSocket<\/strong>. \u0421\u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430 \u0447\u0442\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u0441 \u0441\u0435\u0440\u0432\u0435\u0440\u0430 (OnRead<\/strong>):<\/p>\n

procedure TForm1.ClientSocketRead(Sender: TObject;
\nSocket: TCustomWinSocket);
\nbegin
\n\/\/ \u043f\u043e\u043b\u0443\u0447\u0438\u043c \u0442\u0435\u043a\u0441\u0442, \u043a\u043e\u0434 \u043a\u043e\u043c\u043c\u0430\u043d\u0434\u044b, \u0434\u043b\u0438\u043d\u0443 \u0441\u0442\u0440\u043e\u043a\u0438
\ntext:=Socket.ReceiveText();
\ncom:=StrToInt(Copy(text,1,1));
\nlen:=Length(text)-1;
\n\/\/ \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043a\u043e\u043c\u043c\u0430\u043d\u0434
\ncase com of
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0441 \u0441\u0435\u0440\u0432\u0435\u0440\u0430
\n0: ChatMemo.Lines.Add(Copy(text,2,len));
\n\/\/ \u043e\u0442\u043e\u0448\u043b\u0435\u043c \u0441\u0432\u043e\u0439 \u043d\u0438\u043a \u043d\u0430 \u0441\u0435\u0440\u0432\u0435\u0440
\n1: ClientSocket.Socket.SendText('1'+NikEdit.Text);
\n\/\/ \u043f\u0440\u0438\u043c\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u0441\u043f\u0438\u0441\u043a\u0430 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439
\n2: begin
\n\/\/ \u043e\u0447\u0438\u0449\u0430\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a \u043a\u043b\u0438\u0435\u043d\u0442\u043e\u0432
\nUserListView.Items.Clear;
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u043a\u043b\u044e\u0447 \u043a\u043e\u043d\u0446\u0430 \u0441\u0442\u0440\u043e\u043a\u0438 (\u0442.\u043a. \u0432\u044b\u0440\u0435\u0437\u043a\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u0441 \u0437\u0430\u0434\u0435\u0440\u0436\u043a\u043e\u0439)
\ntext:=text+Chr(152);
\n\/\/ \u0443\u043a\u0430\u0436\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u044b\u0439 \u0441\u0438\u043c\u0432\u043e\u043b
\npos:=2;
\n\/\/ \u043e\u0431\u043d\u0443\u043b\u0438\u043c \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432
\nx:=0;
\n\/\/ \u043f\u0440\u043e\u0431\u0435\u0433\u0430\u0435\u043c \u043f\u043e \u0434\u043b\u0438\u043d\u0435 \u0441\u0442\u0440\u043e\u043a\u0438 \u0441\u043f\u0438\u0441\u043a\u0430
\nfor j:=2 to len+1 do
\nbegin
\n\/\/ \u0437\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0432 \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0441\u0434\u0432\u0438\u0433
\nx:=x+1;
\n\/\/ \u0435\u0441\u043b\u0438 \u043d\u0430\u0439\u0434\u0435\u043d \u043a\u043b\u044e\u0447 (\u043e\u0442\u0434\u0435\u043b\u0435\u043d\u0438\u0435 \u043d\u0438\u043a\u043e\u0432 \u0432 \u0441\u0442\u0440\u043e\u043a\u0435)
\nif Copy(text,j,1)=Chr(152) then
\nbegin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 UserListView \u0441\u0442\u0440\u043e\u043a\u0443
\nUItems:=UserListView.Items.Add;
\nUItems.Caption:=Copy(text,pos,x-1);
\n\/\/ \u0443\u043a\u0430\u0436\u0435\u043c \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0443\u044e \u0438\u043a\u043e\u043d\u043a\u0443 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f
\nif pos>2 then UItems.ImageIndex:=0 else UItems.ImageIndex:=1;
\n\/\/ \u0438\u0437\u043c\u0435\u043d\u0438\u043c \u0442\u0435\u043a\u0443\u0449\u0443\u044e \u043f\u043e\u0437\u0438\u0446\u0438\u044e \u0432 \u0441\u0442\u0440\u043e\u043a\u0435 \u0441\u043f\u0438\u0441\u043a\u0430
\npos:=j+1;
\n\/\/ \u043e\u0431\u043d\u0443\u043b\u0438\u043c \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432
\nx:=0;
\nend;
\nend;
\nend;
\nend;
\nend;<\/code><\/p>\n

\u0414\u0430\u043b\u044c\u0448\u0435 \u0432\u0441\u0435 \u043f\u0440\u043e\u0441\u0442\u043e, \u043e\u0431\u044b\u0447\u043d\u043e\u0435 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u0435 \u0432 ChatMemo<\/strong> \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u043e\u0433\u043e \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f:<\/p>\n

procedure TForm1.ClientSocketConnect(Sender: TObject;
\nSocket: TCustomWinSocket);
\nbegin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043e \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u0438 \u0441 \u0441\u0435\u0440\u0432\u0435\u0440\u043e\u043c
\nChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u041f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435 \u043a \u0441\u0435\u0440\u0432\u0435\u0440\u0443.');
\nend;<\/code><\/p>\n

procedure TForm1.ClientSocketDisconnect(Sender: TObject;
\nSocket: TCustomWinSocket);
\nbegin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043e \u043f\u043e\u0442\u0435\u0440\u0435 \u0441\u0432\u044f\u0437\u0438
\nChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u0421\u0435\u0440\u0432\u0435\u0440 \u043d\u0435 \u043d\u0430\u0439\u0434\u0435\u043d.');
\nend;<\/code><\/p>\n

\u0425\u0440\u0430\u043d\u0438\u0442\u0435\u043b\u0435\u043c \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f\u0445 \u0443 \u043d\u0430\u0441 \u0432\u044b\u0441\u0442\u0443\u043f\u0430\u0435\u0442 \u043c\u0430\u0441\u0441\u0438\u0432, \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0435\u0433\u043e \u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f \u0438 \u043e\u0431\u043d\u043e\u0432\u043b\u0435\u043d\u0438\u044f \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0442\u0430\u043a:<\/p>\n

procedure TForm1.UpdateUserMas;
\nbegin
\n\/\/ \u043e\u0447\u0438\u0449\u0430\u0435\u043c \u043c\u0430\u0441\u0441\u0438\u0432 \u0441 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0435\u0439
\nfor i:=1 to 255 do
\nbegin
\nUserMas<\/em>.Status:=0;
\nUserMas<\/em>.Rec:=False;
\nUserMas<\/em>.Name:='\u041d\u0435\u0438\u0437\u0432\u0435\u0441\u0442\u043d\u044b\u0439';
\nUserMas<\/em>.Image:=0;
\nend;
\n\/\/ \u0437\u0430\u043f\u043e\u043b\u043d\u044f\u0435\u043c \u0434\u0430\u043d\u043d\u044b\u0435 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439
\nif ServerSocket.Socket.ActiveConnections<>0 then
\nbegin
\nfor i:=1 to ServerSocket.Socket.ActiveConnections do
\nbegin
\nUserMas<\/em>.Status:=2;
\nUserMas<\/em>.Name:='\u041d\u0435\u0438\u0437\u0432\u0435\u0441\u0442\u043d\u044b\u0439';
\nUserMas<\/em>.Image:=0;
\n\/\/ \u0437\u0430\u043f\u0440\u0430\u0448\u0438\u0432\u0430\u0435\u043c \u0438\u043c\u044f (\u043d\u0438\u043a) \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u043f\u043e \u0435\u0433\u043e \u043a\u0430\u043d\u0430\u043b\u0443 (\u043a\u043e\u0434 \u043a\u043e\u043c\u0430\u043d\u0434\u044b - 1)
\nServerSocket.Socket.Connections[i-1].SendText('1');
\nend;
\nend;
\nend;<\/code><\/p>\n

\u0421\u043f\u0438\u0441\u043e\u043a UserListView<\/strong> \u043e\u0431\u043d\u043e\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0432 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0439 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0435:<\/p>\n

procedure TForm1.UpdateUserList;
\nbegin
\n\/\/ \u043e\u0447\u0438\u0449\u0430\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a \u043a\u043b\u0438\u0435\u043d\u0442\u043e\u0432
\nUserListView.Items.Clear;
\n\/\/ \u043e\u0447\u0438\u0449\u0430\u0435\u043c \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e
\nStrUserList:='';
\n\/\/ \u043e\u0431\u043d\u0443\u043b\u044f\u0435\u043c \u043f\u043e\u043c\u0435\u0442\u043a\u0443 \u0437\u0430\u043f\u0438\u0441\u0438
\nContList:=0;
\n\/\/ \u043f\u0440\u043e\u0431\u0435\u0433\u0430\u0435\u043c \u043f\u043e \u0434\u0438\u0430\u043f\u0430\u0437\u043e\u043d\u0443 \u043a\u0430\u043d\u0430\u043b\u043e\u0432
\nfor i:=0 to 255 do
\nbegin
\n\/\/ \u0435\u0441\u043b\u0438 \u0437\u0430\u043f\u0438\u0441\u044c \u043d\u0435 \u043f\u0443\u0441\u0442\u0430\u044f
\nif UserMas<\/em>.Status<>0 then
\nbegin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 UserListView \u0441\u0442\u0440\u043e\u043a\u0443
\nUItems:=UserListView.Items.Add;
\nUItems.Caption:=UserMas<\/em>.Name;
\nUItems.ImageIndex:=UserMas<\/em>.Image;
\n\/\/ \u0435\u0441\u043b\u0438 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c \u043d\u0435 \u0437\u0430\u043f\u0438\u0441\u0430\u043d
\nif UserMas<\/em>.Rec=False then ContList:=1;
\n\/\/ \u0441\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439
\nStrUserList:=StrUserList+UserMas<\/em>.Name+Chr(152);
\nend;
\nend;
\n\/\/ \u0435\u0441\u043b\u0438 \u0432\u0441\u0435 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0438 \u043e\u0442\u043c\u0435\u0442\u0438\u043b\u0438\u0441\u044c, \u0438 \u0435\u0441\u0442\u044c \u0445\u043e\u0442\u044c \u043e\u0434\u0438\u043d \u043a\u0430\u043d\u0430\u043b
\nif (ContList=0) and (ServerSocket.Socket.ActiveConnections<>0) then
\nbegin
\n\/\/ \u043f\u0440\u043e\u0431\u0435\u0433\u0430\u0435\u043c \u043f\u043e \u0432\u0441\u0435\u043c \u043e\u0442\u043a\u0440\u044b\u0442\u044b\u043c \u043a\u0430\u043d\u0430\u043b\u0430\u043c
\nfor i:=0 to ServerSocket.Socket.ActiveConnections-1 do
\nbegin
\n\/\/ \u043e\u0442\u043f\u0440\u0430\u0432\u0438\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u0441\u043f\u0438\u0441\u043a\u0430 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 (\u043a\u043e\u0434 \u043a\u043e\u043c\u0430\u043d\u0434\u044b - 2)
\nServerSocket.Socket.Connections<\/em>.SendText('2'+StrUserList);
\nend;
\nend;
\nend;<\/code><\/p>\n

\u0418\u0441\u0445\u043e\u0434\u043d\u0438\u043a\u0438 \u0437\u0434\u0435\u0441\u044c.<\/a><\/p>\n

\u0412\u043e\u0442, \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u0438 \u0432\u0441\u0435. \u041d\u0435 \u0431\u043e\u0439\u0442\u0435\u0441\u044c \u044d\u043a\u0441\u043f\u0435\u0440\u0438\u043c\u0435\u043d\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c, \u043d\u043e \u043f\u043e\u043c\u043d\u0438\u0442\u0435 \u044d\u043b\u0435\u043c\u0435\u043d\u0442\u0430\u0440\u043d\u044b\u0435 \u043f\u0440\u0430\u0432\u0438\u043b\u0430 \u0431\u0435\u0437\u043e\u043f\u0430\u0441\u043d\u043e\u0439 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c. \u0423\u0434\u0430\u0447\u0438!<\/p>\n","protected":false},"excerpt":{"rendered":"

\u0412 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0435\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 (\u201c\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043a\u043b\u0438\u0435\u043d\u0442-\u0441\u0435\u0440\u0432\u0435\u0440\u0430\u201d) \u0440\u0430\u0441\u0441\u043a\u0430\u0437\u044b\u0432\u0430\u043b\u043e\u0441\u044c \u043e \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0435 \u043f\u0440\u043e\u0441\u0442\u0435\u0439\u0448\u0435\u0433\u043e \u0447\u0430\u0442\u0430 \u043d\u0430 \u0434\u0432\u043e\u0438\u0445 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439. \u0421\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u0447\u0430\u0442\u0430 \u201chead-to-head\u201d \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u0430, \u0432\u0435\u0434\u044c \u0435\u0441\u0442\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0434\u0438\u043d \u043a\u0430\u043d\u0430\u043b, \u0441 \u043e\u0434\u043d\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0441\u0435\u0440\u0432\u0435\u0440, \u0441 \u0434\u0440\u0443\u0433\u043e\u0439 \u2013 \u043a\u043b\u0438\u0435\u043d\u0442. Multy-user-\u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0441\u043b\u043e\u0436\u043d\u0435\u0435. \u0415\u0441\u0442\u044c \u043e\u0434\u0438\u043d \u0441\u0435\u0440\u0432\u0435\u0440 \u0438 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e \u043a\u043b\u0438\u0435\u043d\u0442\u043e\u0432. \u0421\u0435\u0440\u0432\u0435\u0440 \u043f\u0440\u0438 \u044d\u0442\u043e\u043c \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0443 \u0432\u0445\u043e\u0434\u044f\u0449\u0438\u0445 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0439, \u043f\u0435\u0440\u0435\u0441\u044b\u043b\u0430\u0435\u0442 \u0438\u0445 \u043f\u043e \u043d\u0443\u0436\u043d\u044b\u043c \u043a\u0430\u043d\u0430\u043b\u0430\u043c, \u0440\u0435\u0433\u0438\u0441\u0442\u0440\u0438\u0440\u0443\u0435\u0442 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439 […]<\/p>\n","protected":false},"author":61,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,4],"tags":[56,54,55,42,52,53,51],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/100"}],"collection":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/users\/61"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=100"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/100\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=100"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=100"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=100"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}