كيفية تأكد Client من عمل Server

انظر هذه

/index.ph...st&p=496504

الله يعطبك العاقية أخ waeldalol

لكن قصدي هو الإتصال الدائم بين الـ Server و الـ Client

أي يبقى Client , Server في حال Connect

( عند تفعيل الـ Server يكون Client في حال Connect

عند عدم تفعيل الـ Server يكون Client في حال DisConnect )

أي يُترك أمر التحقق له

و لك جزيل الشكر على ردك..

asrocks

ماني فاهم شي

لما يعمل العميل كونكت ومايتصل يعني مافيه خادم مافي منفذ مفتوح

خلاص كذا تتحقق ورسائل الخطأ انت تتحكم فيها

السلام عليكم

عذراً عن التأخير ...

أخي العزيز أنظر المثال المرفق و ستجد مشكلتي:

عند تشغيل برنامج السيرفير و الذي هو كونكت اتوماتيكياً

>>>>

يصير برنامج ال Client في حال Connect أي وجد الإتصال مع السيرفير

و عند اغلاق برنامج السيرفير

>>>>

يصير برنامج ال Client في حال DisConnect أي فقد الإتصال مع السيرفير

---------------

و هذا كله عندما يكون برنامج ال Client شغال

و شكراً

PROJECT.rar

طيب إيش رئيك تجرب

أولا الحدث فصل الإتصال

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
label3.Caption:='DisConnected'
end;

ثانيا الحدث خطأ في الإتصال

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ErrorCode:=0;
ClientSocket1Disconnect(nil,Socket);
end;

ثالثا الأمر إتصال

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Close;
ClientSocket1.Host:=edit2.Text;
   try
	  application.ProcessMessages;
	  ClientSocket1.Open;
   except
	  label3.Caption:=(' خطأ في الإتصال  ' + ClientSocket1.Address + '');
   end;
label3.Caption:='Connected...'
end;