Module1.vb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | Imports System.IO Imports System.Net Imports Newtonsoft.Json.Linq Module Module1 ' (!) If you are getting '(403) Forbidden' error please ensure you have set the correct API_KEY ' The authentication key (API Key). ' Get your own by registering at https://secure.bytescout.com/users/sign_up Const API_KEY As String = "***********************************" ' Direct URL of source CSV file. Const SourceFileUrl As String = "https://s3-us-west-2.amazonaws.com/bytescout-com/files/demo-files/cloud-api/csv-to-pdf/sample.csv" ' Destination PDF file name Const DestinationFile As String = ".\result.pdf" Sub Main() ' Create standard .NET web client instance Dim webClient As WebClient = New WebClient() ' Set API Key webClient.Headers.Add( "x-api-key" , API_KEY) ' Prepare URL for `CSV To PDF` API call Dim query As String = Uri.EscapeUriString( String .Format( Path.GetFileName(DestinationFile), SourceFileUrl)) 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 End Module |
Click here to get your Free Trial version of the SDK
IMPORTANT:
Cloud API is deprecated and was replaced with more powerful and secure www.PDF.co Web API
CLICK HERE
TO LEARN MORE
ABOUT NEW
www.PDF.co
w/ Web API
On-Premise API Server
Cloud API Server