Visual Basic Help كيف احول BMP الى JPG

[abed_11]

كيف احول BMP الى JPG

ارجو المساعدة

[أبو هاجر الحلوة]

السلام عليكم و رحمة الله
هناك طريقتان لتتمكن من ذلك

الطريقة الصعبة وتتمثل في كتابة كوداك وهذا يستلزم معرفة تامة بنسق الـ Jpeg تستطيع الاطلاع على هذا النسق من خلال هذا الرابط
http://www.wotsit.org/search.asp?page=5&s=graphics

الطريقة السهلة و تتمثل في الاستعانة بمكتبة جاهزة توفر عليك الكثير من الجهد و هذا رابط نحو مشروعين بالفجوال بيسك الأول يعتمد على مكتبة Gdi+ لمايكروسوفت و الثاني يعتمد على مكتبة لـ Intel
http://www.vbaccelerator.com/home/VB..._JPG/index.asp

[مهاب مكارم]

ياأخي الكريم لقد قمت بتصميم برنامج يحول من BMP إلى JPG بدقة عالية وضغط عالي وهو موجود ببرامج الأعضاء

[shatnawi]

اولا يا اخي لن تحتاج الا لهذا الكود البسيط

1-تحتاج لوضع اداة Image و اداة Command
2- اختر اي صورة من جهازك وضعها في Image من نوع bmp
3-اكتب الكود التالي في Command
Private Sub Command1_Click()
SavePicture Image1.Picure,"c:\1.jpg"
End Sub

[أبو هاجر الحلوة]

اولا يا اخي لن تحتاج الا لهذا الكود البسيط

1-تحتاج لوضع اداة Image و اداة Command
2- اختر اي صورة من جهازك وضعها في Image من نوع bmp
3-اكتب الكود التالي في Command
Private Sub Command1_Click()
SavePicture Image1.Picure,"c:\1.jpg"
End Sub

الأمر ليس بهذه البساطة في البيسك الكود يقوم بتغيير إمتداد الملف من bmp إلى jpg فقط أما النسق فيبقى كما هو بدون تغيير أي Bitmap و حتى لو قمت بتحميل الصورة بنسق Jpeg فإن البيسك يقوم بتحويلها إلى Bitmap و لا يمكنك حفظها بنسقها الأصلي دون اللجوء إلى إستعمال مكتبات خارجية أو كتابة الكوداك الذي يقوم بالحسابات الضرورية لضغط الملف بنسق Jpeg

ما ذكرته ممكن مع الـدوت نت مع إضافة صغيرة هذا لأن الدوت نت يستعمل مكتبة الـ Gdi+ التي تقوم بالعمل المطلوب في مكان المبرمج بصورة شفافة تماما

[مهاب مكارم]

أخي الكريم أنصحك ببرنامجي كما قلت لك سابقا وأنت حر الخيار

[مهاب مكارم]

وأنا مع الأخ أبو هاجر الحلوة في ذلك وسأضيف إلى ماقاله بأن استخدام هذه الطريقة يؤدي فقط لتغغير باللاحقة ولايضغط الملف الجديد يعني عندانا صورة bmp حجمها 2.1 MB عندما تغير لاحقتها بهذه الطريقة يظل الحجم نفسه

[abed_11]

مشكورييييييين يا اخوان و متأسف على الرد البطيء جدا
السلام عليكم