+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : أخد صور للـ Form (/showthread.php?tid=11001)
أخد صور للـ Form - العيد1403 - 11-08-2020
السلام عليكم
ممكن كود دلفي لأخذ صور لـ Form وحفظها في القرص
RE: أخد صور للـ Form - MasteranyOne - 11-08-2020
وعليكم السلام ورحمة الله تعالى وبركاته
الـ 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.
RE: أخد صور للـ Form - العيد1403 - 12-08-2020
بارك الله فيك
(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.
بارك الله فيك و جزاك الله كل الخير