asynchronous socket error 10053

[CemErgun]

selam, ben socket server-socket client ilişkisi kurdum

client'i killediğimiz zaman

serverda bu eror çıkıyor > "asynchronous socket error 10053"

errorcode:=0;

yaptım olmadı

try
except

yaptım olmadı

toolsdan exceptions lu yeri ayarladım hala bu eror geliyor

bu erorun gelmemesini nasıl sağlayabilirim?

[mrmarman]

Merhaba.

Bunu kendi projelerimde aşağıdaki kod ile kontrol altına alıyorum. Verdiğim örnekte ServerSocket1.Socket.Connections[0]'daki 0 değeri sadece tek client ( GSM telfonum ) olduğu için statiktir. Sizde birden fazla connection varsa o connection kesenin index değerini yazacaksınız.

Bu şekilde sizin kontrolünüzde çözümler üretebilirsiniz.

Kod: Tümünü seç

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  Case ErrorCode of
  10061: ;
  10053: ServerSocket1.Socket.Connections[0].Close;
  end;
  ErrorCode := 0; // İşte sizin hatanızı ekrana yansıtmayacak satır budur.
end;

[CemErgun]

teşekkür ederim ilginize ve yardımınıza.

[G.Arkas]

Aslında başlı başına bu satırın yetmesi lazım

Kod: Tümünü seç

errorcode:=0;

Eğer ters bağlantı(Reverse Connection) kullanıyorsanız server a bağlanan clientlerden

Kod: Tümünü seç

for i := 0 To serversocket.Socket.ActiveConnections -1 do

parametresi ile düşen clienti listeden kaldırabilir bağlantısını kesebilirsiniz.

[mrmarman]

@G.Arkas, evet o satır yeterli. Sadece gelecek hatalara göre farklı ek işlemler yapmak için CASE bloğunu verdim. Kod içerisine" // İşte sizin hatanızı ekrana yansıtmayacak satır budur" diye not eklemiştim ama onu söylemeyi unutmuşum.

Aslında başlı başına bu satırın yetmesi lazım

Kod: Tümünü seç

errorcode:=0;

[G.Arkas]

@ mrmarman abim cevabım sana değldi arkadaş olmuyor deyince ona hitaben demek istemiştim referans vermediğim için yanlış anlaşılma oldu herhalde özür dilerim iyi çalışmalar.