Hat schon jemand die Huawei FusionSolar API umgesetzt

dive26 · 21. August 2022, 23:15

Hallo Leute,

ich würde gerne für meine Photovoltaikanlage über die Huawei Fusionsolar API Daten auslesen.

Leider finde ich keine VB.NET Beispiele dafür.
Hat das von Euch schon jemand gemacht und hat dafür Beispielcodes oder schon Klassen oder Module dafür geschrieben?

Die API-Beschreibung habe ich schon gefunden, weiß aber nicht ob diese noch aktuell ist: forum.huawei.com/enterprise/en…ount/thread/591478-100027

LG Roland

dive26 · 22. August 2022, 10:39

Mittlerweile habe ich einen API-Zugang von Huawei erhalten. Werde das aber später erst ausprobieren und hier berichten (oder jemand anders

).
Da der Abfrageintervall für Drittanbieter über die API 1 Minute beträgt, ist das wohl nicht so brauchbar.

Ich wende mich nun der Abfrage des Wechselrichters direkt über Modbus TCP zu, dazu eröffne ich aber einen eigenen Thread um thematisch im richtigen Forum zu bleiben.

#### NACHTRAG ####
Erste Versuche mit Postman waren erfolgreich. Huawei hat zu den Zugangsdaten auch gleich eine super API-Anleitung mitgeschickt.
Nun muss ich das nur noch in VB.NET umsetzen.

dive26 · 22. August 2022, 16:06

Ich habe es gewusst, meine erste Frage dazu ist schon da.
Ich konnte mich schon erfolgreich anmelden und bekam auch den Token.

Nun möchte ich den Code aber etwas kürzer (und schöner) machen.
Keine Ahnung was ich weglassen oder verändern kann.

VB.NET-Quellcode

