EcoPower 4.7 - Daten auslesen - serielle Schnittstelle

SunsetGolfer · 6. April 2021

Hallo BHKW-Freunde!

Mein EcoPower 4.7 ist jetzt über 10 Jahre alt - läuft aber seit dem Motortausch gut.

Der Besuch mit dem Notebook im Keller um die Daten auszulesen hat mich immer genervt - da musste eine andere Lösung her.

Mit Hilfe einses RaspberryPi, eines seriel-to-usb-Adapters und etwas Software habe ich die serielle Schnittstelle über unser WLAN bis zum Notebook im Wohnzimmer verlängert.

Hier läuft die EcoServ-Software unter Windows.

Da ich meine Daten aber in einer Datenbank sammele, muss ich diese in EcoServ exportieren, konvertieren und dann in die DB einspielen - nervige manuelle Arbeit...

Ich würde also gerne die Daten direkt an der seriellen Schnittstelle abholen und in die DB einspielen.

Leider habe ich keinerlei Info über das verwendete Protokoll an dieser Stelle..

Auch keinen Hersteller-Kontakt - Vaillant kann dazu nix sagen.

Kann vielleicht jemand von Euch helfen?

lG aus Münster

Jörg

SunsetGolfer · 6. Dezember 2022

Ich würde mich nach wie vor über Eure Unterstützung hierzu freuen.

Jeder kleine Hinweis ist mehr als willkommen...

lG Jörg

Fantomas · 30. Januar 2024

Hallo Jörg,

ist ja schon etwas älter deine Anfrage. Falls das Thema noch akuell ist ...

Ich mach das folgendermaßen:

am BHKW habe ich einen MiniPC mit Windows und EcoServe ständig laufen.

Mithilfe des Programms Autohotkey lese ich die Werte quasi vom Bildschirm ab. Es wird dabei der aktuelle Wert der einzelnen Felder in Variablen gespeichert. Alle Messwerte fasse ich in einer Variable im JSON-Format zusammen und diese sende ich alle 30 Sekunden über MQTT an meinen Home Assistant (Könnte auber auch dein Datenbankserver sein). Hier speichere ich die Werte und kann dann analysieren oder grafisch aufbereiten

Code

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
;Version 1.1
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
SetTitleMatchMode, 2
DetectHiddenWindows, On

loop
{

;fenster := "ecopower - ecoServ zum Mini-BHKW"
;msgbox %fenstertitel%

;WinMaximize, "ecopower - ecoServ zum Mini-BHKW"

if WinExist("ecopower - ecoServ zum Mini-BHKW")
{    
    WinActivate ; Use the window found by WinExist.
    WinWaitActive
    WinMaximize
    ;WinRestore
    ;send !m

}
else
{
    Run, C:\Program Files (x86)\ecoserv2.63\ecoServ.exe,,Max
    sleep 5000
    WinWaitActive, ecopower - ecoServ zum Mini-BHKW,, 2
    if ErrorLevel
    {
        MsgBox, Ecoserve schließen und dann neu starten
        ExitApp
    }
    else
        send !m
        sleep 1000
        send !v
        sleep 2000
    }

ControlGetText,dzsoll,TDispValues14
ControlGetText,bhkwFehler,TDispValues23
ControlGetText,elLeistung,TDispValues24
ControlGetText,thermLeistung,TDispValues5
ControlGetText,kuehlfluessigkeit,TDispValues3
ControlGetText,bhkwRuecklauf,TDispValues2
ControlGetText,speicherU,TDispValues7
ControlGetText,speicherM,TDispValues8
ControlGetText,speicherO,TDispValues9
ControlGetText,dzist,TDispValues17
ControlGetText,betriebsStunden,TDispValues37
ControlGetText,LambdaHeizung,TDispValues29
ControlGet, warnungen, List,Selected, TBHKWErrorListBox1
;ControlGet, aktFehler, LineCount,, TBHKWErrorListBox2
ControlGet, aktFehler, List,Selected, TBHKWErrorListBox2

if (bhkwFehler = "Sicherheit")
{
    send !z
    sleep 100
    send s
    sleep 500
}

StringReplace,warnungen,warnungen,`r`n`r`n,X,All
warnungen := RegExReplace(warnungen, "\r\n|\r|\n", " / ")
aktFehler := RegExReplace(aktFehler, "\r\n|\r|\n", " / ")
;msgbox %aktFehler%

FormatTime, Timestamp,A_Now,  dd.MM.yyyy HH:mm:ss tt
;msgbox %Timestamp%
mqtt = "
(
{
    \"Timestamp\": \"%Timestamp%\",
    \"dzsoll\": %dzsoll%,
    \"dzist\": %dzist%,
    \"bhkwFehler\": \"%bhkwFehler%\",
    \"elLeistung\": %elLeistung%,
    \"thermLeistung\": %thermLeistung%,
    \"kuehlflüssigkeit\": %kuehlfluessigkeit%,
    \"bhkwRuecklauf\": %bhkwRuecklauf%,
    \"speicherU\": %speicherU%,
    \"speicherM\": %speicherM%,
    \"speicherO\": %speicherO%,
    \"BetriebsStunden\": %betriebsStunden%,
    \"LambdaHeizung\": \"%LambdaHeizung%\",
    \"warnungen\": \"%warnungen%\",
    \"aktFehler\": \"%aktFehler%\"
}
)"


run, C:\Users\pc\Documents\bhkw\MQTT\mqtt-cli.exe pub -h 192.168.178.22 -u MQTT_user -pw Geheim -t sensors/keller/bhkw -m %mqtt%,,Min

sleep 30000

}

