Hi Everybody,
I want to create PDF via Webservice:
this is the webservice method:
[code]
Public Function CreatePDFWithUrl(ByVal Url As String, ByVal Landscape As Boolean, ByVal Width As Integer, ByVal Height As Integer, ByVal BrowserWidth As Integer) As Byte()
Dim results() As Object = Me.Invoke("CreatePDFWithUrl", New Object() {Url, Landscape, Width, Height, BrowserWidth})
Return CType(results(0),Byte())
End Function
[/code]
AND this is the method:
[code]
Dim filesForPDFF As New List(Of FileForPDF) 'Iv add this
Dim aFiles As New List(Of String) 'iv add this
Dim pdfok As New Relyon_References.PDFServicesClass(AdminKey)
Dim filesForPDF As New List(Of Relyon_References.PDFServicesClass())
For Each f As String In aFiles
If File.Exists(f) Then
Dim fileFrPDF As New Relyon_References.PDFServicesClass
Dim pdffiles As New FileForPDF
fileFrPDF.CreatePDFWithUrl(filesForPDF.ToString(), True, 0, BrowserWidth, PaperSize) = f
pdffiles.FileContent = File.ReadAllBytes(f)
'filesForPDF.Add(fileFrPDF)
filesForPDFF.Add(pdffiles)
'Clean up
'File.Delete(f)
End If
Next
[/code]
Thank you
Rahul PrasadPosted May 22, 2014, 3:25 AM
Glad to see your problem has been resolved.But could please post the right method here?
It may help someone who googles the similar question and eventually finds this page.
thanks and regards
albert albertPosted Apr 28, 2014, 3:32 AM
Aaliyah OliverPosted Apr 24, 2014, 11:52 AM