Try Except

[Саня_]

Пишу клиент-серверную программу. Возникает ошибка "Asynchronous socket error 10061". Долго и мучительно юзал просторы интернета, много чего читал и пробовал (в частности о "Try Except"). Но данным образом не получилось избежать возникновение ошибки.

Писал так:

try
Client.Open;
except
on ESocketError do
begin client.Address:='192.168.0.2'; //с этим адресом ошибка не возникает
edit1.text:='123'; end;
end;}
Client.Open;

Забил на этот способ, снова много читал и нашел следующий способ, которым собственно и решил пользоваться, так как с ним всё работает:

procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
if ErrorCode = 10061 then
begin
client.Address:='192.168.0.2';
Client.Open;
ErrorCode := 0;
end;
end;

Но в целях саморазвития мне все таки интересно узнать, как правильно сделать тем (Try Except) способом. Подскажите пожалуйста...

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

компонент асинхронный потому и было создано это событие.

[xoodoo]

как правильно сделать тем (Try Except) способом

client.ClientType := ctBlocking;
..
try
 client.Open;
except
..
end;

решил пользоваться, так как с ним всё работает

Работает да не всё.

procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
if ErrorCode = 10061 then
begin
  ErrorCode := 0; 
  Socket.Close; // ЭТА строчка обязательна во избежание утечки ресурсов.
end;
end;