Hi everyone

I am posting a An Example that Describe that how to update parameter and export the webi report in pdf.with new parameters

/*—————————————————————————————————–*/


Imports System.Windows.Forms
Imports System.Data
Imports System.IO
Imports System.Xml
Imports System.Xml.XPath
Imports System.Security.Permissions
Imports System.Security.Cryptography
Imports System.Diagnostics
Imports System.Security
Imports System.Security.AccessControl
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Net
Imports iTextSharp.text.pdf
Module Module1
    Sub Main()
        ' UpdateParam()
        Dim args() As String = System.Environment.GetCommandLineArgs()
        For i As Integer = 1 To args.Length - 1
            If (args(1) = "PARAMETER" Or args(1) = "parameter") Then
                GenerateParameter(args(2))
            Else
                sendRequest(args(i))
            End If
        Next
    End Sub
    Public Sub sendRequest(ByVal value As String)
        Console.WriteLine("Request Assigned")
        Dim query As String = "select Account_Name from bi.DM_Account"
        Dim dsQ As DataSet = GetDataSet(query, "QueryResult")
        If dsQ.Tables("QueryResult").Rows.Count > 0 Then
            value = value.Replace("#", " ")
            writeParam(value)
            exportReport(value)
        End If
    End Sub
    Public Function GenerateParameter(ByVal value As String)
        Dim userName As String = "connect"
        Dim password As String = "abc@321"
        Dim auth As String = "secEnterprise"
        Dim baseURL As String = "http://xxx:6405/biprws/"
        Dim LogonURI As String = baseURL & Convert.ToString("logon/long")
        Dim Logonof As String = "http://xxx:6405/biprws/logoff"
        Dim InfoStoreURI As String = baseURL & Convert.ToString("raylight/v1/documents/" & value & "/parameters")
        '260515 is the document id
        Dim rwsLogonToken As String
        Try
            Dim myWebRequest As WebRequest = WebRequest.Create(LogonURI)
            myWebRequest.ContentType = "application/xml"
            myWebRequest.Method = "GET"
            Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
            Dim sr As New StreamReader(myWebResponse.GetResponseStream())
            Dim output As String = sr.ReadToEnd()
            Dim doc As New XmlDocument()
            doc.LoadXml(output)
            Dim nodelist As XmlNodeList = doc.GetElementsByTagName("attr")
            For Each node As XmlNode In nodelist
                If node.Attributes("name").Value = "userName" Then
                    node.InnerText = userName
                End If
                If node.Attributes("name").Value = "password" Then
                    node.InnerText = password
                End If
                If node.Attributes("name").Value = "auth" Then
                    node.InnerText = auth
                End If
            Next
            Dim myWebRequest1 As WebRequest = WebRequest.Create(LogonURI)
            myWebRequest1.ContentType = "application/XML"
            myWebRequest1.Method = "POST"
            Dim reqBodyBytes As Byte() = System.Text.Encoding.[Default].GetBytes(doc.OuterXml)
            Dim reqStream As Stream = myWebRequest1.GetRequestStream()
            reqStream.Write(reqBodyBytes, 0, reqBodyBytes.Length)
            reqStream.Close()
            Try
                Dim myWebResponse1 As WebResponse = myWebRequest1.GetResponse()
                rwsLogonToken = myWebResponse1.Headers("X-SAP-LogonToken").ToString()
                Dim pXML As New XmlDocument()
                pXML.Load("D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\param.xml")
                Dim dataByte As Byte() = System.Text.Encoding.[Default].GetBytes(pXML.OuterXml)
                Dim POSTRequest As HttpWebRequest = DirectCast(WebRequest.Create(InfoStoreURI), HttpWebRequest)
                POSTRequest.Method = "PUT"
                POSTRequest.ContentType = "application/xml"
                POSTRequest.Headers.Add("X-SAP-LogonToken", rwsLogonToken)
                POSTRequest.Timeout = 500000
                POSTRequest.KeepAlive = False
                POSTRequest.ContentLength = dataByte.Length
                Dim POSTstream As Stream = POSTRequest.GetRequestStream()
                POSTstream.Write(dataByte, 0, dataByte.Length)
                POSTstream.Close()
                Dim POSTResponse As HttpWebResponse = DirectCast(POSTRequest.GetResponse(), HttpWebResponse)
                Dim reader As New StreamReader(POSTResponse.GetResponseStream(), System.Text.Encoding.UTF8)
                Console.WriteLine("Response from Server:")
                Console.WriteLine(reader.ReadToEnd().ToString())
                Dim myWebRequest2 As HttpWebRequest = HttpWebRequest.Create(InfoStoreURI)
                myWebRequest2.Accept = "application/xml"
                myWebRequest2.Headers.Add("X-SAP-LogonToken", rwsLogonToken)
                myWebRequest2.Method = "GET"
                Dim myWebResponse2 As WebResponse = myWebRequest2.GetResponse()
                Dim stream As New FileStream("D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\Parameters.xml", FileMode.Create)
                myWebResponse2.GetResponseStream().CopyTo(stream)
                stream.Close()
                Dim myWebRequestof As WebRequest = WebRequest.Create(Logonof)
                myWebRequestof.ContentType = "application/xml"
                myWebRequestof.Method = "POST"
                Dim myWebResponseof As WebResponse = myWebRequestof.GetResponse()
                Dim srof As New StreamReader(myWebResponseof.GetResponseStream())
                Dim outputof As String = srof.ReadToEnd()
                Console.WriteLine(outputof)
            Catch generatedExceptionName As Exception
                Console.WriteLine("Error in communicating with Server" & generatedExceptionName.Message)
            End Try
        Catch ex As Exception
            Console.Write("<b>" + ex.Message + "</b>")
        End Try
        Return 0
    End Function
    Public Function writeParam(ByVal param As String)
        Console.WriteLine("Write Parameter Start")
        Dim pXML As New XmlDocument()
        pXML.Load("D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\param.xml")
        Dim child_nodes As XmlNodeList = pXML.GetElementsByTagName("value")
        Console.WriteLine("Parameter :" & child_nodes.Count.ToString)
        For Each child As XmlNode In child_nodes
            child.InnerText = param
        Next child
        Dim writer As XmlWriter = XmlWriter.Create("D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\param.xml")
        pXML.WriteContentTo(writer)
        writer.Close()
        ' pXML.Save("D:\Amit Sharma\Temp\Export report\Export report\bin\Release\param.xml")
        Console.WriteLine("Write Parameter End")
        Return 0
    End Function
    '---------------------------PDF Encryption----------------------------
    Sub EncryptPdf(ByVal sInFilePath As String, ByVal sOutFilePath As String, ByVal sPassword As String)
        Dim oPdfReader As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(sInFilePath)
        Dim oPdfDoc As New iTextSharp.text.Document()
        Dim oPdfWriter As PdfWriter = PdfWriter.GetInstance(oPdfDoc, New FileStream(sOutFilePath, FileMode.Create))
        oPdfWriter.SetEncryption(PdfWriter.STRENGTH40BITS, sPassword, sPassword, PdfWriter.AllowCopy)
        oPdfDoc.Open()
        oPdfDoc.SetPageSize(iTextSharp.text.PageSize.LEDGER.Rotate())
        Dim oDirectContent As iTextSharp.text.pdf.PdfContentByte = oPdfWriter.DirectContent
        Dim iNumberOfPages As Integer = oPdfReader.NumberOfPages
        Dim iPage As Integer = 0
        Do While (iPage < iNumberOfPages)
            iPage += 1
            oPdfDoc.SetPageSize(oPdfReader.GetPageSizeWithRotation(iPage))
            oPdfDoc.NewPage()
            Dim oPdfImportedPage As iTextSharp.text.pdf.PdfImportedPage = oPdfWriter.GetImportedPage(oPdfReader, iPage)
            Dim iRotation As Integer = oPdfReader.GetPageRotation(iPage)
            If (iRotation = 90) Or (iRotation = 270) Then
                oDirectContent.AddTemplate(oPdfImportedPage, 0, -1.0F, 1.0F, 0, 0, oPdfReader.GetPageSizeWithRotation(iPage).Height)
            Else
                oDirectContent.AddTemplate(oPdfImportedPage, 1.0F, 0, 0, 1.0F, 0, 0)
            End If
        Loop
        oPdfDoc.Close()
    End Sub
    '---------------------------PDF Encryption----------------------------
    Public Function GetDataSet(ByVal SQL As String, ByVal TableName As String) As DataSet
        Try
            Dim Cnn As New SqlClient.SqlConnection
            Cnn.ConnectionString = GetConnectionString()
            Cnn.Open()
            Dim ds As New DataSet
            Dim cmd As New SqlClient.SqlCommand
            cmd.Connection = Cnn
            cmd.CommandText = SQL
            Dim adp As New SqlClient.SqlDataAdapter(cmd)
            adp.Fill(ds, TableName)
            adp.Dispose()
            cmd.Dispose()
            Cnn.Close()
            Cnn.Dispose()
            Return ds
        Catch ex As Exception
            Throw New ApplicationException(ex.Message)
            Exit Function
        End Try
    End Function
    Public Function GetConnectionString() As String
        'GetConnectionString = "server=172.16.1.250;uid=sa;pwd=admin@123;database=sample;Pooling=False"
        GetConnectionString = "data source=172.15.1.6;Initial catalog=DW_sample;persist security info=False;user id=connect;password=connect; pooling=false"
    End Function
    Public Function exportReport(ByVal param As String)
        Dim userName As String = "connect"
        Dim password As String = "abc@321"
        Dim auth As String = "secEnterprise"
        Dim baseURL As String = "http://xxx:6405/biprws/"
        Dim LogonURI As String = baseURL & Convert.ToString("logon/long")
        Dim Logonof As String = "http://xxx:6405/biprws/logoff"
        Dim InfoStoreURI As String = baseURL & Convert.ToString("raylight/v1/documents/6558/parameters")
        Dim InfoStoreURI2 As String = baseURL & Convert.ToString("raylight/v1/documents/6558")
        '260515 is the document id
        Dim rwsLogonToken As String
        Try
            Console.WriteLine("Update Parameter 1")
            Dim myWebRequest As WebRequest = WebRequest.Create(LogonURI)
            myWebRequest.ContentType = "application/xml"
            myWebRequest.Method = "GET"
            myWebRequest.Timeout = 60000
            Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
            Dim sr As New StreamReader(myWebResponse.GetResponseStream())
            Dim output As String = sr.ReadToEnd()
            Dim doc As New XmlDocument()
            doc.LoadXml(output)
            Dim nodelist As XmlNodeList = doc.GetElementsByTagName("attr")
            For Each node As XmlNode In nodelist
                If node.Attributes("name").Value = "userName" Then
                    node.InnerText = userName
                End If
                If node.Attributes("name").Value = "password" Then
                    node.InnerText = password
                End If
                If node.Attributes("name").Value = "auth" Then
                    node.InnerText = auth
                End If
            Next
            Console.WriteLine("Update Parameter 2")
            Dim myWebRequest1 As WebRequest = WebRequest.Create(LogonURI)
            myWebRequest1.ContentType = "application/XML"
            myWebRequest1.Method = "POST"
            Dim reqBodyBytes As Byte() = System.Text.Encoding.[Default].GetBytes(doc.OuterXml)
            Dim reqStream As Stream = myWebRequest1.GetRequestStream()
            reqStream.Write(reqBodyBytes, 0, reqBodyBytes.Length)
            reqStream.Close()
            Try
                Dim myWebResponse1 As WebResponse = myWebRequest1.GetResponse()
                rwsLogonToken = myWebResponse1.Headers("X-SAP-LogonToken").ToString()
                myWebRequest1.Timeout = 60000
                Dim pXML As New XmlDocument()
                pXML.Load("D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\param.xml")
                Dim dataByte As Byte() = System.Text.Encoding.[Default].GetBytes(pXML.OuterXml)
                Dim POSTRequest As HttpWebRequest = DirectCast(WebRequest.Create(InfoStoreURI), HttpWebRequest)
                Console.WriteLine(dataByte.ToString)
                POSTRequest.Method = "PUT"
                POSTRequest.ContentType = "application/xml"
                POSTRequest.Headers.Add("X-SAP-LogonToken", rwsLogonToken)
                Console.WriteLine(rwsLogonToken.ToString)
                POSTRequest.Timeout = 600000
                Try
                    Dim POSTstream As Stream = POSTRequest.GetRequestStream()
                    Console.WriteLine(POSTRequest.ToString)
                    POSTstream.Write(dataByte, 0, dataByte.Length)
                    POSTstream.Close()
                Catch ex As Exception
                    Console.WriteLine(ex.Message)
                End Try
                Dim POSTResponse As HttpWebResponse = DirectCast(POSTRequest.GetResponse(), HttpWebResponse)
                Dim reader As New StreamReader(POSTResponse.GetResponseStream(), System.Text.Encoding.UTF8)
                Console.WriteLine("Response from Server:")
                Console.WriteLine(reader.ReadToEnd().ToString())
                Dim myWebRequest2 As HttpWebRequest = HttpWebRequest.Create(InfoStoreURI2)
                myWebRequest2.Accept = "application/PDF"
                myWebRequest2.Headers.Add("X-SAP-LogonToken", rwsLogonToken)
                myWebRequest2.Method = "GET"
                Dim myWebResponse2 As WebResponse = myWebRequest2.GetResponse()
                Dim stream As New FileStream("D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\" & param & ".pdf", FileMode.Create)
                myWebResponse2.GetResponseStream().CopyTo(stream)
                stream.Close()
                EncryptPdf("D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\" & param & ".pdf", "D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\" & param & "_encrypt.pdf", "ram@123")
                Console.WriteLine("Check Report Now")
                '   File.Delete("D:\Amit Sharma\Temp\Export report\Export report\bin\Release\" & param & ".pdf")
            Catch generatedExceptionName As Exception
                Console.WriteLine("Error in communicating with Server" & generatedExceptionName.Message)
            End Try
        Catch ex As Exception
        End Try
        Return 0
    End Function
End Module

To report this post you need to login first.

2 Comments

You must be Logged on to comment or reply to a post.

    1. Dan Bernard

      In the subroutine GenerateParameter, do we know what is originally contained in the file “D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\param.xml” when it is loaded in the line of code: pXML.Load(“D:\New folder\Amit Sharma\Temp\Export report\Export report\bin\Release\param.xml”)

      (0) 

Leave a Reply