WinCCflex + WinSock

[Lazarus™]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,
ich habe sowas mal getestet, leider ohne Erfolg...

Dim Winsock
Set Winsock = CreateObject("MSWinsock.Winsock")
Winsock.Protocol = 0
Winsock.RemotePort = 5000
Winsock.RemoteHost = "10.10.0.33"
Winsock.Connect
Winsock.SendData "hallo"
Winsock.Close

Hat jemand einen tip, wie ich das anstellen muss ????

 

[volker]

wiess geht weiss ich nicht.

worauf willst du hinaus?
denkst du da an vnc oder so?

 

[Lazarus™]

Zuviel Werbung?
-> Hier kostenlos registrieren

Nee, ich muss Telegramme (ASCII-Text) an ein paar Fremdgeräte schicken und die Antwort lesen. Hierzu brauch ich ein TCP-Socket. Dann ein paar Textzeilen senden, ein paar Antwortzeilen lesen und Feddich
Leider ist das direkt mit der SPS irgendwie doof und das Flexible kann das nicht direkt, würde sonst vermutlich auch an den 8 Verbindungen scheitern...

Wenn das so mit dem Script nicht geht, würde ich mir auch dafür ein ActiveX machen müssen. Mit Scripting wäre es aber irgendwie eleganter denke ich...

Komisch finde ich, das die runtime schon hier:

  Set Winsock = CreateObject("MSWinsock.Winsock")

auf die Schnauze fällt und den Debugger rausholt... Nun mach ich erst mal Feierabend, mir fallen schon bald die Augen aus

 

[Lazarus™]

SO hat sich dann auch erledigt. Habe mir auch dafürt ein Nichtvisuelles ActivX-Object geschrieben...
Ist echt blöd, das die VBS-Schnittstelle so störrisch ist :twisted: