Отправить HL7, используя VB.NET с MLLP

Question

Я пытаюсь отправить hl7, используя vb.net с mllp, кто-нибудь может сказать мне, что это неправильно моего кода

Dim StartBlock As String = "0x0b"  ' this is start block <SB>
Dim EndBlock As String = " 0x0d" ' this is end Block <EB>
Dim ReturnBlock As String = "0x1c" ' this is return  <CR>
Msg = StartBlock & Msg & EndBlock & ReturnBlock 


Dim networkStream As NetworkStream = tcpClient.GetStream()

If networkStream.CanWrite And networkStream.CanRead Then
    Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(Msg) 

    networkStream.Write(sendBytes, 0, sendBytes.Length)
end if

Answer 1

Вы обменяли конечный и обратный блоки. Так что меняйте их местами

Dim EndBlock As String = "0x1c" ' this is end Block <EB>
Dim ReturnBlock As String = "0x0d" ' this is return  <CR>

Поскольку я не знаком с Visual Basic, я не гарантирую, что синтаксическое определение ваших блоков является правильным, также может быть &H0D или похожие.