حول ضغط قواعد البيانات إلى ملف رار

saiddsa3980 كتب:

بسم الله الرحمن الرحيم

لقد وجدت على النت هذا الكود الذي يقوم بضغط قواعد البيانات إلى ملف رار

فهل يمكن تعديل هذا الكود ويصبح بدل من أن يحفظ قواعد المعطيات هذا الإسم Svg.rar إلى 01-02-2010.rar

procedure TForm1.sButton1Click(Sender: TObject);

begin

ShellExecute(Handle,'','WinRar','a Svg.rar *.* ',nil, SW_NORMAL)

end;

إي مكان كلمة Svg يضع تاريخ النظام الحالي.

بارك الله فيكم

يمكنك عمل ذلك كالتالي :

procedure TForm1.Button1Click(Sender: TObject);

var

d: TDate ;

begin

d:=Now;

ShowMessage((DateToStr(d)));

end;

يعني تستبدل كلمة Svg وتضع مكانها المتغير من نوع تاريخ d مع الأخذ بعين الإعتبار

فورمات التاريخ لأنه لا يمكن أن يحتوي إسم الملف على '/'

بارك الله فيك أخي الكريم لقدعملت الكود كما قلت لي ولكنه لم يعمل وإليك الكود

procedure TForm1.Button5Click(Sender: TObject);

var

d: TDate ;

begin

d:=Now;

ShellExecute(Handle,'','WinRar','a ((DateToStr(d))) *.MDB ',nil, SW_NORMAL)

end;

end.

شكراً

saiddsa3980 كتب:

بارك الله فيك أخي الكريم لقدعملت الكود كما قلت لي ولكنه لم يعمل وإليك الكود

procedure TForm1.Button5Click(Sender: TObject);

var

d: TDate ;

begin

d:=Now;

ShellExecute(Handle,'','WinRar','a ((DateToStr(d))) *.MDB ',nil, SW_NORMAL)

end;

end.

شكراً

السلام عليكم ،،،

ما يضبط معاك اخوي لأن المتغير نوعه pwidechar وليس string

لماذ لا تبحث عن مكتبة للضغط وتستخدمها مباشرة مثل rar component أو TZipMaste أو ZIPForge

مشكور أخي هل تقصد أنه لايمكن تصحيح الكود كما أردته ؟

بارك الله فيك

السلام عليكم ورحمة الله تعالى وبركاته

نعم أنا أيضا أنصحك بإستعمال أحد المكونات التي ذكرها الأخ الكريم أبو محمد

ولكن ربما هناك حل وهو إعادة تسمية الملف المضغوط وذلك يكون كالتالي :

procedure TForm1.Button2Click(Sender: TObject);
var
d :TDate ;
a :String ;
begin
d:=Now;
a:=(ExtractFilePath(ParamStr(0))+'Svg.rar');
RenameFile(a,DateToStr(d)+'.rar');
end;

وفي المرفقات مثال على ذلك

rar.rar

تفظل على السريع لم اجربها :

var
s:string;
begin
s:='a '+FormatDateTime('yy-mm-dd',Now)+' *.txt';
ShellExecute(Handle,'','WinRar',PChar(s),nil, SW_NORMAL)
end;

بارك الله فيكم إخواني tahasit و mohfa على هذا المجهود الكبير وسرعة التجاوب

لقد عمل الكود الأخير للأخ mohfa بشكل جيد ولكن لدي سؤال أخر

هل أستطيع من خلال الدلفي عمل فك الضغط للملف المتحصل عليه ،طبعاً عن طريق الكود ؟

وشكراً جزيلاً .

شكرا على هذة الفكرة