delphi4arab منتديات دلفي للعرب

delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات
نسخة كاملة : نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

bassem_43

19-06-2020, 01:08 PM
بارك الله فيك اخي larbiparadox
غائب بسبب بعض الضروف
جاري التجريب ..شكرا

ALG2009

19-06-2020, 02:28 PM
لا أدري ما سبب المشكل تتبعت كل ما في الشرح مع العلم أني وضعت الاعدادات في المكون لم أعرف أين كتابتها برمجيا
هل ممكن ما سبب المشكل في المثال المرفق

folder Name.rar -  4535856

ALG2009

19-06-2020, 05:23 PM
هذه رسالة الخطأ مع العلم أني وضعت جميع الملفات في مجلد واحد أين حفظت المشروع حتى FBclient.dll

larbiparadox

19-06-2020, 08:38 PM
(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]

ALG2009

19-06-2020, 10:18 PM
جزاك الله خيرا أخي العربي
يعني دائما نفس المجلد ونفس الملفات أقوم فقط بتغيير قاعدة البيانات وكذلك البرنامج التنفيذي فقط بارك الله فيك

ALG2009

31-10-2020, 02:42 PM
السلام عليكم
حاولت كثيرا مع هذا البرنامج ولكن يعطيني خطأ دائما لا أدري أين الخطأ

[صورة: 682623368.png]

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

Delphi4Us

31-10-2020, 07:10 PM
هذا لان الوحدة التب تحمل مكونات الاتصال يتم انشاءها بعد طلب الاتصال
يعني النموذج Form1 يطلب الاتصال بمكونات لم يتم انشاءها بعد
لهذا اجعل الحاوية DataMoudele يتم انشاءها قبل اي نموذج بالمشروع فقط حرك السطر للبداية كالتالي:

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

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

ALG2009

01-11-2020, 01:17 AM
بارك الله فيك تم حل مشكل الإتصال
الصفحات : 1 2
delphi4arab منتديات دلفي للعرب > منتديات دلفي للعرب التعليمية > سؤال و جواب حول دلفي > نقل برنامج إلى جهاز آخردون تثبيت قاعدة البيانات