الاستثناء في Socket

[WARD.MHM]

السلام عليكم

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

PHP كود :

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


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

[King SofT]

وعليكم السلام اخي

اكتب هذا الكود في حدث ClientSocket1Error :

PHP كود :

if ErrorCode=10061 then ShowMessage('ward');
ErrorCode:=0 


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

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



بالتوفيق