Home All Groups Group Topic Archive Search About
Author
8 Apr 2005 6:43 AM
notregister
Hi,

i have an array of data, all in bytes. How can i send it to an device which
i have its IP address and Port?? How can i make sure the bytes are send in
sequence, as in byte(0) will send out, then byte(1) will
follow...subsequently...all bytels are send??

Author
8 Apr 2005 7:24 AM
Cor Ligthert
Notregister,

When you get not an answer in this newsgroup that is rare. However probably
nowbody in this newsgroup knows an answer on this endless by you asked
question.

Maybe you can search on internet yourself. Another optie is to call a
Microsoft support center. For that you have mostly to pay, here is the
overview page for support.

http://www.microsoft.com/applicationcenter/support/


Cor
Author
8 Apr 2005 12:54 PM
ECathell
Private Function PrintThisPallet(ByVal label() As Byte, ByVal netstream As
NetworkStream) As Boolean
            Try
                Dim startPrint(3) As Byte
                startPrint = getStartPrint()
                Dim endPrint(2) As Byte
                endPrint = getEndPrint()

                If netstream.CanRead And netstream.CanWrite Then
                    netstream.Write(startPrint, 0, startPrint.Length)
                    netstream.Write(label, 0, label.Length)
                    netstream.Write(endPrint, 0, endPrint.Length)
                    Return True

                ElseIf Not netstream.CanRead Or Not netstream.CanWrite Then
                    Return False

                End If

            Catch ex As Exception
                If debugLevel = 1 Then MessageBox.Show(ex.Message,
"PrintThisPallet")
            End Try
        End Function

        Private Function getStartPrint() As Byte()
            Dim start(3) As Byte

            start(0) = 2
            start(1) = 76
            start(2) = 13

            Return start
        End Function

        Private Function getEndPrint() As Byte()
            Dim labelEnd(2) As Byte

            labelEnd(0) = 69
            labelEnd(1) = 13

            Return labelEnd

        End Function