''' <summary>
''' Login zur FusionSolar API
''' Es kommt ein XSFR-Token als Rückgabe, welcher in weiteren Abfragen als HTTP-Header "XSFR-Token" mitgeschickt werden muss
''' </summary>
''' <param name="userName">Login von Huawei erhalten</param>
''' <param name="systemCode">Passwort von Huawei erhalten</param>
Public Sub Huawei_API_Login(userName As String, systemCode As String)
Global_API_Response_XSRFTTOKEN = ""
Global_API_Response_Body = ""
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 'wegen https
Dim body As String =
"{
'userName':'" + userName + "',
'systemCode':'" + systemCode + "'
}"
body = body.Replace("'", """")
Dim data = Encoding.UTF8.GetBytes(body)
Dim APIResponse As String
Dim APIRequest = System.Net.HttpWebRequest.Create(API_URL_Login)
APIRequest.ContentLength = data.Length
APIRequest.ContentType = "application/json"
APIRequest.Method = "POST"
Using requestStream = APIRequest.GetRequestStream
requestStream.Write(data, 0, data.Length)
requestStream.Close()
Using responseStream = APIRequest.GetResponse.GetResponseStream
Using reader As New StreamReader(responseStream)
APIResponse = reader.ReadToEnd()
Global_API_Response_XSRFTTOKEN = APIRequest.GetResponse.Headers("XSRF-TOKEN")
End Using
End Using
End Using
Global_API_Response_Body = APIResponse
End Sub

dive26 · 22. August 2022, 20:47

So, nun habe ich den Dreh raus.
Die Oberfläche ist einmal funktionell - also um alles auszuprobieren und alle Werte auszulesen.
Wenn dann in ein bis 2 Wochen mein endgültiger Wechselrichter und die Speicher kommen, dann mache ich das Projekt fertig.
Also mit einer schönen Oberfläche - ähnlich wie meine Daikin-Steuerung.
Dann werde ich auch das eine oder andere Codefragment hier posten. Aber die API-Beschreibung von Huawei ist schon recht gut.

#### NACHTRAG #####
Erste lauffähige Version fertig.
Sobald der Akku installiert wurde, wird auch die (derzeit noch dummy-Anzeige) korrekt den Akkuinhalt anzeigen.
Laden mit einem > und entladen mit einem < grafisch vor der Füllanzeige.

dive26 · 30. August 2022, 15:51

Wollte Euch zeigen was ich bis jetzt schon hinbekommen habe.
Im Prinzip handelt es sich nur um API-Abfragen und auswerten von übergebenen JSON-Strings.

Das mit den JSON-Strings ist so eine Sache. Hier arbeite ich mit String-Operationen UND dem Dictionary.

Dksksm · 30. August 2022, 16:21

dive26 schrieb:

Das mit den JSON-Strings ist so eine Sache. Hier arbeite ich mit String-Operationen UND dem Dictionary.

Was ist an JSON denn so eine Sache? Dein JSON repräsentiert ein Datensatz, du (er)kennst offensichtlich nur den Aufbau der Klasse nicht.
Da gibt es Helferlein, wie ich gehört habe soll es direkt im VS gehen, ansonsten kann man sich das aber auch er-goggle-n: ein Treffer: jsonutils.com/

dive26 · 30. August 2022, 17:09

@Dksksm
Vielen Dank für den Hinweis.
Das werde ich beim nächsten Projekt mal so probieren.
Habs generell mit Klassen nicht so, kenn mich damit nicht wirklich 100%ig aus.
Danke für den Link, der ist sehr praktisch.

Dksksm · 30. August 2022, 17:55

Ich habe mal wild geggoglet und die verständlichsten Antworten für vb.net kamen von @SpaceyX hier aus diesem Forum.
Am ehesten dürfte die Antwort aus diesem Thread für sich interessant sein und sehr leicht für dich umsetzbar sein dazu: Zugriff aus JSON via API
Ansonsten bin ich auf dieses hier gestoßen (auch von SpaceyX), das setzt aber voraus, dass du dich wirklic mit JSON auseinandersetzen willst: Daten speichern und laden mit JSON

Ich denke ja eher, du machst dir keine Gedanken über Klassen. Jedenfalls verwendest du in jedem Fall Klassen.
Hint: Deine Formen sind alles Klassen.
Eine Klasse ist nichts anderes als ein Bauplan, sei es für eine Form oder für Daten.

dive26 · 30. August 2022, 20:41

@Dksksm
Das Problem bei den verlinkten Beiträgen ist, dass überall "newtonsoft" verwendet wird. Nix mit .NET Hausmitteln.
Da hätte ich der standalone .exe eine dll beilegen müssen. Das wollte ich aus diversen Gründen nicht.
Und man weiß nie, wann eine APi geändert wird. Wenn die Klasse nicht 1:1 mit allen API-Keys übereinstimmen, dann geht die ganze Sache schief.
Mit den Stringoperationen fische ich mir nur die relevanten Werte raus (brauchte vielleicht 10% des kompletten API Umfanges).

Aber soll nicht bedeuten, dass ich das mit Klasse und Newtonsoft nicht auch mal probieren werde.

-Franky- · 30. August 2022, 21:20

Hi

Die WinRT bietet einen Windows.Data.Json Namespace an: docs.microsoft.com/de-de/uwp/a…ata.json?view=winrt-22621 und dann gibt es noch den System.Text.Json Namespace: docs.microsoft.com/de-de/dotne…em.text.json?view=net-6.0

Dksksm · 31. August 2022, 07:01

@-Franky-: Wenn Du den Namesspace System.Text.JSON im .Net Framwork bis 4.8 nutzen willst, holst du dir aber eine ganze Armada von zusärtlichen Programmbibliotheken ins Boot. Bei NET 6.0 ist das dann tatsächlich nicht mehr der Fall, weil es da bereits voll integriert ist. Das ist auch für mich einer der Hauptgründe weiter mit NewtonSoft zu machen, da ist es wenigstens nur eine Programmbibliothek.

-Franky- · 31. August 2022, 07:13

@Dksksm
Da hast du sicherlich recht. Ich hab schon seit ewigkeiten nichts mehr mit JSON zu tun gehabt. Ich würde aber davon ausgehen das entsprechende Bibliotheken bereits auf dem System vorhanden sind und keine weitere, zusätzliche Bibliothek mit ausgeliefert werden muss.

Dksksm · 31. August 2022, 08:13

Meine Werkzeuge werden auch nicht installiert, sondern nur auf die jeweiligen Rechner kopiert. Nein, ohne diese DLLs läuft da gar nichts. Sie sind eben nicht Bestandteil von Standard-Frameworks.

So die Antwort hat jetzt gedauert, weil ich wollte es sauber nochmals testen.
Verwendetes Framework: .NET Framwork 4.8
Installiere NuGet Paket System.Text.JSON, mit installiert wird (siehe Bild):

Ich habe aus dem Release-Verzeichnis bis auf die
System.Text.Json.dll
selbst sämtliche andere DLLs zunächst gelöscht und dann serialisiert und de-serialisiert bis mir das Programm nicht mehr crashte und sie da, ich brauchte alle(!) DLL's sogar auf meinem Entwicklungsrechner:

Microsoft.Bcl.AsyncInterfaces.dll
System.Buffers.dll
System.Memory.dll
System.Numerics.Vectors.dll
System.Runtime.CompilerServices.Unsafe.dll
System.Text.Encodings.Web.dll
System.Threading.Tasks.Extensions.dll
System.ValueTuple.dll

Das ist ein ganzer Haufen DLSs finde ich. Deshalb kommt für mich unter .NET Framwork 4.8 nur NewtonSoft in Frage.
Gar keine Frage, unter .NET 6.0 sähe meine Entscheidung vermutlich ganz anders aus.

-Franky- · 31. August 2022, 10:04

@Dksksm
Oha. Ist ja doch ein ganzer Haufen DLLs. Na dann würde ich vllt doch mal den WinRT JSON-Namespace ausprobieren. Der steht allerdings erst ab Win10 zur Verfügung. Dazu müssten mindestens 2 Verweise eigebunden werden.
C:\Program Files (x86)\Windows Kits\10\References\10.0.22621.0\Windows.Foundation.FoundationContract\4.0.0.0\Windows.Foundation.FoundationContract.winmd
C:\Program Files (x86)\Windows Kits\10\References\10.0.22621.0\Windows.Foundation.UniversalApiContract\15.0.0.0\Windows.Foundation.UniversalApiContract.winmd

Wobei man schauen muss welche Windows Kits\10\References\xxxxx und welche Version der FoundationContract / UniversalApiContract vorhanden sind. Ohne Verweise geht es natürlich auch. Sind ja ganz normale COM-Interfaces.

-Franky- · 2. September 2022, 08:59

@Dksksm @dive26

Hab mir nochmal dazu Gedanken gemacht. Benötigt wird die Referenz auf "C:\Program Files (x86)\Windows Kits\10\UnionMetadata\10.0.22621.0\Windows.winmd". Bei "UnionMetadata" muss man halt schauen welche Version vorhanden ist und dann in die höchste Versionsnummer gehen und da die Windows.winmd nutzen. Wie geschrieben, geht das ganze erst ab Win10! Für darunter würde ich sowieso nichts mehr entwickeln.

Der JSON-String zum testen schaut so aus und ist in einer Datei json.txt abgelegt.

Quellcode

{
"Name": "Apple",
"Expiry": "2008-12-28T00:00:00",
"Price": 3.99,
"Sizes": [
"Small",
"Medium",
"Large"
]
}

und um diesen zu verarbeiten...

VB.NET-Quellcode

Imports Windows.Data
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim JsonStr As String = System.IO.File.ReadAllText("d:\json.txt")
Dim JsonObj As Json.JsonObject = Nothing
If Json.JsonObject.TryParse(JsonStr, JsonObj) Then
Debug.Print(JsonObj.GetNamedString("Name"))
Debug.Print(JsonObj.GetNamedString("Expiry"))
Debug.Print(JsonObj.GetNamedNumber("Price").ToString)
Dim JsonArr As Json.JsonArray = JsonObj.GetNamedArray("Sizes")
For Each JsonVal In JsonArr
Debug.Print(JsonVal.Stringify)
Next
End If
End Sub
End Class

dive26 · 2. September 2022, 09:17

Wie Ihr schon ganz richtig alle geschrieben habt, ohne externe DLL geht es nicht, wenn man in .NET was JSON-Spezifisches einbinden möchte.
Daher bleibe ich bei meiner zwar nicht eleganten, aber funktionierenden Stringoperations+Dict Methode.

Hier ein einfaches Beispie:

VB.NET-Quellcode

'JSON Infos auslesen
'[ und ] und alles davor und danach entfernen
Dim Position1 As Integer = InStr(Global_API_Response_Body, "[")
Dim Position2 As Integer = InStr(Global_API_Response_Body, "]")
Dim JSONString As String
If Position1 > 0 And Position2 > 0 Then
JSONString = Mid(Global_API_Response_Body, Position1 + 1, Position2 - Position1 - 1)
Else
Exit Sub
End If
'dataItemMap": und und alles davor und danach entfernen
Position1 = InStr(JSONString, "dataItemMap")
If Position1 > 0 Then
JSONString = Microsoft.VisualBasic.Right(JSONString, JSONString.Length - Position1 - 12)
JSONString = Microsoft.VisualBasic.Left(JSONString, JSONString.Length - 1)
Else
Exit Sub
End If
Dim dict As Dictionary(Of Object, Object)
Dim jss As New JavaScriptSerializer()
dict = jss.Deserialize(Of Dictionary(Of Object, Object))(JSONString)
Global_RealKPI_total_power = dict("total_power").ToString
Global_RealKPI_day_power = dict("day_power").ToString
Global_RealKPI_month_power = dict("month_power").ToString

Sobald mehr als ein Datensatz in geschwungenen Klammern in der JSON steht, muss ich diese in Einzelstrings aufteilen, damit die DICT damit was anfangen kann. Ist aber auch keine Hexerei:

VB.NET-Quellcode

'Überprüfen, ob mehr als ein Wechselrichter in den Daten ist },{
If InStr(JSONString, "},{") <> 0 Then
'mehrere Wechselrichterdaten übermittelt
JSONString = JSONString.Replace("},{", "}♀{") 'Alt-12
Dim InverterSingleJSON() As String = JSONString.Split("♀"c)
'Alle Daten durchgehen
For i As Integer = 0 To InverterSingleJSON.Count - 1

Das Sonderzeichen ♀ verwende ich als Split-Charakter, weil es garantiert nicht als Zeichen in den Datensätzen vorkommt.

Wie gesagt, alles nicht schön, aber funktioniert hervorragend für meine Ansprüche.
Sobald es natürlich in weiter verschachtelte JSON-Strings geht, wirds kompliziert. Aber die brauche ich aktuell auch nicht.

Und ja, ich verwende immer noch den VisualBasic Namespace ;-). Schande über mich, aber ich habe mir die .NET Equivalente bisher nicht wirklich merken können ;-).

Dksksm · 2. September 2022, 09:24

Hallo @-Franky-,

ich bin da völlig raus, meine Datenverwurstellungsprogramme müssen ohne Datenbank auskommen, also habe ich Model-Klassen und die darauf basierenden Daten speichere ich als JSON. Das läuft lokal auf einer handvoll Rechner im Konzern. Adminrechte hat niemand der Betroffenen, ich auch nicht. Ich habe lediglich VS Prof. 2019 installiert bekommen und kann das nicht mal Updaten, ist also auch schon 3 Jahre alt die Installation. Deine Verzeichnisstruktur habe ich so nicht, ich denke dazu bräuchte ich auch noch die "Entwicklung für die universelle Windows-Plattform" was ich nicht habe. Aber schön zu sehen, dass man mit vielleicht noch weniger Aufwand @dive26 helfen kann von wilden String-Operationen UND dem Dictionary wegzukommen.

dive26 · 2. September 2022, 09:30

@-Franky-

Und wie würdest Du sowas auslesen, wenn man nicht weiß wie viele Datensätze da drin sind (in diesem Fall wären es 3)?

VB.NET-Quellcode

{
{"Name": "Apple","Expiry": "2008-12-28T00:00:00","Price": 3.99,"Sizes": ["Small","Medium","Large"]},
{"Name": "Apple","Expiry": "2008-12-28T00:00:00","Price": 3.99,"Sizes": ["Small","Medium","Large"]},
{"Name": "Apple","Expiry": "2008-12-28T00:00:00","Price": 3.99,"Sizes": ["Small","Medium","Large"]}
}

-Franky- · 2. September 2022, 09:49

@dive26

Wie schon geschrieben, ist es sehr lange her das ich mich mal mit JSON beschäftigt hatte. Auf den ersten Blick würde ich aber sagen das der JSON-String so nicht valide ist.

dive26 · 12. September 2022, 14:57

Vielen Dank für Eure zahlreichen Tipps rund um JSON und die Huawei API.

Ich habe mir erlaubt die API-Beschreibung diesem Kommentar beizufügen, falls das jemand von Euch ebenfalls umsetzen möchte.

Die kostenlose Software für Huawei SUN2000 und LUNA2000 Besitzer:innen ist nun so gut wie fertig.
Klar, werden immer noch kleine Feinheiten ausgebessert.
Die App ist zweisprachig (deutsch, englisch).
Die Oberfläche besteht im Wesentlichen aus Listviews und Panels.
Die Listviews sind nicht als solche zu erkennen (nur wenn man auf einen Eintrag klickt).
Die Charts werden direkt im Paint-Event auf die Panels gezeichnet.
Damit ist man viel individueller als mit dem MS-Chart Control.

Die Anbindung an die Wallbox, die DAIKIN Klimaanlage und den myStrom Switch wurden ebenfalls mit deren APIs umgesetzt.
Diese sind um einiges einfacher als die Huawei API.

Hier zum Schmunzeln nochmals meine Art einfache JSON Dateien ohne externe Komponenten auszulesen:

VB.NET-Quellcode

Public Function MyStrom_status() As String
MyStrom_status = BOComponent.BODownloadGETJSON("http://" + My.Settings.myStromIP + "/report")
Dim dict As Dictionary(Of Object, Object)
Dim jss As New JavaScriptSerializer()
dict = jss.Deserialize(Of Dictionary(Of Object, Object))(MyStrom_status)
'Hier alle Daten aus dem JSON Konstrukt auslesen
MyStromPower = CDbl(dict("power"))
MyStromTemperatur = CDbl(dict("temperature"))
MyStromEin = CBool(dict("relay"))
MyStromWS = CDbl(dict("Ws"))
'{
' "power": 1.69,
' "Ws": 0.81,
' "relay": true,
' "temperature": 24.87
'}
'power: The current power consumed by devices attached to the switch
'relay: The current state of the relay (wether Or Not the relay Is currently turned on)
'temperature: The currently measured temperature by the switch. (Might initially be wrong, but will automatically correct itself over the span of a few hours)
'Ws: The average of energy consumed per second from last call this request.
End Function

Hier einige Tipps, welche man bei der Umsetzung der API beachten sollte:

1) versucht so viele BETA-Tester mit ins Boot zu holen, damit Ihr wirklich alle möglichen Anlangenkonstellationen testen könnt.
Ich hatte 8 BETA-Tester, einer davon ein Solarteur mit über 60 Anlagen. Also konnte ich wirklich sehr vieles durchtesten.

2) Man muss bei der API-Abfrage beachten, dass einige Parameter immer für jeden Wechselrichter einzeln übermittelt werden.
Es können aber auch mehrere Wechselrichter im System sein - somit muss man mit einer gewissen Logik alle Daten zusammenführen.

3) Die API erlaubt Abfragen nicht all zu schnell hintereinander. Man sollte also nicht zu oft und nicht zu schnell hintereinander abfragen.

4) Ich habe alle Varianten der API-Kommunikation vorher mit dem Programm "Postman" durchgespielt. Das hilft enorm.

Für Fragen, Kritik, Ideen und Anregung bin ich sehr dankbar.

Hat schon jemand die Huawei FusionSolar API umgesetzt

Hat schon jemand die Huawei FusionSolar API umgesetzt

VB.NET-Quellcode

dive26 schrieb:

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 2

Ähnliche Themen

3 Benutzer haben hier geschrieben