Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long) Dim Data() As Byte Dim l As Long Dim i As Integer Data = tcpServer.GetData.getBytes Text3.Text = Text3.Text & vbCrLf & bytesTotal & " bytes: [" & LBound(Data) & " .. " & UBound(Data) & "]" & vbCrLf For l = 0 To bytesTotal i = data(l) And 255 Text3.Text= Text3.Text & l & ": " & Chr$(i) & " " & CStr(i) & vbCrLf Next l End Sub |
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long) Dim l As Long Dim i As Integer Dim s As java#lang#String = tcpServer.GetData() Text3.Text = Text3.Text & vbCrLf & bytesTotal & " bytes: " & vbCrLf For l = 0 To bytesTotal - 1 i = s.charAt(l) Text3.Text= Text3.Text & l & ": " & Chr$(i) & " " & CStr(i) & vbCrLf Next l End Sub |