+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : خطأ بعد التحزيم Innosetup (/showthread.php?tid=10806)
نقل برنامج - appakar - 24-04-2020
السلام عليكم
رمضان مبارك
لدي مشروع دلفي وقاعدة بيانات MSaccess
استخدمت المكون FDConnection
عند تحزيم هذا المشروع ببرنامج Inno setup ونقله وتنصيبه في كمبيوتر آخر لا يعمل وتظهر رسالة خطأ
Acceser violation قمت بتتبع الخطأ فكان في مسار قاعدة البيانات
هل يمكن مساعدتي في كيفية ادراج ملف قاعدة البيانات بحيث لو تم عمل تنصيب للبرنامج في جهاز آخر ترفق من ضمن الملفات المدرجة في Programm files ويتم التعامل مع البرنامج على اي جهاز يتم تنصيبه عليه
RE: نقل برنامج - bouh25 - 25-04-2020
يجب ان يتعرف البرنامج على مكان قاعدة البيانات عند التنفيذ
و ان لا يكون البرنامج يتعرف عليها بواسطة المكون مباشر
عليك بالبحث عن Connection String
كمثال التعرف على قاعدة بيانات FireBird عند الملف التنفيذي:
PHP كود :
begin
try
FDConnection1.Connected := False;
FDConnection1.Params.DriverID:='FB' ;
FDConnection1.Params.Database := ExtractFilePath(Paramstr(0))+'GESTION.FDB' ;
FDConnection1.Params.Username := 'sysdba';
FDConnection1.Params.Password := 'masterkey';
FDConnection1.LoginPrompt := False;
FDConnection1.Params.Add('CharacterSet=utF8');
FDConnection1.Open;
FDConnection1.Connected:=true ;
FDTable1.TableName:='PRODUITS' ;
FDTable1.Active:=true;
except
ShowMessage('خطأ في قاعدة البيانات');
RE: نقل برنامج - appakar - 26-04-2020
شكرا الأخ bouh25 جربت الطريقة لكن لم تنجح
RE: نقل برنامج - larbiparadox - 26-04-2020
وعليكم السلام و تقبل الله صيامكم
تكون الصيغة كالتالي
كود :
procedure TForm1.FormCreate(Sender: TObject);
var
CheminDB:string;
begin
CheminDB:=ExtractFileDir(Application.ExeName) +'\dbdemos.mdb';
if FileExists(CheminDB) then begin
with FDConnection1 do begin
Close;
with Params do begin
Clear;
Add('DriverID=MSAcc');
Add('Database=' + CheminDB);
end;
Open;
//------ Table ------
FDTable1.TableName := 'country' ;
FDTable1.Open;
end;
end else
ShowMessage(' la base de données n''existe pas!');
end;* قاعدة البيانات تكون بجانب الملف التنفيذي ، إذا كانت في مجلد كمثال Data تكون الكتابة كما يلي
كود :
CheminDB:=ExtractFileDir(Application.ExeName) +'\Data\dbdemos.mdb';يوجد مثال في المرفقات
خطأ بعد التحزيم Innosetup - appakar - 30-04-2020
السلام عليكم
بعد تحزيم مشروع دلفي ببرنامج innosetup ونقله الى كمبيوتر آخر
تظهر هذه النافذة بعد التنصيب
![[صورة: p_15814a5041.jpg]](https://h.top4top.io/p_15814a5041.jpg)
RE: خطأ بعد التحزيم Innosetup - larbiparadox - 30-04-2020
(30-04-2020, 09:36 PM)appakar كتب : السلام عليكم
بعد تحزيم مشروع دلفي ببرنامج innosetup ونقله الى كمبيوتر آخر
تظهر هذه النافذة بعد التنصيب
وعليك السلام
هل برنامجك مربوط بـ ODBC
RE: خطأ بعد التحزيم Innosetup - appakar - 01-05-2020
الاخ Larbiparadox
كيف يتم ربط البرنامج بالـ OBDC؟؟؟؟
RE: خطأ بعد التحزيم Innosetup - larbiparadox - 02-05-2020
ربما الاوفيس غير مثبت في الجهاز
يمكنك تحميل هذا و تنصيه في الجهاز يحل المشكل
https://www.microsoft.com/en-us/download/details.aspx?id=13255
RE: خطأ بعد التحزيم Innosetup - appakar - 03-05-2020
السلام عليكم
جهاز الزبون يحتوي على Access ويشتغل بشكل عادي
لكن مشكل برنامجي مازال قائما
RE: خطأ بعد التحزيم Innosetup - larbiparadox - 03-05-2020
(03-05-2020, 11:15 PM)appakar كتب : السلام عليكم
جهاز الزبون يحتوي على Access ويشتغل بشكل عادي
لكن مشكل برنامجي مازال قائما
وعليك السلام
اذا امكن ارسلي على الخاص برنامج التثبيت