|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.10.2009, 01:47 | #1 |
Новичок
Джуниор
Регистрация: 16.10.2009
Сообщений: 1
|
TcpServer и проблема с ним
В программировании не силен, в Delphi тоже,а в сетях особенно,так что прошу сильно не пинать,если вопрос глупый
Допустим код программы такой: program Zombie; uses Sockets, Windows; var SERVER: TTcpServer; s: string; work:boolean; begin SERVER:= TTcpServer.Create(NIL); SERVER.LocalPort:= '8765'; SERVER.Active:= True; work:=true; while work do begin if SERVER.Accept then s:=SERVER.Receiveln(); if s='off' then work:=false; sleep(100); end; end. Только вот когда в сокет пишу "off" программа не завершается... Не правильно слушаю??? Обьясните плизз! P.S. Заморачиваться по поводу клиента не стал и взял в его качестве NetChat из Demos. Последний раз редактировалось whitedragon; 17.10.2009 в 01:53. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
"Ajax" и неболшая проблема с ним... | Spectra | HTML и CSS | 0 | 09.03.2009 12:15 |
Com Объекты и TcpServer | part13an | Работа с сетью в Delphi | 0 | 23.07.2008 16:14 |
TcpClient и TcpServer | DOLBY | Работа с сетью в Delphi | 5 | 17.12.2007 10:43 |
Проблема с компилятором, а может и не с ним :( | D_bl_M | Общие вопросы C/C++ | 15 | 08.11.2007 11:43 |
TCPServer и TCPClient | Antoha | Работа с сетью в Delphi | 19 | 06.10.2007 12:01 |