Jag har skrivit en liten grej i VB6 för att skicka strängar mellan två datorer. Mitt problem är att jag inte vet om uppkopplingen är klar och då får jag ett felmeddelande om jag försöker skicka nåt för fort. Såhär vill jag göra:
<code>
Winsock1.Connect "130.235.60.60", 3301
Dim Data() As String
Dim Result() As Byte
ReDim Data(1 To 3)
Data(1) = "A"
Data(2) = "AB"
Data(3) = "ABC"
Result = StringArray2Bin(Data)

Winsock1.SendData Result
</code>
Det fungerar bra om jag först har en knapp som jag ansluter med och sen en annan som jag skickar med, men som det är nu får jag det här meddelandet:

Wrong protocol or connection state for the requested transaction or request

Tack på förhand!

Det här kanske kan vara en lösning:

<code>
Private Sub Command1_Click()
Winsock1.Connect "130.235.60.60", 3301
End Sub

Private Sub Winsock1_Connect()
Dim Data() As String
Dim Result() As Byte
ReDim Data(1 To 3)
Data(1) = "A"
Data(2) = "AB"
Data(3) = "ABC"
Result = StringArray2Bin(Data)

Winsock1.SendData Result
End Sub
</code>

/Fredrik

Jag hann aldrig testa ditt sätt, men ett enkelt DoEvents löste det hela. Tack ändå!