Keskustelu: Ohjelmointikysymykset: VB6: TCPIP Listen juttu

Teen TCPIP Listen juttua, mutta en saa vastaanonotettua toista porttia (portti 25001). Saan kyllä lähetettyä (porttiin 25000) ja saan siihen vastauksen samaan komento porttiin(portti 25000). TCPIP on 192.168.100.17

Nämä molemmat portit tulevat tuon erillisen laitteen kahdesta portista.

Laitan tuon 25001 portin koodin tähän.

Kuitenkin voin vastaanottaa kaikki datat laitevalmistajan omalla ohjelmalla samasta (port 25001) tietokoneestani.

Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
   ' Tuleva data
    Dim strData As String
    tcpServer.GetData strData
    txtOutput.Text = txtOutput.Text & strData & vbCrLf

End Sub

Private Sub Form_Load()
    '  LocalPort

 On Error GoTo listern_err
    tcpServer.Close

    tcpServer.LocalPort = 25001
    tcpServer.Listen

   Exit Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
    ' tarkista onko kytkentä tehty

    If tcpServer.State <> sckClosed Then
    tcpServer.Close
    End If
    tcpServer.Accept requestID
End Sub

Olisiko kellään antaa pientä vinkkiä?

Hei. Ei tarvitse enään etsiä.

Löytyi siihen ratkaisu.
Tuossa laitteessa oli kaksi TCPIP Client porttia.
Luulin, että toinen olisi Server portti.
Nyt molemmat portit toimivat luetttavasti.
Valmistajalla oli tosi huonot ohjeet.
Tämä oli englantilainen tuote.