EasyDelphi Q&A
+3 تصويتات
463 مشاهدات

جربت هذا الكود لكن يعمل مع الصور بامتداد bmp فقط 

form1.ABSTable1.edit;

if openpicturedialog1.Execute then

dbimage2.Picture.LoadFromFile(openpicturedialog1.FileName);

form1.ABSTable1.post;

في تصنيف Database بواسطة (220 نقاط) | 463 مشاهدات

2 إجابة

+4 تصويتات
أفضل إجابة
  • هل قمت بتحميل هذا المثال هنا 

أو إتباع الجل التالي:

  form1.ABSTable1.edit;
  with TOpenPictureDialog.Create(Self) do //==> uses , Vcl.ExtDlgs
  begin
    if Execute then
    begin
      try
        dbimage2.Picture.LoadFromFile(FileName);
        dbimage2.CopyToClipboard;
        dbimage2.PasteFromClipboard;
        dbimage2.Refresh;
      except on e:Exception do
        begin
	  ShowMessage('An Error Occur: '+ E.Message); 
	  form1.ABSTable1.Cancel; Exit;
	end;
      end;
    end;
  end;
  form1.ABSTable1.Post;

 

  • أما عملية الطباعة فلا أظن أنك قد تحتاج لمثال بعدما تم حل مشكل الصور بإختلاف أنواعها فالحل أعلاه يحول أي صورة إلى إمتداد "BMP.*"  و ما عليك سوى إظافة المكون "TQRDBImage" إن كنت تستعمل مكتبة "QuickReport" و قم فقط بالطباعة .... غير ذلك ....!!!!! فقم بطرحها كسؤال محايد و شكرا
بواسطة (21,520 نقاط)
عُدل بواسطة
0
الاجابة رقم 2 تعمل بطريقة رائعة وجربت بها جميع أنواع الصور وفي حالة اختيار صورة خطأ تعطينا رسالة خطأ
رائعة بارك الله فيكم جميعا على المجهودات المبذولة
+4 تصويتات

تفضل :
 

var
  Photo: TPicture;
begin
  if OpenPictureDialog.Execute then
  begin
    Photo := TPicture.Create;
    try
      Photo.LoadFromFile(OpenPictureDialog.FileName);
      Table1.Edit;
      DBPhoto1.Picture.Graphic.Assign(Photo.Graphic);
      Table1.Post;
    finally
      Photo.Free;
    end;
  end;

 

بواسطة (8,060 نقاط)
0
بارك الله فيك أستاذ
الحمد لله هذا الكود شغال 100/100 طبقته وكل شيء ماشي تمام
جعله الله في ميزان حسناتك وشكرا للمرة المليون
0
اذا كانت الاجابة مناسبة . لا تنسى تحديدها كافضل اجابة . ( اشارة صح بجانب الاجابة )
لماذا لا يضغر حجم قاعدة البيانات عند استبدال صور مخزنة داخلها بصور اضغر.

اسئلة متعلقة

0 تصويتات
2 إجابة
سُئل أبريل 25، 2019 في تصنيف vcl بواسطة Yamada Fakir (1,810 نقاط) | 163 مشاهدات
+2 تصويتات
1 إجابة
سُئل أكتوبر 16، 2019 في تصنيف vcl بواسطة Amar Gozim (11,240 نقاط) | 223 مشاهدات
+4 تصويتات
2 إجابة
0 تصويتات
1 إجابة
سُئل مايو 25، 2019 في تصنيف SQL Server بواسطة bravesofts (21,520 نقاط) | 109 مشاهدات
+5 تصويتات
2 إجابة
سُئل أغسطس 19، 2018 في تصنيف SQL Server بواسطة Yamada Fakir (1,810 نقاط) | 301 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

497 سؤال
752 إجابة
1,417 تعليق
278 مستخدم