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

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

form1.ABSTable1.edit;

if openpicturedialog1.Execute then

dbimage2.Picture.LoadFromFile(openpicturedialog1.FileName);

form1.ABSTable1.post;

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

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" و قم فقط بالطباعة .... غير ذلك ....!!!!! فقم بطرحها كسؤال محايد و شكرا
تم الرد عليه بواسطة (18,190 نقاط)
عُدل بواسطة
الاجابة رقم 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,000 نقاط)
بارك الله فيك أستاذ
الحمد لله هذا الكود شغال 100/100 طبقته وكل شيء ماشي تمام
جعله الله في ميزان حسناتك وشكرا للمرة المليون
اذا كانت الاجابة مناسبة . لا تنسى تحديدها كافضل اجابة . ( اشارة صح بجانب الاجابة )
لماذا لا يضغر حجم قاعدة البيانات عند استبدال صور مخزنة داخلها بصور اضغر.

اسئلة متعلقة

0 تصويتات
2 إجابة
+4 تصويتات
2 إجابة
0 تصويتات
1 إجابة
سُئل مايو 25 في تصنيف SQL Server بواسطة bravesofts (18,190 نقاط) | 26 مشاهدات
+5 تصويتات
2 إجابة
سُئل أغسطس 19، 2018 في تصنيف SQL Server بواسطة Yamada Fakir (1,690 نقاط) | 114 مشاهدات
+4 تصويتات
1 إجابة
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

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

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

408 سؤال
642 إجابة
1,150 تعليق
242 مستخدم