Сокеты вбилдере
Появилась проблема при использовании TClientSocket:
Есть две подсети, Подключаюсь на одну сеть, через некоторое время допустим переключаюсь на вторую подсеть (устанавливаю айпишник и open()). всё работает нормально. А Если подключился на одну подсеть, потом выдернул шнур из сетевухи первой подсети сервера и пытаюсь подключиться на вторую подсеть, то ничего не выходит, не соединяет. В чём грабли?
Есть две подсети, Подключаюсь на одну сеть, через некоторое время допустим переключаюсь на вторую подсеть (устанавливаю айпишник и open()). всё работает нормально. А Если подключился на одну подсеть, потом выдернул шнур из сетевухи первой подсети сервера и пытаюсь подключиться на вторую подсеть, то ничего не выходит, не соединяет. В чём грабли?
Я тоже долго с этим тр???лся.
Так пробовал?
void __fastcall TClient_Frm::ClientSocket1Error(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
if (ErrorCode==10053)
{
Memo2->Lines->Add("5 Ошибка сокета ... Error №"+IntToStr(ErrorCode));
ErrorCode=0;
}
else if (ErrorCode==10061)
{
Memo2->Lines->Add("5 Сервер не загружен... Error №"+IntToStr(ErrorCode));
ErrorCode=0;
}
else if (ErrorCode==10060)
{
Memo2->Lines->Add("5 Сервер выключен... Error №"+IntToStr(ErrorCode));
ErrorCode=0;
}
else
{
Memo2->Lines->Add("5 Error №"+IntToStr(ErrorCode));
ErrorCode=0;
....
....
....
Memo2->Lines->Add("5 Клиент остановлен. Требуется вмешательство программиста!");
}
}
Так пробовал?
void __fastcall TClient_Frm::ClientSocket1Error(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
if (ErrorCode==10053)
{
Memo2->Lines->Add("5 Ошибка сокета ... Error №"+IntToStr(ErrorCode));
ErrorCode=0;
}
else if (ErrorCode==10061)
{
Memo2->Lines->Add("5 Сервер не загружен... Error №"+IntToStr(ErrorCode));
ErrorCode=0;
}
else if (ErrorCode==10060)
{
Memo2->Lines->Add("5 Сервер выключен... Error №"+IntToStr(ErrorCode));
ErrorCode=0;
}
else
{
Memo2->Lines->Add("5 Error №"+IntToStr(ErrorCode));
ErrorCode=0;
....
....
....
Memo2->Lines->Add("5 Клиент остановлен. Требуется вмешательство программиста!");
}
}
Цитата:
Originally posted by ROA
Я тоже долго с этим тр???лся.
Так пробовал?
Я тоже долго с этим тр???лся.
Так пробовал?
Я в принципе так и делаю, тока вот ошибка никакая не приходит, просто молчит, и не коннектится, и ошибки нет, совсем непонятно
Странно... Попробуй через таймер пинговать. Если пинг не проходит-переподключайся. Это конечно через одно место но...