| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TTcpServer без формы. Почему не работает?
Gym © (2003-11-01 13:54:00)
Привет.
Посмотрите пожалуйста программку. Почему не работает?
Вернее работает но не ло конца.
Законектиться на 127.0.0.1 7777 можно (пробовал телнетом)
можно отсылать что угодно, но ResiveLn ничего не возвращает.
Что не так?
program serv;
uses
Sockets,
Windows;
var
Serv : TTcpServer;
Str : string;
begin
Serv:= TTCPServer.Create(nil);
Serv.LocalHost:="127.0.0.1";
Serv.LocalPort:="7777";
Serv.Active:=true;
while not(str="quit") do
begin
Str:=Serv.Receiveln();
if str<>"" then MessageBox(0,PChar(Str),"Принята строка",MB_OK);
end;
Serv.Active:=false;
Serv.Free;
end.
Gym (2003-11-01 14:11:00) [21]
1. А как этот цикл организовать если учесть что у программы нет окна ( формы)?
2. В качестве клиента я использовал телнет
C:\telnet 127.0.0.1 7777
3. В приложении нет окна (формы) и в связи с этим возникают некоторые затруднения.
Digitman (2003-11-01 14:02:00) [22]
1. Нет цикла ожидания/выборки/диспетчеризации оконных сообщений.
2. Сообщение какого конкретно клиента ты ожидаешь получить вызовом Serv.Receiveln ? У сервера м.б. более одного активных клиентов
3. При чем здесь форма ?
| |
Страницы: 