Server Console to Windows Servcie

Question

Hi NG,
I need a little help to convert a console application to a Windows Servcie.
My problem is that, I do not really know how many entries in args should be. I am trying with following code:
Dim MyLog As New EventLog
        Dim args(3) As String
            args(0) = "-aSun"
            args(1) = "-gSAPTEST"
            args(2) = "-xsapgw00"
            Dim Host As SAPServerHost = New SAPServerHost
            Const numberOfServers As Integer = 3
            Host = New SAP.Connector.SAPServerHost
            Dim server As SAPProxy1Impl
            Dim i As Integer
            For i = 0 To numberOfServers
            Try
                server = New SAPProxy1Impl(args, Host)
            Catch ex As Exception
                MyLog.WriteEntry("Zolaris", "Server: " & ex.Message)
            End Try
            Next
            Try
                Host.Start()
                count = "Start"
            Catch Ex As Exception
                Return
            End Try
        End If
Could you find an error here - I think that there is a problem with the args-array!?
Is there a Windows Service version to download int hte net - like the console app?
Thanks in advance!
Bernd Michitsch

Answer 1

Hi NG,
I need a little help to convert a console application to a Windows Servcie.
My problem is that, I do not really know how many entries in args should be. I am trying with following code:
Dim MyLog As New EventLog
        Dim args(3) As String
            args(0) = "-aSun"
            args(1) = "-gSAPTEST"
            args(2) = "-xsapgw00"
            Dim Host As SAPServerHost = New SAPServerHost
            Const numberOfServers As Integer = 3
            Host = New SAP.Connector.SAPServerHost
            Dim server As SAPProxy1Impl
            Dim i As Integer
            For i = 0 To numberOfServers
            Try
                server = New SAPProxy1Impl(args, Host)
            Catch ex As Exception
                MyLog.WriteEntry("Zolaris", "Server: " & ex.Message)
            End Try
            Next
            Try
                Host.Start()
                count = "Start"
            Catch Ex As Exception
                Return
            End Try
        End If
Could you find an error here - I think that there is a problem with the args-array!?
Is there a Windows Service version to download int hte net - like the console app?
Thanks in advance!
Bernd Michitsch