Unreliable VB.NET Sockets

[Buc]

I have a small program that accepts a DGRAM UDP text packet (+-250 bytes
port 9001) and puts it in a list box. The network receive part acts BUGGY.
It acts the same way on more than one machine. It acted random.. SO..I used
the debugger, the callback fires and the first line of code breaks (the
receivefrom) and then the sub exits without executing the remaining lines of
code ?? The next packet may do the same thing OR the sub may finish the
remaining lines of code correctly and actually stick the text packet in the
listbox. I send one packet at a time for test and verify with a sniffer. I
added the try / catch later to see if there was some MYSTERY error but it
didn't catch anything either. (An Exception or a SocketException ) Here's the
code...
Dim rxSocket As Socket = Nothing
Dim RecvBytes(1000) As Byte
Dim RemoteEP As New IPEndPoint(0, 0)

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
rxSocket = New Socket(AddressF amily.InterNetw ork, SocketType.Dgra m,
ProtocolType.Ud p)
RemoteEP = New IPEndPoint(IPAd dress.Any, 9001)
rxSocket.Bind(R emoteEP)
rxSocket.BeginR eceiveFrom(Recv Bytes, 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP, New AsyncCallback(A ddressOf OnReceive), Nothing)
End Sub
Public Sub OnReceive(ByVal ar As IAsyncResult)
Dim iBytes As Integer
Try
iBytes = rxSocket.Receiv eFrom(RecvBytes , 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP) <<BREAKPOINT HERE and then it exits sub
SOMETIMES
Catch e As SocketException <<no Socket exception or other
exception occurs
MsgBox(e.Messag e)
Exit Sub
End Try
ListBox1.Items. Add(Encoding.UT F8.GetString(Re cvBytes))
iBytes = rxSocket.EndRec eiveFrom(ar, RemoteEP)
rxSocket.BeginR eceiveFrom(Recv Bytes, 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP, New AsyncCallback(A ddressOf OnReceive), Nothing)
End Sub

Please Help, I don't know what else to except go back and use the MS Winsock
control with dot net somehow if I can't get dotnet SOCKET stuff to work
reliably..
Buc

[Buc]

Never Mind, I took the RECEIVEFROM line out and it started getting every
packet, Its not needed I guess, any the data is already in Recvbytes buffer
when callback OnReceive fires..

"Buc" <bu******@hotma il.com> wrote in message
news:eQ******** ******@TK2MSFTN GP09.phx.gbl...

I have a small program that accepts a DGRAM UDP text packet (+-250 bytes
port 9001) and puts it in a list box. The network receive part acts BUGGY.
It acts the same way on more than one machine. It acted random.. SO..I used the debugger, the callback fires and the first line of code breaks (the
receivefrom) and then the sub exits without executing the remaining lines of code ?? The next packet may do the same thing OR the sub may finish the
remaining lines of code correctly and actually stick the text packet in the listbox. I send one packet at a time for test and verify with a sniffer. I
added the try / catch later to see if there was some MYSTERY error but it
didn't catch anything either. (An Exception or a SocketException ) Here's the code...
Dim rxSocket As Socket = Nothing
Dim RecvBytes(1000) As Byte
Dim RemoteEP As New IPEndPoint(0, 0)

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
rxSocket = New Socket(AddressF amily.InterNetw ork, SocketType.Dgra m, ProtocolType.Ud p)
RemoteEP = New IPEndPoint(IPAd dress.Any, 9001)
rxSocket.Bind(R emoteEP)
rxSocket.BeginR eceiveFrom(Recv Bytes, 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP, New AsyncCallback(A ddressOf OnReceive), Nothing) End Sub
Public Sub OnReceive(ByVal ar As IAsyncResult)
Dim iBytes As Integer
Try
iBytes = rxSocket.Receiv eFrom(RecvBytes , 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP) <<BREAKPOINT HERE and then it exits sub
SOMETIMES
Catch e As SocketException <<no Socket exception or other
exception occurs
MsgBox(e.Messag e)
Exit Sub
End Try
ListBox1.Items. Add(Encoding.UT F8.GetString(Re cvBytes))
iBytes = rxSocket.EndRec eiveFrom(ar, RemoteEP)
rxSocket.BeginR eceiveFrom(Recv Bytes, 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP, New AsyncCallback(A ddressOf OnReceive), Nothing) End Sub

Please Help, I don't know what else to except go back and use the MS Winsock control with dot net somehow if I can't get dotnet SOCKET stuff to work
reliably..
Buc

[Ken Tucker [MVP]]

Hi,

Try using a variable instead of using new in
rxSocket.beginr eceievefrom.

Dim myCallback as New AsyncCallback(A ddressOf OnReceive)
rxSocket.BeginR eceiveFrom(Recv Bytes, 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP, myCallback, Nothing)

Check out indy an open source dotnet sockets class.
http://www.indyproject.org/Indy.html

Ken
-------------------------

"Buc" <bu******@hotma il.com> wrote in message
news:eQ******** ******@TK2MSFTN GP09.phx.gbl...

I have a small program that accepts a DGRAM UDP text packet (+-250 bytes
port 9001) and puts it in a list box. The network receive part acts BUGGY.
It acts the same way on more than one machine. It acted random.. SO..I
used
the debugger, the callback fires and the first line of code breaks (the
receivefrom) and then the sub exits without executing the remaining lines
of
code ?? The next packet may do the same thing OR the sub may finish the
remaining lines of code correctly and actually stick the text packet in
the
listbox. I send one packet at a time for test and verify with a sniffer. I
added the try / catch later to see if there was some MYSTERY error but it
didn't catch anything either. (An Exception or a SocketException ) Here's
the
code...
Dim rxSocket As Socket = Nothing
Dim RecvBytes(1000) As Byte
Dim RemoteEP As New IPEndPoint(0, 0)

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
rxSocket = New Socket(AddressF amily.InterNetw ork, SocketType.Dgra m,
ProtocolType.Ud p)
RemoteEP = New IPEndPoint(IPAd dress.Any, 9001)
rxSocket.Bind(R emoteEP)
rxSocket.BeginR eceiveFrom(Recv Bytes, 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP, New AsyncCallback(A ddressOf OnReceive),
Nothing)
End Sub
Public Sub OnReceive(ByVal ar As IAsyncResult)
Dim iBytes As Integer
Try
iBytes = rxSocket.Receiv eFrom(RecvBytes , 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP) <<BREAKPOINT HERE and then it exits sub
SOMETIMES
Catch e As SocketException <<no Socket exception or other
exception occurs
MsgBox(e.Messag e)
Exit Sub
End Try
ListBox1.Items. Add(Encoding.UT F8.GetString(Re cvBytes))
iBytes = rxSocket.EndRec eiveFrom(ar, RemoteEP)
rxSocket.BeginR eceiveFrom(Recv Bytes, 0, RecvBytes.Lengt h,
SocketFlags.Non e, RemoteEP, New AsyncCallback(A ddressOf OnReceive),
Nothing)
End Sub

Please Help, I don't know what else to except go back and use the MS
Winsock
control with dot net somehow if I can't get dotnet SOCKET stuff to work
reliably..
Buc