senden HL7 mit VB.NET mit MLLP

Question

Ich versuche hl7 mit vb.net mit MLLP zu senden, kann mir jemand sagen, dass die falsche meines Codes ist

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

Sie endblock und returnblock ausgetauscht. So sie tauschen

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

Da ich nicht vertraut bin mit Visual Basic, ich nicht garantieren, dass die Syntax Definition Ihrer Blöcke korrekt ist, könnte auch &H0D oder ähnlich sein.