Friday, May 28, 2010

Write Image On the Page

Private Sub WriteImage(ByVal EmpImg As String)
Response.Clear()
Response.ContentType = "image/jpg"
Dim imgBytes As Byte()
Using img As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath(EmpImg))
Dim ms As IO.MemoryStream = New IO.MemoryStream()
img.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
ms.Close()
imgBytes = ms.GetBuffer()
End Using
Response.OutputStream.Write(imgBytes, 0, imgBytes.Length)
Response.Flush()
Response.End()
End Sub

No comments:

Post a Comment