superhans21
Grünschnabel
Hi,
ich hab ein Problem mit TCP, nämlich wenn ich den folgenden Code ausführe, kommt die weiter unten zu sehende Fehlermeldung:
Das ist der Server(Form)
Das Modul(Client):
Die Fehlermeldung bei Try & Catch:
Wrong protocol or connection state for the requested transaction or request
Was hab ich falsch gemacht?
Danke
ich hab ein Problem mit TCP, nämlich wenn ich den folgenden Code ausführe, kommt die weiter unten zu sehende Fehlermeldung:
Das ist der Server(Form)
PHP:
Public Class Form1
Dim WSockServer As New MSWinsockLib.Winsock
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WSockServer.Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WSockServer.LocalPort = 1201
WSockServer.Listen()
End Sub
Private Sub server1_ConnectionRequest(ByVal requestID As Long)
WSockServer.Accept(requestID)
Me.Text = "Online!"
End Sub
Private Sub sendData(ByVal nachricht As String)
Try
WSockServer.SendData(nachricht)
Catch ex As Exception
MessageBox.Show(ex.Message)
Clipboard.SetText(ex.Message)
End Try
End Sub
Private Sub server1_DataArrival(ByVal allebytes As Long)
Dim nachricht_got As String
WSockServer.GetData(nachricht_got)
Label1.Text = nachricht_got
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
sendData("lustig")
End Sub
End Class
PHP:
Module Module1
Dim wsock As New MSWinsockLib.Winsock
Sub Main()
Try
wsock.RemoteHost = "127.0.0.1"
wsock.RemotePort = 1201
wsock.Connect()
wsock.SendData("dere")
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.ReadLine()
End Sub
Private Sub client1_DataArrival(ByVal allebytes As Long)
Dim nachricht_got As String
wsock.GetData(nachricht_got)
Console.WriteLine(nachricht_got)
End Sub
End Module
Die Fehlermeldung bei Try & Catch:
Wrong protocol or connection state for the requested transaction or request
Was hab ich falsch gemacht?
Danke