delphi4arab منتديات دلفي للعرب

السلام عليكم

ممكن كود دلفي لأخذ صور لـ Form وحفظها في القرص

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

الـ form تحتوي على دالة ترجع نوع TBitmap الذي يمكن حفظه على شكل صورة

هذه هي الدالة :


إستغلال الكود :
ضع button الى ال form وكتب بدخله الكود :

هذا الكود يسمح لك بحفظ صورة للـ form1 على القرص الصلب (تجد الصورة في نفس المسار الذي يوجد به ملف exe للبرنامج)

بالتوفيق,,

---

يمكن إستعمال هذا الكود بدل السابق, فهو اسرع وافضل:

ضعه دخل button.

بارك الله فيك

(11-08-2020, 04:17 PM)MasteranyOne كتب : [ -> ]وعليكم السلام ورحمة الله تعالى وبركاته

الـ form تحتوي على دالة ترجع نوع TBitmap الذي يمكن حفظه على شكل صورة

هذه هي الدالة :

كود :

Form1.GetFormImage;

إستغلال الكود :
ضع button الى ال form وكتب بدخله الكود :

كود :

var   Bitmap: TBitmap; begin   Bitmap:= Form1.GetFormImage;   try     Bitmap.SaveToFile(ExtractFilePath(Application.ExeName) + '\test.bmp');   finally     FreeAndNil(Bitmap);   end;

هذا الكود يسمح لك بحفظ صورة للـ form1 على القرص الصلب (تجد الصورة في نفس المسار الذي يوجد به ملف exe للبرنامج)

بالتوفيق,,

---

يمكن إستعمال هذا الكود بدل السابق, فهو اسرع وافضل:

كود :

Form1.GetFormImage.SaveToFile(ExtractFilePath(Application.ExeName) + '\test.bmp');

ضعه دخل button.

بارك الله فيك و جزاك الله كل الخير