المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
السلام عليكم و رحمة الله و بركاته :
عندي فهرس اسمه Data يحتوي على قواعد البيانات
لضغط البيانات في ملف rar لحفض نسخة من قواعد البيانات كتبت هدا الكود ولم ينجح علما اني نقلته من برنامج آخر
كود :
public
{ Déclarations publiques }
Chemin : String;
end;
var
F2: TF2;
implementation
uses UDm;
{$R *.DFM}
procedure TF2.BitBtn1Click(Sender: TObject);
var Instruction, Lieu : String;
P : Pchar;
begin
if SaveDialog1.Execute Then
Begin
DM.DataModuleDestroy(Sender);
Lieu := SaveDialog1.FileName;
Instruction := Chemin + '\Rar a ' + Lieu + ' *.*';
p:=StrAlloc(Length(Instruction)+1);
StrPCopy(P,Instruction);
winexec(P,SW_Hide);
Dm.DataModuleCreate(Sender);
End;
end;
procedure TF2.BitBtn2Click(Sender: TObject);
var Instruction, Lieu : String;
P : Pchar;
begin
if OpenDialog1.Execute Then
Begin
DM.DataModuleDestroy(Sender);
Lieu := OpenDialog1.FileName;
Instruction := Chemin + '\Rar e ' + Lieu + ' ' + Chemin;
p:=StrAlloc(Length(Instruction)+1);
StrPCopy(P,Instruction);
winexec(P,SW_Hide);
Dm.DataModuleCreate(Sender);
End;
end;
procedure TF2.FormActivate(Sender: TObject);
begin
Chemin := ExtractFilePath(Application.ExeName)+'Data';
SaveDialog1.InitialDir := Chemin;
OpenDialog1.InitialDir := Chemin;
end;
end.
مع العلم أنه لم يظهر أي رسالة خطأ
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
وعليكم السلام ورحمة الله وبركاته
تعليمات سطر الأوامر يستحسن التأكد من صحتها قبل استخدامها في البرنامج
هل جربتها من خلال تنفيذ سطر الأمر؟ خاصة وأنك قد نقلت التطبيق من موضع آخر
أقترح عليك استخدام بدائل أخرى بدلفي، وبالتالي يصبح برنامجك متحرر من Rar
مكونات كثيرة مجانية/مفتوحة المصدر، جرب:
كود :
http://www.delphizip.org/
بالتوفيق.
المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
شكرا على الرد يا أخي kachwahed يبدو انك متفهم للفكرة
- هل يمكن برمجة ملف بامتداد خاص يحتوي على قواعد البيانات لبرنامجي و سترجاعه عند الضرورة
وشكرا مسبقا .
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
طبعا يمكن، إن كنت تبحث عن تحزيم برنامجك مع ملف قاعدة بيانات فأقترح عليك InnoSetup
وإن أردت جعله مضمن في تطبيقاتك استخدم مصادر التطبيق Resources (أمثلة كثيرة في المنتدى)
ولو توضح أكثر قد أكتب لك مثال
لا شكر على واجب
المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
شكرا على الاستجابة أما فيما يخص برنامجي :
- الموضوع هو حفض نسخة من قواعد البيانات في ملف مثلا بسم هذا التاريخ في فهرس مخصص لذلك ثم استعادته عند الحاجة .
لقد توصلت لهذا بالاستعانة بسورس برنامج Zip حملته من هذا الموقع ,
- هل يمكن حزم قواعد البيانات في ملف و استعادتها مباشرتا عند النقر المزدوج على الملف ؟
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
أولا اعتذر على التأخر في الرد
أعلم انه لا توجد مشكلة في هذا ! و المشكلة أنه لاتوجد عندي خبرة كافية لفعل ذلك ولهذا أنا اكثر الاسئلة
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
لا مشكلة، افتح مشروع جديد، قم بمحاولة ثم أرفقها هنا.
المشاركات : 90
المواضيع 32
:
: 9
الإنتساب : Sep 2010
28-01-2012, 12:09 PM
(آخر تعديل لهذه المشاركة: 28-01-2012, 02:43 PM بواسطة kachwahed.)
طبعا يمكن، إن كنت تبحث عن تحزيم برنامجك مع ملف قاعدة بيانات فأقترح عليك InnoSetup ""
شكرا سوف أقوم بوحاولة استخدام InnoSetup . وسيكون الرد عن قريب ان شاء الله .
اذا عندك شيء تدعمني به فتفضل مشكورا و مأجور و السلام عليكم .
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
استخدم ISTool سيسهل عليك المهمة بشكل كبير.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
