+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماهي طريقة حفظ كامل البرنامج مع كامل التغيرات (/showthread.php?tid=4454)
ماهي طريقة حفظ كامل البرنامج مع كامل التغيرات - M_Mori2010 - 14-08-2012
السلام عليكم ورحمة الله وبركاته
كيف يتم حفظ كامل البرنامج مع كافة التغيرات التي حصلت فيه ..؟
لدي كود لحظف شيء معين من البرنامج لكن انا ارغب ان يتم حفظ كامل التغيرات التي طرأت عليه..
جزاكم الله كل خير..
ماهي طريقة حفظ كامل البرنامج مع كامل التغيرات - justnick - 14-08-2012
وفت التشغيل ام وقت البرمجة
لو وقت التشغيل اذكر التغيرات التى تريد ان تحفظها
مثلا طول وعرض ولون الفورم ممكن استخدام ملفات ini لحفظ الاعدادات واستدعائها مرة اخرى عند التشغيل
او استخدم الرجيسترى لنفس الغرض
منتظر اعرف نوع التغير الذى تود حفظه وشكرا
ماهي طريقة حفظ كامل البرنامج مع كامل التغيرات - M_Mori2010 - 14-08-2012
اخي الكريم البرنامج هو عبارة عن برنامج محادثة خادم وعميل بحيث انني ارٍيْد ان يقوم بحفظ كل التغيرات التي جرت على الخادم ليقوم بأرسالها الى العميل ولا شيء محدد ارٍيْد حفظة بل كل البرنامج والحفظ يكون في حال التشغيل وليس في حال التصميم هل فهمت قصدي اخي الكريم ؟
ماهي طريقة حفظ كامل البرنامج مع كامل التغيرات - justnick - 14-08-2012
فهمت
استخدم ملفات ال ini واحفظ ما تشاء ثم قم بارساله الى ال Client واقراء محتوياته
ماهي طريقة حفظ كامل البرنامج مع كامل التغيرات - M_Mori2010 - 18-08-2012
اخي الكريم هذا لحفظ ماتغير على الفورم في ملف خارجي وفي حال التشغيل يعود البرنامج كما تركته في اخر شكل له
كود :
public
constructor Create(AOwner: TComponent); override; // (1)
procedure BeforeDestruction; override; // (2)
end;
var
Form1: TForm1;
PreservePath: string; // (3)
implementation
{$R *.dfm}
procedure TForm1.BeforeDestruction;
begin
inherited;
with TFileStream.Create(PreservePath + ClassName + '.sav', fmCreate) do
try
WriteComponent(Self);
finally
Free;
end;
end;
constructor TForm1.Create(AOwner: TComponent);
begin
PreservePath := ExtractFilePath(Application.ExeName) +
'Preserve';
if not DirectoryExists(PreservePath) then
CreateDir(PreservePath);
PreservePath := PreservePath + '\';
if FileExists(PreservePath + ClassName + '.sav') then
begin
CreateNew(AOwner, 0);
with TFileStream.Create(PreservePath + ClassName + '.sav',
fmOpenRead or fmShareDenyWrite) do
try
ReadComponent(Self);
finally
Free;
end;
end
else
inherited Create(AOwner);
end;