Asynchronous socket error 10053 ошибка

Zerorc

1 / 1 / 1

Регистрация: 14.03.2014

Сообщений: 46

Метки нет (Все метки)

Всем привет. Сразу к делу. Работаю с компонентом ServerSocket, при приеме данных возникает asynchronous socket error 10053.
Сервер работает в режиме stNonBlocking, клиент — постоянно посылает какую-то информацию. Задача — принять и обработать. Интервал между посылками, примерно 20ms а размер пакета 150 байт.

1
2

std::vector <unsigned char> dataAll; //приемный контейнер
BYTE buf[2000];                 //переменный буфер

1
2
3
4
5
6
7
8

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
        length = ServerSocket1->Socket->Connections[0]->ReceiveLength();
        ServerSocket1->Socket->Connections[0]->ReceiveBuf(buf, length);
        dataAll.resize(dataAll.size() + length);
        memcpy(&dataAll[dataAll.size() - length], &buf, length);
        lengthAll+=length; Form1->Edit2->Text = lengthAll;

Принимаю в контейнер, таким вот способом, по событию чтения клиента. Так вот, открываю порт, слушаю, жду connect’a, пока все в порядке. Но как только клиент подключается, он сразу же начинает забрасывать потоком данных и не успев принять, возникает error 10053.
Какие есть варианты? Быть может прописать что-то в OnClientError, помимо ErrorCode = 0.

735 / 525 / 130

Регистрация: 31.05.2013

Сообщений: 2,929

Записей в блоге: 3

Zerorc

1 / 1 / 1

Регистрация: 14.03.2014

Сообщений: 46

Так Вектор в том-то и дело что сам наращивается и ему все равно какой длинны он будет, пока не займет в теории всю оперативную память компьютера.
Другое дело что массив в векторе в памяти идет как бы подряд и если какой-то участок памяти на его доблестном разрастании занят, то он переносит весь вектор в новый участок плюс резервирует место, при каждом наращивании все больше и больше.
Проблема в том что как только клиент присоединяется, моментально вылетает ошибка или вовсе программа убивается виндой. Не понимаю почему так.

Добавлено через 2 часа 21 минуту
Попробовал стандартный чатик из Examples в builder. Все великолепно принимает, простой как палка.

1
2
3
4
5

void __fastcall TChatForm::ServerSocketClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  Memo2->Lines->Add(Socket->ReceiveText());  
}

Опять же проблема значится в алгоритме записи моем. У кого есть какие идеи как записать, если не с помощью вектора. В принципе, мне ведь все равно, идут данные подряд в памяти или нет. Можно использовать и контейнеры с указателем на следующую ячейку. Может повозиться с динамическим буфером, второй побольше создать, туда перенести, как заполнен первый а потом удалить его. Есть-какие предложения?
Или использовать ReceiveText, загонять в string, а после уже разбивать как захочу?
Но разве это из-за ReceiveBuf() запара? Или все-таки с вектором перемудрил?

Dinkin

735 / 525 / 130

Регистрация: 31.05.2013

Сообщений: 2,929

Записей в блоге: 3

можно попробовать так

1
2
3

int len = ServerSocket1->Socket->ReceiveLength();
char* buf= new char[len+1];
ServerSocket1->Socket->ReceiveBuf((void*)buf, len);

91 / 91 / 22

Регистрация: 02.07.2013

Сообщений: 332

735 / 525 / 130

Регистрация: 31.05.2013

Сообщений: 2,929

Записей в блоге: 3

Так он же пишет, что при нормальной отправке данных все норм…а данная ошибка в основном распространяется на сервер, который закрывает соединение, если что-то не успел/не смог обработать по какой-либо причине.

c0rvax

91 / 91 / 22

Регистрация: 02.07.2013

Сообщений: 332

Dinkin, можешь, конечно, остаться при своих. А можешь показать код, как происходит отправка. Или хотя бы сделай предварительную проверку, активно ли подключение

1
2
3
4

if( ServerSocket1->Socket->Connections[0]->Connected )
{
  ...
}

735 / 525 / 130

Регистрация: 31.05.2013

Сообщений: 2,929

Записей в блоге: 3

Zerorc

1 / 1 / 1

Регистрация: 14.03.2014

Сообщений: 46

Клиент, это плата, подсоединенная к чипу Withnet Ethernet W5100, она просто кидает connect и если сервер отвечает, начинает забрасывать данные. Дело в том что другая прога, которую я писал на Delphi, работает, хотя в builder’e сделал все аналогично, за исключением вектора. Там был статический буфер, набиваемый до конца, а после закрывающий соединение. И еще, как я понял Indy server работает в Thread blocking а Server socket в nonBlocking.
Теперь же задача стоит в том, что мы не знаем сколько будет данных, поэтому и вектор. Плата шлет огромное количество попыток connect() и как только получает ответ, начинает кидать данные.

