By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,825 Members | 1,269 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,825 IT Pros & Developers. It's quick & easy.

GDI+ Resizing image problem

P: n/a
Problem resizing image.(JPG)

If i try to resize an img with horisontal=150 and vertical resolution=150
The quality of the target image is dramatically reduced. Source code is
provided below.

How can i solve this? What am i doing wrong?

Thanx in advance
-James A Taber

Public Sub ResizeImage(ByVal sSourcePath As String, ByVal sTargetPath As
String)
Dim fs As FileStream
Dim gImageIn As Image
Dim gImageInFormat As Object

Try
fs = New FileStream(sSourcePath, FileMode.Open, FileAccess.Read)
gImageIn = Image.FromStream(fs)

gImageInFormat = gImageIn.RawFormat
Dim gImageOut As New System.Drawing.Bitmap(gImageIn, 350, 262)

gImageOut.Save(sTargetPath, gImageInFormat)

Catch
Throw
Finally
fs.Close()
gImageIn.Dispose()
End Try

End Sub
Nov 17 '05 #1
Share this Question
Share on Google+
4 Replies


P: n/a
PJ
ahh...I have a method at work to create quality thumbnails, but I am at
home...

here is a discussion to help you get started...it's where i did...
http://www.dotnet247.com/247referenc...25/128742.aspx

"James A Taber" <ic*******@hotmail.com> wrote in message
news:eB**************@tk2msftngp13.phx.gbl...
Problem resizing image.(JPG)

If i try to resize an img with horisontal=150 and vertical resolution=150
The quality of the target image is dramatically reduced. Source code is
provided below.

How can i solve this? What am i doing wrong?

Thanx in advance
-James A Taber

Public Sub ResizeImage(ByVal sSourcePath As String, ByVal sTargetPath As
String)
Dim fs As FileStream
Dim gImageIn As Image
Dim gImageInFormat As Object

Try
fs = New FileStream(sSourcePath, FileMode.Open, FileAccess.Read) gImageIn = Image.FromStream(fs)

gImageInFormat = gImageIn.RawFormat
Dim gImageOut As New System.Drawing.Bitmap(gImageIn, 350, 262)

gImageOut.Save(sTargetPath, gImageInFormat)

Catch
Throw
Finally
fs.Close()
gImageIn.Dispose()
End Try

End Sub

Nov 17 '05 #2

P: n/a
Hi,

use :
oGrapic.InterpolationMode =
System.Drawing.Drawing2D.InterpolationMode.HighQua lityBilinear
oGrapic.DrawImage(oBmp, New Rectangle(0, 0, oTxtBmp.Width,
oTxtBmp.Height), _
0, _
0, _
oBmp.Width, _
oBmp.Height, _
GraphicsUnit.Pixel)

you can also refer to this sample[1] that create dynamic buttons by the
button text length.

[1] http://www.developersdex.com/gurus/code/599.asp

Natty Gur, CTO
Dao2Com Ltd.
28th Baruch Hirsch st. Bnei-Brak
Israel , 51114

Phone Numbers:
Office: +972-(0)3-5786668
Fax: +972-(0)3-5703475
Mobile: +972-(0)58-888377

Know the overall picture
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
Nov 17 '05 #3

P: n/a
I have tried to figue it out ... But have until now not been able to do
that. Could you provide me some sample code?

I would be greatful for any help.

Thanx

James A Taber

"PJ" <pj*********@hotmail.com> wrote in message
news:O3**************@TK2MSFTNGP10.phx.gbl...
ahh...I have a method at work to create quality thumbnails, but I am at
home...

here is a discussion to help you get started...it's where i did...
http://www.dotnet247.com/247referenc...25/128742.aspx

"James A Taber" <ic*******@hotmail.com> wrote in message
news:eB**************@tk2msftngp13.phx.gbl...
Problem resizing image.(JPG)

