+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف استعمل كود الاستتناء (indy exceptions by code)؟ (/showthread.php?tid=3837)
كيف استعمل كود الاستتناء (indy exceptions by code)؟ - abdelmalek - 28-01-2012
السلام عليكم ورحمة الله وبركاته
كما نعلم ان لكل خطئ كود او رقم يعرفه.
[COLOR="Red"]السؤال : كيف يمكنني الاستفادة من هدا الكود ؟[/COLOR]
لتوضيح اكثر :
PHP كود :
Try
Except
on E: EIdException do
begin
ErrorCode:=E.ErrorCode;
case ErrorCode fo
0001:do something
0002:do something
1060:do something
2300:do something
end;
end;
End;
للعلم انا استعمل مكون indy .
كيف استعمل كود الاستتناء (indy exceptions by code)؟ - abdelmalek - 28-01-2012
وجدت طريقة ولكن غير مجدية :
PHP كود :
Try
connect;
Except
on E: EIdException do
begin
if E.ClassName = 'EIdSocketError' then
begin
// do code 1
end else
begin
if E.ClassName = 'EIdConnectTimeout' then
begin
// do code 2
end else
begin
if E.ClassName = 'Any error' then
begin
// do code 3
end else
begin
..........
end;
end;
end;
end;
end;
لكن لكل خطئ كود خاص به (كيف استخرج دلك الكود واستعمله بدل إستعمال E.ClassName ) ألا يوجد طريقة لستخراجة ؟
كيف استعمل كود الاستتناء (indy exceptions by code)؟ - kachwahed - 29-01-2012
وعليكم السلام ورحمة الله وبركاته
بعض الأنماط توفر رقم الخطأ (وغالبا رسالة خطأ افتراضية)، مثال BDE
كود :
http://www.delphifaq.com/faq/delphi/database/f1.shtmlالبعض الآخر يتكفل بالـ Localization بنفسه، ويعرض رسالة خطأ معبرة ومطابقة لإعدادات النظام
الأمر الذي لا يناسب المبرمج/المستخدم في حالات كثيرة...
كحل بديل استخدام حيز محمي Try/Except وفحص رسالة الخطأ
كود :
Try
// ...
Except
if AnsiContainsText(e.Message, 'PRIMARY KEY') then begin
end;
End;PHP كود :
Try
Except
on EDivByZero do begin
end;
// Other exceptions...
on Exception do begin
end;
End;