المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : مشكله عند اقلاع client


galag8
06-06-2008, 11:05 PM
بسم الله الرحمن الرحيم

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

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



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

end;


وشكرا

B.M.AbdelAziZ
07-06-2008, 01:02 AM
يمكنك ان تستخدم الحدث OnError للClientSocket لتفعيل Timer
والTimer يستدعي زر محاولة الاتصال كل 5 ثواني
مثال بسيط مرفق
والسلام عليكم ورحمة الله

galag8
07-06-2008, 09:52 PM
جزاك الله خيرا كان الله في عونك مادمت في عوننا والى الامام وشكرا