Как заставить клиентский сокет заново подключится к серверу

[Vadik(R)]

Есть клиент серверное приложение. Клиент автоматически подключается к серверу. Если сервер не запущен, у клиента выскочит сообщение об ошибке 10061. Я подавил это сообщение, написав в обработчике onError ErrorCode:=0;
Далее я хочу, чтобы при не удачной попытке соединения клиент все равно пытался подсоединится к серверу. Для этого я продолжаю код в обработчике события. Итого вышло:

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode:=0;
ClientSocket1.Active:=True
end;

Но почему-то это не заставляет клиентский сокет заново подключится к серверу. Подскажите как это реализовать, что надо написать в обработчике onError вместо ClientSocket1.Active:=True, чтобы клиентский сокет опять пытался соединиться с сервером?

[AngelOfDeath]

Попробуйте так:

ClientSocket1.Active:=false;
ClientSocket1.Active:=True;
ErrorCode:=0;

Так скорее всего он попробует подключиться

[Terran]

Можете сделать так:

Procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
Var ErrorCode: Integer);
Begin
ErrorCode:=0;
Timer1.Enabled:=True;
End;
//--------------------------------------------------------//
Procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
Begin
Timer1.Enabled:=True;
End;
//--------------------------------------------------------//
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If ClientSocket1.Active=False Then
Begin
ClientSocket1.Active:=True;
Timer1.Enabled:=False;
End;
End;

Код конечно побольше вашего, зато работает отлично. А в вашем варианте получается, что все события выполняются 1 раз и при отсуствии соединения они останавливаются.

[Terran]

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

Попробуйте так:

ClientSocket1.Active:=false;
ClientSocket1.Active:=True;
ErrorCode:=0;

Так скорее всего он попробует подключиться

Я пробовал, такой вариант тоже не будет работать...

[Vadik(R)]

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

[Terran]

Вот, немного подправил ваш код. Теперь всё работает.Клиент Сервер.rar

[Vadik(R)]

ППЦ, я в ужасе, я даже и подумать не мог, что такие ошибки бывают.
Теперь учту на будущее, что задание свойств в инспекторе объектов это НЕ тоже самое, что их задание в onCreate.
Спасибо ВАМ ОГРОМНОЕ!!!!!