Hi,
also ich habe mal eben die EE auf dem Raspi gequält, und 20.000 SetVarbyName-xmlrpc-Request auf die EE losgelassen, mit 1 ms Pause jedem Request, und dabei wild gemischt Ganzzahlen, Fließkomma, Zeichenketten, Zeit und Uhr-Variablen mit zufälligen Werten oder der aktuellen Uhrzeit/Datum, oder zufälligen Zeichenketten mit bis zu 75 Zeichen zugeschüttet.
In VBA, ziemlich genau so, vielleicht nicht immer schön, aber dafür selten, und ggf. schnell zusammengekloppt:
Code: Alles auswählen
Sub TestRaspiXMLRPC()
Dim Vars As Variant
Dim item As Variant
Dim result As String
Dim Host As String
Dim i As Long
Dim Counter As Long
Dim Startzeit As Date
Dim tempStr As String
Dim strLenSend As Long
Host = "rccu"
Vars = Array("TMP.LNGVAR1", "TMP.LNGVAR2", "TMP.SNGVAR10", "TMP.SNGVAR100", "TMP.SNGVAR1000", "TMP.SNGVAR20", "TMP.SNGVAR200", "TMP.SNGVAR2000", "TMP.STRTEMP", "TMP.UHRVAR", "TMP.ZEITVAR", "UNITTEST_CALLMAKRO.LNGCOUNT", "UNITTEST_CALLMAKRO.LNGTODO", "UNITTEST_RECURSE.STRSEARCHFOR", "UNITTEST_RECURSE.STRSEARCHIN", "UNITTEST_RECURSE.STRSOURCE", "UNITTEST_WRITEFILEONLY.STRDATEINAME", "UNITTEST_WRITEFILEONLY.STRFILENAME", "UNITTEST_WRITEFILEONLY.STRQUELLE", "UNITTEST_WRITEFILEONLY.STRTEMP")
Startzeit = Now
For i = 1 To 1000
For Each item In Vars
If Left(Split(item, ".")(1), 3) = "STR" Then
Select Case Left(Split(item, ".")(1), 3)
Case "LNG"
result = f_sSendRequestGetAnswer(Host, f_XMLSetVarByName(CStr(item), CLng(Rnd() * 2147000000)), 1000)
Counter = Counter + 1
Case "SNG"
result = f_sSendRequestGetAnswer(Host, f_XMLSetVarByName(CStr(item), CSng(Rnd() * 214700000#)), 1000)
Counter = Counter + 1
Case "ZEI"
result = f_sSendRequestGetAnswer(Host, f_XMLSetVarByName(CStr(item), Now), 1000)
Counter = Counter + 1
Case "STR"
tempStr = String(Rnd() * 30, "#") & CStr(Now) & String(Rnd() * 30, "#")
strLenSend = strLenSend + Len(tempStr)
result = f_sSendRequestGetAnswer(Host, f_XMLSetVarByName(CStr(item), tempStr), 1000)
Counter = Counter + 1
Case "UHR"
result = f_sSendRequestGetAnswer(Host, f_XMLSetVarByName(CStr(item), Format(Now, "hh:mm:ss")), 1000)
Counter = Counter + 1
Case Else
Debug.Print item
End Select
End If
Sleep 1
DoEvents
'Debug.Print result
'f_XMLSetVarByName
Next
Debug.Print Now & ": " & i & ". Runde, Requests: " & Counter
Next
Debug.Print DateDiff("s", Startzeit, Now) & " Sekunden für " & Counter & " Requests, strLenSend=" & strLenSend
End Sub
' Die Hilfsfunktionen
Public Function f_sSendRequestGetAnswer(Host As String, postData As String, Optional Timeout_ms As Long = 15000, Optional Port As Long = 2110) As String
Dim winHttpReq As New WinHttp.WinHttpRequest
'Debug.Print postData
winHttpReq.SetTimeouts 1000, 2000, 2000, Timeout_ms
winHttpReq.Open "POST", "http://" & Host & ":" & Port & "/RPC2", False
winHttpReq.SetRequestHeader "Content-Type", "text/xml"
winHttpReq.Send (postData)
f_sSendRequestGetAnswer = winHttpReq.ResponseText
Set winHttpReq = Nothing
'Debug.Print f_sSendRequestGetAnswer
End Function
Public Function f_XMLSetVarByName(Varname As String, Value As Variant) As String
f_XMLSetVarByName = _
"<?xml version=""1.0""?>" & vbCrLf & _
"<methodCall>" & vbCrLf & _
" <methodName>setvarbyname</methodName>" & vbCrLf & _
" <params>" & vbCrLf & _
" <param>" & vbCrLf & _
" <value><string>" & Varname & IIf(Len(CStr(Value)) > 0, "=" & IIf(TypeName(Value) = "String", """ & Value & """, Value), "") & "</string></value>" & vbCrLf & _
" </param>" & vbCrLf & _
" </params>" & vbCrLf & _
"</methodCall>"
End Function
Feststellung:
Das geht echt fix!
Mit "Filterung" nur Zeichenketten-Variablen zu setzen
Code: Alles auswählen
26 Sekunden für 8000 Requests, strLenSend=392248
rccu:~ # grep "VmRSS" /proc/`pidof ExecEngine`/status|cut -d':' -f2|xa
rgs|cut -d' ' -f1|xargs
5904
rccu:~ # grep "VmRSS" /proc/`pidof ExecEngine`/status|cut -d':' -f2|xa
rgs|cut -d' ' -f1|xargs
6372
rccu:~ #
Dabei wächst die EE, ca. 400 kb pro Durchlauf, was ungefähr mit der Menge der gesendeten Zeichenkettenlänge übereinstimmt...
Beweis mit längeren Strings, zufällig 300 davor und zufällig 300 dahinter:
Code: Alles auswählen
28 Sekunden für 8000 Requests, strLenSend=2559580
rccu:~ # grep "VmRSS" /proc/`pidof ExecEngine`/status|cut -d':' -f2|xa
rgs|cut -d' ' -f1|xargs
6372
rccu:~ # grep "VmRSS" /proc/`pidof ExecEngine`/status|cut -d':' -f2|xa
rgs|cut -d' ' -f1|xargs
8944
Ich wäre nicht ich
, wenn ich das nicht auch mal über das CLWebI.ccc versuchen würde, sehr ähnlicher Code, wegen der Laufzeit aber nur 100 Durchgänge und keine 1000
Code: Alles auswählen
159 Sekunden für 800 Requests, strLenSend=252652
rccu:~ # grep "VmRSS" /proc/`pidof ExecEngine`/status|cut -d':' -f2|xa
rgs|cut -d' ' -f1|xargs
8944
rccu:~ # grep "VmRSS" /proc/`pidof ExecEngine`/status|cut -d':' -f2|xa
rgs|cut -d' ' -f1|xargs
8944
Da scheint die Verarbeitung sauberer zu laufen, kein Wachstum feststellbar, dafür UM WELTEN langsamer, alles in allem bleibt aber die Belastung der EE im top bei max 4%, alles gut...
Da VisuWin auch über die xmlrpc-Schnittstelle der CCU geht, könnte es auch zu wachstum kommen, wenn die Visu offen ist, allerdings wird da ja deutlich öfter "gelesen", als geschrieben.
Ich gehe jetzt in Bett, bevor ich ein Schlafleck bekomme...
Der Familienvater
