التحكم بالاخطاء في دلفي

عند امساك الخطأ باستخدام تعليمة try,except يتم تنفيذ القسم الذي بعد التعليمة Except مباشرة

و لا يتم رفع الخطأ الى الاجراء المستدعي

و لكن رسالة النظام تظهر فقط عند البرمجة اي عن عمل Debug للبرنامج تظهر رسالة النظام و من تظهر الرسالة التي وضعتها انت

و لكن جرب ان تنفذ البرنامج مباشرة باضغط على exe سوف تلاحظ ان رسالة النظام لن تظهر و ستظهر رسالتك فقط

اذا لم تحل المشكلة

ارجوا ارفاق القليل من الكود لكي اطلع عليه

السلام عليكم

قلت Try و Except لم تفي بالغرض...

بالنسبة ل Sockets حاول استغلال الحدث OnError

او تستخدم حدث التطبيق Application.OnException

procedure TForm1.EX(Sender : TObject; E : Exception);
begin
  MessageDlg(E.message,mtInformation,[mrOk],0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException:=EX;
end;

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

الأخوة الأعزاء هناك مشكلة رسالة الخطا عند الأتصال بقاعدة البيانات

جربت فيها try وجربت If لكن ليس هناك من حل

تظهر رسالة عدم الأتصال من قبل النظام و يكمل فتح البرنامج دون إتصال بقاعدة البيانات

سواء كانت MySql Server2005 أم InterBase

فهل هناك طريقة أمنع فيها النظام من التدخل في برنامجي

خصوصا عند الأتصال بقاعدة البيانات

و السلام ختام

rober كتب:

تظهر رسالة عدم الأتصال من قبل النظام و يكمل فتح البرنامج دون إتصال بقاعدة البيانات

هنا الخطأ

عند عدم الاتصال سواء تعيد المحاولة او يتوقف البرنامج

أخي الكريم B.M.AbdelAziZ

db.DatabaseName :='rober1';

db.UserName :='root';

db.UserPassword :='asd';

db.Host :='localhost';

try

db.Connected :=true;

except

showmessage('disconnected');

end;

جربت الكود السابق و لكن لم تنجح المحاولة فتظهر الرسالة

التي تدل على أن أسم قاعدة البيانات خاطئ و هو كذلك بالفعل

أرجو أبداء الرأي

و السلام ختام

لم توضح ما هو db !

ومهما كان يمكن ان تستخدم OnException انظر المثال فوق

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

بسم الله الرحمن الرحيم

نعم ما هو نوع db؟

من الممكن أن يوجد في هذه db حدث عند تعذر الاتصال أو حدوث خطأ ما....!

السلام عليكم

أخوتي الكرام ال db هو عبارة عن MySQLDataBase

مع العلم أنه لايوجد OnConnectionError