Android Question NTRIP Mount Points

Terradrones · Saturday at 1:25 PM

Hi All

I need help again please. I want to access the Service Provider (www.trignet.co.za) that has GPS Base Stations all over South Africa that transmits GPS corrections. I have registered with Trignet and have a Username and Password. I also know the IP address and Port number of Trignet.

I am trying to access the mountpoints with the following code:

B4X:

Sub FindMountPoints
    Dim su As StringUtils
    Dim HttpClient As HttpJob
    HttpClient.Initialize("NTRIP", Me)
    
    ' Set the NTRIP caster URL and credentials
    Dim IPAddress As String = CGlobals.DF(64)
    Dim Port As String = CGlobals.DF(65)
    Dim NTRIP_URL As String = "http://" & IPAddress & ":" & Port '& "/caster"
    Dim Username As String = CGlobals.DF(66)
    Dim Password As String = CGlobals.DF(67)
    
    ProgressDialogShow2("Searching Mount Points...", True)
    
    Dim AuthString As String = Username & ":" & Password
    Dim AuthHeader As String = "Basic " & su.EncodeBase64(AuthString.GetBytes("UTF8"))
    HttpClient.Download(NTRIP_URL)
    
    ' Set headers before sending the request
    HttpClient.GetRequest.SetHeader("Authorization", AuthHeader)
    HttpClient.GetRequest.SetHeader("User-Agent", "Ceaser")
    HttpClient.GetRequest.SetHeader("Accept", "*/*")
    HttpClient.GetRequest.SetHeader("Connection", "close")
    
    ' Send the request
'    HttpClient.Download(NTRIP_URL)
End Sub

Sub JobDone (Job As HttpJob)
    If Job.Success Then
        CmbMountPoints.cmbBox.Clear
        Dim response As String = Job.GetString
'        Log("NTRIP Response: " & response)
        
        ' Process the NTRIP data here to extract mount points
        Dim MountPoints As List
        MountPoints.Initialize
        Dim Lines() As String = Regex.Split(CRLF, response)
        For Each Line As String In Lines
            Log(Line)
            If Line.StartsWith("STR") Then
                CmbMountPoints.cmbBox.Add(Line)
'                Log(Line)
                MountPoints.Add(Line)
            End If
        Next
        Log("Available Mount Points: " & MountPoints)
    Else
        Log("Job failed: " & Job.ErrorMessage)
        Log("HTTP Status Code: " & Job.Response.StatusCode) ' Log the status code for more details
'        Log("Full Response: " & Job.GetString) ' Log the full response to understand why it fails
        MsgboxAsync("Mount Points Are Not Available" & CRLF & "The Server Might Be Down", "No Mount Points")
    End If
    Job.Release
    ProgressDialogHide
End Sub

It is giving me the following error:

ResponseError. Reason: java.net.ProtocolException: Unexpected status line: SOURCETABLE 200 OK, Response:
Job failed: java.net.ProtocolException: Unexpected status line: SOURCETABLE 200 OK
HTTP Status Code: -1

What does "sourcetable 200 ok" mean?

Erel · Sunday at 7:01 AM

Tip - correct way to work with OkHttpUtils2: [B4X] OkHttpUtils2 with Wait For

The server isn't a standard http server. You will need to use Socket from the Network library.

A bit related example: https://www.b4x.com/android/forum/threads/b4x-class-mjpeg-decoder.73702/#content

Terradrones · Sunday at 11:14 AM

Thanks.

I have now used a Socket and I can connect, but I do not receive anything back from Trignet for the GPS corrections.

A question: if I have the IP Address and the Port number, surely that is all that I require to access the correct "room" on the Website?

Modified code:

B4X:

Sub GetMountPoints_Click
    'Get the Mount Points

    Select Case CGlobals.DF(50)
        Case 1
            'Leica
        Case 2
            'Emlid
            FindMountPoints
        Case 3,4,5,10
            'Foif, Rinonav,E-Survey, StoneX
            FindMountPoints
        Case 6
            'Tersus
            FindMountPoints
        Case 7
            'Geomax
        Case 8
            'ComNav
        Case 9
            'CHC
    End Select
End Sub

Sub FindMountPoints
    sckt.Initialize("sckt")
    sckt.Connect(CGlobals.DF(64), CGlobals.DF(65), 5000)     'DF(64)=IP Address & DF(65)=Port
End Sub

