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