EasyDelphi Q&A

.تم الانتقال للموقع الجديد . وسيبقى الموقع القديم هذا متاح للقراءة فقط حتى الانتهاء من نقل كل الاسئلة إلى الموقع الجديد

يمكنك طرح الاسئلة والنقاشات في الموقع الجديد. الذهاب للموقع الجديد


+3 تصويتات
340 مشاهدات

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

form1.ABSTable1.edit;

if openpicturedialog1.Execute then

dbimage2.Picture.LoadFromFile(openpicturedialog1.FileName);

form1.ABSTable1.post;

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

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

اسئلة متعلقة

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

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

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

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