German UDP Problem

[Hkipnik]

Hallo,
ich habe da mal ein Problem

Sub btnAction2_Click
    Dim Packet As UDPPacket
    Dim data() As Byte
    data = "led2".GetBytes("UTF8")
    Packet.Initialize(data, "192.168.2.109", 8800)
    UDPSocket1.Send(Packet)
End Sub

wie ist es möglich hinter Led2 ein CRLF einzufügen

Danke für eure Hilfe
Gruß
Hkipnik

 

[Hkipnik]

Hallo,
ich habe da mal ein Problem

Sub btnAction2_Click
    Dim Packet As UDPPacket
    Dim data() As Byte
    data = "led2".GetBytes("UTF8")
    Packet.Initialize(data, "192.168.2.109", 8800)
    UDPSocket1.Send(Packet)
End Sub

wie ist es möglich hinter Led2 ein CRLF einzufügen

Danke für eure Hilfe
Gruß
Hkipnik

Hallo
Ja ich habe es selber hinbekommen.
Manchmal hat man ein Brett vorm Kopf:BangHead:

Sub btnAction2_Click
    Dim Packet As UDPPacket
    Dim datstr As String
    datstr = "led2" & Chr(13)
    Packet.Initialize(datstr.GetBytes("UTF8"), "192.168.2.109", 8800)
    UDPSocket1.Send(Packet)
End Sub

Gruß
Hkipnik

 

[FlyingEagle]

Auch wenn schon alt, du fügst nur ein CR ein, das LF wäre dann chr(10)!

chr(13) & chr(10)