Rank: Member
Groups: Member
Joined: 5/21/2006(UTC)
Posts: 6
|
i have tried the overlay method and found that file size is reduced (compressed) in the output file. Code:Dim oSource As GraphicsMill.Bitmap
Set oSource = New GraphicsMill.Bitmap
Dim oWatermark1 As GraphicsMill.Bitmap
Set oWatermark1 = New GraphicsMill.Bitmap
Dim oWatermark2 As GraphicsMill.Bitmap
Set oWatermark2 = New GraphicsMill.Bitmap
oSource.LoadFromFile "c:\source.jpg"
oWatermark1.LoadFromFile "c:\scfWatermark.png"
oWatermark2.LoadFromFile "c:\Copyright.png"
oWatermark1.DrawOnBitmap oSource, 300, 10, , , , , , , CombineModeAlphaOverlapped, 150
oWatermark2.DrawOnBitmap oSource, 350, 220, , , , , , , CombineModeAlphaOverlapped, 150
oSource.SaveToFile "c:\output.jpg"
I have also attached the images i have used in the above code, could you please explain why it has compressed the output image or did i missed anything? Edited by user Wednesday, December 19, 2007 4:38:25 PM(UTC)
| Reason: Not specified kaarthic attached the following image(s):
|
|
|
|
|
|
Rank: Advanced Member
Groups: Member, Administration
Joined: 8/2/2003(UTC)
Posts: 876
Thanks: 2 times
Was thanked: 27 time(s) in 27 post(s)
|
Image is compressed because you save it to JPEG. JPEG uses lossy image compression algorithm which always reduces file size with quality degradation. This is a reason why it is not recommended to use JPEG as a intermediate file format. You can manipulate with a compression ratio using the JpegQuality property which can be a number from 0 (worse quality) through 100 (highest quality). Edited by user Tuesday, December 15, 2009 10:37:24 AM(UTC)
| Reason: Not specified
|
|
|
|
|
|
Rank: Member
Groups: Member
Joined: 5/21/2006(UTC)
Posts: 6
|
Hi
Thanks for your reply,
Even if i set the JPEQ quality is pixelated the Image. I have set the JPEQ quality to 100
thanks
Kaarthic
|
|
|
|
|
|
Rank: Advanced Member
Groups: Member, Administration
Joined: 8/2/2003(UTC)
Posts: 876
Thanks: 2 times
Was thanked: 27 time(s) in 27 post(s)
|
Kaarthic, I used the following code (see highlighted with bold): Code:Dim oSource As GraphicsMill.Bitmap
Set oSource = New GraphicsMill.Bitmap
Dim oWatermark1 As GraphicsMill.Bitmap
Set oWatermark1 = New GraphicsMill.Bitmap
Dim oWatermark2 As GraphicsMill.Bitmap
Set oWatermark2 = New GraphicsMill.Bitmap
oSource.LoadFromFile "c:\source.jpg"
oWatermark1.LoadFromFile "c:\scfWatermark.png"
oWatermark2.LoadFromFile "c:\Copyright.png"
oWatermark1.DrawOnBitmap oSource, 300, 10, , , , , , , CombineModeAlphaOverlapped, 150
oWatermark2.DrawOnBitmap oSource, 350, 220, , , , , , , CombineModeAlphaOverlapped, 150
oSource.FormatAutoSelect = False
oSource.Formats.SelectCurrent "JPEG"
oSource.Formats.JpegQuality = 100
oSource.SaveToFile "c:\output.jpg"
Output image is 112 KB and JPEG artifacts are not visible. Edited by user Wednesday, December 19, 2007 4:39:13 PM(UTC)
| Reason: Not specified
|
|
|
|
|
|
Forum Jump
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.