Winsock what did I miss?

[Henning]

Hi grp!
Trying to receive a udp msg in vb6, but it shows only zeros. What have I
missed?

/Henning

--
Time is present only to prevent everything from happening at once.
Still it seems that everything happens at once.
Then there must be a bug in time.
To find the bug in time, isn't that what we all hope for.

[Henning]

;( as usual I "forgot" to attach the code ;(
Private Sub Wsock_DataArrival(ByVal bytesTotal As Long)
Dim byteData(256) As Byte
Dim i As Integer
Text4.Text = bytesTotal
Text3.Text = ""
Wsock.GetData byteData(), vbArray + vbByte, bytesTotal
For i = 0 To bytesTotal - 1
Text3.Text = Text3.Text + Hex$(byteData(i))
Next
End Sub
/Henning
"Henning" <co***********@coldmail.com> skrev i meddelandet
news:41***********************@news3.bahnhof.se...

Hi grp!
Trying to receive a udp msg in vb6, but it shows only zeros. What have I
missed?

/Henning

--
Time is present only to prevent everything from happening at once.
Still it seems that everything happens at once.
Then there must be a bug in time.
To find the bug in time, isn't that what we all hope for.

[Shell]

In responce to the post:
On Fri, 3 Dec 2004 20:47:07 +0100, "Henning"
<co***********@coldmail.com> stated...and I replied:

Hi grp!
Trying to receive a udp msg in vb6, but it shows only zeros. What have I
missed?

/Henning

Did you send a msg? <g>

see next post
Shell
-
http://drshell.home.mindspring.com/
Into computers since 1972.
WARNING! Information and e-mail addresses contained herein, are for personal use only. By entering this site, you agree that you will use this data only for lawful purposes and that, under no circumstances will you use this data to: allow, enable, or otherwise support the transmission of mass unsolicited, commercial advertising or solicitations via direct mail, electronic mail, or by telephone. Violators will be dealt with accordingly.
-

[Shell]

In responce to the post:
On Fri, 3 Dec 2004 20:51:10 +0100, "Henning"
<co***********@coldmail.com> stated...and I replied:

;( as usual I "forgot" to attach the code ;(
Private Sub Wsock_DataArrival(ByVal bytesTotal As Long)
Dim byteData(256) As Byte ^^^
this would be 0 to 256...are you sure you don't want 256 as the
amount? (e.g. 0 to 255?)
Dim i As Integer
Text4.Text = bytesTotal
Text3.Text = "" ^^^
this would clear your receiving field each time the DataArrival event
fires
Wsock.GetData byteData(), vbArray + vbByte, bytesTotal
For i = 0 To bytesTotal - 1
Text3.Text = Text3.Text + Hex$(byteData(i))
Next
End Sub

Do you know, in advance, the size of the data packet you're receiving?
If so, you can truncate the excess data...which is probably what is
clearing and zeroing your receiving field at the end of the
transmission.

Shell
-
http://drshell.home.mindspring.com/
Into computers since 1972.
WARNING! Information and e-mail addresses contained herein, are for personal use only. By entering this site, you agree that you will use this data only for lawful purposes and that, under no circumstances will you use this data to: allow, enable, or otherwise support the transmission of mass unsolicited, commercial advertising or solicitations via direct mail, electronic mail, or by telephone. Violators will be dealt with accordingly.
-

[Henning]

Jepp, I did send ;)
The Sniffer told the package is ok
When receiving to a string, it works.
So, the quiz stands. What have I missed when trying the byte array. Data in
pack is binary.
And yes, I know the package size. It comes from a standalone mpu project,
sending status changes of 8-bit ports. The 256 was just lazy ;) pkg size = 9
bytes + header.
/Henning

"Shell" <__*************************@mindspring.com___> skrev i meddelandet
news:jh********************************@4ax.com...

In responce to the post:
On Fri, 3 Dec 2004 20:51:10 +0100, "Henning"
<co***********@coldmail.com> stated...and I replied:

;( as usual I "forgot" to attach the code ;(
Private Sub Wsock_DataArrival(ByVal bytesTotal As Long)
Dim byteData(256) As Byte ^^^
this would be 0 to 256...are you sure you don't want 256 as the
amount? (e.g. 0 to 255?)

Dim i As Integer
Text4.Text = bytesTotal
Text3.Text = ""

^^^
this would clear your receiving field each time the DataArrival event
fires

Wsock.GetData byteData(), vbArray + vbByte, bytesTotal
For i = 0 To bytesTotal - 1
Text3.Text = Text3.Text + Hex$(byteData(i))
Next
End Sub

Do you know, in advance, the size of the data packet you're receiving?
If so, you can truncate the excess data...which is probably what is
clearing and zeroing your receiving field at the end of the
transmission.

Shell
-
http://drshell.home.mindspring.com/
Into computers since 1972.
WARNING! Information and e-mail addresses contained herein, are for

personal use only. By entering this site, you agree that you will use this
data only for lawful purposes and that, under no circumstances will you use
this data to: allow, enable, or otherwise support the transmission of mass
unsolicited, commercial advertising or solicitations via direct mail,
electronic mail, or by telephone. Violators will be dealt with accordingly. -

[Steve Gerrard]

"Henning" <co***********@coldmail.com> wrote in message
news:41***********************@news3.bahnhof.se...
| Jepp, I did send ;)
| The Sniffer told the package is ok
| When receiving to a string, it works.
| So, the quiz stands. What have I missed when trying the byte array.
Data in
| pack is binary.

"Henning" <co***********@coldmail.com> wrote in message
news:41***********************@news3.bahnhof.se...

| Private Sub Wsock_DataArrival(ByVal bytesTotal As Long)
| Dim byteData(256) As Byte

| Wsock.GetData byteData(), vbArray + vbByte, bytesTotal

I suspect that GetData is expecting a dynamic array, which it can resize
to fit the data. So just doing
Dim byteData() As Byte
might do it. If not, then it might be expecting vbArray + vbByte to mean
a variant containing a byte array, so
Dim byteData As Variant
might work.

[Shell]

In responce to the post:
On Fri, 3 Dec 2004 18:13:28 -0800, "Steve Gerrard"
<my********@comcast.net> stated...and I replied:

"Henning" <co***********@coldmail.com> wrote in message
news:41***********************@news3.bahnhof.se.. .
| Jepp, I did send ;)
| The Sniffer told the package is ok
| When receiving to a string, it works.
| So, the quiz stands. What have I missed when trying the byte array.
Data in
| pack is binary.

"Henning" <co***********@coldmail.com> wrote in message
news:41***********************@news3.bahnhof.se.. .

| Private Sub Wsock_DataArrival(ByVal bytesTotal As Long)
| Dim byteData(256) As Byte

| Wsock.GetData byteData(), vbArray + vbByte, bytesTotal

I suspect that GetData is expecting a dynamic array, which it can resize
to fit the data. So just doing
Dim byteData() As Byte
might do it. If not, then it might be expecting vbArray + vbByte to mean
a variant containing a byte array, so
Dim byteData As Variant
might work.

No sir, the GetData is somewhat like the Get/Input statements. They
require "sizing" to the amount of data to be received, and a ByteArray
is just fine for this purpose.

Shell
-
http://drshell.home.mindspring.com/
Into computers since 1972.
WARNING! Information and e-mail addresses contained herein, are for personal use only. By entering this site, you agree that you will use this data only for lawful purposes and that, under no circumstances will you use this data to: allow, enable, or otherwise support the transmission of mass unsolicited, commercial advertising or solicitations via direct mail, electronic mail, or by telephone. Violators will be dealt with accordingly.
-

[Shell]

In responce to the post:
On Sat, 4 Dec 2004 01:37:03 +0100, "Henning"
<co***********@coldmail.com> stated...and I replied:

Jepp, I did send ;)
The Sniffer told the package is ok
When receiving to a string, it works.
So, the quiz stands. What have I missed when trying the byte array. Data in
pack is binary.
And yes, I know the package size. It comes from a standalone mpu project,
sending status changes of 8-bit ports. The 256 was just lazy ;) pkg size = 9
bytes + header.
/Henning

