delphi4arab منتديات دلفي للعرب

نسخة كاملة : مشكله عند اقلاع client
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله تعالي وبركاته

عندي مشكله في كود برنامج كلاينت
انو لو الكلاينت بدا قبل السيرفر اي ان برنامج السيرفر لم يبدا بعد يكون هناك خطا
انا عاوز الكلاينت لما يبدا وما يلاقي السيرفر يعمل كونكت كل خمس ثواني الي ان يبدا السيرفر



وهذا هو الكود
procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Address:=Edit1.Text;
ClientSocket1.Active:=True;

end;


وشكرا

يمكنك ان تستخدم الحدث OnError للClientSocket لتفعيل Timer
والTimer يستدعي زر محاولة الاتصال كل 5 ثواني
مثال بسيط مرفق
والسلام عليكم ورحمة الله
جزاك الله خيرا كان الله في عونك مادمت في عوننا والى الامام وشكرا