كيف يمكن حفظ صورة داخل ملف واستدعاه

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

الاخ الكريم اعمل حقل نصى بمساحة كافية واحفظ فيه مسار الصورة واستخدم امر loadpicture(rs!اسم الحقل

مثال لتحميل الصورة فى ايمج

عندك image1 على الفورم

image1.picture = loadpicture(rs.fields("FieldName"(

لتحميل ملف الصورة ومعرفة المسار

ضع common dialogu control على الفورم وسمه وليكن cdb1

cdb1.ShowOpen

image1..Picture = LoadPicture(cdb1.FileName)

لحفظ الصورة

rs.fileds("FieldName") = cdb1.filename

ولك تحياتى

نسيت ان اخبرك انه عندما تقوم بتحميل ملف الصورة عن طريق استدعاء cdb1.showopen فان المسار الجديد للبيانات يصبح هو المسار الذى اختاره المشغل والذى فيه ملف الصورة وليس مسار تحميل البرنامج ولتفادي ذلك والرجوع الى مسار البرنامج :

اعلن عن متغير فى الفورم فى القسم العام

dim OldPath as string

ثم فى حدث From_load

OldPath = app.path

ثم بعد سطر

image1.picture = loadpicture(cdb1.filename)

اكتب

If CurDir <> OldPath Then ChDir (OldPath)

ولك تحياتى

شكرا اخوي محمد

ولكن هل يجب ان تكون الصورة المختارة من قبل المستخدم موجودة في الكومبيوتر بعد الحفظ في الملف او تصبح موجودة في الملف في الحقل الذي ذكرت بمعنى احر

لو مسحت الصورة بعد الحفظ هل بامكاني استعيدها من الملف او الحقل الحامل للبيانات فقط هو لحفظ المسار الخاص بالصورة بمعنى يجب وجدود الصورة في احد المجلدات لاستدعائها

وايش افضل نوعية ملف صورة استخدمة وكم الحجم الممكن استخدامة

بدون التاثير على سرعة استخدام البيانات

اكرر لك شكري مقدما

والله من وراء القصد

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

بالطريقة المذكورة عالية فاننا نحتفظ فقط بمسار الصورة اى ان الحقل به فقط مسار الصورة وليست الصورة وهى فى اعتقادى اسرع طريقة حيث ان الصورة ليس بالملف وانما مسار الصورة فقط, وبالتالى يجب ان تكون الصورة فى المكان الذى تم الاحتفاظ بمساره واذا تم مسح ملف الصورة من هذا المسار فلن تكون الصورة موجودة وسوف تحصل على خطأ عند تحميل الصورة, يمكنك عند تحميل الصورة التأكد اولا من انها موجودة باستعمال وظيفة file

image1.picture = iif(file(rs.fields("FieldName")),loadpicture(rs.fields("fieldName")),"")

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

بالنسبة لحجم الصورة قم عند التصميم بعمل true للخاصية strerch حتى يصبح حجم الصورة هو الحجم الذى تحدده.

بالنسبة للملفات حسب اعتقادى هى الملفات بامتداد bmp,gig,jpg

هناك طريقة اخرى لحفظ الصور فى حقول ملفات اكسس وهى عمل حقل من نوع OLE وفى هذة الحالة يتم الاحتفاظ بالصورة نفسها داخل الجدول واستخدام getchunk() حيث ان هذة الوظيفة تسمح بتحميل binary data من الحقل

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