Hallo,

Ist es möglich mit VB.Net oder C# eine Lok liste aus der CS2 mit CAN-Bus zu holen?

Danke,
Henrik

Hall Hendrik,

Zitat von henrikl2000 im Beitrag #1

---

Ist es möglich mit VB.Net oder C# eine Lok liste aus der CS2 mit CAN-Bus zu holen?

---

Hallo vik,

Das war nicht gerade was ich meinte.
Ich baue ein Programm in VB.Net das die Züge steuern kann. Dazu brauche eine Lok liste von der CS2 jedes Mal, wenn mein Programm startet. Damit neu angelegte Loks und Änderungen in mein Programm aufdatiert wird.

Mit der CS1 ging das einfach mit queryObjects.

Was ich brauche ist ein weg das mit der CS2 von VB zu machen.

MfG,
Henrik

Hallo Henrik,

Zitat von henrikl2000 im Beitrag #3

---

Ich baue ein Programm in VB.Net das die Züge steuern kann. Dazu brauche eine Lok liste von der CS2 jedes Mal, wenn mein Programm startet. Damit neu angelegte Loks und Änderungen in mein Programm aufdatiert wird.

Mit der CS1 ging das einfach mit queryObjects.

Was ich brauche ist ein weg das mit der CS2 von VB zu machen.

---

Hallo Henrik,

Zitat von henrikl2000 im Beitrag #3

---

Ich baue ein Programm in VB.Net das die Züge steuern kann. Dazu brauche eine Lok liste von der CS2 jedes Mal, wenn mein Programm startet. Damit neu angelegte Loks und Änderungen in mein Programm aufdatiert wird.

Mit der CS1 ging das einfach mit queryObjects.

Was ich brauche ist ein weg das mit der CS2 von VB zu machen.

---

Hallo Henrik,

nimm meinen SourceCode aus Xojo (ab Xojo-2019 so machbar, vorher gab es das "URLConnection" nicht) als Template, habe ich nun passend für CS2 und CS3, Voraussetzung: Zugriff via HTTP v1.1 (sonst geht es nicht an der CS3 meiner Meinung nach):

Function GetFileFromURL(thisFileName As String) As String
begin
  dim s, result As String
  dim i, iStop As Integer
  dim thisHTTPGetURL As New URLConnection
 
  result = ""
  if (thisHTTPGetURL <> NIL) then
    s = App.GetEthernetRemoteAddr
    if (s <> "") then
      s = "http://" + s + NthField(thisFileName, " ", 1)  // replace all space chars against "%20"
      iStop = CountFields(thisFileName, " ")
      for i = 2 to iStop
        s = s + "%20" + NthField(thisFileName, " ", i)
      next
    
      result = thisHTTPGetURL.SendSync("GET", s, 30)  // synchronously reading from URL
      if (Lowercase(result) = "not found") then  // should happen in case of a CS3
        if (WindowEthernetProtocol <> NIL) then
          WindowEthernetProtocol.AddLine("http: " + result + " - " + thisFileName)
        end
        result = ""
      end
    end
  end
 
  Return result
end function
 

....inside your main....
    s = App.GetFileFromURL("/config/lokomotive.cs2")  // synchronously reading from URL
    if (s <> "") then
      #if TargetMacOS
        s = s.ConvertEncoding(s.DefineEncoding(Encodings.UTF8), Encodings.MacRoman)
      #else
        s = s.ConvertEncoding(s.DefineEncoding(Encodings.UTF8), Encodings.WindowsANSI)
      #endif
      ..... do what you like with the resulting file ....
    end
   
 

In VB.net sollte es "HttpWebRequest" geben: https://social.msdn.microsoft.com/Forums/vstudio

Alternative: Abfrage über den CAN-Bus, erfordert aber zlib.dll und ist fehleranfälliger.

Ciao
Diego

Hallo Diego,

Zitat von DiegoGarcia im Beitrag #6

---

nimm meinen SourceCode aus Xojo (ab Xojo-2019 so machbar, vorher gab es das "URLConnection" nicht) als Template, habe ich nun passend für CS2 und CS3, Voraussetzung: Zugriff via HTTP v1.1 (sonst geht es nicht an der CS3 meiner Meinung nach)

---

Hallo Vik,

tja, im Prinzip habe ich ja nun die Verbesserungen im SourceCode und auch eine CS3 nun zum selber testen. Aber die Zeit ... mal sehen, ich muss halt die neuen Unterprogramme rüberkopieren.

Ciao
Diego

EDIT 2021-10-17: ein neues Update ist online, v0.21a0: https://c2xh-mafi.hpage.com/c2xh.html