Hi Curt,
First you need to upload the image and than after create another image and add the watermark and save it. Finally delete the first image.
In the previous code I gave you, change that line:
FileUpload1.SaveAs(serverPath & fileNameOnServer)
By this one:
FileUpload1.SaveAs(serverPath & "temp-" & fileNameOnServer)
Also add the namespace System.Drawing in your web.config
Here is the complete code with the watermark modifications:
<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected Sub btUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs)
If FileUpload1.HasFile Then
Dim serverPath As String = Server.MapPath("avatars/")
Dim fileToUpload As String = FileUpload1.PostedFile.FileName
Dim fileExtension As String = Path.GetExtension(fileToUpload)
Dim fileNameOnServer As String = "avatar-" & User.Identity.Name & fileExtension
Dim fileContentType As String = FileUpload1.PostedFile.ContentType
Dim fileSize As Integer = FileUpload1.PostedFile.ContentLength
If Not InStr(fileContentType.ToLower(), "image") = 1 Then
Dim errMsg As String = "Error, only .gif .jpg or .png are allowed."
lblMsg.Attributes.Add("style", "color:Red;")
lblMsg.Text = errMsg
AlertMsg.Display(Me.Page, "ErrorContentType", errMsg)
Return
End If
If fileSize > 20000 Then
Dim errMsg As String = "Error, 20 kb maximum."
lblMsg.Attributes.Add("style", "color:Red;")
lblMsg.Text = errMsg
AlertMsg.Display(Me.Page, "ErrorContentLength", errMsg)
Return
End If
Try
FileUpload1.SaveAs(serverPath & "temp-" & fileNameOnServer)
Catch ex As Exception
lblMsg.Attributes.Add("style", "color:Red;")
lblMsg.Text = ex.Message.ToString()
AlertMsg.Display(Me.Page, "ErrorException", ex.Message.ToString())
End Try
Dim waterMark As String = "© YourDomain.com"
Dim bmp As Bitmap
Dim fs As New System.IO.FileStream(serverPath & "temp-" & fileNameOnServer, System.IO.FileMode.Open)
bmp = System.Drawing.Image.FromStream(fs)
Dim cwm As Graphics = Graphics.FromImage(bmp)
cwm.DrawString(waterMark, New Font("Arial", 12, FontStyle.Bold), New SolidBrush(Color.Black), 0, 0)
Try
bmp.Save(serverPath & fileNameOnServer)
Catch ex As Exception
lblMsg.Attributes.Add("style", "color:Red;")
lblMsg.Text = ex.Message.ToString()
AlertMsg.Display(Me.Page, "ErrorException", ex.Message.ToString())
Finally
fs.Close()
End Try
Dim tempFileToDelte As FileInfo
tempFileToDelte = New FileInfo(serverPath & "temp-" & fileNameOnServer)
tempFileToDelte.Delete()
lblMsg.Attributes.Add("style", "color:Black;")
lblMsg.Text = "We received your image, thank you!"
Else
Dim errMsg As String = "Error, Please browse and select a file to upload."
lblMsg.Attributes.Add("style", "color:Red;")
lblMsg.Text = errMsg
AlertMsg.Display(Me.Page, "ErrorEmpty", errMsg)
End If
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Upload Image</title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:FileUpload ID="FileUpload1" runat="server" AlternateText="You cannot upload files" />
<asp:Button ID="btUpload" runat="server" OnClick="btUpload_Click" Text="Upload" />
<br />
<asp:Label ID="lblMsg" runat="server" Font-Bold="True"></asp:Label>
</div>
</form>
</body>
</html>
To set the watermark text:
Dim waterMark As String = "© YourDomain.com"
To change the color, font-size, font-family and position (the first 0 is the X position and the second 0 is the Y position of the text over the image):
cwm.DrawString(waterMark, New Font("Arial", 12, FontStyle.Bold), New SolidBrush(Color.Black), 0, 0)