Wie erstelle ich ein Wasserzeichen

    • VB.NET

    Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von mikeb69.

      Wie erstelle ich ein Wasserzeichen

      Hallo,

      wie erstelle ich ein Wasserzeichen ?
      Dieser Frage habe ich mich heute gewidmet.

      Ein Wasserzeichen ist ein Text oder ein Bild, welches das eigentliche Bild durchscheinen lässt.

      Um ein Wasserzeichen in ein Bild zu bekommen legt man - im Prinzip nur zwei Bitmaps aufeinander.
      Um ein Durchscheinen des eigentlichen Bildes zu bekommen, wird das Wasserzeichen (Text oder Bitmap) halbtransparent gemacht.

      Hier der Code der Klasse:

      VB.NET-Quellcode

      1. 'ClassWatermark ist eine Klasse um Bilder einfach mit einem Wasserzeichen
      2. 'zu markieren.
      3. 'Erstellt von Michael Bernhard alias mikeb69
      4. 'Erstellt am 18.Mai 2008
      5. Public Class ClassWatermark
      7. Private _watermarkfont As Font
      8. Private _watermarktext As String
      9. Private _watermarklocation As Point
      10. Private _watermarkimage As Bitmap
      11. Private _watermarkshadow As Boolean
      12. Private _originalimage As Bitmap
      13. Private _combinedimage As Bitmap
      15. Private Const ALPHA As Byte = 128
      17. ''' <summary>Neue Instanz der Klasse ClassWatermark.</summary>
      18. ''' <param name="image">Bild welches das Wasserzeichen bekommen soll.</param>
      19. ''' <param name="text">Text, welcher als Wasserzeichen erscheinen soll.</param>
      20. ''' <param name="font">Zeichensatz, welcher verwendet werden soll.</param>
      21. ''' <param name="location">Position an der das Wasserzeichen eingebracht werden soll.</param>
      22. ''' <remarks></remarks>
      23. Public Sub New(ByVal image As Bitmap, ByVal text As String, ByVal font As Font, ByVal location As Point)
      24. _watermarktext = text
      25. _watermarkfont = font
      26. _watermarklocation = location
      27. _originalimage = image
      28. End Sub
      30. ''' <summary>Eigentliche Funktion zum Einbringen des Wasserzeichens.</summary>
      31. ''' <remarks>Wurde als Sub ausgeführt. Die Rückgabewerte stehen als Properties zur Verfügung.</remarks>
      32. Public Sub MakeWatermark()
      33. 'bitmap mit dem Wasserzeichen Image füllen
      34. _watermarkimage = New Bitmap(makewatermarkbitmap)
      35. 'Original Bitmap Clonen, damit diese unverändert bleibt.
      36. _combinedimage = _originalimage.Clone
      37. 'jetzt das wasserzeichen in das Original einbringen
      38. Using g As Graphics = Graphics.FromImage(_combinedimage)
      39. g.DrawImage(_watermarkimage, _watermarklocation)
      40. End Using
      41. End Sub
      43. ''' <summary>Diese Funktion erstellt das Wasserzeichen, welches später über das Originalimage
      44. ''' gelegt wird.</summary>
      45. ''' <returns>Image in Textgröße - um Rechenzeit zu sparen.</returns>
      46. ''' <remarks></remarks>
      47. Private Function makewatermarkbitmap() As Image
      48. 'Textgröße ermitteln.
      49. Dim s As Size = TextRenderer.MeasureText(_watermarktext, _watermarkfont)
      50. 'neue Bitmap erstellen
      51. Dim b As New Bitmap(s.Width, s.Height)
      52. 'original Resolution für dieses Bitmap übernehmen
      53. b.SetResolution(_originalimage.HorizontalResolution, _originalimage.VerticalResolution)
      54. Using g As Graphics = Graphics.FromImage(b)
      55. g.Clear(Color.Transparent)
      56. 'schatten zeichnen - wenn gewünscht
      57. If _watermarkshadow = True Then
      58. g.DrawString(_watermarktext, _watermarkfont, New SolidBrush(Color.FromArgb(ALPHA, 0, 0, 0)), 1, 1)
      59. End If
      60. 'echter text
      61. g.DrawString(_watermarktext, _watermarkfont, New SolidBrush(Color.FromArgb(ALPHA, 255, 255, 255)), 0, 0)
      62. 'text halbtransparent machen
      63. For y As Integer = 0 To b.Height - 1
      64. For x As Integer = 0 To b.Width - 1
      65. Dim c As Color = b.GetPixel(x, y)
      66. If c.R <> 0 Or c.G <> 0 Or c.B <> 0 Then
      67. b.SetPixel(x, y, Color.FromArgb(ALPHA, c.R, c.G, c.B))
      68. End If
      69. Next x
      70. Next y
      71. End Using
      72. Return b
      73. End Function
      75. ''' <summary>SaveImage speichert das angegebene Bild (Bitmap).</summary>
      76. ''' <param name="filename">Dateiname mit Pfad, unter welchem die Bitmap gespeichert werden soll.</param>
      77. ''' <returns>True wenn speichern erfolgreich - sonst False.</returns>
      78. ''' <remarks></remarks>
      79. Public Function SaveImage(ByVal filename As String) As Boolean
      80. Try
      81. _combinedimage.Save(filename)
      82. Return True
      83. Catch ex As Exception
      84. Return False
      85. End Try
      86. End Function
      88. #Region "Properties"
      89. ''' <summary>Gibt das Wasserzeichen als Image zurück - oder übernimmt dieses.</summary>
      90. ''' <remarks></remarks>
      91. Public Property WatermarkImage() As Image
      92. Get
      93. Return _watermarkimage
      94. End Get
      95. Set(ByVal value As Image)
      96. _watermarkimage = value
      97. End Set
      98. End Property
      100. ''' <summary>Gibt das Originalbild als Image zurück - oder übernimmt dieses.</summary>
      101. ''' <remarks></remarks>
      102. Public Property OriginalImage() As Image
      103. Get
      104. Return _originalimage
      105. End Get
      106. Set(ByVal value As Image)
      107. _originalimage = value
      108. End Set
      109. End Property
      111. ''' <summary>Gibt das fertige Bild als Image zurück.</summary>
      112. ''' <remarks></remarks>
      113. Public ReadOnly Property CombinedImage() As Image
      114. Get
      115. Return _combinedimage
      116. End Get
      117. End Property
      119. ''' <summary>Gibt den Wasserzeichentext zurück - oder setzt diesen.</summary>
      120. ''' <remarks></remarks>
      121. Public Property WatermarkText() As String
      122. Get
      123. Return _watermarktext
      124. End Get
      125. Set(ByVal value As String)
      126. _watermarktext = value
      127. End Set
      128. End Property
      130. ''' <summary>Gibt den Wasserzeichenfont zurück - oder setzt diesen.</summary>
      131. ''' <remarks></remarks>
      132. Public Property WatermarkFont() As Font
      133. Get
      134. Return _watermarkfont
      135. End Get
      136. Set(ByVal value As Font)
      137. _watermarkfont = value
      138. End Set
      139. End Property
      141. ''' <summary>Gibt zurück, ob das Wasserzeichen einen Schatten haben soll - oder setzt dies.</summary>
      142. ''' <remarks></remarks>
      143. Public Property WatermarkShadow() As Boolean
      144. Get
      145. Return _watermarkshadow
      146. End Get
      147. Set(ByVal value As Boolean)
      148. _watermarkshadow = value
      149. End Set
      150. End Property
      151. #End Region
      152. End Class

      Fragen und Kommentare zu Code sind erwünscht.

      Ich werde, heute noch, eine kleine Beispielanwendung zu dieser Klasse auf meiner HP veröffentlichen.

      EDIT:

      Hab inzwischen eine Dll daraus gemacht.
      (Ok OK OK - hab das auch ein kleinewenig erweitert !)

      Guckst du !

      Gruss

      mikeb69

      Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „mikeb69“ () aus folgendem Grund: Neuer Downloadlink Verweis zur Dll im Showroom

      da das jetzt mal nach oben gekommen ist hab ichs mir gleich mal angeguckt und dabei ist mir aufgefallen, dass du eine ColorMatrix - für den Teil, indem du das ganze Bild durchläufst - verwenden könntest, was auf jeden Fall mal etwas schneller wäre ;)
      Ich wollte auch mal ne total überflüssige Signatur:
      ---Leer---