מכיוון שאכלתי הרבה קש עם זה קבל קוד שעובד אבל שומר ב JPEG . . .
ה OPACITY הוא טריקי פה אז אם אתה לא צריך אותו אפשר לחסוך
מתנצל על הבלאגן, זה כי קיבצתי לך את הקטעים הרלונטיים מתוך משהו גדול יותר . . .
Dim imag As Image = Image.FromStream(New MemoryStream(File.ReadAllBytes("c:\Original.tiff")))
Dim strm As New MemoryStream()
imag.Save(strm, ImageFormat.Jpeg)
Dim watermark As Image = Image.FromFile("c:\watremark.png")
Dim final As Image = Image.FromStream(strm)
Dim g As Graphics = Graphics.FromImage(final)
Dim mtx As New ColorMatrix()
mtx.Matrix33 = 0.9
Dim attributes As New ImageAttributes()
attributes.SetColorMatrix(mtx, ColorMatrixFlag.Default, ColorAdjustType.Bitmap)
g.DrawImage(watermark, New Rectangle(0, 0, watermark.Width, watermark.Height), 0, 0, watermark.Width, watermark.Height, GraphicsUnit.Pixel, attributes)
g.Save()
final.Save("C:\OriginalWatremarked.jpeg", ImageFormat.Jpeg)
g.Dispose()
פורסם במקור בפורום CODE613 ב28/07/2014 00:25 (+03:00)