1
2
3
4
5
6
7
8

void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
        mLog->SelAttributes->Color = clBlue;
        mLog->Lines->Add("[" + TimeToStr(Time()) + "] подключен: " + ServerSocket1->Socket->Connections[0]->RemoteAddress);
        Edit1->Text = Form1->ServerSocket1->Socket->Connections[0]->RemoteAddress;
 
}

Особенность только в работе с платой, но дело ведь в том что на другой проге все ок, а с этими сокетами ошибки лезут вот такие.

Добавлено через 5 минут
И я тут подумал, если попыток connect’а много, пока сеть обнаружится, все дела, ведь до подачи питания на плату, сети-то и нет. Так вот, приходит сразу 10 коннектов, у меня не предусмотрена работа с несколькими соединениями. Сервер видит их как много клиентов и открывает столько потоков, сколько пришло connect(). А после и ложится, ибо я работаю только с Connections[0]. Больше не предусмотрел, все равно клиент всегда один.
В ThreadBlocking все идет одним потоком и ему до лампочки сколько connect() он получил. Начал, отработал и дисконнектнул клиента.

91 / 91 / 22

Регистрация: 02.07.2013

Сообщений: 332

Zerorc, ну, какие мысли. Во-первых, «буфер, набиваемый до конца, а после закрывающий соединение» — это уже неправильно. Соединение не следует закрывать, пока программа работает. Общая логика такова: открыли один раз соединение, набиваем буфер, набили отправили, очистили буфер, снова набиваем. И ничего не закрываем, соединение всегда установлено. Практика показывает, что команда на закрытие соединения может придти гораздо быстрее, чем отправляемый буфер данных. И в тот момент, когда сервер начинает что-то пытаться читать из сокета, последний уже закрыт, а то и NULL. Отсюда и ошибка 10053 возникает «удалённый компьютер закрыл подключение».

Во-вторых, совершенно правильная мысль, что неверно обращаться к Connections[0]. Для того, чтобы серверу однозначно правильно что-то читать из сокетов, надо использовать передаваемый в событие OnClientRead параметр Socket, ибо это именно он готов отдать какие-то данные. А самих активных подключений [ServerSocket->ActiveConnections] может быть великое множество.

Zerorc

1 / 1 / 1

Регистрация: 14.03.2014

Сообщений: 46

Дело в том что так было в прошлой программе и все работало, теперь я не закрываю соединение, к тому же там буфер был действительно огромный и мог принять большой обьем информации. Знаю, что лучше в файл, потом очищать буфер, дописывать в файлик и тд.

Переделал код таким вот образом

1

 int concnt = -1; //счетчик действующих клиентов. Глобально

1
2
3
4
5
6
7
8

void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
         concnt++;
        mLog->SelAttributes->Color = clBlue;
        mLog->Lines->Add("[" + TimeToStr(Time()) + "] подключен: " + ServerSocket1->Socket->Connections[concnt]->RemoteAddress);
        Edit1->Text = Form1->ServerSocket1->Socket->Connections[concnt]->RemoteAddress;
}

1
2
3
4
5
6
7
8

void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
        mLog->SelAttributes->Color = clGray;
        mLog->Lines->Add("[" + TimeToStr(Time()) + "] отключен: " + ServerSocket1->Socket->Connections[concnt]->RemoteAddress);
        GraphTimer->Enabled = false;
        concnt--;
}

1
2
3
4
5
6
7
8
9
10
11

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
        unsigned len = ServerSocket1->Socket->Connections[concnt]->ReceiveLength();
        BYTE* buf= new BYTE[len+1];
        ServerSocket1->Socket->Connections[concnt]->ReceiveBuf((char*)buf, len);
dataAll.resize(dataAll.size() + len);
        memcpy(&dataAll[dataAll.size() - len], buf, len);
        lenAll+=len; Form1->Edit2->Text = lenAll;
 
        delete buf;

что происходит. Пишет что клиент подключен, может и раз десять так написать, подряд и принимает какими-то промежутками данные. Все равно не то что нужно. Соединение не закрываю вообще.

c0rvax

91 / 91 / 22

Регистрация: 02.07.2013

Сообщений: 332

Я говорил про это

