Winsock, find ubrugt, og opret forbindelse

Hvis jeg dimmer winsock for eks. sådan her:
Dim Winsock() as Connection, så kender den ikke .State

Dim Winsock() as Winsock
Virker vist.. Nu får jeg bare "Subscript out of range" ved Winsock(x).State

Hmm.. rettede lige en fejl... Sådan her ser min kode ud nu, og virker stadig ikke... Subscript out of range

Dim Winsock() As Winsock
    For x = 1 To 400
        If Winsock(x).State = 0 Then
            Load Winsock(x)
            Winsock(x).Accept requestID
            AddConnectionArray (x)
            Exit For
        End If
    Next

måske du skulle loade ( Load Winsock(x) ) før du tjekker om Winsock(x).State = 0

Gjorde jeg senere, men det løste heller ikke problemet.. stadig samme fejl

du prøver vel at loade en winsock(x) som allerede eksisterer - altså du tester først på om winsock(x).State = 0 - efterfølgende vil du loade den. Hvis den ikke eksisterer altså den control får du vel en fejl. Så hvis du vil teste på den måde der skal du vel bruge

If err <> 0 then
        If Winsock(x).State = 0 Then
            Load Winsock(x)
            Winsock(x).Accept requestID
            AddConnectionArray (x)
            Exit For
        End If
Else
        'noget kode der skal håndtere hvis winsocken ikke er loadet...
End if

/hiks

det ovenstående vender vist heller ikke helt rigtigt...

du skal før if err <> 0 then indsætte eksempelvis winsock(x).visible = true for at finde ud af om den eksisterer eller ej.

/hiks

Method or data member not found... '.Visible ='

Jeg har fjernet "winsock(x).visible = true", og den kommer aldrig igennem "If err <> 0" så den har jeg også fjernet... Min kode ser nu sådan her ud:

Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim Winsock() As Winsock
    For x = 1 To 400
        If Winsock(x).State = 0 Then
            Load Winsock(x)
            Winsock(x).Accept requestID
            AddConnectionArray (x)
            AddToLog ("Client Connected from " & Winsock(Index).RemoteHostIP)
            Exit Sub
        End If
    Next
End Sub

Fejlen er 'Subscript out of range' i linien:
        If Winsock(x).State = 0 Then

hej

prøv sådan her istedet - kunne ikke lige huske om winsock havde en visible method men den har en tag... du skal endvidere huske at unloade brugte connections ellers vil du jo hurtigt få brugt 400.

For x = 0 To 400
    If Winsock(x).Tag = "" Then
        If Err <> 0 Then
            If Winsock(x).State = 0 Then
                Winsock(x).Accept requestID
                AddConnectionArray (x)
                Exit For
            End If
        Else
            'ingen fejl derved er der altså en winsock
        End If
    End If
Next

/hiks

og du skal i din sub have en:

on error resume next

/hiks

så ikke lige den sidste af dine beskeder her så har lige rettet den til så du får addtolog osv med:

Private Sub WinSocken()

On Error Resume Next

For x = 0 To 400
    If Winsock(x).Tag = "" Then
        If Err <> 0 Then
            If Winsock(x).State = 0 Then
                Load Winsock(x)
                Winsock(x).Accept requestID
                Call AddConnectionArray(x)
                Call AddToLog("Client Connected from " & Winsock(Index).RemoteHostIP)
                Exit Sub
            End If
        Else
            'ingen fejl derved er der altså en winsock
        End If
    End If
Next

End Sub

Det sidste virker!!!! :D
Jeg takker dig tusind gange! Jeg har ikke kunne finde en løsning på det her i laaang tid... :/

Svar = 100% Accepteret :o)

godt at høre...

hvis du vil lidt videre kan du jo adskille fejlene i en sådan sub ved at teste på det enkelte fejl number som opstår som vil være forskelligt alt efter om det er en winsock fejl vi har provokeret eller en som opstår pga noget andet.

If Err <> 0 Then ' skal således laves om...

go fornøjelse med det.

/hiks

cronck >Loader du 401 Winsock når du starter dit program??

Næh.. :D
Jeg har bare hele tiden tænkt at jeg vil have max forbindelser på 400... :/