المشاركات : 232
المواضيع 98
:
: 0
الإنتساب : Oct 2011
السلام عليكم ورحمة الله وبركاته
كيف يتم حفظ كامل البرنامج مع كافة التغيرات التي حصلت فيه ..؟
لدي كود لحظف شيء معين من البرنامج لكن انا ارغب ان يتم حفظ كامل التغيرات التي طرأت عليه..
جزاكم الله كل خير..
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
المشاركات : 146
المواضيع 5
:
: 6
الإنتساب : Feb 2010
وفت التشغيل ام وقت البرمجة
لو وقت التشغيل اذكر التغيرات التى تريد ان تحفظها
مثلا طول وعرض ولون الفورم ممكن استخدام ملفات ini لحفظ الاعدادات واستدعائها مرة اخرى عند التشغيل
او استخدم الرجيسترى لنفس الغرض
منتظر اعرف نوع التغير الذى تود حفظه وشكرا
المشاركات : 232
المواضيع 98
:
: 0
الإنتساب : Oct 2011
اخي الكريم البرنامج هو عبارة عن برنامج محادثة خادم وعميل بحيث انني ارٍيْد ان يقوم بحفظ كل التغيرات التي جرت على الخادم ليقوم بأرسالها الى العميل ولا شيء محدد ارٍيْد حفظة بل كل البرنامج والحفظ يكون في حال التشغيل وليس في حال التصميم هل فهمت قصدي اخي الكريم ؟
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
المشاركات : 146
المواضيع 5
:
: 6
الإنتساب : Feb 2010
فهمت
استخدم ملفات ال ini واحفظ ما تشاء ثم قم بارساله الى ال Client واقراء محتوياته
المشاركات : 232
المواضيع 98
:
: 0
الإنتساب : Oct 2011
اخي الكريم هذا لحفظ ماتغير على الفورم في ملف خارجي وفي حال التشغيل يعود البرنامج كما تركته في اخر شكل له
كود :
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;
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
