Adding text to a jpeg file

[Jerry Spence1]

I am trying to add the date/time to a jpg file. I came across the following
on the web which looks ideal. However, my experiences in this direction are
nil!

How do I modify the first line(s) to get the image from a file into bmap?

Thanks

-Jerry

Dim bmap As Image
'pull an image from memory, could also be from the file system.
bmap = CType(Data.GetData(GetType(System.Drawing.Bitmap)), Image)
'here's where we modify the image in memory
Dim g As Graphics = Graphics.FromImage(bmap)
'now prepare our brush to draw the text onto the image.
Dim drawFont As New Font("Arial", 10, FontStyle.Bold,
GraphicsUnit.Millimeter)
Dim drawBrush As New SolidBrush(Color.Red)
'figure out where we want to place the text getting the x & y coordinate.
Dim xPos As Integer = bmap.Height - (bmap.Height - 25)
Dim yPos As Integer = 3
'now draw the date using "Now".
g.DrawString(Now, drawFont, drawBrush, xPos, yPos)
'check to see if the property to save the file is enabled.


Now that we have a modified image in memory we can save the file to disk and
generate a thumbnail image as well to present in the Web page for later
viewing.

Dim sPicPath As String = "C:\Path to your file store\filename.jpg"
Dim sPreFix As String = "C:\image file path\"
'now declare another image to store our thumbnail image.
Dim smBmap As Image
'now we're going to get a thumbnail image from the bitmap we worked
'with earlier in the method.
smBmap = bmap.GetThumbnailImage(bmap.Width, bmap.Height, Nothing, Nothing)
'save the image to our path and save it as a jpeg.
smBmap.Save(sPicPath, Imaging.ImageFormat.Jpeg)
'now save a copy of the original image to the local disk.
bmap.Save(Replace(sPreFix, "\images", "") & ".jpg",
Imaging.ImageFormat.Jpeg)
bmap = Nothing
smBmap = Nothing

 

[Peter Proost]

Hi,

dim bmap as New Bitmap("c:\youfilepath_and_name")

www.bobpowell.net is a very good site for information on drawing with .net
but it seems to be down for the moment, but it's a very helpful site

Hope this helps,

Peter