nikeee13
Bekanntes Mitglied
- Dabei seit
- 04.11.2006
- Beiträge
- 556
- Reaktionspunkte
- 0
Hi Leute!
Ich hab mal mit winsock rumgespielt:
Nen' Winsock bei VB.net. Eigentlich genauso wie bei VB6 , oder?
Doch wenn ich von meinem clienten etwas zum server senden will, dann kommt dieser error:
Hab schonmal gegoogelt, aber da trat dieses Problem nur in VB6 auf. Auf der Microsoft seite war ein Servicepack für VB6 gegen diesen Fehler vorhanden.
Jetzt wollte ich euch fragen, wie ich dieses Problem beseitige.
Hier der Code vom Client:
Beim senden (Rotmarkiertes) tritt der Fehler auf.
Code vom Server:
Das wars fürs erste.
Hoffe, ihr könnt mir helfen.
nikeee13
Ich hab mal mit winsock rumgespielt:
Nen' Winsock bei VB.net. Eigentlich genauso wie bei VB6 , oder?
Doch wenn ich von meinem clienten etwas zum server senden will, dann kommt dieser error:
Code:
Wrong protocol or connection state for the requested transaction or requestHab schonmal gegoogelt, aber da trat dieses Problem nur in VB6 auf. Auf der Microsoft seite war ein Servicepack für VB6 gegen diesen Fehler vorhanden.
Jetzt wollte ich euch fragen, wie ich dieses Problem beseitige.
Hier der Code vom Client:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'client_sock.Close()
'client_sock.Connect(TextBox1.Text, TextBox2.Text)
client_sock.RemoteHost = "127.0.0.1"
client_sock.RemotePort = TextBox2.Text
client_sock.Connect()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
[COLOR="Red"]client_sock.SendData("#status_ok#")[/COLOR]
End SubBeim senden (Rotmarkiertes) tritt der Fehler auf.
Code vom Server:
Code:
Private Sub server_sock_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles server_sock.ConnectionRequest
server_sock.Close()
server_sock.Accept(sender)
End Sub
Private Sub server_sock_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles server_sock.DataArrival
'Dim sData As String = sender
'Select Case sData
' Case Is = ("#status_ok#")
' Label2.Text = "OK!"
'End Select
Dim Result As String
server_sock.GetData(Result)
Select Case Result
Case Is = ("#status_ok#")
Label2.Text = "OK!"
End Select
'TextBox1.Text = Result
Label2.Text = Result
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
server_sock.LocalPort = 13377
server_sock.Listen()
End SubDas wars fürs erste.
Hoffe, ihr könnt mir helfen.
nikeee13
Zuletzt bearbeitet:
