Ошибка при подключении шестого клиента к серверу

@VladMG_001 · Регистрация: 12.04.2015

Студворк — интернет-сервис помощи студентам

5 клиентов подключаются как положено, а при подключении 6-ого выскакивает следующая ошибка:

Ошибка при подключении шестого клиента к серверу

Что сделано не так? Где ошибка?

Вот код сервера:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <winsock.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
SOCKET Sock_one=INVALID_SOCKET;
HWND winServ;
int Result, i=0, n=0, cnt=0;
DWORD Port;
String nicks[20] = {""};
AnsiString list, buf;
SOCKET Socks[20]={INVALID_SOCKET};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
WSADATA Data;
Result = WSAStartup(0x101, &Data);
if(Result != 0)
{
   ShowMessage("Error: WSAStartup");
}
Panel1->Visible = 0;
Panel2->Visible = 0;
}
//---------------------------------------------------------------------------
void disconnect()
{
WSAAsyncSelect(Sock_one, winServ, 0, 0);
for(int j=0;j<=i;j++)
WSAAsyncSelect(Socks[j], winServ, 0, 0);
if(Sock_one != INVALID_SOCKET) closesocket(Sock_one);
for(int j=0;j<=i;j++)
  if(Socks[j] != INVALID_SOCKET) closesocket(Socks[j]);
 
Form1->Label2->Caption = "Сервер остановлен";
Form1->Label2->Font->Color = clRed;
 
 
for(int j=0;j<=n;j++)
  nicks[j] = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
WSAAsyncSelect(Sock_one, winServ, 0, 0);
for(int j=0;j<=i;j++)
WSAAsyncSelect(Socks[j], winServ, 0, 0);
if(Sock_one != INVALID_SOCKET) closesocket(Sock_one);
for(int j=0;j<=i;j++)
if(Socks[j] != INVALID_SOCKET) closesocket(Socks[j]);
 
WSACleanup();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 //отправка всем сообщения от сервера
if (Memo2->Lines->Text.Length() != 0)
   {
   char *Buff=new char[Memo2->Lines->Text.Length()+1];
   strcpy(Buff,AnsiString(Memo2->Text).c_str());
   int Size=Memo2->Lines->Text.Length()+1;
   for(int j=0;j<=i;j++)
   send(Socks[j],Buff,Size,0);
   Memo1->Lines->Add("Сервер : " + Memo2->Lines->Text);
   Memo2->Lines->Clear();
   delete [] Buff;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnWSAAccept(TMessage &Msg)
{ int lenBuffAddr;
 
  SOCKADDR_IN buffAddr;
 
    buffAddr.sin_family=AF_INET;
    buffAddr.sin_port=htons(Port);
  lenBuffAddr = sizeof(buffAddr);
 
  Socks[i] = accept(Sock_one, (LPSOCKADDR)&buffAddr, (int FAR *)&lenBuffAddr);
  if(Socks[i] == INVALID_SOCKET) ShowMessage("accept error;");
  else
  {
 
  WSAAsyncSelect(Socks[i], winServ, WSA_NETEVENT, FD_READ | FD_CLOSE);
 
 
  }
Msg.Result = 0; i++;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnWSANetEvent(TMessage &Msg)
{
char *Buff;                             //вывод пришедшего сообщения
char *tmp;
char *s, *c;
 
    if(WSAGETSELECTEVENT(Msg.LParam) == FD_READ)
  {
    Buff = new char[4096];
    tmp = new char[4096];
    recv((SOCKET)Msg.WParam, Buff, 4096, 0);
    strcpy(tmp, Buff);
    s = strtok(tmp, " ");
    c = s;
    s = strtok(NULL, ".");
 
    if (!strcmp(s, "nick"))
      {
 
      nicks[n] = c;
      n++;
      Timer1->Enabled = 1;
 
      } else
    if (!strcmp(s, "close"))
      {
      for(int j=0;j<=n;j++)
        {
        if (nicks[j] == c) nicks[j] = NULL;
        }
      Timer1->Enabled = 1;
      }else
    Memo1->Lines->Add((AnsiString)Buff);
 
 
    delete[] Buff;
    delete[] tmp;
    s = NULL;
  }
  if(WSAGETSELECTEVENT(Msg.LParam) == FD_CLOSE)
  {
    Timer1->Enabled = 1;
  }
  Msg.Result = 0;
}
//-------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int size;
cnt = 0;
char *str;
 
ListBox1->Clear();
 
for(int k=0;k<=n;k++)
  {
  //if (nicks[k]!=NULL)
     {
     buf = buf + nicks[k] + " ";
     cnt++;
     ListBox1->Items->Add(nicks[k]);
     //if (ListBox1->Items[k][0]=="0") {ListBox1->Items[k][0]="";};
     //Memo3->Lines->Add(nicks[k]);
     }
  }
list ="list " + (AnsiString)cnt +" "+ buf;
 
size = list.Length()+1;
for(int j=0;j<=i;j++)
send(Socks[j],list.c_str(),size,0);
 
buf = "";
Timer1->Enabled = 0;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    //отправка выбранному клиенту
if (Memo2->Lines->Text.Length() != 0)
   {
   char *Buff=new char[Memo2->Lines->Text.Length()+1];
   strcpy(Buff, AnsiString(Memo2->Text).c_str());
   int Size=Memo2->Lines->Text.Length()+1;
   //for(int j=0;j<=i;j++)
   send(Socks[ListBox1->ItemIndex],Buff,Size,0);
   Memo1->Lines->Add("Сервер : " + Memo2->Lines->Text);
   Memo2->Lines->Clear();
   delete [] Buff;
   }
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Panel2->Visible = 0;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
     SOCKADDR_IN sockAddr;
   Port = Edit2->Text.ToInt();
   Sock_one = socket(AF_INET, SOCK_STREAM, 0);
 
   sockAddr.sin_family = AF_INET;
   sockAddr.sin_addr.s_addr = INADDR_ANY;
   sockAddr.sin_port = htons(Port);
 
   bind(Sock_one, (LPSOCKADDR)&sockAddr, sizeof(SOCKADDR_IN));
 
   listen(Sock_one, 5);
 
   winServ = FindWindowA("TForm1", NULL);
 
   Result = WSAAsyncSelect(Sock_one, winServ, WSA_ACCEPT, FD_ACCEPT);
   if(Result > 0) MessageBoxA(NULL,"Ошибка запуска сервера",NULL,MB_ICONSTOP);
      else
      {
       Label2->Caption = "Сервер запущен";
       Label2->Font->Color = clGreen;
      }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N3Click(TObject *Sender)
{
disconnect();
ListBox1->Clear();
Memo1->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N4Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N5Click(TObject *Sender)
{
Panel2->Visible = 1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N7Click(TObject *Sender)
{
Panel1->Visible = 1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Panel1->Visible = 0;
}
//---------------------------------------------------------------------------

похоже, что ошибка где-то между 80-й и 100-й строками..

@VladMG_001 · 01.05.2015, 00:27 **[ТС]**

...

Добавлено через 3 минуты
Спасибо и за это)

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	01.05.2015, 00:27 [ТС]
	... Добавлено через 3 минуты Спасибо и за это) 0