Soket bağlantı hata penceresi ...

[Gürcan]

Selam arkadaşlar.

System.Win.ScktComp nesnesiyle bağlantı denendiğinde, karşı tarafa bağlantı sağlanamazsa "Asynchronous socket error 10061" hata mesajını içeren bir popup açılıyor.
Bu hata diyaloğunun açılmasını engellemenin bir yolu var mı ?


Edit :

Yanıtı başka bir  yerde buldum ve alıntıladım. Kaynağı reklama girmesin diye yazmadım
Aşağıdaki gibi bir şekilde çözülüyormuş. Bulduğum örnekte tüm kodlar için hata kodunu 0' a çekiyordu. Projeme uygun hale getirmek için sadece 10061 için sıfırlanmasını sağladım ve o satırı remarkladım. Siz belki orjinal halini kullanırsınız.

TClientSocket1.OnError := SocketClientError; // hataya düştüğünde handle etmek için ...

procedure TForm1.SocketClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
 Case ErrorCode of
     10061:
         begin
             ErrorCode := 0;
             exit;
         end;
     10053: ;// ServerSocket1.Socket.Connections[0].Close;
 end;
 // ErrorCode := 0;
end;