.NET Compact Framework: Gibt es bei der Herstellung einer TCP-Verbindung die Möglichkeit ein anderes Timeout einzustellen?

  • VB.NET
  • .NET (FX) 1.0–2.0

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von dive26.

    .NET Compact Framework: Gibt es bei der Herstellung einer TCP-Verbindung die Möglichkeit ein anderes Timeout einzustellen?

    Hallo,

    ich baue von einem Handheld (.NET CF 2.0) eine TCP Verbindung zu einem PC auf um dann Daten auszutauschen.
    Das funktioniert soweit auch einwandfrei.

    Ist die PC-Serveranwendung jedoch nicht aktiv, dann dauert die nächste Zeile sehr lange:

    VB.NET-Quellcode

    1. Dim client As New TcpClient(ProgrammSettings.Serveradresse, ProgrammSettings.Portnummer)


    Gibt es hier irgend eine Möglichkeit den TCP-Aufbau mit einem Timeout (z.B. 5 Sekunden) zu versehen? Denn die PDA-Anwendung steht auch, wenn lediglich die WLAN-Verbindung schwach oder kurzzeitig ausgefallen ist. Dann soll der User aber nicht so lange warten müssen bis ein erneuter Verbindungsaufbau versucht wird.

    LG Roland
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    @dive26 Vielleicht nimmst Du einen anderen Konstruktor von TcpClient und probierst dann, Dich mit .Connect(...) zu verbinden.
    Da kannst Du vorher .ReceiveTimeout und .SendTimeout setzen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hab ich auch schon versucht. Bringt das selbe Ergebnis.
    Und irgendwie hat die Timeout-Einstellung keinen Einfluss auf den Verbindungsaufbau selbst. Egal was ich als Timeout eingebe - es ändert sich an der zu wartenden Zeitspanne nicht.

    Wie gesagt. Es handelt sich dabei um .NET Compact Framework - da gibts angeblich da auch irgendwelche Probleme bei den Timeouts.
    Es wäre mir schon geholfen wenn ich irgendwie anders vor diesem TCP-Aufbau prüfen könnte ob der Zielcomputer erreichbar ist (ein Ping z.B.).

    VB.NET-Quellcode

    1. Dim client As New TcpClient
    2. client.ReceiveTimeout = 1000
    3. client.SendTimeout = 1000
    4. client.Connect(ProgrammSettings.Serveradresse, ProgrammSettings.Portnummer)
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    dive26 schrieb:

    ein Ping z.B.
    Jou. Allerdings weiß ich nicht, ob das über Compact Framework geht.
    Gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Habe es jetzt anders hinbekommen. Über BeginnConnect und einem eigenen Timeout. Fand ich zuerst sehr kompliziert, das Verständnis ist aber mittlerweile da ;)

    VB.NET-Quellcode

    1. '#### neu
    2. Dim targetHost As IPHostEntry = Dns.GetHostEntry(ProgrammSettings.Serveradresse)
    3. Dim ipAddr As IPAddress = targetHost.AddressList(0)
    4. Dim targetEndPoint As New IPEndPoint(ipAddr, ProgrammSettings.Portnummer)
    5. Dim myTimeout As Integer = 3000 '3 seconds
    6. '#### neu


    VB.NET-Quellcode

    1. Dim client As New TcpClient
    3. Try
    4. Dim cliConnect As New cliConnector
    5. client = cliConnect.Connect(targetEndPoint, myTimeout)
    6. Catch ex As Exception
    7. End Try


    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net
    3. Imports System.Text
    4. Imports System.Threading
    6. Public Class cliConnector
    8. Private IsConnectionSuccessful As Boolean = False
    9. Private socketexception As Exception
    10. Private TimeoutObject As New ManualResetEvent(False)
    12. Public Function Connect(ByVal serverendpoint As EndPoint, ByVal timeoutMSec As Integer) As TcpClient
    13. TimeoutObject.Reset()
    14. socketexception = Nothing
    16. Dim tcpCli As New TcpClient
    18. tcpCli.SendTimeout = timeoutMSec
    19. tcpCli.ReceiveTimeout = timeoutMSec
    20. tcpCli.Client.BeginConnect(serverendpoint, New AsyncCallback(AddressOf CallBackMethod), tcpCli)
    22. If TimeoutObject.WaitOne(timeoutMSec, False) Then
    23. If IsConnectionSuccessful Then
    24. Return tcpCli
    25. Else
    26. Throw socketexception
    27. End If
    28. Else
    29. tcpCli.Close()
    30. Throw New TimeoutException("Connection Timed Out")
    31. End If
    33. End Function
    35. Private Sub CallBackMethod(ByVal asyncResult As IAsyncResult)
    36. Try
    37. IsConnectionSuccessful = False
    38. Dim tcpCli As TcpClient = CType(asyncResult.AsyncState, TcpClient)
    40. If Not tcpCli Is Nothing Then
    41. tcpCli.Client.EndConnect(asyncResult)
    42. IsConnectionSuccessful = True
    43. End If
    45. Catch ex As Exception
    47. IsConnectionSuccessful = False
    48. socketexception = ex
    50. Finally
    51. TimeoutObject.Set()
    53. End Try
    54. End Sub
    56. End Class
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at