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

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

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

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

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

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

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

C++

//---------------------------------------------------------------------------
 
#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 · 26.04.2015, 13:12 **[ТС]**

Помогите кто-нибудь исправить..

@+1 · 28.04.2015, 23:29

Пишет же, что ошибка в модуле Клиент.ехе

@VladMG_001 · 29.04.2015, 07:07 **[ТС]**

Хорошо, я понял, что ошибка в клиенте.. Посмотрите, пожалуйста, может увидела где именно.. Вот код клиента:

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <winsock.h>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
SOCKET sock;
HWND hWin;
DWORD Port;
const char *addr;
String nicks[5];
 
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
WSADATA data;
if (WSAStartup (0x101, &data)) ShowMessage("fail");
Panel1->Visible = 0;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnWSANetEvent(TMessage& Msg)
{
  char *Buff;
 AnsiString str;
 char *tmp;
 char *s, *c;
 int cnt;
 
 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, " ");
 
   if (!strcmp(s, "list"))
     {
     Memo3->Clear();
     cnt = StrToInt(strtok(NULL, " "));
     for(int j=0; j<cnt-1; j++)
       {
       nicks[j] = strtok(NULL, " ");
       if (nicks[j] != Edit3->Text)
       Memo3->Lines->Add(nicks[j]);
       }
     }else
       {
       str = "server :: " + (AnsiString)Buff;
       Memo1->Lines->Add(str);
       }
   delete [] Buff;
   }
 
 if (WSAGETSELECTEVENT(Msg.LParam) == FD_CLOSE)
   {
    closesocket (sock);
    sock = INVALID_SOCKET;
    Form1->Label1->Caption = "Соединение не установлено";
    Form1->Label1->Font->Color = clRed;
 MessageBoxA(NULL,"Соединение разорвано","Клиент",MB_ICONINFORMATION);
 
 Memo3->Clear();
 Edit3->Enabled = 1;
   }
