asynchronous socket error 10060

يمكنك معالجة ذلك في الحدث onError للـ client

مثال :

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
     StatusBar1.SimpleText := 'disconnected... ';
     ClientSocket1.Close;
     ErrorCode := 0;
end;

تحياتي (f)

السلام عليكم

كما تم ذكره يمكن معالجة ذلك في حدث OnError ورقم الخطأ يتم ارجاعه من خلال المعامل ErrorCode وعند جعل قيمته صفر فإن الخطأ لن يظهر، لكن يفضل دائما ان تقوم بإختبار قيمة المعامل ثم بعد ذلك تسند له القيمة صفر،

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  if ErrorCode = 10061 then
  begin
    MessageDlg(' لا يمكن الاتصال',mtError,[mbYes],0);
    ErrorCode := 0;
  end;
end;

مع تحياتي

والسلام

أشكركم إخوانى على سرعة الرد ولكن طريقة الأخ fsl هى التى حلت المشكلة لدى

(f)

يعطيكم العافيه

اخي محمد نسمان (Rosa)ارحب فيك واعرف ان هذا المنتدى سيكون منتداك الاول

(f)