GDI+ Resizing image problem

[James A Taber]

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

[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...
[url]http://www.dotnet247.com/247reference/msgs/25/128742.aspx[/url]

"James A Taber" <icecool_6@hotmail.com> wrote in message
news:eB7LHhuODHA.4024@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
>
>

[Natty Gur]

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] [url]http://www.developersdex.com/gurus/code/599.asp[/url]

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 [url]http://www.developersdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!

[James A Taber]

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" <pjwalNOSPAM@hotmail.com> wrote in message
news:O3234muODHA.1072@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...
> [url]http://www.dotnet247.com/247reference/msgs/25/128742.aspx[/url]
>
> "James A Taber" <icecool_6@hotmail.com> wrote in message
> news:eB7LHhuODHA.4024@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
> >
> >

>
>

[James A Taber]

Tank you, This is absolutely perfect!
Thanks for all you help and time.

:-)
James A Taber

"PJ" <pjwal@hotmail.com> wrote in message
news:e9nHaF3ODHA.2460@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" <icecool_6@hotmail.com> wrote in message
> news:uEMVn1wODHA.1608@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" <pjwalNOSPAM@hotmail.com> wrote in message
> > news:O3234muODHA.1072@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...
> > > [url]http://www.dotnet247.com/247reference/msgs/25/128742.aspx[/url]
> > >
> > > "James A Taber" <icecool_6@hotmail.com> wrote in message
> > > news:eB7LHhuODHA.4024@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
> > > >
> > > >
> > >
> > >

> >
> >

>
>