If i try to resize an img with horisontal=150 and vertical resolution=150 The quality of the target image is dramatically reduced. Source code is
provided below.

How can i solve this? What am i doing wrong?

Thanx in advance
-James A Taber

Public Sub ResizeImage(ByVal sSourcePath As String, ByVal sTargetPath As
String)
Dim fs As FileStream
Dim gImageIn As Image
Dim gImageInFormat As Object

Try
fs = New FileStream(sSourcePath, FileMode.Open,

FileAccess.Read)
gImageIn = Image.FromStream(fs)

gImageInFormat = gImageIn.RawFormat
Dim gImageOut As New System.Drawing.Bitmap(gImageIn, 350, 262)
gImageOut.Save(sTargetPath, gImageInFormat)

Catch
Throw
Finally
fs.Close()
gImageIn.Dispose()
End Try

End Sub


Nov 17 '05 #4

P: n/a
Tank you, This is absolutely perfect!
Thanks for all you help and time.

:-)
James A Taber

"PJ" <pj***@hotmail.com> wrote in message
news:e9**************@TK2MSFTNGP10.phx.gbl...
here's a method i use...sorry it's VB...i'm forced to code in this god awful syntax right now...

Private Shared Function ScaleFile(ByVal img As Image, ByVal newSize As Size) As Byte()

Dim newImg As Image = New Bitmap(newSize.Width, newSize.Height,
img.PixelFormat)
Dim graphic As Graphics = Graphics.FromImage(newImg)
graphic.CompositingQuality() =
Drawing.Drawing2D.CompositingQuality.HighQuality
graphic.SmoothingMode = Drawing.Drawing2D.SmoothingMode.HighQuality
graphic.InterpolationMode =
Drawing.Drawing2D.InterpolationMode.HighQualityBic ubic
Dim rect As New Rectangle(0, 0, newSize.Width, newSize.Height)
graphic.DrawImage(img, rect)
Dim ms As New MemoryStream()
newImg.Save(ms, img.RawFormat)
Dim bytes As Byte() = ms.ToArray()
ms.Close()
Return bytes

End Function

"James A Taber" <ic*******@hotmail.com> wrote in message
news:uE**************@TK2MSFTNGP11.phx.gbl...
I have tried to figue it out ... But have until now not been able to do
that. Could you provide me some sample code?

I would be greatful for any help.

Thanx

James A Taber

"PJ" <pj*********@hotmail.com> wrote in message
news:O3**************@TK2MSFTNGP10.phx.gbl...
ahh...I have a method at work to create quality thumbnails, but I am at home...

here is a discussion to help you get started...it's where i did...
http://www.dotnet247.com/247referenc...25/128742.aspx

"James A Taber" <ic*******@hotmail.com> wrote in message
news:eB**************@tk2msftngp13.phx.gbl...
> Problem resizing image.(JPG)
>
> If i try to resize an img with horisontal=150 and vertical resolution=150
> The quality of the target image is dramatically reduced. Source code is > provided below.
>
> How can i solve this? What am i doing wrong?
>
> Thanx in advance
> -James A Taber
>
> Public Sub ResizeImage(ByVal sSourcePath As String, ByVal
sTargetPath As > String)
> Dim fs As FileStream
> Dim gImageIn As Image
> Dim gImageInFormat As Object
>
> Try
> fs = New FileStream(sSourcePath, FileMode.Open,
FileAccess.Read)
> gImageIn = Image.FromStream(fs)
>
> gImageInFormat = gImageIn.RawFormat
> Dim gImageOut As New System.Drawing.Bitmap(gImageIn,
350, 262)
>
> gImageOut.Save(sTargetPath, gImageInFormat)
>
> Catch
> Throw
> Finally
> fs.Close()
> gImageIn.Dispose()
> End Try
>
> End Sub
>
>



Nov 17 '05 #5

This discussion thread is closed

Replies have been disabled for this discussion.