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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات (/showthread.php?tid=10906)

الصفحات: 1 2

RE: نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات - bassem_43 - 19-06-2020

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

RE: نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات - ALG2009 - 19-06-2020

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

folder Name.rar -  4535856

RE: نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات - ALG2009 - 19-06-2020

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

RE: نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات - larbiparadox - 19-06-2020

(19-06-2020, 05:23 PM)ALG2009 كتب : هذه رسالة الخطأ مع العلم أني وضعت جميع الملفات في مجلد واحد أين حفظت المشروع حتى 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; 

نضعه في مكان التالي في خصائص الأحداث ، في إنشاء :
[صورة: 647641144.png]

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

[صورة: 600784117.png]

RE: نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات - ALG2009 - 19-06-2020

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

RE: نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات - ALG2009 - 31-10-2020

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

[صورة: 682623368.png]

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

RE: نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات - Delphi4Us - 31-10-2020

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

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

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

RE: نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات - ALG2009 - 01-11-2020

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