كيف يتم إطلاق حدث التقدم على مستوى TImage في الخاصية OnProgress

Question

لديا هذا الكود هنا :

.....

Image1.Picture.LoadFromFile(FileName);
....

procedure TForm1.Image1Progress(Sender: TObject; Stage: TProgressStage;
  PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
begin
  case Stage of
    psStarting: ProgressBar1.Position := 0;
    psRunning:
      begin
        ProgressBar1.Position := PercentDone;
      end;
    psEnding:
      begin
        ProgressBar1.Position := PercentDone;
        Timer1.Enabled := True; // Interval := 500;
      end;
  end

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ProgressBar1.Position := 0;
end;

صورة عن المثال:

ولتحميل المثال حتى يتسنى للأخوة الكرام التجريب و محاولة إيجاد الحل و شكرا ... من هنا

  من فضلكم أريد تفعيل الحدث "Image1Progress" في الوقت الذي تبدأ فيه "Image1" بتحميل الصورة المحملة من الخارج بواسطة "TOpenPictureDialog"  حتى إظهار الصورة بصفة كاملة على مستوى "Image1.Picure" مع العلم أن حجم الصورة المراد إظهارها قد يتجاوز 10 ميقا بايت .. و شكرا.

Comments

ماذا تقصد بـ ( تفعيل الحديث ) ؟؟

---

بالأنجليزية "Fire up the event handler of an object" يعني الحدث(event Property) للمكون "TImage" مو شغال (لا يستجيب أو غير مفعل) .....

---

هذه العبارة لا تعني ( الحدث مو شغال ـ لا يستجيب ا غير مفعل ) ..
من اين اتيت بهذه العبارة
هذا الحدث يعمل بشكل تلقائي

---

عذرا أستاذ سامر هل يعمل عذا الحدث عندك ؟ بمعنى هل المثال شغال عندك ؟

---

ساكتب لك جواب

---

ok أستاذ أشكرك كثيرا ..

---

حسنا . ساتاكد من الكود وقت استطيع . واجيبك اين المشكلة

---

أشكرك كثيرا أستاذ سامر ...

Answer 1

هذا الحدث يعمل تلقائيا . عند تغير الـ status او تغير الـ PercentDone لكن بشرط ان يكون نوع الصورة متوافق مع مطلبات هذا الاجراء . مثلا . الـ PercentDone . حتى يتمكن من معرفة النسبة يجب عليه معرفة الحجم الكلي للصورة ( لا اقصد حجم الملف ) . ان كانت الصورة bmp . لن تكون هناك حاجة لفك ضغط الصورة كما في jpg . والنسبة ستكون صحيحة . اما في الصور المضغوطة قد لا تتوفر هذه المعلومة إلا بعد الانتهاء من فك الضغط . والنتيجة هي نسبة خاطئة غير صحيحة تتغير بشكل يبدو اعتباطي . هذا عدا عن ان المكتبة الخاصة بهذا النوع نفسه قد لا يوجد فيها اجراء progress في الاساس. اي ان OnProgress لن يتنفذ لان لا يوجد اجراء progress في الاساس ليطلبه . ( اعتقد TJPGImage لا يحتوي هذا الاجراء . لست متاكد ) .

باختصار . هذا OnProgress يعمل بشكل سليم لكن يتاثر بشدة بنوع ملف الصورة . مضغوطة او لا . هل تحتوي معلومات كاملة ام لا . هل هناك اجراء progress ام لا .. وعدة اشياء اخرى ) .

لذلك لا تتوقع من OnProgress ان يعمل بشكل كامل مع كل الانواع .

جربه مع الـ bmp حتى تتاكد من انه يعمل او لا .

Comments

عذرا أستاذ المثال لا يعمل .......

---

عذرا المثال أصبح شغال و كأنني أصبت بالعمى .... و الله لا أدري كيف لم ألاحظ أن المكون لم يكن مرتبط أساسا بالحدث "OnProgress" و الله عجيب أحيانا نصبح كمن لا يفقه في دينه شيئا .....