Keskustelu: Ohjelmointikysymykset: VB6: Socket Server

Hmm, onkohan tämä oikea paikka kysymyksille?

Käytän VB6 ja teen TCIP Listen jutttua. Teen avauksen:

tcpServer.RemoteHost = 192.168.100.17
tcpServer.LocalPort = 25001
tcpServer.Listen

Sitten pitäsi tuosta vieressä olevasta laittesta tulla liitäntä teksti ja paljon dataa, mutta ei tule mitään.

Jos teen samanlaisen koodin, jossa avaan clientin ja lähetän tekstiä, niin avaus teksti tulee ihan hyvin ja muukn teksti.

Otan tietysi tuon laitteen pois päältä kun kokeilen tuota tekstiä.

Olen kokeillut ottaa tuon .RemoteHostin pois päältä, ei apua.

Kun kokeilen tuota laitetta valmiilla ohjelmalla, niin kaikki data tulee.
Minun pitäisi muokata tuota tullutta (siis ei tullutta) tekstiä.
Mikän on vikana?

oh3gdo

Aloitettu uusi aihe - ajv

oh3gdo kirjoitti:

Hmm, onkohan tämä oikea paikka kysymyksille?

No, ei kyllä hirveästi väärempi paikka olisi voinut olla. Ohjelmointiputkaa itseään koskevalle keskustelualueelle ja kilpailuja koskevaan keskusteluun.

Oikea paikka olisi ollut Qbasic ja Visual Basic -alue ja siellä "Uusi aihe"

Moderaattori siirtänee tämän oikeaan paikkaan, joten ei varmaan tässä välissä kuitenkaan kannata lähteä tekemään uudelleen.

oh3gdo kirjoitti:

Käytän VB6 ja teen TCIP Listen jutttua. Teen avauksen:

tcpServer.RemoteHost = 192.168.100.17
tcpServer.LocalPort = 25001
tcpServer.Listen

Tuosta puuttuu saapuvaan yhteyspyyntöön vastaaminen. Tyyliin

Private Sub tcpServer_ConnectionRequest (ByVal requestID As Long)
    ' Check if the control's State is closed. If not,
    ' close the connection before accepting the new
    ' connection.
    If tcpServer.State <> sckClosed Then tcpServer.Close
    ' Accept the request with the requestID
    ' parameter.
    tcpServer.Accept requestID
End Sub

Jos haluat pystyä vastaanottamaan enenmmän kuin yhden pyynnön kerrallaan, niin voit käyttää yhtä tcpsocketia kuunteluun ja vastaanottaa yhteydet uusilla tcpsocketeilla.

Lähde: https://msdn.microsoft.com/en-us/library/aa733709(v=vs.60).aspx