Ik heb een standaard webservice gemaakt.
<WebMethod()> _
Public Function GetPremieResult(ByVal sParam As String) As String
Try
Dim objAcuGT As New AcuGT
Dim objCobolApp As Object
Dim sCommandLine As String
objCobolApp = objAcuGT.Application
sCommandLine = " -c d:\acucobol\ketpoc04.cfg"
objCobolApp.initialize(sCommandLine)
objCobolApp.Call("d:\acucobol\ketpoc04.acu ", sParam)
Catch ex As Exception
sParam = ex.Message
End Try
Return sParam
End function
Wanneer ik deze uitvoer dan krijg ik alleen een wit internet explorer scherm. Ik krijg geen fout of iets anders. Hoe lang ik ook wacht.
Wanneer ik de regels sCommandline, objcobolapp.initialize(scommandline) uitster werkt het wel maar dan zit ik met het probleem dat ik geen config file mee stuur naar mijn cobol app en dat deze dan niet de juiste waarde terug geeft.
Wat het vreemde is is dat wanneer ik de zelfde code gebruik in een VB.NET applicatie of een VB6 applicatie alles wel werkt met config file.
Om een rechten kwestie uit te sluiten heb ik tijdelijk de ASPNET lid gemaakt van de administrators.
De config file is nodig want daar staan parameters in voor het maximaal aantal te openen bestanden deze kunnen Acucobol alleen maar vanuit een config file worden geset.
<WebMethod()> _
Public Function GetPremieResult(ByVal sParam As String) As String
Try
Dim objAcuGT As New AcuGT
Dim objCobolApp As Object
Dim sCommandLine As String
objCobolApp = objAcuGT.Application
sCommandLine = " -c d:\acucobol\ketpoc04.cfg"
objCobolApp.initialize(sCommandLine)
objCobolApp.Call("d:\acucobol\ketpoc04.acu ", sParam)
Catch ex As Exception
sParam = ex.Message
End Try
Return sParam
End function
Wanneer ik deze uitvoer dan krijg ik alleen een wit internet explorer scherm. Ik krijg geen fout of iets anders. Hoe lang ik ook wacht.
Wanneer ik de regels sCommandline, objcobolapp.initialize(scommandline) uitster werkt het wel maar dan zit ik met het probleem dat ik geen config file mee stuur naar mijn cobol app en dat deze dan niet de juiste waarde terug geeft.
Wat het vreemde is is dat wanneer ik de zelfde code gebruik in een VB.NET applicatie of een VB6 applicatie alles wel werkt met config file.
Om een rechten kwestie uit te sluiten heb ik tijdelijk de ASPNET lid gemaakt van de administrators.
De config file is nodig want daar staan parameters in voor het maximaal aantal te openen bestanden deze kunnen Acucobol alleen maar vanuit een config file worden geset.
[ Voor 6% gewijzigd door Bats op 09-05-2005 11:10 . Reden: Extra informatie over de rechten ]