Sub sckt_Connected(Successful As Boolean)
    If Successful Then
        Log("Connection successful")
        
        ' Build NTRIP request message
        Dim msg As String
        'msg = "GET /caster HTTP/1.1" & CRLF ' Switching to HTTP/1.1
        msg = "GET /HTTP/1.1" & CRLF
        msg = msg & "Host: " & CGlobals.DF(64) & CRLF
        msg = msg & "User-Agent: NTRIP Client" & CRLF
        msg = msg & "Accept: */*" & CRLF
        msg = msg & "Connection: close" & CRLF
        
        ' Add authorization header if username and password are provided
        If CGlobals.DF(66).Length > 0 And CGlobals.DF(67).Length > 0 Then        'DF(66)=User Name & DF(67)=Password
            Dim credentials As String = CGlobals.DF(66) & ":" & CGlobals.DF(67)
            Dim data() As Byte = credentials.GetBytes("UTF8")
            Dim auth As String = su.EncodeBase64(data)
            msg = msg & "Authorization: Basic " & auth & CRLF
        End If
        msg = msg & CRLF
        
        Log("Request message: " & msg)

        ' Initialize AsyncStreams
        AStream.Initialize(sckt.InputStream, sckt.OutputStream, "AStream")
        
        ' Send request
        AStream.Write(msg.GetBytes("UTF8"))
    Else
        Log("Connection failed")
    End If
End Sub

Sub AStream_NewData(Buffer() As Byte)
    Dim receivedData As String = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    Log("Received Data Chunk: " & receivedData)
    response = response & receivedData
End Sub

Sub AStream_Terminated
    Log("Connection terminated. Full response: " & response)
    
    ' Process the response here
    Dim mountPoints As List = ParseMountPoints(response)
    For Each mountPoint As String In mountPoints
        Log(mountPoint)
    Next
End Sub

Sub ParseMountPoints(response1 As String) As List
    Dim mountPoints As List
    mountPoints.Initialize
    Dim lines() As String = Regex.Split(CRLF, response1)
    For Each line As String In lines
        If line.StartsWith("STR;") Then ' NTRIP response contains lines starting with "STR;" for mount points
            mountPoints.Add(line)
        End If
    Next
    Return mountPoints
End Sub

Any ideas?

Thank you
Michael

Terradrones · 2024-11-04T08:04:56+0000

This is driving me up the wall

Terradrones · 2024-11-04T14:40:01+0000

I have now changed the functions to find NTRIP mountpoints into a class. The connection is successful, but there is still no response from Trignet.

Code:

B4X:

Sub Class_Globals
    Private sock As Socket
    Private Astream As AsyncStreams
    Private response As String
    Private su As StringUtils
    Private mHost As String
    Private mCallback As Object
    Private mEventName As String
End Sub

Public Sub Initialize(Callback As Object, EventName As String)
    mCallback = Callback
    mEventName = EventName
End Sub

Public Sub Connect(IPAddress As String, Port As Int, Username As String, Password As String)
    If Astream.IsInitialized Then Astream.Close
    sock.Initialize("sock")
    sock.Connect(IPAddress, Port, 30000)
    mHost = IPAddress
    Dim credentials As String = Username & ":" & Password
    Dim Data() As Byte = credentials.GetBytes("UTF8")
    Dim auth As String = su.EncodeBase64(Data)
    response = $"GET / HTTP/1.1
Host: ${IPAddress}
Ntrip-Version: Ntrip/2.0
User-Agent: NTRIP Client
Accept: */*
Authorization: Basic ${auth}
Connection: close

"$
End Sub

Private Sub Sock_Connected(Successful As Boolean)
    If Successful Then
        Astream.Initialize(sock.InputStream, sock.OutputStream, "astream")
        Log("Request message: " & response)
        Astream.Write(response.GetBytes("UTF8"))
        Log(response.GetBytes("UTF8"))
    Else
        Log("Connection failed")
        CallSubDelayed2(mCallback, mEventName & "_ConnectionFailed", True)
    End If
End Sub

Private Sub AStream_NewData(Buffer() As Byte)
    Dim receivedData As String = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    Log("Received Data Chunk: " & receivedData)
    response = response & receivedData
End Sub

Private Sub Astream_Terminated
    Log("Connection terminated. Full response: " & response)
    ' Process the response here
    Dim mountPoints As List = ParseMountPoints(response)
    CallSubDelayed2(mCallback, mEventName & "_MountPointsReceived", mountPoints)
End Sub

Private Sub ParseMountPoints(Response1 As String) As List
    Dim mountPoints As List
    mountPoints.Initialize
    Dim lines() As String = Regex.Split(CRLF, Response1)
    For Each line As String In lines
        If line.StartsWith("STR;") Then ' NTRIP response contains lines starting with "STR;" for mount points
            mountPoints.Add(line)
        End If
    Next
    Return mountPoints
End Sub

I am at wits ends here.

Erel · 2024-11-05T06:37:03+0000

Better to use HTTP/1.0 (unless the server doesn't support it).

Do you see anything in the logs?

Android Question NTRIP Mount Points

Terradrones

Active Member

Erel

B4X founder

Terradrones

Active Member

Terradrones

Active Member

Terradrones

Active Member

Erel

B4X founder

Similar Threads

Android Question NTRIP Mount Points

Terradrones

Active Member

Erel

B4X founder

Terradrones

Active Member

Terradrones

Active Member

Terradrones

Active Member

Erel

B4X founder

Similar Threads

Privacy & Transparency

Privacy & Transparency