Alles anzeigen

Mein gutes Stück ist von 2002, läuft - aber will auch täglich gestreichelt werden.

Liebe Grüße aus dem Harz

Thomas

SunsetGolfer · 30. Januar 2024

Danke lieber Thomas.

Was lange währt...

Habe mal was Ähnliches, direkt vom Bildschirm lesen, versucht, hat aber nicht funktioniert.

Werden das aber jetzt noch einmal versuchen....

lG Jörg

SunsetGolfer · 3. Februar 2024

Mit AutoHotKey hatte ich noch nie zu tun...

Habe ein paar Werte angepasst und ergänzt.

Läuft bei mir jetzt im Probebetrieb...

Nochmal besten Dank, lieber Thomas!

Code

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
;Version 1.1
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
SetTitleMatchMode, 2
DetectHiddenWindows, On

loop
{

;fenster := "ecopower - ecoServ zum Mini-BHKW"
;msgbox %fenstertitel%

;WinMaximize, "ecopower - ecoServ zum Mini-BHKW"

if WinExist("ecoServ - ecoPOWER 3.0/4.7")
{    
    WinActivate ; Use the window found by WinExist.
    WinWaitActive
    ;WinMaximize
    ;WinRestore
    ;send !m

}
else
{
    Run, C:\Users\weichelt\Desktop\BHKW - ecoServ_C-1\ecoServ.exe,,Max
    sleep 5000
    WinWaitActive, ecoServ - ecoPOWER 3.0/4.7,, 2
    if ErrorLevel
    {
        MsgBox, Ecoserve schließen und dann neu starten
        ExitApp
    }
    else
        send !m
        sleep 1000
        send !v
        sleep 2000
    }

ControlGetText,T_SP3_unten,TDispValues2
ControlGetText,T_SP2_mitte,TDispValues3
ControlGetText,T_RL_BHKW,TDispValues4
ControlGetText,Kuehlfluessigkeit,TDispValues5
ControlGetText,Betriebsmodus,TDispValues6
ControlGetText,ThermLeistung,TDispValues7
ControlGetText,dzsoll,TDispValues8
ControlGetText,T_SP1_WW,TDispValues9
ControlGetText,GasMotor,TDispValues10
ControlGetText,GasSteuerung,TDispValues11
ControlGetText,DzSollMotor,TDispValues12
ControlGetText,DzSollWechsel,TDispValues13
ControlGetText,DzSollSteuerung,TDispValues14
ControlGetText,DzIstMotor,TDispValues15
ControlGetText,DzIstWechsel,TDispValues16
ControlGetText,DzIstSteuerung,TDispValues17
ControlGetText,Warnungen,TDispValues19
ControlGetText,Motorelektronik,TDispValues20
ControlGetText,Wechselrichter,TDispValues21
ControlGetText,Steuerung,TDispValues22
ControlGetText,BHKWFehler,TDispValues23
ControlGetText,ElLeistung,TDispValues24
ControlGetText,RaumTemp2,TDispValues33
ControlGetText,VorlaufTemp2,TDispValues38
ControlGetText,AussenTemp,TDispValues40
ControlGetText,AussenTempMid,TDispValues41
ControlGetText,VorlaufTemp1,TDispValues43
ControlGetText,RaumTemp1,TDispValues46
ControlGetText,BetriebsStunden,TDispValues79
ControlGetText,ElEnergie,TDispValues83
ControlGet,Warnungen,List, Selected,TBHKWErrorListBox1
ControlGet,AktuelleEreignisse,List, Selected,TBHKWErrorListBox2

if (bhkwFehler = "Sicherheit")
{
    send !z
    sleep 100
    send s
    sleep 500
}

StringReplace,warnungen,warnungen,`r`n`r`n,X,All
warnungen := RegExReplace(warnungen, "\r\n|\r|\n", " / ")
aktFehler := RegExReplace(aktFehler, "\r\n|\r|\n", " / ")
;msgbox %aktFehler%

FormatTime, Timestamp,A_Now,  dd.MM.yyyy HH:mm:ss tt
;msgbox %Timestamp%
mqtt = "
(
{
    \"Timestamp\": \"%Timestamp%\",
    \"T_SP3_unten\": \"%T_SP3_unten%\",
    \"T_SP2_mitte\": \"%T_SP2_mitte%\",
    \"T_RL_BHKW\": \"%T_RL_BHKW%\",
    \"Kuehlfluessigkeit\": \"%Kuehlfluessigkeit%\",
    \"Betriebsmodus\": \"%Betriebsmodus%\",
    \"ThermLeistung\": \"%ThermLeistung%\",
    \"dzsoll\": \"%dzsoll%\",
    \"T_SP1_WW\": \"%T_SP1_WW%\",
    \"GasMotor\": \"%GasMotor%\",
    \"GasSteuerung\": \"%GasSteuerung%\",
    \"DzSollMotor\": \"%DzSollMotor%\",
    \"DzSollWechsel\": \"%DzSollWechsel%\",
    \"DzSollSteuerung\": \"%DzSollSteuerung%\",
    \"DzIstMotor\": \"%DzIstMotor%\",
    \"DzIstWechsel\": \"%DzIstWechsel%\",
    \"DzIstSteuerung\": \"%DzIstSteuerung%\",
    \"Warnungen\": \"%Warnungen%\",
    \"Motorelektronik\": \"%Motorelektronik%\",
    \"Wechselrichter\": \"%Wechselrichter%\",
    \"Steuerung\": \"%Steuerung%\",
    \"BHKWFehler\": \"%BHKWFehler%\",
    \"ElLeistung\": \"%ElLeistung%\",
    \"RaumTemp2\": \"%RaumTemp2%\",
    \"VorlaufTemp2\": \"%VorlaufTemp2%\",
    \"AussenTemp\": \"%AussenTemp%\",
    \"AussenTempMid\": \"%AussenTempMid%\",
    \"VorlaufTemp1\": \"%VorlaufTemp1%\",
    \"RaumTemp1\": \"%RaumTemp1%\",
    \"BetriebsStunden\": \"%BetriebsStunden%\",
    \"ElEnergie\": \"%ElEnergie%\"
}
)"


run, C:\Users\weichelt\Desktop\mqtt-cli.exe pub -h 192.168.1.2 -u geheim -pw geheim -t sensors/keller/bhkw -m %mqtt%,,Min

sleep 30000

}