The DataArrival event fires one to many times for each transmission.
Even for a small packet like 9 bytes you could still be getting a
second firing of the event, whereby the receiving field would be
cleared, as well as the byte array being overlayed each time you
GetData.

I would bet the DataArrival event fires more than once.
If you change the code to allow for multiple entry of the DataArrival
event, you will see results.

Shell
-
http://drshell.home.mindspring.com/
Into computers since 1972.
WARNING! Information and e-mail addresses contained herein, are for personal use only. By entering this site, you agree that you will use this data only for lawful purposes and that, under no circumstances will you use this data to: allow, enable, or otherwise support the transmission of mass unsolicited, commercial advertising or solicitations via direct mail, electronic mail, or by telephone. Violators will be dealt with accordingly.
-

[Steve Gerrard]

"Shell" <__*************************@mindspring.com___> wrote in message
news:oi********************************@4ax.com...
| >| When receiving to a string, it works.
| >| So, the quiz stands. What have I missed when trying the byte array.

| >| Private Sub Wsock_DataArrival(ByVal bytesTotal As Long)
| >| Dim byteData(256) As Byte
| >

| >I suspect that GetData is expecting a dynamic array, which it can
resize
| >to fit the data. So just doing
| > Dim byteData() As Byte
| >might do it.

| No sir, the GetData is somewhat like the Get/Input statements. They
| require "sizing" to the amount of data to be received, and a ByteArray
| is just fine for this purpose.
|

Good theory, but in fact incorrect. The examples in MSDN use unsized
strings, for instance, to receive text data, which gives a hint.

The following does work for receiving 4 bytes of data:

Private Sub Winsock3_DataArrival(ByVal bytesTotal As Long)
Dim bytes() As Byte
Dim n As Integer

