كيف احول BMP الى JPG
ارجو المساعدة
كيف احول BMP الى JPG
ارجو المساعدة
السلام عليكم و رحمة الله
هناك طريقتان لتتمكن من ذلك
الطريقة الصعبة وتتمثل في كتابة كوداك وهذا يستلزم معرفة تامة بنسق الـ Jpeg تستطيع الاطلاع على هذا النسق من خلال هذا الرابط
http://www.wotsit.org/search.asp?page=5&s=graphics
الطريقة السهلة و تتمثل في الاستعانة بمكتبة جاهزة توفر عليك الكثير من الجهد و هذا رابط نحو مشروعين بالفجوال بيسك الأول يعتمد على مكتبة Gdi+ لمايكروسوفت و الثاني يعتمد على مكتبة لـ Intel
http://www.vbaccelerator.com/home/VB..._JPG/index.asp
التعديل الأخير تم بواسطة أبو هاجر الحلوة ; 20-01-2007 الساعة 01:05 AM
ياأخي الكريم لقد قمت بتصميم برنامج يحول من BMP إلى JPG بدقة عالية وضغط عالي وهو موجود ببرامج الأعضاء
اولا يا اخي لن تحتاج الا لهذا الكود البسيط
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 عندما تغير لاحقتها بهذه الطريقة يظل الحجم نفسه
مشكورييييييين يا اخوان و متأسف على الرد البطيء جدا
السلام عليكم