1
2
3
4
5
6
7
8
9
10
11

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
        unsigned len = Socket->ReceiveLength(); // сокет, который из параметров !!!
        BYTE* buf= new BYTE[len+1];
        Socket->ReceiveBuf((char*)buf, len);
dataAll.resize(dataAll.size() + len);
        memcpy(&dataAll[dataAll.size() - len], buf, len);
        lenAll+=len; Form1->Edit2->Text = lenAll;
 
        delete buf;

Zerorc

1 / 1 / 1

Регистрация: 14.03.2014

Сообщений: 46

Опа! А вот тут я не понял. Я беру получается, обращаясь к определенному соединению, которое, быть может, было когда-то но в данный момент его нет. И из-за этого ошибка 10053.

Но, когда я обращаюсь к активному соединению, посредством

1

unsigned len = Socket->ReceiveLength(); // сокет, который из параметров !!!

то данные я гарантированно получу. Так?

1
2
3
4
5
6
7
8

        unsigned len = Socket->ReceiveLength();
        BYTE* buf= new BYTE[len+1];
        Socket->ReceiveBuf((char*)buf, len);
        dataAll.resize(dataAll.size() + len);
        memcpy(&dataAll[dataAll.size() - len], buf, len);
        lenAll+=len; Form1->Edit2->Text = lenAll;
 
        delete buf;

91 / 91 / 22

Регистрация: 02.07.2013

Сообщений: 332

1 / 1 / 1

Регистрация: 14.03.2014

Сообщений: 46

Ага, все понятно. Я читал всегда с 0 соединения что в принципе было правильно, ибо клиент один и доколе соблюдение протокола оказывалось филигранным, так сказать, касаемо двух ПК, к примеру.
Но самопальная программа, которая посылает коннект пару сотен раз и может оказаться на любом Connections[?] имела все это ввиду.
И если я читаю

, то все в порядке)

91 / 91 / 22

Регистрация: 02.07.2013

Сообщений: 332

Zerorc

1 / 1 / 1

Регистрация: 14.03.2014

Сообщений: 46

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

1
2
3
4
5

void __fastcall TForm1::Button3Click(TObject *Sender)
{
... //проверки есть ли соединение, во избежание вылетов
Form1->ServerSocket1->Socket->Connections[ServerSocket1->Socket->ActiveConnections-1]->SendBuf(buff,100);
}

Я не могу считать событие ибо событие у меня здесь — это нажатие кнопочки. Единственный выход?

c0rvax

91 / 91 / 22

Регистрация: 02.07.2013

Сообщений: 332

Я бы не так сделал. Во-первых, нет никакой гарантии, что активным является именно последний сокет из всех имеющихся. К тому же, придерживаюсь идеологии, что если сервер что-то отправляет, то надо отправлять всем клиентам. Раз все клиенты подключаются к одному серверу, то каждому надо как-то получать результаты работы других. Тот же чат, например. Один сказал, а всем пришло. Во-вторых, совершенно верно, необходимо убедиться, что подключение активно. Поэтому, чтобы убить всех зайцев, я бы посоветовал такую реализацию

1
2
3
4
5
6
7
8
9
10
11

void __fastcall TForm1::Button3Click(TObject *Sender)
{
  for( int i = 0; i < ServerSocket1->Socket->ActiveConnections; i++ )
  {
    TCustomWinSocket* ASocket = ServerSocket1->Socket->Connections[ i ];
    if( ASocket && ASocket->Connected )
    {
      ASocket->SendBuf( buff, 100 );
    }
  }
}

1 / 1 / 1

Регистрация: 14.03.2014

Сообщений: 46

Использую компонент TClientSocket для опроса контроллера по сети
При разрыве связи прога выдает сообщение
«Asynchronous socket error 10053».
Вопрос в следующем:
1. Как заставить прогу не выдавать это окно.
2. Каким образом организовать автоконнект при отсутствии связи.

Пробовал различные варианты с
Socket->Active = true
но ничего не получилось.
В Buildere не силен, а в сях заморишся нужное окно писать.
Спасибо

http://forum.vingrad.ru/index.php?showtopic=58171
http://forum.vingrad.ru/index.php?showtopic=58209
http://forum.vingrad.ru/index.php?showtopic=58521

———————

Tempora mutantur, et nos mutamur in illis…

1 ссылка) толковая, но самый интересный для меня вопрос без ответа
2 ссылка) не могу понять куда и чего вдолбить чтобы убрать ошибку

client.cpp

