Hallo Thomas,
aber ich kann doch auf eine Statische Klasse, die Daten halten soll, nicht von "überall" zugreifen.
Ich zeig dir mal jetzt meinen Code, vielleicht wird das Verständnis einfacher, was ich vor habe.
Das Programm beginnt mit StartupTask.vb und soll MEINE GPIO-Klasse initialisieren wo alle Eigenschaften, Methoden und Funktionen zur Kommunikation mit den PINs enthalten sind. Dann ein Gerät hinzufügen, in diesem Fall ein 4-Stelliges Display und dort erstmal
die aktuellen Sekunden der aktuellen Zeit anzeigen, damit ich visuell sehen kann, das mein Programm gestartet wurde und bereit ist. Dann wird der Server gestartet.
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Net.Http
Imports Windows.ApplicationModel.Background
Imports Restup.Webserver.Models.Schemas
Imports Restup.Webserver.Attributes
Imports Restup.Webserver.Models.Contracts
Imports Restup.Webserver.Rest
Imports Restup.Webserver.Http
Public NotInheritable Class StartupTask
Implements IBackgroundTask
Private _Display As Pluto.WindowsIoT.Device.FourDigit7SegmentsDisplay = Nothing
Private _GPIOsInstance As Pluto.WindowsIoT.GPIOs = Nothing
Private WithEvents _Server As Pluto.WindowsIoT.Server = Nothing
Public Sub Run(taskInstance As IBackgroundTaskInstance) Implements IBackgroundTask.Run
' Display initialisieren
Dim DisplayConfig As New Pluto.WindowsIoT.DeviceConfigItem
DisplayConfig.Communication = Pluto.WindowsIoT.DeviceConfigCommuniationEnum.BitBanging
DisplayConfig.PinData = 27
DisplayConfig.PinClock = 18
DisplayConfig.PinStrobe = 17
_Display = New Pluto.WindowsIoT.Device.FourDigit7SegmentsDisplay(_GPIOsInstance, DisplayConfig)
_Display.Show(DateTime.Now.TimeOfDay.Seconds.ToString) ' Damit wir visuell sehen, das das Programm auf dem Pi gestartet wurde.
' Jetzt Restup starten
_Server = New Pluto.WindowsIoT.Server
_Server.Start()
' Programm im Hintergrund laufen lassen.
taskInstance.GetDeferral()
AddHandler taskInstance.Canceled, AddressOf TaskEnd
End Sub
''' <summary>
''' Wird ausgeführt, wenn der BackgroundTask beendet wurde.
''' </summary>
Private Async Sub TaskEnd()
'Await _Server.CloseAsncy()
End Sub
''' <summary>
''' Wird ausgeführt, wenn ein neuer Befehl über den Restup gekommen ist.
''' </summary>
''' <param name="Cmd"></param>
Private Sub NewCommand(Cmd As String) Handles _Server.NewCommand
_Display.Show(Cmd)
End Sub
End Class
Jetzt die Server-Klasse. Sie wartet bis die richtige URL aufgerufen wurde, ruft den jeweiligen Controller auf, der dann ein Event mit dem neuen "Text" auswerfen soll. Dieses Event soll (noch) StartupTask empfangen und dann an das Display den neuen
Text senden.
Imports Restup.Webserver.Models.Schemas
Imports Restup.Webserver.Attributes
Imports Restup.Webserver.Models.Contracts
Imports Restup.Webserver.Rest
Imports Restup.Webserver.Http
<RestController(InstanceCreationType.PerCall)>
Public NotInheritable Class Server
Private _WebServer As Restup.Webserver.Http.HttpServer = Nothing
Public Event NewCommand(Command As String)
Public Sub New()
End Sub
''' <summary>
''' Startet den Restup-Server um Nachrichten zu empfangen.
''' </summary>
Public Sub Start()
Dim restRouteHandler = New RestRouteHandler()
restRouteHandler.RegisterController(Of Server)()
Dim configuration = New HttpServerConfiguration().ListenOnPort(8800).RegisterRoute("api", restRouteHandler).EnableCors()
Dim httpServer = New HttpServer(configuration)
httpServer.StartServerAsync().Wait()
End Sub
''' <summary>
''' Wird ausgeführt, wenn die richtige URL aufgerufen wurde.
''' Zum Beispiel: http://192.168.1.182:8800/api/Display1/set/1234
''' </summary>
''' <param name="id"></param>
''' <param name="propName"></param>
''' <returns></returns>
<UriFormat("/{id}/set/{propName}")>
Public Function GetWithSimpleParameters(id As String, propName As String) As IGetResponse
RaiseEvent NewCommand(propName)
Return New GetResponse(GetResponse.ResponseStatus.OK)
End Function
End Class
Das funktioniert aber leider so nicht. Denn, was passiert jetzt? In der Klasse Server wird tatsächlich der Controller aufgerufen. Leider wird aber die Klasse Server von Restup aus komplett neu instanziiert, und folglich RaiseEvent komplett ins Leere.
Jetzt ist meine Frage: Wie kann ich es schaffen, dass, wenn der Controller aufgerufen wird, der Controller einer BESTEHENDEN Klasseninstanz aufgerufen wird? Ist das überhaupt möglich? Und wenn nein, gibt es überhaupt eine Möglichkeit?
Gruß
Andy
