السلام عليكم ورحمة الله وبركاته
اذا كان عندي صورة في عنصر تحكم picture واردت ان احفظ الصورة الى ملف بصيغة jpg ( او اي امتداد اخر بس الاهم عندي jpg)
هل يوجد كود لعمل ذلك
ملاحظة
ما ابغى احد يقولي احفظها باسم مثلا a.jpg طبعا لازم تكون مضغوطة يعني ما ابغى اغير الامتداد بدون ضغط
وما من كاتب إلا سيفنى *** ويبقى الدهر ماكتبت يــداه
فلا تكتب بكفك غير شيء *** يسرك في القيامة ان تراه
لا تنسى تشجيعي بالنقر على
اذا كانت مشاركتي مفيدة جرب هذا الكود ان كان هذا طلبك
If Not ImgPicture.Picture = 0 Then
If Not Trim(OpenFile) = "" Then
Open OpenFile For Binary As 1
Sor = String(LOF(1), vbNullChar)
Get 1, , Sor
'
![fldpicture] = Sor
Close 1
End If
Else
![fldpicture] = Sor = Null
End If
'
.Update
'
MsgBox "تم الحفظ بنجاح", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "حفظ"
'
End With
شكر يا اخي
إن شاء الله راح اجربه بس هل انت متاكد انه هذا الكود الي ابغاه
يعني هل يقوم بضغط الصورة وتحويلها الى jpg
وما من كاتب إلا سيفنى *** ويبقى الدهر ماكتبت يــداه
فلا تكتب بكفك غير شيء *** يسرك في القيامة ان تراه
لا تنسى تشجيعي بالنقر على
اذا كانت مشاركتي مفيدة اخوي الكود ناقص
وثاني شي هذا الكود يقرا ملف صورة وبعدها يضيفه لحقل في قاعدة البيانات ومافيه ضغط ولا شي
هذا على حسب ما فهمته
بس انا الي ابغاه هو :
ابغى كود يحول ملف صورة من bmp الى jpg
أو صورة موجودة في عنصر التحكم picture احفظها الى ملف بصيغة jpg
وما من كاتب إلا سيفنى *** ويبقى الدهر ماكتبت يــداه
فلا تكتب بكفك غير شيء *** يسرك في القيامة ان تراه
لا تنسى تشجيعي بالنقر على
اذا كانت مشاركتي مفيدة ممكن تستعمل مكتبة جاهزه لفعل ذلك
أنصحك بمكتبة Intel ijl11.dll
يمكنك الأطلاع على هذا الموضوع
تم تعديل هذه المشاركة بواسطة net_code في 9 مارس 2006 في 19:40
لا تراجع و لا إستسلام
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…