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

نسخة كاملة : الاستثناء في Socket
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

قمت بكتابة هذا الكود , في حال لم يتم الاتصال , او ان برنامج الشات الرئيسي
مغلق , تظر رسالة تخبر المستخدم بذلك

PHP كود :
try
skt.Address := '127.0.0.1';
skt.Active := true;
except
showmessage
('ward');
end; 

لكن المشكلة ان الاستثناء لا يعمل , وتظر رسالة خطأ من النظام
لماذا ؟
وعليكم السلام اخي

اكتب هذا الكود في حدث
ClientSocket1Error :
PHP كود :
if ErrorCode=10061 then ShowMessage('ward');
ErrorCode:=0 


ولا تحتاج من الكود القديم سوا :

skt.Address := '127.0.0.1
skt.Active := True



بالتوفيق