نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات

[bassem_43]

بارك الله فيك اخي larbiparadox
غائب بسبب بعض الضروف
جاري التجريب ..شكرا

[ALG2009]

لا أدري ما سبب المشكل تتبعت كل ما في الشرح مع العلم أني وضعت الاعدادات في المكون لم أعرف أين كتابتها برمجيا
هل ممكن ما سبب المشكل في المثال المرفق

folder Name.rar -  4535856

[ALG2009]

هذه رسالة الخطأ مع العلم أني وضعت جميع الملفات في مجلد واحد أين حفظت المشروع حتى FBclient.dll

[larbiparadox]

هذه رسالة الخطأ مع العلم أني وضعت جميع الملفات في مجلد واحد أين حفظت المشروع حتى FBclient.dll

السبب عدم التنظيم ، و الإعدادات

كملاحظة : عند التصميم لا تجعل البرنامج يعمل في مكان ثابت إجعله يعمل في أي مكان حتى الفلاشة كبرنامج محمول


حمل هذا المثال:

كود :

https://mega.nz/file/wkA3SA7B#S2DsKG2uP9KQ2WxstvWLHLEiLVKFSkKvV-gfHZGC8P8

عند إنشاء الفورم نضع الكود التالي

PHP كود :

var
FolderApplication:string;      // لحفظ مسار البرنامج قيمة نصية

begin



FDPhysFBDriverLink1.Release;
FolderApplication:=ExtractFileDir(Application.ExeName);         // جلب مسار البرنامج
FDPhysFBDriverLink1.DriverID := 'FB';
FDPhysFBDriverLink1.VendorHome := EmptyStr;
FDPhysFBDriverLink1.VendorLib := FolderApplication+'\Firebird30Win32Emb\fbclient.dll';    // مسار ملف المكتبة
FDPhysFBDriverLink1.Embedded   := True;   // قاعدة البيانات مضمنة


FDConnection1.Connected := False;    //  وقف الاتصال

FDConnection1.DriverName                    := 'FB';   // Firebird قاعدة بيانات من نوع
FDConnection1.Params.Values['Port']         := '3050';     // رقم المنفذ ثابت
FDConnection1.Params.Values['Protocol']     := 'local';
FDConnection1.Params.Values['Server']       := EmptyStr;
FDConnection1.Params.Values['CharacterSet'] := 'UTF8';     // يدعم الكتلبة بالعربية
FDConnection1.Params.Values['SQLDialect']   := '3';
FDConnection1.Params.Values['Database']     := FolderApplication+'\ME.FDB';     // مسار قاعدة البيانات
FDConnection1.Params.Values['User_Name']    := 'sysdba';
FDConnection1.Params.Values['Password']     := 'masterkey';

FDConnection1.Params.Values['ExtendedMetadata']     := 'True';

try
FDConnection1.Connected := True;

FDTable1.TableName  :=  'STUDENT';
FDTable2.TableName  :=  'JOBS';

FDTable1.Active  := True;
FDTable2.Active  := True;


except
    on E: EDatabaseError do
    ShowMessage(E.Message);
end; 


نضعه في مكان التالي في خصائص الأحداث ، في إنشاء :


تجريب البرنامج

[ALG2009]

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

[ALG2009]

السلام عليكم
حاولت كثيرا مع هذا البرنامج ولكن يعطيني خطأ دائما لا أدري أين الخطأ



هذا مثال أرجو ذكر الخطأ الذي وقعت فيه لعدم تكراره
أريد معرفة السبب
https://up4net.com/download157229.html

[Delphi4Us]

هذا لان الوحدة التب تحمل مكونات الاتصال يتم انشاءها بعد طلب الاتصال
يعني النموذج Form1 يطلب الاتصال بمكونات لم يتم انشاءها بعد
لهذا اجعل الحاوية DataMoudele يتم انشاءها قبل اي نموذج بالمشروع فقط حرك السطر للبداية كالتالي:

كود :

Application.Initialize;   Application.MainFormOnTaskbar := True;   Application.CreateForm(TdmData, dmData);   Application.CreateForm(TForm1, Form1);   Application.CreateForm(TForm4, Form4);   Application.Run;

كما تشاهد في ثالث سطر هنا

[ALG2009]

بارك الله فيك تم حل مشكل الإتصال