These source code samples are assembled by their programming language and functions they apply. ByteScout Cloud API Server can add text and images to PDF. It can be applied from VB.NET. ByteScout Cloud API Server is the ready to deploy Web API Server that can be deployed in less than thirty minutes into your own in-house Windows server (no Internet connnection is required to process data!) or into private cloud server. Can store data on in-house local server based storage or in Amazon AWS S3 bucket. Processing data solely on the server using built-in ByteScout powered engine, no cloud services are used to process your data!.
These VB.NET code samples for VB.NET guide developers to speed up coding of the application when using ByteScout Cloud API Server. Simply copy and paste in your VB.NET project or application you and then run your app! Check VB.NET sample code samples to see if they respond to your needs and requirements for the project.
Our website gives trial version of ByteScout Cloud API Server for free. It also includes documentation and source code samples.
On-demand (REST Web API) version:
Web API (on-demand version)
On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)
Imports System.IO Imports System.Net Imports Newtonsoft.Json.Linq ' Please NOTE: In this sample we're assuming Cloud Api Server is hosted at "https://localhost". ' If it's not then please replace this with with your hosting url. Module Module1 ' Direct URL of source PDF file. Const SourceFileUrl As String = "https://bytescout-com.s3.amazonaws.com/files/demo-files/cloud-api/pdf-edit/sample.pdf" ' Comma-separated list of page indices (Or ranges) to process. Leave empty for all pages. Example '0,2-5,7-'. Const Pages As String = "" ' PDF document password. Leave empty for unprotected documents. Const Password As String = "" ' Destination PDF file name Const DestinationFile As String = ".\result.pdf" ' Text params Private Const Type As String = "annotation" Private Const Text As String = "Some notes will go here... Some notes will go here.... Some notes will go here....." Private Const FontName As String = "Times New Roman" Private Const FontSize As Decimal = 12 Private Const Color As String = "FF0000" Sub Main() ' Create standard .NET web client instance Dim webClient As WebClient = New WebClient() ' Find Text coordinates to add Annotation Dim oCoordinates = FindCoordinates(SourceFileUrl, "Notes") Dim X As Integer = oCoordinates.x Dim Y As Integer = oCoordinates.y + 25 ' * Add text annotations * ' Prepare URL for `PDF Edit` API call Dim query As String = Uri.EscapeUriString(String.Format( "https://localhost/pdf/edit/add?name={0}&password={1}&pages={2}&url={3}&type={4}&x={5}&y={6}&text={7}&fontname={8}&size={9}&color={10}", Path.GetFileName(DestinationFile), Password, Pages, SourceFileUrl, Type, X, Y, Text, FontName, FontSize, Color)) Try ' Execute request Dim response As String = webClient.DownloadString(query) ' Parse JSON response Dim json As JObject = JObject.Parse(response) If json("error").ToObject(Of Boolean) = False Then ' Get URL of generated PDF file Dim resultFileUrl As String = json("url").ToString() ' Download PDF file webClient.DownloadFile(resultFileUrl, DestinationFile) Console.WriteLine("Generated PDF file saved as ""{0}"" file.", DestinationFile) Else Console.WriteLine(json("message").ToString()) End If Catch ex As WebException Console.WriteLine(ex.ToString()) End Try webClient.Dispose() Console.WriteLine() Console.WriteLine("Press any key...") Console.ReadKey() End Sub ''' <summary> ''' Find result coordinates ''' </summary> Function FindCoordinates(ByVal SourceFileUrl As String, ByVal SearchString As String) As ResultCoOrdinates Dim oResult As New ResultCoOrdinates() ' Create standard .NET web client instance Dim webClient As WebClient = New WebClient() ' Prepare URL for PDF text search API call. Dim query As String = Uri.EscapeUriString( String.Format("https://localhost/pdf/find?url={0}&searchString={1}", SourceFileUrl, SearchString)) Try ' Execute request Dim response As String = webClient.DownloadString(query) ' Parse JSON response Dim json As JObject = JObject.Parse(response) If json("error").ToObject(Of Boolean) = False Then Dim item = json("body")(0) oResult.x = item("left") oResult.y = item("top") oResult.width = item("width") oResult.height = item("height") End If Catch ex As WebException Console.WriteLine(ex.ToString()) End Try webClient.Dispose() Return oResult End Function Class ResultCoOrdinates Public x As Integer Public y As Integer Public width As Integer Public height As Integer End Class End Module
60 Day Free Trial or Visit ByteScout Cloud API Server Home Page
Explore ByteScout Cloud API Server Documentation
Explore Samples
Sign Up for ByteScout Cloud API Server Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
<?xml version="1.0" encoding="utf-8"?> <packages> <package id="Newtonsoft.Json" version="10.0.3" targetFramework="net40" /> </packages>
60 Day Free Trial or Visit ByteScout Cloud API Server Home Page
Explore ByteScout Cloud API Server Documentation
Explore Samples
Sign Up for ByteScout Cloud API Server Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Cloud API Server Home Page
Explore ByteScout Cloud API Server Documentation
Explore Samples
Sign Up for ByteScout Cloud API Server Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples