1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
Namespace OkResult
''' <summary>
''' flexible Rückgabeparameter
''' mit einer evtl. Fehlermeldung
''' </summary>
''' <remarks></remarks>
Interface IBoolMultiResult
Property IsOk() As Boolean
Property ErrMsg() As String
End Interface
''' <summary>
''' flexible Rückgabeparameter
''' mit typgerechter Rückgabe und
''' mit einer evtl. Fehlermeldung
''' </summary>
''' <typeparam name="T"></typeparam>
''' <remarks></remarks>
Interface IBoolObjectResult(Of T)
Property IsOk() As Boolean
Property Result() As T
Property ErrMsg() As String
End Interface
Public Class BoolResult
Implements IBoolMultiResult
Private m_err As String = ""
Private m_IsOK As Boolean
Public Sub New()
End Sub
Public Sub New(ByVal bIsOk As Boolean, Optional ByVal sErrMsg As String = "")
m_err = sErrMsg : m_IsOK = bIsOk
End Sub
''' <summary>
''' Bei IsOK=false sollte hier eine Fehlermeldung stehen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Property ErrMsg() As String Implements IBoolMultiResult.ErrMsg
Get
Return m_err
End Get
Set(ByVal value As String)
m_err = value
End Set
End Property
''' <summary>
''' Ob die Aktion mit/ohne Fehler abgeschlossen wurde
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Property IsOk() As Boolean Implements IBoolMultiResult.IsOk
Get
Return m_IsOK
End Get
Set(ByVal value As Boolean)
m_IsOK = value
End Set
End Property
End Class
Public Class ObjectResult(Of T)
Implements IBoolObjectResult(Of T)
Private m_err As String = ""
Private m_IsOK As Boolean
Private m_Result As T
Public Sub New()
End Sub
Public Sub New(ByVal tResult As T, ByVal bIsOk As Boolean, Optional ByVal sErrMsg As String = "")
m_err = sErrMsg : m_IsOK = bIsOk
m_Result = tResult
End Sub
''' <summary>
''' Bei IsOK=false sollte hier eine Fehlermeldung stehen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Property ErrMsg() As String Implements IBoolObjectResult(Of T).ErrMsg
Get
Return m_err
End Get
Set(ByVal value As String)
m_err = value
End Set
End Property
''' <summary>
''' Ob die Aktion mit/ohne Fehler abgeschlossen wurde
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Property IsOk() As Boolean Implements IBoolObjectResult(Of T).IsOk
Get
Return m_IsOK
End Get
Set(ByVal value As Boolean)
m_IsOK = value
End Set
End Property
''' <summary>
''' Übergabe des Ergebnisses (oder Nothing)
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Property Result() As T Implements IBoolObjectResult(Of T).Result
Get
Return m_Result
End Get
Set(ByVal value As T)
m_Result = value
End Set
End Property
End Class
Public Class testCls
Public Shared Function CopyFile(ByVal Quelldatei As String, ByVal ZielDatei As String) As BoolResult
If (Not IO.File.Exists(Quelldatei)) OrElse (String.IsNullOrEmpty(ZielDatei)) Then
Return New BoolResult(False, "Ungültige Parameterübergabe")
End If
Try
My.Computer.FileSystem.CopyFile(Quelldatei, ZielDatei)
Catch ex As Exception
Return New BoolResult(False, ex.Message)
End Try
Return New BoolResult(True)
End Function
End Class
Public Shared Function LoadEffects() As OkResult.ObjectResult(Of DataTable)
Dim res As New OkResult.ObjectResult(Of DataTable)
Dim path As String = My.Application.Info.DirectoryPath
Dim file As String = String.Format("{0}\SmsEffekt.xml", path)
If IO.File.Exists(file) Then
Try
Dim dt As New DataTable
dt.ReadXml(file)
Return New OkResult.ObjectResult(Of DataTable)(dt, True)
Catch ex As Exception
Return New OkResult.ObjectResult(Of DataTable)(Nothing, False, ex.Message)
End Try
End If
Return New OkResult.ObjectResult(Of DataTable)(Nothing, False, "Datei nicht gefunden " + file)
End Function
End Namespace
|