Msg.Result = 0;
}
//---------------------------------------------------------------------------
void disconnect()
{
 AnsiString str;
char *buf;
int size;
 
str = Form1->Edit3->Text + " close" + ".";
   size = str.Length()+1;
   buf = new char[size];
   strcpy(buf, str.c_str());
   send(sock,buf,size,0);
   delete [] buf;
 
 closesocket (sock);
 sock = INVALID_SOCKET;
 
 Form1->Label1->Caption = "Соединение не установлено";
 Form1->Label1->Font->Color = clRed;
 //MessageBox(NULL,"Соединение разорвано","Клиент",MB_ICONINFORMATION);
 
 //Form1->ListBox1->Clear();
 //Form1->ListBox1->Enabled = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString str;
char *buf;
int size;
 
  if (Memo2->Lines->Text.Length() != 0)
   {
   str = Edit3->Text + " : " + Memo2->Text;
   buf = new char[str.Length()+1];
   strcpy(buf, str.c_str());
   size = str.Length()+1;
   send(sock,buf,size,0);
   Memo1->Lines->Add(Edit3->Text + " :: " + Memo2->Text);
   Memo2->Lines->Clear();
   delete [] buf;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Panel1->Visible = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
char *buf;
int size;
AnsiString str;
 
if (Edit3->Text == "") MessageBoxA(NULL,"Введите ник",NULL,MB_ICONSTOP);
  else
  {
Port = Edit1->Text.ToInt();
addr = Edit2->Text.c_str();
sock = socket (AF_INET,SOCK_STREAM,0);
if (sock == INVALID_SOCKET) ShowMessage("INVALID_SOCKET");
SOCKADDR_IN sockaddr;
  sockaddr. sin_family = AF_INET;
  sockaddr. sin_addr.s_addr= inet_addr(addr);
  sockaddr. sin_port = htons(Port);
 
hWin = FindWindowA("TForm1","Клиент");
if (connect (sock,(LPSOCKADDR)&sockaddr,sizeof(sockaddr)) == 0)
{
Label1->Caption = "Соединение с сервером";
Label1->Font->Color = clGreen;
MessageBoxA(NULL,"Соединение успешно","Клиент",MB_ICONINFORMATION);
str = Edit3->Text + " nick" + ".";
   size = str.Length()+1;
   buf = new char[size];
   strcpy(buf, str.c_str());
   send(sock,buf,size,0);
   delete [] buf;
 
WSAAsyncSelect (sock, hWin, WSA_NETEVENT, FD_READ|FD_CLOSE);
}
   else MessageBoxA(NULL,"Ошибка соединения","Клиент",MB_ICONSTOP);
Edit3->Enabled = 0;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
disconnect();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N6Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
Panel1->Visible = 1;
}
//---------------------------------------------------------------------------

@Почтальон · 29.04.2015, 12:18

Сообщение от +1

Пишет же, что ошибка в модуле Клиент.ехе

вы хотя бы текст ошибки написали...

@gunslinger · 29.04.2015, 13:40

Первый пост, AV, смотри скриншот.

Добавлено через 5 минут
VladMG_001, лучше полностью проект выложи.

@VladMG_001 · 29.04.2015, 14:23 **[ТС]**

Текст ошибки есть в скриншоте выше)

@+1 · 29.04.2015, 15:39

VladMG_001, перед подключением шестого клиента ставь бряк на 136 строку и пройди по коду пошагово.
Хоть будет видно, на какой строке ошибка вылезет.

@VladMG_001 · 29.04.2015, 17:44 **[ТС]**

+1, рассказываю как сделал. Запустил пять клиентов, после поставил бряк на 136 строку (там было смещение в строках, поэтому у меня 130), вот что вышло:

тут нажал Continue, далее вот что появилось:

@VladMG_001 · 29.04.2015, 17:46 **[ТС]**

gunslinger, проект послать не получается.. архивированные по отдельности клиент и сервер весят по 12Мб..

@+1 · 29.04.2015, 17:48

я ж сказал пошагово пройти код. По клавише F8

@gunslinger · 29.04.2015, 18:07

Файлы с расширением cpp, h и dfm выложи. Для клиента и сервера.
Лучше конечно и "главный(-ые)" файл(-ы) проекта(-ов) с расширением типа cbproj, bdsproj или bpr (либо подобное), но это не сильно обязательно.

@VladMG_001 · 29.04.2015, 18:18 **[ТС]**

+1, сейчас сделаю

@VladMG_001 · 29.04.2015, 18:21 **[ТС]**

Вот скрины, делал, где останавливалось и где открывался новый файл:

@VladMG_001 · 29.04.2015, 18:22 **[ТС]**

gunslinger, сейчас сделаю

@VladMG_001 · 29.04.2015, 18:26 **[ТС]**

клиент: Клиент.rar
сервер: Сервер.rar

@VladMG_001 · 29.04.2015, 18:27 **[ТС]**

gunslinger, закинул

@gunslinger · 30.04.2015, 22:38

А это что такое (в самом начале кода клиента)?

C++

1	String nicks[5];

На мысли не наводит?

@VladMG_001 · 30.04.2015, 23:15 **[ТС]**

Даже не обратил внимание..

Просто код не весь мой, я половину под себя переделал.. Так а что тыс прописать, чтоб можно было довольно много клиентов подключать?

@gunslinger · 30.04.2015, 23:51

Укажи для начала кол-во побольше. А вообще дело не только в этом, надо проверять выход за границы массива.
И лучше, конечно, использовать динамическое добавление. Я в этом не силен, поищи примеры.
Или "дождись ответа специалиста".

@+1 345 / 178 / 53 Регистрация: 24.08.2010 Сообщений: 1,028
	29.04.2015, 17:48	11
	я ж сказал пошагово пройти код. По клавише F8 0

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	29.04.2015, 18:26 [ТС]	16
	клиент: Клиент.rar сервер: Сервер.rar 0

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	30.04.2015, 23:15 [ТС]	19
	Даже не обратил внимание.. Просто код не весь мой, я половину под себя переделал.. Так а что тыс прописать, чтоб можно было довольно много клиентов подключать? 0

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	26.04.2015, 13:12 [ТС]	2
	Помогите кто-нибудь исправить.. 0

@+1 345 / 178 / 53 Регистрация: 24.08.2010 Сообщений: 1,028
	28.04.2015, 23:29	3
	Пишет же, что ошибка в модуле Клиент.ехе 0

@Почтальон управление сложностью 1687 / 1300 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	29.04.2015, 12:18	5
	Сообщение от +1 Пишет же, что ошибка в модуле Клиент.ехе вы хотя бы текст ошибки написали... 0

@gunslinger случайный прохожий 2920 / 1937 / 606 Регистрация: 20.07.2013 Сообщений: 5,133
	29.04.2015, 13:40	6
	Первый пост, AV, смотри скриншот. Добавлено через 5 минут VladMG_001, лучше полностью проект выложи. 0

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	29.04.2015, 14:23 [ТС]	7
	Текст ошибки есть в скриншоте выше) 0

@+1 345 / 178 / 53 Регистрация: 24.08.2010 Сообщений: 1,028
	29.04.2015, 15:39	8
	VladMG_001, перед подключением шестого клиента ставь бряк на 136 строку и пройди по коду пошагово. Хоть будет видно, на какой строке ошибка вылезет. 0

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	29.04.2015, 17:44 [ТС]	9
	+1, рассказываю как сделал. Запустил пять клиентов, после поставил бряк на 136 строку (там было смещение в строках, поэтому у меня 130), вот что вышло: тут нажал Continue, далее вот что появилось: 0

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	29.04.2015, 17:46 [ТС]	10
	gunslinger, проект послать не получается.. архивированные по отдельности клиент и сервер весят по 12Мб.. 0

@gunslinger случайный прохожий 2920 / 1937 / 606 Регистрация: 20.07.2013 Сообщений: 5,133
	29.04.2015, 18:07	12
	Файлы с расширением cpp, h и dfm выложи. Для клиента и сервера. Лучше конечно и "главный(-ые)" файл(-ы) проекта(-ов) с расширением типа cbproj, bdsproj или bpr (либо подобное), но это не сильно обязательно. 0

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	29.04.2015, 18:18 [ТС]	13
	+1, сейчас сделаю 0

	30.04.2015, 23:51

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	29.04.2015, 18:21 [ТС]	14
	Вот скрины, делал, где останавливалось и где открывался новый файл: 0

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	29.04.2015, 18:22 [ТС]	15
	gunslinger, сейчас сделаю 0

@VladMG_001 1 / 1 / 0 Регистрация: 12.04.2015 Сообщений: 36
	29.04.2015, 18:27 [ТС]	17
	gunslinger, закинул 0