كم كردن حجم عكس

با سلام
كسي ميدونه چه جوري ميشه حجم عكس و آورد پايين؟

به نظرم تنها راهش عوض کردن فورمت تصویره

فكر نميكنم.بايد راه بهتريم باشه.

باید از الگریتم های پردازش تصویر استفاده کنید ،

دنبال الگریتم کاهش حجم تصویر بگردین .

سلام . با این کد میتونی اندازه عکس رو تغییر بدی که بواسطه اون سایز عکس هم تغییر میکنه ....

Dim TNImage As System.Drawing.Image

        TNImage = Drawing.Image.FromFile("f:\1.jpg")

        Dim ss As New System.Drawing.Size



        Dim objimage As New Bitmap(TNImage, 800, 400)

        objimage.Save("f:\2.jpg")

ولی کدی ننوشتم که سایز تصویر رو تغییر بده . امیدوارم به کارت بیاد .
موفق باشید

تا عکسش چی باشه . در حالت عادی DCT.
در شرایط خاص بایستی دید تا عکس چی باشه

حجم عکس :متفکر:

اگه میخوای سایز عکس تغییری نکنه باید الگوریتم ذخیره کردن عکس رو عوض کنی ، الگوریتم عوض بشه یعنی فرمت عکس عوض بشه (هر فرمت عکسی یه الگوریتم برای خودش داره که طبق اون حجم و کیفیت عکس بسته به اون بالا یا پایین ذخیره میشه)

روی سایتهای خارجی گشتم و بلاخره این سمپل رو نوشتم :چشمک:، به شکل قابل توجهی حجم رو میتونه پایین بیاره ولی کیفیت عکس هم کم میشه.

من برنامه رو تست کردم تصویرش رو اینجا گذاشتم ، فایل اصلیه من BMP بود ، همونطور که میبینید Jpeg از همه بهتر بوده ، در عین حال کیفیت از دید انسان خیلی کم نمیشه.

http://upload.iranblog.com/7/1272204737.png

همراه برنامه یه عکس هم گذاشتم که نتایج بالا حاصل تست روی اون عکس بود.

لینک دانلود

موفق باشید.

تصاویر jpeg قابل تنظیم هستند.
اینجا رو ببین:

http://open-source.blogfa.com/post-38.aspx

همیشه اینطوری نیست قربان .دوباره می گم در بعضی از تصاویر gif جواب بهتری میده بستگی به نوع تصویر داره.

من نرم افزار Picture.Reduce.Pro.v2.1-TE رو دانلود کردم که بدون اینکه کیفیت تصویر پایین بیاد تا جایی که بتونه رزولیشنشو کم کنه که قاعدتا حجم عکس هم کم میشه ولی کار نکرد
باید نرم افزار جالبی باشه

نقل قول:

---

نوشته شده توسط sahele_sheni

سلام . با این کد میتونی اندازه عکس رو تغییر بدی که بواسطه اون سایز عکس هم تغییر میکنه ....

Dim TNImage As System.Drawing.Image

        TNImage = Drawing.Image.FromFile("f:\1.jpg")

        Dim ss As New System.Drawing.Size

 

        Dim objimage As New Bitmap(TNImage, 800, 400)

        objimage.Save("f:\2.jpg")

ولی کدی ننوشتم که سایز تصویر رو تغییر بده . امیدوارم به کارت بیاد .
موفق باشید

---

من از كد شما استفاده كردم ولي مشكلي كه دارد اين است كه عكس را بر روي عكس ذخيره نمي كند.
مثلا من مي خواهم عكسي كه با آدرس "f:\1.jpg" فراخواني كردم با همان نام ذخيره كنم نه اين كه يك نام جديد مثلا "f:\2.jpg" بدهم.
خطا هم اين است:

a generic error ocuured in GDI+.

ممنون ميشم راهنمايي كنيد.

سلام
میتونی از برنامه pixresizer استفاده کنی با هر نوع ÷سوند و هر سایز دلخواه

مي خواهم خودم برنامه بنويسم.نمي خواهم از چيزهاي آماده استفاده كنم.

Imports System.IO

Try

            Dim TNImage As System.Drawing.Image

            TNImage = Drawing.Image.FromFile("i:\1.jpg")

            Dim objimage As New Bitmap(TNImage, 800, 400)

            TNImage.Dispose()

            File.Delete("i:\1.jpg")

            objimage.Save("i:\1.jpg")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

موفق باشید