AppCustom/WinLineProductNumberGenerator
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add basic logging for webservices

Browse Source
This commit is contained in:
Jonathan Jenne 2020-09-23 10:12:20 +02:00
parent 36937abe4c
commit e71d9d7668
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
WinLineArtikelnummerGenerator/Winline.vb
View File

@ -155,6 +155,8 @@ Public Class Winline
oURI &= $"?{oQuery}" oURI &= $"?{oQuery}"
_Logger.Info("WebService Request: {0}", oURI)
Dim oRequest As HttpWebRequest = WebRequest.Create(oURI) Dim oRequest As HttpWebRequest = WebRequest.Create(oURI)
Dim oResponse As HttpWebResponse = DirectCast(oRequest.GetResponse(), HttpWebResponse) Dim oResponse As HttpWebResponse = DirectCast(oRequest.GetResponse(), HttpWebResponse)
Dim oXmlResponse As String Dim oXmlResponse As String
@ -163,6 +165,8 @@ Public Class Winline
oXmlResponse = oReader.ReadToEnd() oXmlResponse = oReader.ReadToEnd()
End Using End Using
_Logger.Info("WebService Response: {0}", oXmlResponse)
Dim oDocument As New XmlDocument Dim oDocument As New XmlDocument
oDocument.LoadXml(oXmlResponse) oDocument.LoadXml(oXmlResponse)
oDocument.Save(Console.Out) oDocument.Save(Console.Out)