Socket Client problem beim Empfangen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von haufe.

    Socket Client problem beim Empfangen

    Hallo

    ich habe hier einen Socket Client mit dem ich auf meinem Perl-Server zugreife.

    Mein Problem ist das der Client beim Senden auch Empfangen will, das zum Absturz der Client führt,

    Der Client Code:

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Imports System.Text
    5. Public Class Form1
    8. Dim remoteIPAddress As IPAddress
    9. Dim ep As IPEndPoint
    10. Dim tnSocket As Socket
    11. Dim ip As String
    12. Dim port As String
    14. Private Sub VerbindenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerbindenToolStripMenuItem.Click
    15. If ip = "" Then
    16. ip = InputBox("Bitte die ip angeben")
    17. port = InputBox("Bitte die port angeben")
    18. End If
    20. If VerbindenToolStripMenuItem.Text = "Trennen" Then
    21. tnSocket.Close()
    22. remoteIPAddress = Nothing
    23. ep = Nothing
    24. tnSocket = Nothing
    25. VerbindenToolStripMenuItem.Text = "Verbinden"
    26. Else
    27. SendCommands(ip, port)
    28. End If
    31. End Sub
    34. Private Sub SendCommands(ByVal PIPAddress As String, ByVal PPort As String)
    37. Dim RecvString As String = String.Empty
    40. Dim NumBytes As Integer = 0
    43. remoteIPAddress = IPAddress.Parse(PIPAddress.Trim)
    44. ep = New IPEndPoint(remoteIPAddress, CType(PPort.Trim, Integer))
    47. tnSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    50. Dim RecvBytes(255) As [Byte]
    52. Try
    54. tnSocket.Connect(ep)
    55. Catch oEX As SocketException
    57. Exit Sub
    58. End Try
    61. Try
    63. If tnSocket.Connected Then
    64. VerbindenToolStripMenuItem.Text = "Trennen"
    66. Do
    68. NumBytes = tnSocket.Receive(RecvBytes, RecvBytes.Length, 0)
    69. RecvString = RecvString + Encoding.ASCII.GetString(RecvBytes, 0, NumBytes)
    70. Loop While NumBytes = 256
    73. ListBox1.Items.Add(RecvString)
    74. ' -------------------------------------------------------------------
    75. Wait(1000)
    77. End If
    78. Catch oEX As Exception
    80. End Try
    84. End Sub
    86. Private Sub Wait(ByVal PMillseconds As Integer)
    89. Dim TimeNow As DateTime
    90. Dim TimeEnd As DateTime
    91. Dim StopFlag As Boolean
    93. TimeEnd = Now()
    94. TimeEnd = TimeEnd.AddMilliseconds(PMillseconds)
    95. StopFlag = False
    96. While Not StopFlag
    97. TimeNow = Now()
    98. If TimeNow > TimeEnd Then
    99. StopFlag = True
    100. End If
    101. Application.DoEvents()
    102. End While
    105. TimeNow = Nothing
    106. TimeEnd = Nothing
    107. End Sub
    108. Sub send(ByVal Command As String)
    109. ' Dim RecvString As String = String.Empty
    110. Dim NumBytes As Integer = 0
    111. Dim SendBytes As [Byte]() = Encoding.ASCII.GetBytes(Command & vbCrLf)
    112. Dim RecvBytes(255) As [Byte]
    113. Try
    114. tnSocket.Send(SendBytes, SendBytes.Length, SocketFlags.None)
    115. ' Do
    116. 'Wait(2000)
    117. 'NumBytes = tnSocket.Receive(RecvBytes, RecvBytes.Length, 0)
    118. ' RecvString = RecvString + Encoding.ASCII.GetString(RecvBytes, 0, NumBytes)
    119. ' Loop While NumBytes = 128
    120. 'ListBox1.Items.Add(RecvString)
    121. Catch ex As Exception
    122. MsgBox("Keine Verbindung")
    123. End Try
    124. End Sub
    129. Private Sub cmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click
    130. send(sendtxt.Text)
    131. End Sub
    132. End Class



    Der Perl Server:

    Quellcode

    1. use IO::Socket;
    2. use Net::hostent;
    6. $PORT = 8177;
    7. $server = IO::Socket::INET->new( Proto => 'tcp',
    8. LocalPort => $PORT,
    9. Listen => SOMAXCONN,
    10. Reuse => 1);
    12. die "can't setup server" unless $server;
    13. print "Waiting for connection...\n";
    15. while ($client = $server->accept()) {
    16. $client->autoflush(1);
    17. print $client "Welcome to Server!\n\n";
    18. $hostinfo = gethostbyaddr($client->peeraddr);
    19. printf "[Connect from %s]\n", $hostinfo->name || $client->peerhost;
    20. #print "Connection received from $client->peeraddr\n";
    21. while(<$client>) { print }
    22. while(<client>){print $client "Anfrage wird bearbeitet!\n\n";}
    23. print $client "Welcome to Server!\n\n";
    24. #$message = <$client>;
    25. # print "Incoming message: $message\n";
    28. }
    31. #close $client;

    nehme ich den Teil raus:

    VB.NET-Quellcode

    1. ' Do
    2. 'Wait(2000)
    3. 'NumBytes = tnSocket.Receive(RecvBytes, RecvBytes.Length, 0)
    4. ' RecvString = RecvString + Encoding.ASCII.GetString(RecvBytes, 0, NumBytes)
    5. ' Loop While NumBytes = 128
    6. 'ListBox1.Items.Add(RecvString)


    geht alles Bestens.

    Kann ich irgend wie eine Schleife einbauen, so das er nur Encoded wemm auch Daten da sind? oder habe ich wo anderst den Fehler ??


    MfG
    Haufe

    Edit : Der Fehler Liegt in der Zeile

    VB.NET-Quellcode

    1. NumBytes = tnSocket.Receive(RecvBytes, RecvBytes.Length, 0)
    ähh? wasn das :)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „haufe“ ()

    so hab mal noch am server rumgemacht und jetzt läuft der client, da der server bei jeder anfrage eine antwort gibt.
    Meine Frage:

    wie kann ich dem client sagen das er immer schauen soll ob der server ne nachricht sendet?, falls ja, soll er es posten.
    momentan ruft er ja nur ne nachricht ab wen er eine sendet

    Bitte um Hilfe.

    Danke
    Der Code für den Server PERL:

    Quellcode

    1. use strict;
    2. use warnings;
    3. use Net::hostent;
    4. use IO::Socket::INET;
    5. use IO::Select;
    7. # Listensocket erstellen
    8. my $server = IO::Socket::INET->new(
    9. LocalPort => 2005,
    10. type => SOCK_STREAM,
    11. Reuse => 1,
    12. Listen => 10
    13. ) or die "Server läuft nicht: $@\n";
    16. my $select = IO::Select->new($server);
    17. my $hostinfo;
    18. my $client;
    19. my $name;
    20. # warten, bis ein Client sich anmeldet, oder
    21. # man von bereits angemeldeten Clients lesen kann
    22. my $answer = 0;
    23. while (my @readable = $select->can_read) {
    24. for my $socket (@readable) {
    25. if ($socket == $server) { # wenn der Socket gleich dem Listensocket ist
    26. # Create a new socket
    28. $client = $socket->accept; # kehrt direkt zurück
    29. $hostinfo = gethostbyaddr($client->peeraddr);
    30. $name = $hostinfo->name || $client->peerhost;
    31. print "[$name] connects\n";
    32. $select->add($client); # in Select-Objekt aufnehmen
    34. }
    35. else { # sonst
    36. my $line = $socket->getline; # von Socket lesen
    37. if (defined $line) { # kein Fehler?
    38. $line =~ s!\r?\n$!!g; # Zeilenumbruch entfernen
    39. if (lc($line) eq 'quit') { # falls der Client beenden will
    40. print "Client quits\n";
    41. delete_socket($select, $socket);
    42. }
    43. else { # ansonsten, Message ausgeben
    44. # $hostinfo = gethostbyaddr($client->peeraddr);
    46. print "$name says: [$line] \n" ;
    47. # print "Client says: \n";
    48. $socket->print("#".$answer++."\n");
    49. }
    50. }
    51. else {
    52. print "$name disconect\n";
    53. delete_socket($select, $socket);
    54. }
    55. }
    56. }
    57. }
    59. # kleine Routine, zum Zerstören des Sockets
    60. sub delete_socket {
    61. my ($sel, $sock) = @_;
    62. $sel->remove($sock); # Socket aus Select-Objekt entfernen
    63. $sock->close(); # Socket schliessen
    64. }

    OK nach Stunden Googeln habe ich herausgefunden das es 2 MEthoden bei Clienten gibt.
    1.]Syncron
    2.]Asyncron

    Deswegen geht auch mein Client nicht, da ich ein Asyncronen Server habe.
    Einen Async Client hatte ich gleich, er ist fehlerhaft, deswegen mache ich einen neuen Thread
    MfG
    Haufe
    ähh? wasn das :)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „haufe“ ()

Facebook
Telefonspende