{"id":91,"date":"2007-10-02T19:18:56","date_gmt":"2007-10-02T16:18:56","guid":{"rendered":"http:\/\/pblog.ru\/?p=91"},"modified":"2008-08-11T18:20:33","modified_gmt":"2008-08-11T15:20:33","slug":"%d1%81%d0%be%d0%b7%d0%b4%d0%b0%d0%bd%d0%b8%d0%b5-%d0%ba%d0%bb%d0%b8%d0%b5%d0%bd%d1%82-%d1%81%d0%b5%d1%80%d0%b2%d0%b5%d1%80%d0%b0","status":"publish","type":"post","link":"http:\/\/pblog.ru\/?p=91","title":{"rendered":"\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u043a\u043b\u0438\u0435\u043d\u0442-\u0441\u0435\u0440\u0432\u0435\u0440\u0430"},"content":{"rendered":"

\u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u0445\u043e\u0447\u0443 \u043f\u043e\u0434\u0435\u043b\u0438\u0442\u044c\u0441\u044f \u043e\u043f\u044b\u0442\u043e\u043c \u0432 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u043a\u043b\u0438\u0435\u043d\u0442-\u0441\u0435\u0440\u0432\u0435\u0440\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d, \u043a\u0430\u043a \u0434\u043b\u044f \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u0441\u0435\u0442\u0435\u0432\u043e\u0433\u043e \u0447\u0430\u0442\u0430, \u0442\u0430\u043a \u0438 \u0434\u043b\u044f \u043f\u0440\u0438\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0432 \u0438\u0433\u0440\u0430\u0445. \u041e\u0441\u043d\u043e\u0432\u043e\u0439 \u0441\u043b\u0443\u0436\u0430\u0442 \u0434\u0432\u0430 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u0430 \u0438\u0437 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u043e\u0433\u043e \u043f\u0430\u043a\u0435\u0442\u0430 Delphi, \u044d\u0442\u043e ServerSocket<\/strong> \u0438 ClientSocket<\/strong>. \u041e\u043d\u0438 \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, \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

\u041f\u0435\u0440\u0435\u0439\u0434\u0435\u043c \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043a \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044e \u043f\u0440\u043e\u0435\u043a\u0442\u0430 \u043a\u043b\u0438\u0435\u043d\u0442-\u0441\u0435\u0440\u0432\u0435\u0440\u0430, \u0434\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430 \u043f\u0440\u0438\u043c\u0435\u0440\u0435 \u0441\u0435\u0442\u0435\u0432\u043e\u0433\u043e \u0447\u0430\u0442\u0430.<\/p>\n

<\/p>\n

\u0421\u0435\u0442\u0435\u0432\u043e\u0439 \u0447\u0430\u0442 \u043d\u0430 \u0434\u0432\u0443\u0445 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439<\/strong><\/p>\n

\u041a\u0430\u043a \u043f\u0440\u0430\u0432\u0438\u043b\u043e, \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u043a\u0430 \u043b\u044e\u0431\u043e\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u0442\u0441\u044f \u0441 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0437\u0430\u0434\u0430\u0447, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043e\u043d\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0442\u044c, \u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0443\u0436\u0435 \u043d\u0430 \u044d\u0442\u043e\u043c \u044d\u0442\u0430\u043f\u0435 \u043d\u0443\u0436\u043d\u044b\u0445 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u043e\u0432. \u041d\u0430\u0448\u0430 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0441\u043e\u0431\u043e\u0439 \u0447\u0430\u0442 \u043d\u0430 \u0434\u0432\u043e\u0438\u0445 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u0435\u0439, \u043a\u0430\u0436\u0434\u044b\u0439 \u0438\u0437 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043a\u0430\u043a \u0441\u0435\u0440\u0432\u0435\u0440\u043e\u043c, \u0442\u0430\u043a \u0438 \u043a\u043b\u0438\u0435\u043d\u0442\u043e\u043c, \u0437\u043d\u0430\u0447\u0438\u0442, \u043a\u0438\u0434\u0430\u0435\u043c \u0432 \u0444\u043e\u0440\u043c\u0443 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u044b ServerSocket<\/strong> \u0438 ClientSocket<\/strong>. \u0412\u0430\u0436\u043d\u044b\u043c \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u043c \u0434\u043b\u044f \u043e\u0431\u043e\u0438\u0445 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043f\u043e\u0440\u0442. \u0422\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u0438 \u043e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u043e\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 Port<\/strong>, \u0441\u0432\u044f\u0437\u044c \u043c\u0435\u0436\u0434\u0443 \u043d\u0438\u043c\u0438 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u0441\u044f. \u041a\u0438\u043d\u0435\u043c \u0432 \u0444\u043e\u0440\u043c\u0443 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442 Edit<\/strong>, \u0447\u0442\u043e\u0431\u044b \u043e\u043f\u0435\u0440\u0430\u0442\u0438\u0432\u043d\u043e \u0438\u0437\u043c\u0435\u043d\u044f\u0442\u044c \u043f\u043e\u0440\u0442, \u043d\u0430\u0437\u043e\u0432\u0435\u043c \u0435\u0433\u043e PortEdit<\/strong>. \u0414\u043b\u044f \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u044f \u0441 \u0441\u0435\u0440\u0432\u0435\u0440\u043e\u043c \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u043e \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0442\u044c IP \u0441\u0435\u0440\u0432\u0435\u0440\u0430 \u0438\u043b\u0438 \u0435\u0433\u043e \u0438\u043c\u044f, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u043a\u0438\u043d\u0435\u043c \u0435\u0449\u0435 \u043e\u0434\u0438\u043d Edit<\/strong>, \u043d\u0430\u0437\u043e\u0432\u0435\u043c \u0435\u0433\u043e HostEdit<\/strong>. \u0422\u0430\u043a \u0436\u0435 \u043d\u0430\u043c \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u044f\u0442\u0441\u044f \u0435\u0449\u0435 \u0434\u0432\u0430 Edit<\/strong>\u2019\u0430 \u0434\u043b\u044f \u0443\u043a\u0430\u0437\u0430\u043d\u0438\u044f \u043d\u0438\u043a\u0430 \u0438 \u0432\u0432\u043e\u0434\u0430 \u0442\u0435\u043a\u0441\u0442\u0430 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f, \u043d\u0430\u0437\u043e\u0432\u0435\u043c \u0438\u0445 NikEdit<\/strong> \u0438 TextEdit<\/strong>, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e. \u0422\u0435\u043a\u0441\u0442 \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0435\u043c\u044b\u0445 \u0438 \u043e\u0442\u043f\u0440\u0430\u0432\u043b\u044f\u0435\u043c\u044b\u0445 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0439 \u0431\u0443\u0434\u0435\u0442 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0442\u044c\u0441\u044f \u0432 Memo<\/strong>, \u043a\u0438\u043d\u0435\u043c \u0435\u0433\u043e \u0432 \u0444\u043e\u0440\u043c\u0443 \u0438 \u043d\u0430\u0437\u043e\u0432\u0435\u043c ChatMemo<\/strong>. \u0423\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u043c \u0441\u0440\u0430\u0437\u0443 \u0432\u0435\u0440\u0442\u0438\u043a\u0430\u043b\u044c\u043d\u0443\u044e \u043f\u043e\u043b\u043e\u0441\u0443 \u043f\u0440\u043e\u043a\u0440\u0443\u0442\u043a\u0438: ScrollBars<\/strong> = <\/strong>ssVertical<\/strong>, \u0438 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e ReadOnly<\/strong> = True<\/strong>. \u0414\u043e\u0431\u0430\u0432\u0438\u043c \u043a\u043b\u0430\u0432\u0438\u0448\u0438 \u0443\u043f\u0440\u0430\u0432\u043b\u0435\u043d\u0438\u044f Button<\/strong>: ServerBtn<\/strong> \u2013 \u0434\u043b\u044f \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f\/\u0437\u0430\u043a\u0440\u044b\u0442\u0438\u044f \u0441\u0435\u0440\u0432\u0435\u0440\u0430, ClientBtn<\/strong> \u2013 \u0434\u043b\u044f \u043f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f\/\u043e\u0442\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f \u043a\u043b\u0438\u0435\u043d\u0442\u0430 \u043a \u0441\u0435\u0440\u0432\u0435\u0440\u0443, SendBtn<\/strong> — \u0434\u043b\u044f \u043e\u0442\u043f\u0440\u0430\u0432\u043a\u0438 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0439. \u0418\u0437\u043c\u0435\u043d\u0438\u043c Caption<\/strong> \u044d\u0442\u0438\u0445 \u043a\u043b\u0430\u0432\u0438\u0448 \u043d\u0430 \u201c\u0421\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0435\u0440\u0432\u0435\u0440<\/strong>\u201d, \u201c\u041f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u0442\u044c\u0441\u044f<\/strong>\u201d \u0438 \u201c\u041e\u0442\u043f\u0440\u0430\u0432\u0438\u0442\u044c<\/strong>\u201d, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e. \u041f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439 \u0448\u0442\u0440\u0438\u0445 \u2013 \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u043d\u0430\u0434\u043f\u0438\u0441\u0438 Label<\/strong> \u0434\u043b\u044f \u043f\u0440\u0435\u0434\u0430\u043d\u0438\u044f \u0444\u043e\u0440\u043c\u0435 \u043d\u0430\u0434\u043b\u0435\u0436\u0430\u0449\u0435\u0433\u043e \u0432\u0438\u0434\u0430 (\u044d\u0442\u043e \u043f\u043e \u0436\u0435\u043b\u0430\u043d\u0438\u044e).<\/p>\n

\"\u041a\u043b\u0438\u0435\u043d\u0442<\/p>\n

\u041f\u0440\u0435\u0434\u0443\u043f\u0440\u0435\u0436\u0443 \u0441\u0440\u0430\u0437\u0443, \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 \u043a\u043e\u0434\u0430\u0445 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442, \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u044d\u0442\u043e \u043d\u0435 \u0435\u0441\u0442\u044c \u0433\u043b\u0430\u0432\u043d\u0430\u044f \u0446\u0435\u043b\u044c. \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0431\u0435\u0437 \u0442\u0440\u0443\u0434\u0430 \u0432\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u043f\u0440\u043e\u043f\u0438\u0441\u0430\u0442\u044c \u0441\u0430\u043c\u0438.<\/p>\n

\n

\u041e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u043c, \u0447\u0442\u043e \u0434\u043e\u043b\u0436\u043d\u043e \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442\u044c \u043f\u0440\u0438 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u0444\u043e\u0440\u043c\u044b. \u041e\u043f\u0438\u0448\u0435\u043c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 OnCreate<\/strong>:<\/p>\n

procedure TForm1.FormCreate(Sender: TObject);
\nbegin
\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
\n PortEdit.Text:='777';
\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\")
\n HostEdit.Text:='127.0.0.1';
\n\/\/ \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
\n NikEdit.Clear;
\n TextEdit.Clear;
\n ChatMemo.Lines.Clear;
\nend;<\/code><\/p>\n

\u0411\u0443\u0434\u0435\u043c \u0441\u0447\u0438\u0442\u0430\u0442\u044c, \u0447\u0442\u043e \u0432\u044b\u0431\u0440\u0430\u043d \u0440\u0435\u0436\u0438\u043c \u0441\u0435\u0440\u0432\u0435\u0440\u0430. \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<\/strong>\u201d (ServerBtn)<\/strong>. \u0427\u0442\u043e\u0431\u044b \u043d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043b\u0438\u0448\u043d\u0438\u0445 \u043a\u043b\u0430\u0432\u0438\u0448 \u0434\u043b\u044f \u043e\u0442\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f \u044d\u0442\u043e\u0433\u043e \u0440\u0435\u0436\u0438\u043c\u0430 \u0438\u043b\u0438 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u043e\u0432 \u0442\u0438\u043f\u0430 RadioButton<\/strong>, \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0442\u043e \u0436\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e Tag<\/strong> \u043a\u043b\u0430\u0432\u0438\u0448\u0438 ServerBtn<\/strong>, \u0438\u0437\u043c\u0435\u043d\u044f\u044f \u0435\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u044f \u0442\u0435 \u0438\u043b\u0438 \u0438\u043d\u044b\u0435 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438, \u0435\u0441\u043b\u0438 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u043c\u0443. \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
\n If ServerBtn.Tag=0 then
\n Begin
\n\/\/ \u043a\u043b\u0430\u0432\u0438\u0448\u0443 ClientBtn \u0438 \u043f\u043e\u043b\u044f HostEdit, PortEdit \u0437\u0430\u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u043c
\n ClientBtn.Enabled:=False;
\n HostEdit.Enabled:=False;
\n PortEdit.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
\n ServerSocket.Port:=StrToInt(PortEdit.Text);
\n\/\/ \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u0441\u0435\u0440\u0432\u0435\u0440
\n ServerSocket.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
\n ChatMemo.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
\n ServerBtn.Tag:=1;
\n\/\/ \u043c\u0435\u043d\u044f\u0435\u043c \u043d\u0430\u0434\u043f\u0438\u0441\u044c \u043a\u043b\u0430\u0432\u0438\u0448\u0438
\n ServerBtn.Caption:='\u0417\u0430\u043a\u0440\u044b\u0442\u044c \u0441\u0435\u0440\u0432\u0435\u0440';
\n end
\n else
\n Begin
\n\/\/ \u043a\u043b\u0430\u0432\u0438\u0448\u0443 ClientBtn \u0438 \u043f\u043e\u043b\u044f HostEdit, PortEdit \u0440\u0430\u0437\u0431\u043b\u043e\u043a\u0438\u0440\u0443\u0435\u043c
\n ClientBtn.Enabled:=True;
\n HostEdit.Enabled:=True;
\n PortEdit.Enabled:=True;
\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u0441\u0435\u0440\u0432\u0435\u0440
\n ServerSocket.Active:=False;
\n\/\/ \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0432 ChatMemo
\n ChatMemo.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
\n ServerBtn.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
\n ServerBtn.Caption:='\u0421\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0435\u0440\u0432\u0435\u0440';
\n end;
\nend;<\/code><\/p>\n

\u0420\u0430\u0437\u0431\u0435\u0440\u0435\u043c\u0441\u044f \u0441 \u0441\u043e\u0431\u044b\u0442\u0438\u044f\u043c\u0438, \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;
\n Socket: 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
\n ChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u041f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u043b\u0441\u044f \u043a\u043b\u0438\u0435\u043d\u0442.');
\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;
\n Socket: 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
\n ChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u041a\u043b\u0438\u0435\u043d\u0442 \u043e\u0442\u043a\u043b\u044e\u0447\u0438\u043b\u0441\u044f.');
\nend;<\/code><\/p>\n

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

procedure TForm1.ServerSocketClientRead(Sender: TObject;
\n Socket: TCustomWinSocket);
\nbegin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u043a\u043b\u0438\u0435\u043d\u0442\u0441\u043a\u043e\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435
\n ChatMemo.Lines.Add(Socket.ReceiveText());
\nend;<\/code><\/p>\n

\u0421\u0430\u043c\u043e\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0435 \u2013 \u043e\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
\n If 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 (\u043e\u043d \u043f\u043e\u0434 \u043d\u043e\u043c\u0435\u0440\u043e\u043c 0, \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u043e\u0434\u0438\u043d)
\n ServerSocket.Socket.Connections[0].SendText('['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text)
\n else
\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
\n ClientSocket.Socket.SendText('['+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
\n ChatMemo.Lines.Add('['+TimeToStr(Time)+'] '+NikEdit.Text+': '+TextEdit.Text);
\nend;<\/code><\/p>\n

\u0422\u0435\u043f\u0435\u0440\u044c \u0440\u0430\u0437\u0431\u0435\u0440\u0435\u043c\u0441\u044f \u0441 \u0440\u0435\u0436\u0438\u043c\u043e\u043c \u043a\u043b\u0438\u0435\u043d\u0442\u0430. \u0417\u0434\u0435\u0441\u044c \u043d\u0430\u043e\u0431\u043e\u0440\u043e\u0442, \u043f\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 (OnClick)<\/strong>:<\/p>\n

procedure TForm1.ClientBtnClick(Sender: TObject);
\nbegin
\n If ClientBtn.Tag=0 then
\n Begin
\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
\n ServerBtn.Enabled:=False;
\n HostEdit.Enabled:=False;
\n PortEdit.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
\n ClientSocket.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)
\n ClientSocket.Host:=HostEdit.Text;
\n ClientSocket.Address:=HostEdit.Text;
\n\/\/ \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\n ClientSocket.Active:=True;
\n\/\/ \u0438\u0437\u043c\u0435\u043d\u044f\u0435\u043c \u0442\u044d\u0433
\n ClientBtn.Tag:=1;
\n\/\/ \u043c\u0435\u043d\u044f\u0435\u043c \u043d\u0430\u0434\u043f\u0438\u0441\u044c \u043a\u043b\u0430\u0432\u0438\u0448\u0438
\n ClientBtn.Caption:='\u041e\u0442\u043a\u043b\u044e\u0447\u0438\u0442\u044c\u0441\u044f';
\n end
\n else
\n Begin
\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
\n ServerBtn.Enabled:=True;
\n HostEdit.Enabled:=True;
\n PortEdit.Enabled:=True;
\n\/\/ \u0437\u0430\u043a\u0440\u044b\u0432\u0430\u0435\u043c \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\n ClientSocket.Active:=False;
\n\/\/ \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0432 ChatMemo
\n ChatMemo.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
\n ClientBtn.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
\n ClientBtn.Caption:='\u041f\u043e\u0434\u043a\u043b\u044e\u0447\u0438\u0442\u044c\u0441\u044f';
\n end;
\nend;<\/code><\/p>\n

\u041e\u0441\u0442\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u043e\u043f\u0438\u0441\u0430\u0442\u044c \u043f\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;
\n Socket: TCustomWinSocket);
\nbegin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u043f\u0440\u0438\u0448\u0435\u0434\u0448\u0435\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435
\n ChatMemo.Lines.Add(Socket.ReceiveText());
\nend;
\n<\/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;
\n Socket: 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
\n ChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u041f\u043e\u0434\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435 \u043a \u0441\u0435\u0440\u0432\u0435\u0440\u0443.');
\nend;<\/p>\n

procedure TForm1.ClientSocketDisconnect(Sender: TObject;
\n Socket: 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
\n ChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u0421\u0435\u0440\u0432\u0435\u0440 \u043d\u0435 \u043d\u0430\u0439\u0434\u0435\u043d.');
\nend;<\/code><\/p>\n

\u0412\u043e\u0442 \u0442\u043e\u0442 \u043c\u0438\u043d\u0438\u043c\u0443\u043c, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043d\u0443\u0436\u043d\u043e \u043f\u0440\u043e\u0434\u0435\u043b\u0430\u0442\u044c. \u041e\u0441\u0442\u0430\u0435\u0442\u0441\u044f \u0432\u043d\u0435\u0441\u0442\u0438 \u0435\u0449\u0435 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0440\u044f\u0434 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u043e\u0432 \u0434\u043b\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0441\u0442\u0438 \u0432\u0432\u043e\u0434\u0430 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439.
\n\u0412\u043e\u0437\u043d\u0438\u043a\u0430\u0435\u0442 \u0432\u043e\u043f\u0440\u043e\u0441: \u0430 \u0435\u0441\u043b\u0438 \u043d\u0443\u0436\u043d\u043e \u043f\u0435\u0440\u0435\u0434\u0430\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0438 \u0441\u043e\u0432\u0441\u0435\u043c \u043d\u0435 \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u044b\u0435, \u0430 \u043a\u0430\u043a\u043e\u0439-\u043d\u0438\u0431\u0443\u0434\u044c \u043c\u0430\u0441\u0441\u0438\u0432? \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0435\u0441\u0442\u044c \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0435 \u043a\u043e\u043c\u0430\u043d\u0434\u044b. \u0414\u0430\u0432\u0430\u0439\u0442\u0435 \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u0435\u043c \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c \u043e\u0442\u043f\u0440\u0430\u0432\u043a\u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430, \u043a\u0430\u043a \u043a\u043e\u043c\u0430\u043d\u0434\u044b \u0434\u043b\u044f \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u0438\u0433\u0440\u044b.<\/p>\n

\u041e\u0442\u043f\u0440\u0430\u0432\u043a\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0434\u0430\u043d\u043d\u044b\u0445<\/big><\/p>\n

\u0412\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u0441\u044f \u0442\u043e\u0439 \u0436\u0435 \u0444\u043e\u0440\u043c\u043e\u0439 \u0447\u0430\u0442\u0430, \u0442\u043e\u043b\u044c\u043a\u043e \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u043e\u0432 \u0447\u0443\u0442\u044c \u043d\u0438\u0436\u0435. \u041f\u0443\u0441\u0442\u044c \u0437\u0430\u0434\u0430\u0447\u0430 — \u0443\u043f\u0440\u0430\u0432\u043b\u044f\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u043c \u0442\u0438\u043f\u0430 Shape<\/strong>, \u043c\u0435\u043d\u044f\u0442\u044c \u0442\u0438\u043f \u0433\u0435\u043e\u043c\u0435\u0442\u0440\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0444\u0438\u0433\u0443\u0440\u044b, \u0446\u0432\u0435\u0442, \u0440\u0430\u0437\u043c\u0435\u0440\u044b. \u041f\u043e\u043c\u0435\u0441\u0442\u0438\u043c \u0432 \u0444\u043e\u0440\u043c\u0443 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442 GroupBox<\/strong>, \u0430 \u0432 \u043d\u0435\u0433\u043e Shape<\/strong>, \u0438\u0445 \u0438\u043c\u0435\u043d\u0430 \u0431\u0443\u0434\u0443\u0442 \u0442\u0430\u043a\u0438\u043c\u0438 \u0436\u0435. \u0414\u043b\u044f \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0442\u0438\u043f\u0430 \u0433\u0435\u043e\u043c\u0435\u0442\u0440\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0444\u0438\u0433\u0443\u0440\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a ComboBox<\/strong>, \u043d\u0430\u0437\u043e\u0432\u0435\u043c \u0435\u0433\u043e ShapeCBox<\/strong>. \u0421\u0440\u0430\u0437\u0443 \u0437\u0430\u043f\u043e\u043b\u043d\u044f\u0442\u044c \u043d\u0435 \u0431\u0443\u0434\u0435\u043c, \u044d\u0442\u043e \u0441\u0434\u0435\u043b\u0430\u0435\u043c \u0432 OnCreate<\/strong> \u0444\u043e\u0440\u043c\u044b. \u0414\u0430\u043b\u0435\u0435 \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u0441\u044f \u0442\u0430\u043a\u043e\u0439 \u0436\u0435 ComboBox<\/strong> \u0434\u043b\u044f \u0432\u044b\u0431\u043e\u0440\u0430 \u0446\u0432\u0435\u0442\u0430, \u0438 \u0434\u0432\u0430 Edit<\/strong>\u2019\u0430 \u0434\u043b\u044f \u0443\u043a\u0430\u0437\u0430\u043d\u0438\u044f \u0440\u0430\u0437\u043c\u0435\u0440\u0430 \u0444\u0438\u0433\u0443\u0440\u044b (\u0432 \u0441\u043b\u0443\u0447\u0430\u0435 \u0441 \u043f\u0440\u044f\u043c\u043e\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a\u043e\u043c \u0438\u043c\u0435\u0435\u043c \u0434\u0432\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u043d\u0430 \u043a\u0440\u0443\u0433 \u0431\u0443\u0434\u0435\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043e\u0434\u043d\u043e \u043f\u0435\u0440\u0432\u043e\u0435). \u041d\u0430\u0437\u043e\u0432\u0435\u043c \u0438\u0445 ColorCBox<\/strong>, Value1Edit<\/strong>, Value2Edit<\/strong>, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e. \u041f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u043c \u043a\u0438\u043d\u0435\u043c \u0432 \u0444\u043e\u0440\u043c\u0443 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442 Button<\/strong>, \u043d\u0430\u0437\u043e\u0432\u0435\u043c \u0435\u0433\u043e SendBufBtn<\/strong>, Caption<\/strong> \u0438\u0437\u043c\u0435\u043d\u0438\u043c \u043d\u0430 \u201c\u041e\u0442\u043f\u0440\u0430\u0432\u0438\u0442\u044c \u0431\u0443\u0444\u0435\u0440<\/strong>\u201d.
\n\u041d\u0435\u043c\u043d\u043e\u0433\u043e \u043e \u0442\u043e\u043c, \u043a\u0430\u043a \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u0432\u0432\u043e\u0434\u0438\u043c\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 \u0432\u0438\u0434\u0435 \u0431\u0443\u0444\u0435\u0440\u0430 \u0434\u0430\u043d\u043d\u044b\u0445. \u041d\u0443\u0436\u043d\u043e \u0441\u0440\u0430\u0437\u0443 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c\u0441\u044f \u0432 \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u0438, \u043a\u0430\u043a\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435, \u0437\u0430 \u043a\u0430\u043a\u0438\u043c \u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u0432 \u0431\u0443\u0444\u0435\u0440\u0435. \u041f\u0443\u0441\u0442\u044c \u043f\u0435\u0440\u0432\u044b\u043c \u0431\u0443\u0434\u0435\u0442 \u0442\u0438\u043f \u0444\u0438\u0433\u0443\u0440\u044b, \u0437\u0430 \u043d\u0438\u043c \u0446\u0432\u0435\u0442, \u0430 \u0441\u043b\u0435\u0434\u043e\u043c \u043e\u0431\u0430 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0440\u0430\u0437\u043c\u0435\u0440\u0430. \u0414\u043b\u044f \u044d\u0442\u0438\u0445 \u0446\u0435\u043b\u0435\u0439 \u0441\u043b\u0435\u0434\u0443\u0435\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043c\u0430\u0441\u0441\u0438\u0432 \u0434\u043b\u0438\u043d\u043e\u0439 4<\/strong> \u0438 \u0442\u0438\u043f\u043e\u043c Byte<\/strong>. \u0414\u043e\u0431\u0430\u0432\u0438\u043c \u0432 \u0440\u0430\u0437\u0434\u0435\u043b var<\/strong> \u043c\u0430\u0441\u0441\u0438\u0432:<\/p>\n

Buf: array[0..3] of Byte;<\/code><\/p>\n

\u0421 \u0440\u0430\u0437\u043c\u0435\u0440\u0430\u043c\u0438 \u0444\u0438\u0433\u0443\u0440\u044b \u0432\u0441\u0435 \u043f\u043e\u043d\u044f\u0442\u043d\u043e, \u0430 \u0432\u043e\u0442 \u0434\u043b\u044f \u0442\u0438\u043f\u0430 \u0438 \u0446\u0432\u0435\u0442\u0430 \u043d\u0443\u0436\u043d\u0430 \u201c\u0442\u0430\u0431\u043b\u0438\u0446\u0430 \u0438\u0441\u0442\u0438\u043d\u043d\u043e\u0441\u0442\u0438\u201d. \u041f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u0438\u043c \u0435\u0435 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c:<\/p>\n

\u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 \u043a\u043e\u0434
\n\u043f\u0440\u044f\u043c\u043e\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a 0
\n\u043a\u0440\u0443\u0433 1
\n-------------------
\n\u043a\u0440\u0430\u0441\u043d\u044b\u0439 0
\n\u0437\u0435\u043b\u0435\u043d\u044b\u0439 1
\n\u0441\u0438\u043d\u0438\u0439 2<\/code><\/p>\n

\u042d\u0442\u043e\u0433\u043e \u0432\u043f\u043e\u043b\u043d\u0435 \u0445\u0432\u0430\u0442\u0438\u0442 \u0434\u043b\u044f \u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0430\u0446\u0438\u0438. \u041f\u043e \u0436\u0435\u043b\u0430\u043d\u0438\u044e \u043a\u0440\u0443\u0433 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432 \u043c\u043e\u0436\u043d\u043e \u0440\u0430\u0441\u0448\u0438\u0440\u0438\u0442\u044c, \u0432\u0432\u0435\u0441\u0442\u0438 \u0442\u0438\u043f \u0437\u0430\u043b\u0438\u0432\u043a\u0438, \u0442\u0438\u043f \u043a\u043e\u043d\u0442\u0443\u0440\u0430, \u0441\u043c\u0435\u0449\u0435\u043d\u0438\u0435, \u0438\u043b\u0438 \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u043f\u0440\u0438\u043c\u0435\u0440\u043e\u043c \u0434\u043b\u044f \u0434\u0440\u0443\u0433\u0438\u0445 \u0446\u0435\u043b\u0435\u0439.
\n\u041f\u0440\u043e\u043f\u0438\u0448\u0435\u043c \u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u0441\u043f\u0438\u0441\u043a\u043e\u0432 \u0432 OnCreate<\/strong> \u0444\u043e\u0440\u043c\u044b:<\/p>\n

procedure TForm1.FormCreate(Sender: TObject);
\nbegin<\/p>\n

\/\/ ...\u0447\u0430\u0441\u0442\u044c \u0447\u0430\u0442\u0430...<\/p>\n

\/\/ \u0437\u0430\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u0441\u043f\u0438\u0441\u043a\u043e\u0432
\n ShapeCBox.Items.Add('\u043f\u0440\u044f\u043c\u043e\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a');
\n ShapeCBox.Items.Add('\u043a\u0440\u0443\u0433');
\n ColorCBox.Items.Add('\u043a\u0440\u0430\u0441\u043d\u044b\u0439');
\n ColorCBox.Items.Add('\u0437\u0435\u043b\u0435\u043d\u044b\u0439');
\n ColorCBox.Items.Add('\u0441\u0438\u043d\u0438\u0439');
\nend;
\n<\/code><\/p>\n

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

procedure TForm1.SendBufBtnClick(Sender: TObject);
\nbegin
\n\/\/ \u0441\u043e\u0431\u0435\u0440\u0435\u043c \u0434\u0430\u043d\u043d\u044b\u0435 \u0434\u043b\u044f \u043e\u0442\u043f\u0440\u0430\u0432\u043a\u0438
\n Buf[0]:=ShapeCBox.ItemIndex;
\n Buf[1]:=ColorCBox.ItemIndex;
\n Buf[2]:=StrToInt(Value1Edit.Text);
\n Buf[3]:=StrToInt(Value2Edit.Text);
\n\/\/ \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0440\u0435\u0436\u0438\u043c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b
\n If ServerSocket.Active=True then
\n\/\/ \u043e\u0442\u043f\u0440\u0430\u0432\u0438\u043c \u0431\u0443\u0444\u0435\u0440 \u0441 \u0441\u0435\u0440\u0432\u0435\u0440\u0430 (\u0434\u043b\u0438\u043d\u0430 \u0438\u0437\u0432\u0435\u0441\u0442\u043d\u0430 - 4)
\n ServerSocket.Socket.Connections[0].SendBuf(Buf,4)
\n else
\n\/\/ \u043e\u0442\u043f\u0440\u0430\u0432\u0438\u043c \u0431\u0443\u0444\u0435\u0440 \u0441 \u043a\u043b\u0438\u0435\u043d\u0442\u0430
\n ClientSocket.Socket.SendBuf(Buf,4);
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043e \u043f\u0435\u0440\u0435\u0434\u0430\u0447\u0438 \u0434\u0430\u043d\u043d\u044b\u0445
\n ChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u0414\u0430\u043d\u043d\u044b\u0435 \u043f\u0435\u0440\u0435\u0434\u0430\u043d\u044b.');
\n\/\/ \u043f\u0440\u0438\u043c\u0435\u043d\u0438\u043c \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u043a \u0441\u0432\u043e\u0435\u043c\u0443 Shape
\n Shape.Height:=Buf[2];
\n Shape.Width:=Buf[3];<\/p>\n

If Buf[0]>0 then Shape.Shape:=stCircle {\u043a\u0440\u0443\u0433}
\n else Shape.Shape:=stRectangle; {\u043f\u0440\u044f\u043c\u043e\u0443\u0433\u043e\u043b\u043d\u0438\u043a}
\n\/\/ \u0432\u044b\u0431\u043e\u0440 \u0446\u0432\u0435\u0442\u0430 \u043f\u043e \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0438\u0441\u0442\u0438\u043d\u043d\u043e\u0441\u0442\u0438
\n Case Buf[1] of
\n 0: Shape.Brush.Color:=clRed;
\n 1: Shape.Brush.Color:=clGreen;
\n 2: Shape.Brush.Color:=clBlue;
\n end;
\n\/\/ \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 \u043f\u043e\u043b\u044f\u0445
\n ShapeCBox.ItemIndex:=Buf[0];
\n ColorCBox.ItemIndex:=Buf[1];
\n Value1Edit.Text:=IntToStr(Buf[2]);
\n Value2Edit.Text:=IntToStr(Buf[3]);
\nend;<\/code><\/p>\n

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

procedure TForm1.ServerSocketClientRead(Sender: TObject;
\n Socket: TCustomWinSocket);
\nvar
\n len: Byte;
\nbegin
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u043a\u043b\u0438\u0435\u043d\u0442\u0441\u043a\u043e\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435
\n\/\/ ChatMemo.Lines.Add(Socket.ReceiveText());
\n\/\/ \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0435\u043c \u0431\u0443\u0444\u0435\u0440 \u043d\u0435\u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e\u0433\u043e \u0440\u0430\u0437\u043c\u0435\u0440\u0430
\n len:=Socket.ReceiveLength;
\n Socket.ReceiveBuf(Buf,len);
\n\/\/ \u043f\u0440\u0438\u043c\u0435\u043d\u0438\u043c \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u043a \u0441\u0432\u043e\u0435\u043c\u0443 Shape
\n Shape.Height:=Buf[2];
\n Shape.Width:=Buf[3];
\n If Buf[0]>0 then Shape.Shape:=stCircle {\u043a\u0440\u0443\u0433}
\n else Shape.Shape:=stRectangle; {\u043f\u0440\u044f\u043c\u043e\u0443\u0433\u043e\u043b\u043d\u0438\u043a}
\n\/\/ \u0432\u044b\u0431\u043e\u0440 \u0446\u0432\u0435\u0442\u0430 \u043f\u043e \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0438\u0441\u0442\u0438\u043d\u043d\u043e\u0441\u0442\u0438
\n Case Buf[1] of
\n 0: Shape.Brush.Color:=clRed;
\n 1: Shape.Brush.Color:=clGreen;
\n 2: Shape.Brush.Color:=clBlue;
\n end;
\n\/\/ \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 \u043f\u043e\u043b\u044f\u0445
\n ShapeCBox.ItemIndex:=Buf[0];
\n ColorCBox.ItemIndex:=Buf[1];
\n Value1Edit.Text:=IntToStr(Buf[2]);
\n Value2Edit.Text:=IntToStr(Buf[3]);
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043e \u043f\u0440\u0438\u0445\u043e\u0434\u0435 \u0434\u0430\u043d\u043d\u044b\u0445
\n ChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u041f\u0440\u0438\u0448\u043b\u0438 \u0434\u0430\u043d\u043d\u044b\u0435.');
\nend;
\n<\/code><\/p>\n

\u041e\u0441\u0442\u0430\u043b\u043e\u0441\u044c \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0443 \u043d\u0430 \u0447\u0442\u0435\u043d\u0438\u0435 \u043a\u043b\u0438\u0435\u043d\u0442\u043e\u043c \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u043e\u0442 \u0441\u0435\u0440\u0432\u0435\u0440\u0430 (OnRead<\/strong>):<\/p>\n

procedure TForm1.ClientSocketRead(Sender: TObject;
\n Socket: TCustomWinSocket);
\nvar
\n len: Byte;
\nbegin
\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
\n\/\/ ChatMemo.Lines.Add(Socket.ReceiveText());
\n\/\/ \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u0435\u043c \u0431\u0443\u0444\u0435\u0440 \u043d\u0435\u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e\u0433\u043e \u0440\u0430\u0437\u043c\u0435\u0440\u0430
\n len:=Socket.ReceiveLength;
\n Socket.ReceiveBuf(Buf,len);
\n\/\/ \u043f\u0440\u0438\u043c\u0435\u043d\u0438\u043c \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u043a \u0441\u0432\u043e\u0435\u043c\u0443 Shape
\n Shape.Height:=Buf[2];
\n Shape.Width:=Buf[3];
\n If Buf[0]>0 then Shape.Shape:=stCircle {\u043a\u0440\u0443\u0433}
\n else Shape.Shape:=stRectangle; {\u043f\u0440\u044f\u043c\u043e\u0443\u0433\u043e\u043b\u043d\u0438\u043a}
\n\/\/ \u0432\u044b\u0431\u043e\u0440 \u0446\u0432\u0435\u0442\u0430 \u043f\u043e \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0438\u0441\u0442\u0438\u043d\u043d\u043e\u0441\u0442\u0438
\n Case Buf[1] of
\n 0: Shape.Brush.Color:=clRed;
\n 1: Shape.Brush.Color:=clGreen;
\n 2: Shape.Brush.Color:=clBlue;
\n end;
\n\/\/ \u0438\u0437\u043c\u0435\u043d\u0438\u0442\u044c \u0434\u0430\u043d\u043d\u044b\u0435 \u0432 \u043f\u043e\u043b\u044f\u0445
\n ShapeCBox.ItemIndex:=Buf[0];
\n ColorCBox.ItemIndex:=Buf[1];
\n Value1Edit.Text:=IntToStr(Buf[2]);
\n Value2Edit.Text:=IntToStr(Buf[3]);
\n\/\/ \u0434\u043e\u0431\u0430\u0432\u0438\u043c \u0432 ChatMemo \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u043e \u043f\u0440\u0438\u0445\u043e\u0434\u0435 \u0434\u0430\u043d\u043d\u044b\u0445
\n ChatMemo.Lines.Add('['+TimeToStr(Time)+'] \u041f\u0440\u0438\u0448\u043b\u0438 \u0434\u0430\u043d\u043d\u044b\u0435.');
\nend;<\/code><\/p>\n

\u042d\u0442\u043e \u0438 \u0432\u0441\u0435, \u0447\u0442\u043e \u043d\u0443\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c. \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435 \u043d\u0430 \u0442\u043e, \u0447\u0442\u043e \u0435\u0441\u043b\u0438 \u043d\u0435 \u043e\u0442\u043a\u043b\u044e\u0447\u0430\u0442\u044c \u043f\u0440\u0438\u043d\u044f\u0442\u0438\u0435 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f (Socket.ReceiveText()<\/strong>) \u0438 \u043f\u043e\u043f\u044b\u0442\u0430\u0442\u044c\u0441\u044f \u043e\u0434\u043d\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e \u043f\u0440\u0438\u043d\u044f\u0442\u044c \u0438 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0438 \u0431\u0443\u0444\u0435\u0440, \u0442\u043e \u044d\u0442\u043e \u043f\u0440\u0438\u0432\u0435\u0434\u0435\u0442 \u043a \u043f\u043e\u0442\u0435\u0440\u0435 \u0434\u0430\u043d\u043d\u044b\u0445 \u043e\u0434\u043d\u043e\u0439 \u0438\u0437 \u0444\u0443\u043d\u043a\u0446\u0438\u0439. \u0420\u0435\u0448\u0438\u0442\u044c \u044d\u0442\u0438 \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u044b \u043c\u043e\u0436\u043d\u043e \u0437\u0430 \u0441\u0447\u0435\u0442 \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u0430 \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u044f \u0432 \u0444\u043e\u0440\u043c\u0430\u0442 \u0431\u0443\u0444\u0435\u0440\u0430 \u0432\u043e\u0442 \u0442\u0430\u043a:<\/p>\n

For i:=1 to Length(TextEdit.Text) do
\n Buf<\/em>:=Copy(TextEdit.Text,i,1);<\/code><\/p>\n

\u041e\u0447\u0435\u0432\u0438\u0434\u043d\u043e, \u0447\u0442\u043e \u043c\u0430\u0441\u0441\u0438\u0432 \u0441\u0442\u0430\u043d\u0435\u0442 \u043d\u0430 \u043e\u0434\u043d\u0443 \u044f\u0447\u0435\u0439\u043a\u0443 \u0431\u043e\u043b\u044c\u0448\u0435 \u0438 \u0438\u0437\u043c\u0435\u043d\u0438\u0442 \u0441\u0432\u043e\u0439 \u0442\u0438\u043f \u043d\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u044c\u043d\u044b\u0439 \u0438\u043b\u0438 \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u044b\u0439. Buf[0] \u043f\u0440\u0438 \u044d\u0442\u043e\u043c \u0431\u0443\u0434\u0435\u0442 \u0441\u043b\u0443\u0436\u0438\u0442\u044c \u043c\u0435\u0442\u043a\u043e\u0439, \u0447\u0435\u043c \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043f\u0440\u0438\u0448\u0435\u0434\u0448\u0438\u0439 \u0431\u0443\u0444\u0435\u0440: \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0435\u043c \u0438\u043b\u0438 \u0434\u0430\u043d\u043d\u044b\u043c\u0438. \u0412 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430\u0445 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u044f \u0441\u043e\u043e\u0431\u0449\u0435\u043d\u0438\u0439 \u043d\u0443\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0443\u0441\u043b\u043e\u0432\u0438\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u043d\u043e \u0442\u0430\u043a:<\/p>\n

\nlen:=Socket.ReceiveLength;
\nSocket.ReceiveBuf(Buf,len);
\nIf Buf[0]='t' then
\n Begin
\n ... \u0434\u0435\u043b\u0430\u0442\u044c \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u044e \u043f\u043e \u0441\u043e\u0435\u0434\u0438\u043d\u0435\u043d\u0438\u044e \u0432 \u0441\u0442\u0440\u043e\u043a\u0443 (\u0447\u0435\u0440\u0435\u0437 \u0446\u0438\u043a\u043b)
\n end;
\nIf Buf[0]='c' then
\n Begin
\n ... \u0434\u0435\u043b\u0430\u0442\u044c \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u044e \u043f\u043e \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044e \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432 Shape
\n end;<\/code><\/p>\n

\u0412\u043e\u0442 \u0438 \u0432\u0441\u0435, \u0447\u0435\u043c \u044f \u0445\u043e\u0442\u0435\u043b \u043f\u043e\u0434\u0435\u043b\u0438\u0442\u044c\u0441\u044f, \u043d\u0435 \u043e\u0447\u0435\u043d\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e, \u043d\u043e \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e.<\/p>\n

\u0418\u0441\u0445\u043e\u0434\u043d\u0438\u043a<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

\u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u0445\u043e\u0447\u0443 \u043f\u043e\u0434\u0435\u043b\u0438\u0442\u044c\u0441\u044f \u043e\u043f\u044b\u0442\u043e\u043c \u0432 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0438 \u043a\u043b\u0438\u0435\u043d\u0442-\u0441\u0435\u0440\u0432\u0435\u0440\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d, \u043a\u0430\u043a \u0434\u043b\u044f \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u0441\u0435\u0442\u0435\u0432\u043e\u0433\u043e \u0447\u0430\u0442\u0430, \u0442\u0430\u043a \u0438 \u0434\u043b\u044f \u043f\u0440\u0438\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0432 \u0438\u0433\u0440\u0430\u0445. \u041e\u0441\u043d\u043e\u0432\u043e\u0439 \u0441\u043b\u0443\u0436\u0430\u0442 \u0434\u0432\u0430 \u043a\u043e\u043c\u043f\u043e\u043d\u0435\u043d\u0442\u0430 \u0438\u0437 \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u043e\u0433\u043e \u043f\u0430\u043a\u0435\u0442\u0430 Delphi, \u044d\u0442\u043e ServerSocket \u0438 ClientSocket. \u041e\u043d\u0438 \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, \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: \u0432\u044b\u0431\u0440\u0430\u0442\u044c \u043c\u0435\u043d\u044e: Component — […]<\/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":[114,108,110,56,85,18,105,83,29,109,111,115,55,113,112,106,107,86,87,88,89,90],"_links":{"self":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/91"}],"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=91"}],"version-history":[{"count":8,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/91\/revisions"}],"predecessor-version":[{"id":124,"href":"http:\/\/pblog.ru\/index.php?rest_route=\/wp\/v2\/posts\/91\/revisions\/124"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=91"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=91"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=91"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}