Android Question NTRIP Mount Points

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)
    CmbMountPoints.cmbBox.Clear
    If Job.Success Then
        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(Job.Response.ErrorResponse)
        '        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

Sub FindMountPoints
    Dim su As StringUtils

    'Set the NTRIP caster URL and credentials
    If AStream.IsInitialized Then AStream.Close
    IPAddress = CGlobals.DF(64)
    Port = CGlobals.DF(65)
    Username = CGlobals.DF(66)
    Password = CGlobals.DF(67)
    MountPoint = "Ctwn-SB"    'CGlobals.DF(71)
    Socket.Initialize("Socket")
    Socket.Connect(IPAddress, Port, 10000)
End Sub

Sub Socket_Connected (Successful As Boolean)
    If Successful Then
        Log("Connected successfully.")
        ' Proceed with data exchange
        Dim msg As String
        msg = "GET /" & MountPoint & " HTTP/1.0" & CRLF
        msg = msg & "User-Agent: NTRIP Ceaser" & CRLF
        msg = msg &  "Accept: */*" & CRLF
'        msg = msg &  "Connection: close" & CRLF
        If Username.Length > 0 Then
            Dim auth As String = su.EncodeBase64((Username & ":" & Password).GetBytes("UTF8"))
            msg = msg & "Authorization: Basic " & auth & CRLF
        End If
        
        AStream.Initialize(Socket.InputStream, Socket.OutputStream, "AStream")
        Log("Request sent: " & msg)
        
        AStream.Write(msg.GetBytes("UTF8"))
        Sleep(200)
    Else
        Log("Connection failed.")
    End If
End Sub

Sub AStream_NewData (Buffer() As Byte)
    Dim Response As String = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    Log("Response: " & Response)
    
    ' Parse the response manually to extract mount points
    Dim Lines() As String = Regex.Split(CRLF, Response)
    For Each Line As String In Lines
        If Line.StartsWith("STR") Then
            Log("Mount Point: " & Line)
            CmbMountPoints.cmbBox.Add(Line)
        End If
    Next
End Sub