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

Compare commits

base: AppCustom:6b2c0b696b5e1fc94dde9c3e48003923deb30c7f
Branches Tags
AppCustom:master
...
compare: AppCustom:e71d9d76681d1eb397057335fd963a66672d869d
Branches Tags
AppCustom:master

2 Commits
6b2c0b696b ... e71d9d7668

Author SHA1 Message Date
Jonathan Jenne
e71d9d7668 add basic logging for webservices 2020-09-23 10:12:20 +02:00
Jonathan Jenne
36937abe4c change config/log path to startup directory 2020-09-23 10:12:03 +02:00
2 changed files with 14 additions and 2 deletions
Show Stats 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)

12
WinLineArtikelnummerGenerator/frmMain.vb
View File

@ -4,8 +4,16 @@
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try Try
My.Application.LogConfig = New LogConfig(LogPath:=LogConfig.PathType.AppData, CompanyName:="Digital Data", ProductName:="WinLineProductNumberGenerator") My.Application.LogConfig = New LogConfig(
My.Application.ConfigManager = New ConfigManager(Of Config)(My.Application.LogConfig, Application.UserAppDataPath) LogPath:=LogConfig.PathType.CustomPath,
CustomLogPath:=Application.StartupPath,
CompanyName:="Digital Data",
ProductName:="WinLineProductNumberGenerator"
)
My.Application.ConfigManager = New ConfigManager(Of Config)(
My.Application.LogConfig,
Application.StartupPath
)
_Logger = My.Application.LogConfig.GetLogger() _Logger = My.Application.LogConfig.GetLogger()
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Initialisieren (Logging und Config):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) MsgBox("Fehler beim Initialisieren (Logging und Config):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)