Option Strict and .Save with an Image

[Guest]

The following code works when Option Strict is off:
Dim thumbSize As New Size
thumbSize = CType(NewthumbSize(g.Width, g.Height, 100), System.Drawing.Size)
Dim imgThumbOutput As New Bitmap(g, thumbSize.Width, thumbSize.Height)
imgThumbOutput.Save(Server.MapPath(ThumbnailPath), thisFormat)

When I turn on Option Strict, I receive the following compile error:
Overload resolution failed because no accessible 'Save' can be called with
these arguments:
'Public Sub Save(stream As System.IO.Stream, format As
System.Drawing.Imaging.ImageFormat)': Value of type 'String' cannot be
converted to 'System.IO.Stream'.
'Public Sub Save(stream As System.IO.Stream, format As
System.Drawing.Imaging.ImageFormat)': Option Strict On disallows implicit
conversions from 'System.Object' to 'System.Drawing.Imaging.ImageFormat'.
'Public Sub Save(filename As String, format As
System.Drawing.Imaging.ImageFormat)': Option Strict On disallows implicit
conversions from 'System.Object' to 'System.Drawing.Imaging.ImageFormat'.

Tried converting the path:
imgThumbOutput.Save(CType(Server.MapPath(ThumbnailPath), System.IO.Stream),
thisFormat)

but it errored because you can't convert a string into a System.IO.Stream.

Is there a way of rewriting this line to work with Option Strict? Thanks.

 

[Adam Goossens]

Hi,

I think the problem lies not in your path, but your format. If the
"thisFormat" variable is of type Object you need to cast it to the
System.Drawing.Imaging.ImageFormat type first:

 

[Cor Ligthert]

JMHMaine.

The solution in this is mostly to break your instructions (for testing) in
smaller parts.

Than often you see yourself the best where the problem is.

Just an idea.

Cor

 

[Herfried K. Wagner [MVP]]

When I turn on Option Strict, I receive the following compile error:
Overload resolution failed because no accessible 'Save' can be called with
these arguments:
'Public Sub Save(stream As System.IO.Stream, format As
System.Drawing.Imaging.ImageFormat)': Value of type 'String' cannot be
converted to 'System.IO.Stream'.
'Public Sub Save(stream As System.IO.Stream, format As
System.Drawing.Imaging.ImageFormat)': Option Strict On disallows implicit
conversions from 'System.Object' to 'System.Drawing.Imaging.ImageFormat'.
'Public Sub Save(filename As String, format As
System.Drawing.Imaging.ImageFormat)': Option Strict On disallows implicit
conversions from 'System.Object' to 'System.Drawing.Imaging.ImageFormat'.

\\\
imgThumbOutput.Save(Server.MapPath(ThumbnailPath), f)
///

should work if 'f' is of type 'ImageFomat'.

 

[Guest]

Thanks, you were right, it was the second argument "thisFormat", not the
first one that was causing the error.

The lines above, which I forgot to include:
Dim g As System.Drawing.Image =
System.Drawing.Image.FromFile(Server.MapPath(Path))
Dim thisFormat As Object = g.RawFormat

I changed the second line to:
Dim thisFormat As System.Drawing.Imaging.ImageFormat = g.RawFormat

and it worked! Thanks.

Josh.