Erstellung eines sehr einfachen Provider

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von exc-jdbi.

    Erstellung eines sehr einfachen Provider

    Hallo Community

    Hab mir einen sehr einfachen Provider gemacht. Der funkst auch.

    Das einzige was mich aber stört ist folgende Zeile in der Main.

    VB.NET-Quellcode

    1. Dim provider = DirectCast(top.Provider, IProvider1)

    Ich muss also die Variable raus nehmen, und kurz konvertieren, damit ich dann Zugriff auf die Methoden 'Start' habe.

    Hat jemand einen Tipp wie man das machen könnte, ohne das die Variable rausgenommen werden muss, aber der Zugriff auf die Methoden Start trotzdem vorhanden sind? Oder soll ich da wirklich auf eines der Pattern zurückgreifen?

    Danke für die Antwort.

    Freundliche Grüsse

    exc-jdbi


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Public Module Module2
    5. Public Sub Main()
    6. Dim top = New TopProvider(1)
    7. 'top.Provider ' <<< Keinen Zugriff auf die Methoden 'Start'
    9. Dim provider = DirectCast(top.Provider, IProvider1)
    10. Console.WriteLine(provider.Start())
    12. Stop
    13. End Sub
    15. End Module
    17. Public Class TopProvider
    18. Public Provider As IProvider
    20. Sub New(_provider As Int32)
    21. Me.NewInit(_provider)
    22. End Sub
    24. Public Sub NewInit(_provider As Int32)
    25. If _provider = 1 Then Me.Provider = New Provider1 : Return
    26. If _provider = 2 Then Me.Provider = New Provider2 : Return
    28. Throw New TypeInitializationException(GetType(Provider1).FullName,
    29. New Exception(NameOf(_provider)))
    30. End Sub
    31. End Class
    33. Public Interface IProvider
    34. End Interface
    36. Public Interface IProvider1
    37. Inherits IProvider
    38. Function Start() As String
    39. End Interface
    41. Public Interface IProvider2
    42. Inherits IProvider
    43. Function Start() As String
    44. End Interface
    46. Friend Class Provider1
    47. Implements IProvider1
    49. Private Function IProvider1_Start() As String Implements IProvider1.Start
    50. Return NameOf(Provider1)
    51. End Function
    52. End Class
    54. Friend Class Provider2
    55. Implements IProvider2
    57. Public Function IProvider2_Start() As String Implements IProvider2.Start
    58. Return NameOf(Provider2)
    59. End Function
    60. End Class

    @exc-jdbi Klar. Die Prozedur Start() ist nur in den abgeleiteten Interfaces vorhanden. Du kannst nur dann per IProvider darauf zugreifen, wenn sie in IProvider deklariert wurde:

    VB.NET-Quellcode

    1. Public Interface IProvider
    2. Function Start() As String
    3. End Interface
    und feddich.
    Welchen Zweck hat denn die Implementierung der Interfaces IProvider1 und IProvider2?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke @RodFromGermany

    Ich hab mir schon eine etwas angepasste Lösung jetzt gemacht. Das reicht für den kleinen Zweck für das ich es brauche.
    Wollte keinen grossen Umfang machen, und trotzdem die Flexibilität haben zum späteren Zeitpunkt weitere solcher "Providers" hinzufügen, ohne das ich den Code gross umstellen muss.

    Ach so das habe ich vergessen zu erwähnen, nur die Interfaces sind Public. Die Klassen sind Friend bzw. internal und das Ganze befindet sich in einer Dll ausser natürlich die Main.


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Public Module Module3
    5. Public Sub Main()
    6. Dim tp = New GlobalProvider(Of IProvider11)
    7. Dim provider = tp.ToProvider
    8. provider.Start()
    9. Stop
    10. End Sub
    12. End Module
    14. Public Class GlobalProvider(Of T As Class)
    15. Private Provider As IProvider(Of T)
    17. Sub New()
    18. If GetType(T) Is GetType(IProvider11) Then Me.Provider = DirectCast(New Provider11, IProvider(Of T))
    19. If GetType(T) Is GetType(IProvider22) Then Me.Provider = DirectCast(New Provider22, IProvider(Of T))
    21. If Me.Provider Is Nothing Then
    22. Throw New TypeAccessException
    23. End If
    24. End Sub
    26. Public Function ToProvider() As T
    27. Return DirectCast(Me.Provider, T)
    28. End Function
    29. End Class
    31. Public Interface IProvider(Of T)
    32. End Interface
    34. Interface IProvider11
    35. Inherits IProvider(Of IProvider11)
    36. Function Start() As String
    37. End Interface
    39. Interface IProvider22
    40. Inherits IProvider(Of IProvider22)
    41. Function Start() As String
    42. End Interface
    44. Friend Class Provider11
    45. Implements IProvider11
    47. Public Function Start() As String Implements IProvider11.Start
    48. Return NameOf(IProvider11)
    49. End Function
    50. End Class
    52. Friend Class Provider22
    53. Implements IProvider22
    55. Public Function Start() As String Implements IProvider22.Start
    56. Return NameOf(IProvider22)
    57. End Function
    58. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „exc-jdbi“ ()

Facebook
Telefonspende