Winsock3.GetData bytes, vbArray + vbByte
For n = LBound(bytes) To UBound(bytes)
Debug.Print n, bytes(n)
Next n

End Sub

If you replace the Dim statement with
Dim bytes(0 to 3) As Byte

the bytes will remain all zero.

[Henning]

Anyone to bet a dollar on Steve?
He is right!
When I saw the reply, I simply hit myself hard!
Thx Steve for pointing that out, it works like a dream now!
Thx again
/Henning (in computers since 1979)

"Steve Gerrard" <my********@comcast.net> skrev i meddelandet
news:9K********************@comcast.com...

"Shell" <__*************************@mindspring.com___> wrote in message
news:oi********************************@4ax.com...
| >| When receiving to a string, it works.
| >| So, the quiz stands. What have I missed when trying the byte array.

| >| Private Sub Wsock_DataArrival(ByVal bytesTotal As Long)
| >| Dim byteData(256) As Byte
| >

| >I suspect that GetData is expecting a dynamic array, which it can
resize
| >to fit the data. So just doing
| > Dim byteData() As Byte
| >might do it.

| No sir, the GetData is somewhat like the Get/Input statements. They
| require "sizing" to the amount of data to be received, and a ByteArray
| is just fine for this purpose.
|

Good theory, but in fact incorrect. The examples in MSDN use unsized
strings, for instance, to receive text data, which gives a hint.

The following does work for receiving 4 bytes of data:

Private Sub Winsock3_DataArrival(ByVal bytesTotal As Long)
Dim bytes() As Byte
Dim n As Integer

Winsock3.GetData bytes, vbArray + vbByte
For n = LBound(bytes) To UBound(bytes)
Debug.Print n, bytes(n)
Next n

End Sub

If you replace the Dim statement with
Dim bytes(0 to 3) As Byte

the bytes will remain all zero.

[Shell]

In responce to the post:
On Sat, 4 Dec 2004 14:35:41 -0800, "Steve Gerrard"
<my********@comcast.net> stated...and I replied:

Good theory, but in fact incorrect. The examples in MSDN use unsized
strings, for instance, to receive text data, which gives a hint.

The following does work for receiving 4 bytes of data:

Private Sub Winsock3_DataArrival(ByVal bytesTotal As Long)
Dim bytes() As Byte
Dim n As Integer

Winsock3.GetData bytes, vbArray + vbByte
For n = LBound(bytes) To UBound(bytes)
Debug.Print n, bytes(n)
Next n

End Sub

If you replace the Dim statement with
Dim bytes(0 to 3) As Byte

the bytes will remain all zero.

Duh (to myself), you are in fact right. It's been over 3 years since
I programmed with the winsock control. I also remember that the
GetData function does not always get ALL the data. It, at times, must
be called many times to receive the full data stream. In fact, I've
had it called thousands of times to pass large files, with DoEvents
stuffed in to avoid the potential timeout problems.

Regards,
Shell
-
http://drshell.home.mindspring.com/
Into computers since 1972.
WARNING! Information and e-mail addresses contained herein, are for personal use only. By entering this site, you agree that you will use this data only for lawful purposes and that, under no circumstances will you use this data to: allow, enable, or otherwise support the transmission of mass unsolicited, commercial advertising or solicitations via direct mail, electronic mail, or by telephone. Violators will be dealt with accordingly.
-

[Shell]

In responce to the post:
On Sun, 5 Dec 2004 01:32:08 +0100, "Henning"
<co***********@coldmail.com> stated...and I replied:

Anyone to bet a dollar on Steve?
He is right!
When I saw the reply, I simply hit myself hard!
Thx Steve for pointing that out, it works like a dream now!
Thx again
/Henning (in computers since 1979)

Haha!! No fair, you alread knew the outcome before you asked for the
bet!

Shell
-
http://drshell.home.mindspring.com/
Into computers since 1972.
WARNING! Information and e-mail addresses contained herein, are for personal use only. By entering this site, you agree that you will use this data only for lawful purposes and that, under no circumstances will you use this data to: allow, enable, or otherwise support the transmission of mass unsolicited, commercial advertising or solicitations via direct mail, electronic mail, or by telephone. Violators will be dealt with accordingly.
-

[Steve Gerrard]

"Shell" <__*************************@mindspring.com___> wrote in message
news:rp********************************@4ax.com...
|
| Duh (to myself), you are in fact right. It's been over 3 years since
| I programmed with the winsock control. I also remember that the
| GetData function does not always get ALL the data. It, at times, must
| be called many times to receive the full data stream. In fact, I've
| had it called thousands of times to pass large files, with DoEvents
| stuffed in to avoid the potential timeout problems.
|
| Regards,
| Shell
| -

Yes, DataArrival may occur multiple times for a large transfer, and you
get no indication of the total size coming at you. I think the packet
size is basically whatever is used by the network. I seem to remember
sending a "header" that indicated the total transfer size, so the
receiving end could process the stream appropriately.