mojtaba-saleh
چهارشنبه 29 اسفند 1386, 21:22 عصر
سلام
من با این کد یک متن رو روی یک عکس می نویسم.
بعد از نوشته شدن متن, کیفیت عکس خیلی کم می شه.
آیا راهی برای جلوگیری از این اتفاق هست؟
من به عکس با کیفیت بالا نیاز دارم
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Dim bitMapImage As Bitmap = New System.Drawing.Bitmap(Server.MapPath("Image.jpg"))
Dim graphicImage As Graphics = Graphics.FromImage(bitMapImage)
graphicImage.SmoothingMode = SmoothingMode.HighQuality
graphicImage.DrawString("Mante Payam", New Font("Tahoma", 10, FontStyle.Italic), SystemBrushes.ActiveCaptionText, New Point(100, 150))
'graphicImage.DrawEllipse(New Pen(Color.Red, 3), 10, 20, 150, 90)
Response.ContentType = "image/jpeg"
'Save the new image to the response output stream.
bitMapImage.Save(Response.OutputStream, ImageFormat.Jpeg)
graphicImage.Dispose()
bitMapImage.Dispose()
من با این کد یک متن رو روی یک عکس می نویسم.
بعد از نوشته شدن متن, کیفیت عکس خیلی کم می شه.
آیا راهی برای جلوگیری از این اتفاق هست؟
من به عکس با کیفیت بالا نیاز دارم
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Drawing.Drawing2D
Imports System.Drawing.Text
Dim bitMapImage As Bitmap = New System.Drawing.Bitmap(Server.MapPath("Image.jpg"))
Dim graphicImage As Graphics = Graphics.FromImage(bitMapImage)
graphicImage.SmoothingMode = SmoothingMode.HighQuality
graphicImage.DrawString("Mante Payam", New Font("Tahoma", 10, FontStyle.Italic), SystemBrushes.ActiveCaptionText, New Point(100, 150))
'graphicImage.DrawEllipse(New Pen(Color.Red, 3), 10, 20, 150, 90)
Response.ContentType = "image/jpeg"
'Save the new image to the response output stream.
bitMapImage.Save(Response.OutputStream, ImageFormat.Jpeg)
graphicImage.Dispose()
bitMapImage.Dispose()