+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : لضغط قواعد البيانات في ملف rar (/showthread.php?tid=3793)
لضغط قواعد البيانات في ملف rar - bibill - 19-01-2012
السلام عليكم و رحمة الله و بركاته :
عندي فهرس اسمه 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.لضغط قواعد البيانات في ملف rar - kachwahed - 19-01-2012
وعليكم السلام ورحمة الله وبركاته
تعليمات سطر الأوامر يستحسن التأكد من صحتها قبل استخدامها في البرنامج
هل جربتها من خلال تنفيذ سطر الأمر؟ خاصة وأنك قد نقلت التطبيق من موضع آخر
أقترح عليك استخدام بدائل أخرى بدلفي، وبالتالي يصبح برنامجك متحرر من Rar
مكونات كثيرة مجانية/مفتوحة المصدر، جرب:
كود :
http://www.delphizip.org/بالتوفيق.
لضغط قواعد البيانات في ملف rar - bibill - 21-01-2012
شكرا على الرد يا أخي kachwahed يبدو انك متفهم للفكرة
- هل يمكن برمجة ملف بامتداد خاص يحتوي على قواعد البيانات لبرنامجي و سترجاعه عند الضرورة
وشكرا مسبقا .
لضغط قواعد البيانات في ملف rar - kachwahed - 21-01-2012
طبعا يمكن، إن كنت تبحث عن تحزيم برنامجك مع ملف قاعدة بيانات فأقترح عليك InnoSetup
وإن أردت جعله مضمن في تطبيقاتك استخدم مصادر التطبيق Resources (أمثلة كثيرة في المنتدى)
ولو توضح أكثر قد أكتب لك مثال
لا شكر على واجب
لضغط قواعد البيانات في ملف rar - bibill - 24-01-2012
شكرا على الاستجابة أما فيما يخص برنامجي :
- الموضوع هو حفض نسخة من قواعد البيانات في ملف مثلا بسم هذا التاريخ في فهرس مخصص لذلك ثم استعادته عند الحاجة .
لقد توصلت لهذا بالاستعانة بسورس برنامج Zip حملته من هذا الموقع ,
- هل يمكن حزم قواعد البيانات في ملف و استعادتها مباشرتا عند النقر المزدوج على الملف ؟
لضغط قواعد البيانات في ملف rar - kachwahed - 24-01-2012
أجل، وما المانع؟
لضغط قواعد البيانات في ملف rar - bibill - 26-01-2012
أولا اعتذر على التأخر في الرد
أعلم انه لا توجد مشكلة في هذا ! و المشكلة أنه لاتوجد عندي خبرة كافية لفعل ذلك ولهذا أنا اكثر الاسئلة
لضغط قواعد البيانات في ملف rar - kachwahed - 26-01-2012
لا مشكلة، افتح مشروع جديد، قم بمحاولة ثم أرفقها هنا.
لضغط قواعد البيانات في ملف rar - bibill - 28-01-2012
طبعا يمكن، إن كنت تبحث عن تحزيم برنامجك مع ملف قاعدة بيانات فأقترح عليك InnoSetup ""
شكرا سوف أقوم بوحاولة استخدام InnoSetup . وسيكون الرد عن قريب ان شاء الله .
اذا عندك شيء تدعمني به فتفضل مشكورا و مأجور و السلام عليكم .
لضغط قواعد البيانات في ملف rar - kachwahed - 28-01-2012
استخدم ISTool سيسهل عليك المهمة بشكل كبير.