Alles anzeigen

Fantomas · 6. Februar 2024

Hallo Jörg,

ja, AutoHotKey ist ziemlich mächtig. Man kann in Windows recht viel (fast alles) automatisieren. Kannst mich ja auf dem Laufenden halten, ob du Erfolg hattest.

Grüße

Thomas

SunsetGolfer · 8. Februar 2024

Einiges klappt, aber ich kämpfe noch:

Die Elemente schein manchmal ihre Namen zu ändern
1. Habe die TDispValuesxx ermittelt, bekomme aber manchmal die Werte aus anderen Feldern - sehr strange.
Wenn ich den RDP-Client schliesse, dann werden keine Werte mehr übertragen...

Vielleicht können wir ja per Remote gemeinsam drauf schauen - wenn Du Lust hast...

lG Jörg

Fantomas · 9. Februar 2024

Hallo Jörg,

Zu 1

das mit den geänderten Namen hatte ich Anfangs auch. Die Lösung war, immer den gleichen Startbildschirm zu verwenden. Bei mir war es "Heizung". Noch wichtiger schien mir, dass der Button für entweder "Auto" oder "Vorgabe" gedrückt sein muss.

Code

; send Alt-m, dann Alt-v
send !m
sleep 1000
send !v

Zu 2.

Wenn du dich mit Remote Desktop abmeldest oder auch nur trennst, dann ist der Bildschirm für AHK nicht mehr zu "sehen" und es funktioniert nicht mehr. Das hatte ich auf unseren Firmenrechnern auch so.

Die Lösung dafür ist, die Session auf dem regulären Desktop laufen zu lassen und nicht abzumelden. Als Remote-Lösung nehme ich Tight-VNC.

Versuch mal dein Glück

EcoPower 4.7 - Daten auslesen - serielle Schnittstelle

Teilen

Tags