Receive an IrDA Transfer

Receive an IrDA Transfer Microsoft Corporation Receives a text file using infrared transmission from another device. sdirdarec

System.Windows.Forms.dll System.Net.IrDA.dll Microsoft.VisualBasic System System.IO System.Net System.Net.Sockets System.Windows.Forms

 0
            numRead = baseStream.Read(buffer, 0, numToRead)
            numToRead -= numRead
        End While

        ' Get the size of the buffer to show
        ' the number of bytes to write to the file.
        numToRead = BitConverter.ToInt64(buffer, 0)

        Try
            While numToRead > 0
                numRead = baseStream.Read(buffer, 0, buffer.Length)
                numToRead -= numRead
                writeStream.Write(buffer, 0, numRead)
            End While
        Finally
            writeStream.Close()
        End Try

        baseStream.Close()
        irClient.Close()

    End Sub]]>