Zitat:

Akzeptieren von mehreren Verbindungsanforderungen Der hier skizzierte elementare Server akzeptiert nur eine Verbindungsanforderung. Es ist jedoch möglich, mit Hilfe eines Steuerelementefelds mehrere Verbindungsanforderungen in einem Steuerelement zu akzeptieren. In diesem Fall brauchen Sie die Verbindung nicht zu schließen, sondern Sie erstellen einfach eine neue Instanz des Steuerelements (indem Sie dessen Index-Eigenschaft einstellen) und rufen die Accept-Methode der neuen Instanz auf. Der folgende Code setzt voraus, daß es ein Winsock-Steuerelement namens „sckServer“ auf einem Formular gibt und daß dessen Index-Eigenschaft auf den Wert 0 gesetzt wurde; dadurch wird das Steuerelement automatisch Bestandteil eines Steuerelementefelds. Im Abschnitt (Allgemein) wird eine Variable namens „intMax“ auf Modulebene deklariert. In der Load-Ereignisprozedur des Formulars wird intMax auf 0 gesetzt, und die LocalPort-Eigenschaft des ersten Steuerelements im Feld wird auf 1001 gesetzt. Anschließend wird die Listen-Methode des Steuerelements aufgerufen, wodurch dieses beginnt, auf eine Verbindungsanforderung zu warten. Bei Eintreffen einer Verbindungsanforderung prüft der Code, ob der Index den Wert 0 hat (den Wert des wartenden Steuerelements). Ist der Wert 0, so erhöht das wartende Steuerelement den Wert von intMax und verwendet diese Zahl zur Erstellung einer neuen Steuerelementinstanz. Diese wird dann verwendet, um die Verbindungsanforderung zu akzeptieren. Private intMax As Long Private Sub Form_Load() intMax = 0 sckServer(0).LocalPort = 1001 sckServer(0).Listen End Sub Private Sub sckServer_ConnectionRequest _ (Index As Integer, ByVal requestID As Long) If Index = 0 Then intMax = intMax + 1 Load sckServer(intMax) sckServer(intMax).LocalPort = 0 sckServer(intMax).Accept requestID Load txtData(intMax) End If End Sub

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!