+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الاستثناء في Socket (/showthread.php?tid=3614)
الاستثناء في Socket - WARD.MHM - 20-11-2011
السلام عليكم
قمت بكتابة هذا الكود , في حال لم يتم الاتصال , او ان برنامج الشات الرئيسي
مغلق , تظر رسالة تخبر المستخدم بذلك
PHP كود :
try
skt.Address := '127.0.0.1';
skt.Active := true;
except
showmessage('ward');
end;
لكن المشكلة ان الاستثناء لا يعمل , وتظر رسالة خطأ من النظام
لماذا ؟
الاستثناء في Socket - King SofT - 20-11-2011
وعليكم السلام اخي
اكتب هذا الكود في حدث ClientSocket1Error :
PHP كود :
if ErrorCode=10061 then ShowMessage('ward');
ErrorCode:=0
ولا تحتاج من الكود القديم سوا :
skt.Address := '127.0.0.1
skt.Active := True
بالتوفيق