| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Почему нет коннекта

Страницы:   < 1 2 >

KyRo ©   (2006-05-04 16:31:00) 

Я создаю сервер

Server:=TServerSocket.Create(nil);
 Server.Port:=9990;
 Server.Socket.OnClientRead:=ClientRead;
 Server.Socket.OnClientWrite:=ClientWrite;
 Server.Open;
   While not Terminated do
     begin
      if Server.Socket.ActiveConnections>0
       then
         begin

           for i := 0 to Server.Socket.ActiveConnections -1  do
            begin
              Server.Socket.Connections[i].SendText('Hello');
            end;
        end;
  end;

После создания я проверяю наличие подсоеденившихся клиентов и посылаю строку

Так я создаю клиента

 Client:=TClientSocket.Create(nil);
   Client.Port:=9990;
   Client.Address:='127.0.0.1';
   Client.OnRead:=ClientRead;
   Client.OnWrite:=ClientWrite;
   Client.Open;

И по идее этому клиенту должна передатся строка .
Но при тросировке я вижу что активных соединений нет !
Что я не правильно делаю ?

---

KyRo   (2006-05-04 16:49:00) [21]

Тем более что у меня оно пишет не известный идентификатор

---

KyRo   (2006-05-04 16:47:00) [22]

А что это значит ?

---

Сергей М.   (2006-05-04 16:45:00) [23]

> Всегда равно 0


"Воткни" в итерацию сего цикла строчку

 Application.Processmessages

и да пребудет с тобой счастье ... на время ...

---

KyRo   (2006-05-04 16:39:00) [24]

Сервера if Server.Socket.ActiveConnections>0
      then
        begin

          for i := 0 to Server.Socket.ActiveConnections -1  do
           begin
             Server.Socket.Connections[i].SendText('Hello');

Вот эти строчки и не одного соединения нет. Всегда равно 0

---

Сергей М.   (2006-05-04 16:37:00) [25]

> тросировке


Кого "тр осируешь"-то ? Клиента ? Сервера ?

---

Страницы:   < 1 2 >

Наверх