 
         
         
             Important Update
                        Important Update
                    
                Module1.vb
Imports Bytescout.Watermarking
Module Module1
    Sub Main()
        ' Create Watermarker instance
        Dim waterMarker As New Watermarker()
        ' Initialize library
        waterMarker.InitLibrary("demo", "demo")
        ' Set input file name
        Dim inputFilePath As String = "my_sample_image.jpg"
        ' Set output file title
        Dim outputFilePath As String = "my_sample_output.jpg"
        ' Add image to apply watermarks to
        waterMarker.AddInputFile(inputFilePath, outputFilePath)
        ' Create new watermark
        Dim preset As New Presets.DateAndTime()
        ' Add watermark to watermarker
        waterMarker.AddWatermark(preset)
        ' Set output directory
        waterMarker.OutputOptions.OutputDirectory = "."
        ' Set output format
        waterMarker.OutputOptions.ImageFormat = OutputFormats.JPEG
        ' Apply watermarks
        waterMarker.Execute()
        ' open generated image file in default image viewer installed in Windows
        Process.Start(outputFilePath)
    End Sub
End Module
Click here to get your Free Trial version of the SDK
Sorry! This product is not available.
Please click here to visit main page for the list of all available products and solutions.
Product Links:
