TClientSocket переподключение при разрыве связи

[AlexCODER23]

Здравствуйте! Мне нужно организовать переподключение клиента к серверу при разрыве связи.
Сначала работал со статическим clientsocket'ом, но он отказывался перепокдлючаться при ошибке (а без нее не обходится разрыв), поэтому я стал создавать его динамически. Нужно, чтобы он при разрыве уничтожился и создался новый экземпляр.
Вот код инициализации:

void TForm1::InitSocket()
{
client = new TClientSocket(Form1);
client->Active=false;
client->Host=servadr;
client->Port=2393;
client->OnConnect=clientConnect;
client->OnConnecting=clientConnecting;
client->OnDisconnect=clientDisconnect;
client->OnError=clientError;
client->OnRead=clientRead;
}

Затем на кнопке

InitSocket();
client->Open();

Все работает, корректно общается с сервером, но когда начинаю обрабатывать ошибку....

void __fastcall TForm1::clientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
client->Free();
InitSocket();
client->Open();
}

Вылетает это:
Windows socket error: Сделана попытка выполнить операцию на объекте, не являющемся сокетом (10038), on API "closesocket"
(кикаю с сервера, я знаю что это не "естественный разрыв" но даже на этом этапе появились ошибки)

Помогите разобраться, пожалуйста

Я так понимаю, это из-за того, что я некорректно создаю новый экземпляр/освобождаю старый ???

[Пепел Феникса]

вы конечно молодец, обьект уничтожили, и потом еще пытаетесь с ним работать.

не надо никаких Free
просто открйте сокет снова и все.

[AlexCODER23]

Проблема как раз в том, что я не могу его снова открыть. А точнее я пытаюсь открыть его 3 раза (попытки с таймаутом), это видно под отладчиком, но никаких изменений не происходит. Сервер даже не регестрирует подключение
(дисконнект зарегестрировал, т.е. путаницы быть не может, такого соединения с ним нет)

[veniside]

ошибок у сокета дофига может быть, у TClientSocket есть вроде как OnError событие, если ему назначить обработчик, возможно, Exception не будет выскакивать.

[AlexCODER23]

Сообщение от veniside

ошибок у сокета дофига может быть, у TClientSocket есть вроде как OnError событие, если ему назначить обработчик, возможно, Exception не будет выскакивать.

Раньше, когда был статический сокет, делал так:

void __fastcall TForm1::clientError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ErrorCode=0;
Socket->Close();
}


в OnDisconnect

for (int i=0;i<trycount;i++)
{
if (!client->Socket->Connected)
{
try
{
client->Open();
sleep(3000);}
}
catch(...)
{ShowMessage("Error");}
}
}

исключений не возникало, но и подключения тоже)
(к сожалению целиком кода не осталось, т.к. переписал уже все) )

[veniside]

> исключений не возникало, но и подключения тоже)

а зачем там Socket->Close()?

[AlexCODER23]

> а зачем там Socket->Close()?
А как иначе? Я же должен как то пережить разрыв))


---------------------
тему ап )

[AlexCODER23]

посоветуйте что-нибудь конкретное) все равно можно же как то и с динамическим сокетом это провернуть
хотя мне уже без разницы как) лиж бы работало)

[AlexCODER23]

Кто-нибудь может объяснить, как после разрыва осуществить подключение???

[veniside]

боже, да что ж там такого сложного. Вот, ровно 7 минут потратил, работает как часы:

unit Unit1;

interface

uses
  Windows, Forms, Classes, Controls, StdCtrls, ScktComp, ExtCtrls;

type
  TForm1 = class(TForm)
    btnRestartServer: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure btnRestartServerClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    procedure clnOnError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure clnOnDisconnect(Sender: TObject; Socket: TCustomWinSocket);
  public
    { Public declarations }
    srv: TServerSocket;
    cln: TClientSocket;
    //
    needReconnect: boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// --  --
procedure TForm1.FormCreate(Sender: TObject);
begin
  srv := TServerSocket.create(self);
  srv.Port := 12345;
  srv.Open();
  //
  cln := TClientSocket.create(self);
  cln.Host := 'localhost';
  cln.Port := 12345;
  //
  cln.OnError := clnOnError;
  cln.OnDisconnect := clnOnDisconnect;
  //
  cln.Open();
end;

// --  --
procedure TForm1.btnRestartServerClick(Sender: TObject);
begin
  srv.Close();
  srv.Open();
end;

// --  --
procedure TForm1.clnOnError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  needReconnect := true;
end;

// --  --
procedure TForm1.clnOnDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  needReconnect := true;
end;

// --  --
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (needReconnect) then begin
    //
    needReconnect := false;
    cln.Open();
  end;
end;

end.