#include <vcl.h>
#pragma hdrstop
//—————————————————————————
USEFORM(«Unit1.cpp», Form1);
//—————————————————————————
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (…)
{
try
{
throw Exception(«»);
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}

на всякий случай код unit.cpp

#include <vcl.h>
#include <dos.h>
#pragma hdrstop

#include «Unit1.h»
//—————————————————————————
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm1 *Form1;
//—————————————————————————
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
MemoIn->Items->Clear();
MemoOnOff->Lines->Clear();

MySocket->Active = true;

}
//—————————————————————————

void __fastcall TForm1::MySocketRead(TObject *Sender,
TCustomWinSocket *Socket)
{
MemoIn->Items->Add(Socket->ReceiveText());
}
//—————————————————————————

void __fastcall TForm1::MySocketError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
MemoOnOff->Lines->Clear();
MemoOnOff->Lines->Add(«Ñáîé ñîåäèíåíèÿ»);
// MySocket->Active = true;
}
//—————————————————————————

void __fastcall TForm1::MySocketConnecting(TObject *Sender,
TCustomWinSocket *Socket)
{
MemoOnOff->Lines->Clear();
MemoOnOff->Lines->Add(«Ñîåäèíåíèå óñòàíîâëåíî»);
}

3 ссылка) немного юмора для поднятия настроения

———————

Tempora mutantur, et nos mutamur in illis…

———————

Tempora mutantur, et nos mutamur in illis…

Ошибка выскакивает и в билдере и в готовом ехе
сделал следующее

void __fastcall TForm1::MySocketError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
[b]MySocket->Active = false;[/b]
MemoOnOff->Lines->Clear();
MemoOnOff->Lines->Add(«Сбой подключения»);
}

повесил кнопку с MySocket->Active = true;

теперь после сообщения об ошибке нажав кнопку сокет востанавливается
можно ли в билдере сделать цикл или еще что-то типа:

1 создавать сокет до тех пор пока !ок
2 в случае сокетерор переход на 1

и как заставить не появлятся сообщение об ошибке «Asynchronous socket error 10053» или ему подобные(если неудача при попытке создания сокета цифры другие)
ведь в этом случае выполнение кода приостанавливается пока не нажмешь ок на «Asynchronous socket error 10053».
для меня это принципиальная задача, события с контроллера будут писатся в лог, в случае допустим «рестарт свитч», учета событий не будет пока кто-то не закроет сообщение об ошибке и нажмет «подключиться».
Странно. Я думал есть готовое решение, ведь такая задача может появится довольно часто.
Или надо использовать какие-то другие компоненты и функции билдера?
построение в билдере отличается от просто с++ в принципе

———————

Контроль топлива на топливозаправщиках, мониторинг автотранспорта, расчет зарплаты водителей www.rscat.ru

спасибо hunter’у, Artemon’у и Бегемоту из поста
http://forum.vingrad.ru/index.php?showtopic=56125
(сам бы не додумался организовать цикл при помощи таймера)
Все работает как надо
1 создавать сокет до тех пор пока !ок
2 в случае сокетерор переход на 1

НИКАКИХ сообщений об ошибке сокета больше не вылетает

даю код, мож кому пригодится

//—————————————————————————

#include <vcl.h>
#include <dos.h>
#pragma hdrstop

#include «Unit1.h»
//—————————————————————————
#pragma package(smart_init)
#pragma resource «*.dfm»
TForm1 *Form1;
//—————————————————————————
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
MemoOnOff->Lines->Clear();
try
{
MySocket->Active = true;
}
catch(…)
{
}
}
//—————————————————————————

void __fastcall TForm1::MySocketRead(TObject *Sender,
TCustomWinSocket *Socket)
{
MemoIn->Items->Add(Socket->ReceiveText());
}
//—————————————————————————

void __fastcall TForm1::MySocketError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ErrorCode = NULL; //одна строка и в случае ошибок сокета никаких прерываний в работе!
MySocket->Active = false; //без этой строки сокет не востановишь
MemoOnOff->Lines->Clear();
MemoOnOff->Lines->Add(«Ñáîé ñîåäèíåíèÿ»);
MemoIn->Items->Add(«Ñáîé ñîåäèíåíèÿ»);
Timer1->Enabled=true; //запускаем цикл автоподключений
}
//—————————————————————————

void __fastcall TForm1::MySocketConnecting(TObject *Sender,
TCustomWinSocket *Socket)
{
MemoOnOff->Lines->Clear();
MemoOnOff->Lines->Add(«Ñîåäèíåíèå óñòàíîâëåíî»);
}
//—————————————————————————

void __fastcall TForm1::Timer1Timer(TObject *Sender)
//в свойстве интервал не забудте выставить время.
{
MySocket->Active = true;
Timer1->Enabled = false;
}
//—————————————————————————