VB6: Variabel als WinSock deklarieren - wie?
Ich versuche in Visual Basic 6, WinSock-Objekte *dynamisch* zu erzeugen, aber irgendwie kriege ich das nicht hin.
Ich benutze folgenden Code:
Aber sobald ich mich verbinde, komm folgendes:
Und Set ws(xxx) = New WinSock ist laut Visual Basic "unzulässig"
Statisch WinSock2.Accept requestID funktioniert, aber dann bin ich ja festgelegt
Wie mache ich das richtig? Ich möchte das dynamisch und jetzt nicht für jede mögliche Verbindung noch ne WinSock aufs Formular haun
Ich benutze folgenden Code:
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Dim ws(10000) As Winsock Dim wscount As Long Private Sub Form_Load() wscount = 0 Winsock1.Bind Winsock1.Listen End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) ws(wscount).Accept requestID wscount = wscount + 1 End Sub |
Aber sobald ich mich verbinde, komm folgendes:
Zitat
Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt
_W_eiter -|- _B_eenden -|- _D_ebuggen -|- _H_ilfe
Und Set ws(xxx) = New WinSock ist laut Visual Basic "unzulässig"
Statisch WinSock2.Accept requestID funktioniert, aber dann bin ich ja festgelegt

Wie mache ich das richtig? Ich möchte das dynamisch und jetzt nicht für jede mögliche Verbindung noch ne WinSock aufs Formular haun
...
nun, das dürften mehrere zehntausend sein.
stell dir vor du hast ein neues Form in das Projekt eingefügt, stell dir vor, diese form heist "Form2".
Stell dir nun vor, in dieser Form2, ist ein winsock-objekt.
Fantasiere dir dazu diesen aufruf:
DIM neuesFenster = new Form2
jetzt kannst du auf das Winsock zugreifen mit:
neuesFenster.winsock32.connect.......
Noch Fragen? Nein?!
Energie!
stell dir vor du hast ein neues Form in das Projekt eingefügt, stell dir vor, diese form heist "Form2".
Stell dir nun vor, in dieser Form2, ist ein winsock-objekt.
Fantasiere dir dazu diesen aufruf:
DIM neuesFenster = new Form2
jetzt kannst du auf das Winsock zugreifen mit:
neuesFenster.winsock32.connect.......
Noch Fragen? Nein?!
Energie!


