arna1385
Member
Hi every one
I have a VB.Net program but i can't translate this part of program to B4A
In this program connect to the server with NtripCaster and NtripPort
and then send username and password and then request for answer from Server (Server response)
How can I send and receive this information with B4A?
Dim sckt As Net.Sockets.Socket
'Connect to server
sckt = New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
Try
'sckt.Connect(New Net.IPEndPoint(NTRIPCaster, NTRIPPort))
sckt.Connect(NTRIPCaster, NTRIPPort)
End Try
'Build request message
Dim msg As String = "GET /" & NTRIPMountPoint & " HTTP/1.0" & vbCr & vbLf
msg += "User-Agent: "MY Messages" & vbCr & vbLf
msg += "Accept: */*" & vbCr & vbLf & "Connection: close" & vbCr & vbLf
If NTRIPUsername.Length > 0 Then
Dim auth As String = ToBase64(NTRIPUsername & ":" & NTRIPPassword)
msg += "Authorization: Basic " & auth & vbCr & vbLf
End If
msg += vbCr & vbLf
'Send request
Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes(msg)
sckt.Send(data)
Threading.Thread.Sleep(100)
'Wait for response
Dim responseData As String = ""
Try
For i = 0 To 300 'Wait 30 seconds for a response
Threading.Thread.Sleep(100)
Dim DataLength As Integer = sckt.Available
If DataLength > 0 Then
Dim InBytes(DataLength - 1) As Byte
sckt.Receive(InBytes, DataLength, Net.Sockets.SocketFlags.None)
responseData = System.Text.Encoding.ASCII.GetString(InBytes, 0, InBytes.Length)
End If
If responseData.Length > 0 Then Exit For
Next
End Try
I have a VB.Net program but i can't translate this part of program to B4A
In this program connect to the server with NtripCaster and NtripPort
and then send username and password and then request for answer from Server (Server response)
How can I send and receive this information with B4A?
Dim sckt As Net.Sockets.Socket
'Connect to server
sckt = New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
Try
'sckt.Connect(New Net.IPEndPoint(NTRIPCaster, NTRIPPort))
sckt.Connect(NTRIPCaster, NTRIPPort)
End Try
'Build request message
Dim msg As String = "GET /" & NTRIPMountPoint & " HTTP/1.0" & vbCr & vbLf
msg += "User-Agent: "MY Messages" & vbCr & vbLf
msg += "Accept: */*" & vbCr & vbLf & "Connection: close" & vbCr & vbLf
If NTRIPUsername.Length > 0 Then
Dim auth As String = ToBase64(NTRIPUsername & ":" & NTRIPPassword)
msg += "Authorization: Basic " & auth & vbCr & vbLf
End If
msg += vbCr & vbLf
'Send request
Dim data As Byte() = System.Text.Encoding.ASCII.GetBytes(msg)
sckt.Send(data)
Threading.Thread.Sleep(100)
'Wait for response
Dim responseData As String = ""
Try
For i = 0 To 300 'Wait 30 seconds for a response
Threading.Thread.Sleep(100)
Dim DataLength As Integer = sckt.Available
If DataLength > 0 Then
Dim InBytes(DataLength - 1) As Byte
sckt.Receive(InBytes, DataLength, Net.Sockets.SocketFlags.None)
responseData = System.Text.Encoding.ASCII.GetString(InBytes, 0, InBytes.Length)
End If
If responseData.Length > 0 Then Exit For
Next
End Try