New topic: TCP Socket - nonexisting IP problem
<http://forums.realsoftware.com/viewtopic.php?t=46821> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message mapmusic Post subject: TCP Socket - nonexisting IP problemPosted: Tue Feb 05, 2013 5:52 am Joined: Tue Oct 30, 2012 4:23 am Posts: 7 Hello Network experts, I need check possibility of connect before running some code on TCP SOcket. I use RCP socket example from reference, which works well on IPs which are available. I got into problem, when I try to connect to nonexisting IP. My Code:Function TCP_Connect(xIP as string, xPort as integer) As Boolean Dim start, stop as Integer Dim conn as Boolean Dim TCPSocket1 as TCPSocket TCPSocket1 = New TCPSocket TCPSocket1.Address = xIP TCPSocket1.Port = xPort TCPSocket1.Connect start = Ticks While Not TCPSocket1.IsConnected If TCPSocket1.LastErrorCode <> 0 then StatusBar.text = "Socket Error: " + str(TCPSocket1.LastErrorCode) Exit End If //poll the socket to let it do its thing TCPSocket1.Poll Wend stop = Ticks //if we broke the loop because we're connected If TCPSocket1.IsConnected then GuardWindow.StatusBar.text= "Socket Connected in " + Str(stop - start) + " ticks" //here would be a great place to do a synchronous read operation... conn = true Else //The socket broke out of the loop due to an error GuardWindow.StatusBar.text= "Socket failed to connect. It took " + Str(stop - start) + _ " ticks to figure that out" conn= false End If TCPSocket1.Close GuardWindow.StatusBar.text= "Socket closed" return conn End Function _________________ --- @MacOS 10.7.5/MBPro Top Display posts from previous: All posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost timeSubject AscendingDescending Page 1 of 1 [ 1 post ] -- Over 1500 classes with 29000 functions in one REALbasic plug-in collection. The Monkeybread Software Realbasic Plugin v9.3. http://www.monkeybreadsoftware.de/realbasic/plugins.shtml rbforumnotifier@monkeybreadsoftware.de
