Mehrere Objekt-Instanzen (WinSock)

Guten Morgen liebe Excel-K(o)enner,
ich sitze seit Stunden an einem für mich zu anspruchsvollem Projekt: Ich möchte gerne mehrere Instanzen eines WinSock-Objektes erzeugen, um Daten verschiedener Messgeräte parallel über das Netzwerk auszulesen. Es klappt problemlos eine einzelne IP-Verbindung zu einem Messgerät herzustellen, jedoch gelingt es mir nicht dynamisch mehrere IP-Verbindungen zu verschiedenen Messgeräten aufzubauen. Ich verwende die OstroSoft Winsock Komponente: http://ostrosoft.com/oswinsck.aspx
Ich habe eine stark vereinfachte Exceldatei mit meinem bisherigen funkionierenden Code hochgeladen, womit eine einzelne IP-Verbindung einwandfrei hergestellt werden kann: https://www.herber.de/bbs/user/139793.xls
Wie müsste der Code modifiziert werden, damit mehrere Netzwerkverbindungen parallel hergestellt werden können?
Meine Zielstellung: Die jeweilige IP-Adresse soll aus der ComboBox "cboIPAddress" ausgelesen und bei Betätigung des CommandButtons "cmdConnect" (Öffne Netzwerkverbindung) hergestellt werden.
Beste Grüße
Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub sbConnect(ByVal ipaddress As String) Set wsTCP = CreateObject("OSWINSCK.Winsock") With wsTCP .Connect ipaddress, "23" Do While .State = sckConnecting '6 SocketState.sckConnecting DoEvents Loop If .State sckConnected Then '7 Then 'SocketState.sckConnected Then MsgBox "Verbindungsaufbau fehlgeschlagen", vbExclamation Set wsTCP = Nothing Exit Sub End If End With End Sub

Hallo Oberschlumpf,
diese fehlende Bibliothek "OstroSoft Winsock Component" ist nicht standardmäßig installiert und ist kostenlos hier erhältlich: http://ostrosoft.com/download/oswinsck.zip
Ich kann aber nicht verlangen, dass jemand fremde Software auf seinem Rechner installiert. Zudem ist es tatsächlich auch schwierig gleich mehrere netzwerkfähige Geräte zu finden, die eine solche Verbindung zulassen. Falls es trotzdem jemand versuchen möchte, würde ich den Code selbstverständlich so umschreiben, dass auch unterschiedlliche Port-Nummern festgelegt werden können (...ist ja im Moment fest auf Port 23 festgelegt).
Das Problem bei deinem Vorschlag besteht darin, dass die bestehende Verbindung über die Variable "wsTCP" quasi überschrieben wird. Gerne würde ich die Variable "wsTCP" irgendwie in mehreren Instanzen aufrufen können, aber genau das gelingt mir nicht.
Ich bin mal auf folgende Seite gestoßen, bei der es aber um eine Microsoft Winsock-Bibliothek in VB geht: https://www.devx.com/tips/Tip/5488
Ich müsste wsTCP wahrscheinlich irgendwie als Datenfeld-Objektvariable und wie in dem Seitenbeispiel eine Zählvariable deklarieren:

Dim WithEvents wsTCP() As oswinsck.Winsock 'Das "()" geht so nicht!
Public iNumSockets As Integer

Damit die Verbindungen etwa so aufgebaut werden können:

Private Sub cmdConnect_Click()
Set wsTCP(iNumSockets) = CreateObject("OSWINSCK.Winsock")
With wsTCP(iNumSockets)
.Connect cboIPAddress, "23"
Do While .State = sckConnecting '6 SocketState.sckConnecting
DoEvents
Loop
If .State  sckConnected Then '7 Then 'SocketState.sckConnected Then
MsgBox "Verbindungsaufbau fehlgeschlagen", vbExclamation
Set wsTCP(iNumSockets) = Nothing
Exit Sub
End If
NumSockets = NumSockets + 1 'für die nächste Instanz
End With
End Sub

Aber ich habe leider keine Ahnung wie das korrekt umgesetzt wird. Hast du vielleicht eine Idee?
Viele Grüße
Martin

Beliebteste Forumthreads (12 Monate)

Mehrere Objekt-Instanzen (WinSock)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrere Objekt-Instanzen (WinSock)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread