سمعت ان Ocx يقوم بضغط الصورة ولكن ....

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

لقد أثلج صدري عندما رأيت 11 رد على الموضوع ، وقلت يا سلااااااااام :lol: ... سأدعو لأحد عشر شخصا بالجنة ولكن أصعقت عندما رأيت هذة المناقشات العقيمة .

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

اما بالنسبة للسورس كود فالبرنامج لم يزل تحت الانشاء والتجربة ولم يكتمل بعد .

تحياتي

أستخدم FreeImage Library : وهى مفتوحة المصدر http://freeimage.sourceforge.net

طلال حامد كتب:

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

لقد أثلج صدري عندما رأيت 11 رد على الموضوع ، وقلت يا سلااااااااام :lol: ... سأدعو لأحد عشر شخصا بالجنة ولكن أصعقت عندما رأيت هذة المناقشات العقيمة .

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

اما بالنسبة للسورس كود فالبرنامج لم يزل تحت الانشاء والتجربة ولم يكتمل بعد .

تحياتي

للمعلومية فقط: سبب الردود السلبية هي إدراجك لعبارة "زكاة العلم نشــره" بشكل كبير. العديد من الأعضاء يتضايقون من هذا الأسلوب لأنه يمكن تفسيره على أنه إرغام على المساعدة و إعطاء طلب المساعدة صبغة دينية. مع تحياتي :)

لم اسمع من قبل عن هذه الاو سى اكس

ولم اعتقد فى وجودها يوما فطريقة تخزين الصور على الكمبيوتر تعتمد على تنسيق الملف وأقل مساحة يمكن ان تكون بأعلى درجة نقاء للصورة مع أقل مساحة ممكنة هى تنسيقات الـ (JPG) وكلما قمت بتقليل جودة الصورة كلما قلت مساحتها وكلما قللت من مساحة الصورة ــ طولها وعرضهاــ كلما قلت مساحتها أما ما تتكلم عنه فقد يكون برنامج صغيير يقوم بتغير نسب الطول والعرض وبالتالى تقلل من حجمها

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

اما بخصوص تغيير مساحة الصورة أى طولها وعرضها دون تغيير جودتها والذى يقلل من مساحتها التخزينية فهو بسيط جدا ويمكنك كتابتة بنفسك أو نسخه إلى برنامجك مباشرة واستخدامه بعد فهم اكواده التى هى فى غاية البساطة واعتقد انها لا تحتاج لشرح والكود كالتالى :

		Dim SoSo As System.Drawing.Image
		Try
			SoSo = Image.FromFile("C:\001.bmp")
			Dim bm As New Bitmap(SoSo)
			'قم مربع الصورة اى حاصل ضرب الطول فى العرض وقمت بالضرب فيه حتى تكون الصورة بحجم ورقة ااايه فور ويمكنك تغييره كما ترغب
			Dim x As Int32 = (bm.Width / (bm.Width + bm.Height)) * (1700) 'variable for new width size
			Dim y As Int32 = (bm.Height / (bm.Width + bm.Height)) * (1700) 'variable for new height size
			Dim width As Integer = Val(x) 'image width. 
			Dim height As Integer = Val(y) 'image height
			Dim thumb As New Bitmap(width, height)
			Dim g As Graphics = Graphics.FromImage(thumb)
			g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
			g.DrawImage(bm, New Rectangle(0, 0, width, height), New Rectangle(0, 0, bm.Width, _
	bm.Height), GraphicsUnit.Pixel)
			g.Dispose()
			thumb.Save("C:\001.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
			bm.Dispose()
			thumb.Dispose()
		Catch ex As Exception
			LMsg.Text = ex.Message
		End Try

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

اخي العزيز : System Down كلامك صحيح .. وأنا أكره هذا الاسلوب أيضا ولكن لانني في موقف محرج جدا ( آسف للغاية الشديدة :blush: )

اخي العزيز Ghader مشكور على الكود الرائع وأنا حاليا أستخدم نفس الطريقة ولكن بصيغة أخرى ، ولكن أنا كنت أسأل عن ظغط الصورة ولكن إنسى الأمر ...

بكل صراحة لقد إنتهيت من عمل نموذج به حفظ الصورة في قاعده البيانات مع تقليل حجمها وامكانية البحث واستخراج البيانات مرة اخرى وإمكانية جلب الصورة من الاسكنر الى إداة الـ Picturebox من غير تدخل من المستخدم وإمكانية طباعه الصورة .

هذا المثال مستخدم مع قاعده بيانات أكسس 2003 ، والمثال مضبوط 100% ويعمل بالشكل السليم ( مع ملاحظت انني لم أقوم بإصطياد الاخطاء حتى الآن .. لأنني اريد أن أيقن ان المثال يعمل بالشكل السليم أولا )

الجداول المستخدمة بقاعدة البيانات هي :

t1 وهو يقوم بحفظ رقم الموظف واسمة

t2 وهو يقوم بحفظ صورة الموظف ورقمة

العلاقة بين الجدولين هي (One to One )

قمت بفصل الصورة من جدول t1 الاول ووضعها بجدول t2 لكي لا يحدث بطي بعمليات البحث .

المشكلة هنا ... انني لا اريد إستخدام المثال بالاكسس بل اريده إستخدامة مع SQL SERVER 2000 ..

لقد قمت بتصميم قاعده بيانات بال SQL SERVER 2000 لكن كانت النتيجة كالآتي :

يقوم بحفظ البيانات بجدول t1 ولا يحفظ الصورة بجدول t2

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

ادخلت ثلاث موظفين بقاعدة البيانات وارقامهم كالتالي يمكنك البحث ورؤية النتيجة

الموظف الأول رقمه (1)

الموظف الثاني رقمة (2)

الموظف الثالث رقمة (3)

تحياتي

testpicture.rar

الامر

SaveDatabase(Application.StartupPath & "\photo\" & TextBox1.Text & ".jpg")

ده مينفعش مع الاس كيو ال لان الاس كيو ال هى داتا بيز معرفة للويندوز لا يتم التعامل معها عن طريق الباس

استخدم امر (insert) عادى جداً ذى امر حفظ البيانات النصية والرقمية وبدلاً من اخذ الداتا من تكست قم باخد الصورة من البكتشر بوكس

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

الاول علشان قاعدة البيانات متتقلش معاك فى الاستعلامات

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

والله الموفق

هلا اخوي

تصدق سويت اللي قلت عليه من الاول لكن يعطيني خطأ .. مو راضي يقبل صيغة البكتشر بوكس في جملة الانسيرت

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

تحياتى لك وللجميع