Try
If ext = "png" OrElse ext = "jpg" OrElse ext = "jpeg" OrElse ext = "PNG" OrElse ext = "JPG" OrElse ext = "JPEG" OrElse ext = "gif" OrElse ext = "GIF" Then
Dim fs As Stream = txtDBImage//error(Unable to cast object of type 'System.String' to type 'System.IO.Stream')
Dim br As BinaryReader = New BinaryReader(fs)
Dim bytes As Byte() = br.ReadBytes(CType(fs.Length, Int32))
Dim base64String As String = Convert.ToBase64String(bytes, 0, bytes.Length)
Else
Response.Write("alert('unsupported format of photo file');")
End If
Catch ex As Exception
Response.Write("alert('" & ex.Message & "');")
End Try
What I have tried:
Try
If ext = "png" OrElse ext = "jpg" OrElse ext = "jpeg" OrElse ext = "PNG" OrElse ext = "JPG" OrElse ext = "JPEG" OrElse ext = "gif" OrElse ext = "GIF" Then
Dim fs As Stream = txtDBImage
Dim br As BinaryReader = New BinaryReader(fs)
Dim bytes As Byte() = br.ReadBytes(CType(fs.Length, Int32))
Dim base64String As String = Convert.ToBase64String(bytes, 0, bytes.Length)
Else
Response.Write("alert('unsupported format of photo file');")
End If
Catch ex As Exception
Response.Write("alert('" & ex.Message & "');")
End Try