السلام عليكم و رحمة الله و بركاته أما بعد فأرجو من أخوتي المبرمجين العرب مساعدتي فقد قمت بانجاز برنامج و لكن ينقصني كيفية تزويده بالتعليمة التي تقوم بتحويل جملة بياناته الموجودة في قاعدة العطيات الى مجلد معين اما على القرص الصلب او القرص اللين او graveur , وهذا بعد عملية ضغطه compression تقبلو مني فائق الشكر و التشجيع
حفظ البيانات
مغلق
نعم وانا ايضا متلهف لمعرفة هذه الطريقة
ارجو من فطاحلة البرمجة الا يبخلوا علينا بها.
وشكراً
lalia كتب:السلام عليكم و رحمة الله و بركاته أما بعد فأرجو من أخوتي المبرمجين العرب مساعدتي فقد قمت بانجاز برنامج و لكن ينقصني كيفية تزويده بالتعليمة التي تقوم بتحويل جملة بياناته الموجودة في قاعدة العطيات الى مجلد معين اما على القرص الصلب او القرص اللين او graveur , وهذا بعد عملية ضغطه compression تقبلو مني فائق الشكر و التشجيع
ما هو القصد بتحويل جملة الاستعلام؟ هل تريد(ين) ان تقومي باحضار المعلومات ومن ثم اضافتها جميعها الى ملف في القرص الصلب؟
ارجو التوضيح اكثر
راكان الحنيطي
Be Open Source
كما فهمت من السؤال فهو عن إجراء للنسخ الاحتياطي وإليكم الكود اللازم :
procedure TForm1.backup( source, distention : string );
var
A1 : Integer ;
B1: TSearchRec;
begin
A1 := FindFirst( source + '*.*' , faAnyFile , B1 );
if A1 = 0 then
begin
if ( B1.Name <> '.' ) and ( B1.Name <> '..' ) then
begin
if pos('.', B1.Name) = 0 then
begin
{$I-}MkDir( distention + B1.Name ) ;{$I+}
CopyFolder( source + B1.Name + '\', distention +
B1.Name + '\' ) ;
end
else
copyfile( pchar(source + B1.Name), pchar(distention + B1.name), true );
end;
while FindNext( B1 ) = 0 do
begin
if ( B1.Name <> '.' ) and ( B1.Name <> '..' ) then
begin
if Pos('.', B1.Name) = 0 then
begin
{$I-}MkDir( distention + B1.Name );{$I+}
CopyFolder( source + B1.Name + '\', distention + B1.Name + '\' ) ;
end
else
copyfile( pchar(source + B1.Name), pchar(distention +
B1.name), true );
end;
end;
FindClose( B1 ) ;
end ;
end
طبعاً إنشار إجراء جديد واستدعائه بالشكل التالي :
( procedure TForm1.backup( source, distention : string
هذا الموضوع مغلق.