Envoyer HL7 en utilisant VB.NET avec MLLP

Question

je suis en train d'envoyer HL7 using vb.net avec MLLP, quelqu'un peut me dire qui est le mauvais de mon code

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

Vous avez échangé endblock et returnblock. les échanger Alors

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

Comme je ne suis pas familier avec Visual Basic, je ne garantissons pas que la définition de la syntaxe de vos blocs est correcte, pourrait également être &H0D ou similaire.