Android Question Upload file, e.g. jpg using okHttUtils2

Private Sub btnUpdateProfilePhoto_Click
    'get file location
    cc.Initialize("CC")  'Declared in the Class_Globals as Private cc As ContentChooser
    cc.Show("*/*", "Choose File")
End Sub

'This is to get the file name e.g. IMG101010.JPEG
Sub getFileInfo(uri As String)
    Dim Cur As Cursor
    Dim Uri1 As Uri
    Dim cr As ContentResolver
    cr.Initialize("")
   
    Uri1.Parse(uri)
    Cur = cr.Query(Uri1, Null, Null, Null, Null)
    Cur.Position = 0
   
    Try
        AttachFileName = Cur.GetString("_display_name") 'This "AttacheFileName" is the one used for the file in the j.PutBytes().  This is visible in the whole module
    Catch
        ToastMessageShow("Error Getting File Name", True)
    End Try
End Sub

'This is the actual sending of file to the server and where the problem arises.
Sub CC_Result (Success As Boolean, Dir As String, FileName As String)
    If Success Then
        Dim j As HttpJob
        Dim out As OutputStream
        out.InitializeToBytesArray(0)
        Dim In As InputStream = File.OpenInput(Dir, FileName)
        File.Copy2(In, out)

        getFileInfo(FileName)
       
        Dim su As StringUtils
        Dim j As HttpJob
        j.Initialize("j", Me)
       
        j.Password = "password"
        j.Username = "admin"
       
       'This is the link which is declared at the Class_Global
       'Private link As String = $"http://192.168.1.11:5984/messages/1a41295ed6c29495e54cc05947f18c8af"$

        j.PutBytes(link & "/" & AttachFileName & "?rev=9-230b22af2a8fb9a9288c5947bfa8a00f", _
            out.ToBytesArray)

        Wait For (j) JobDone(j As HttpJob)
       
        If j.Success Then
            Label2.Text = j.GetString
            j.Release
        Else
            Label3.Text = j.ErrorMessage
            j.Release
        End If
       
    End If
End Sub

Private link As String = $"http://192.168.1.11:5984/messages/1a41295ed6c29495e54cc05947f18c8af/"$
Dim ActualLink As String = $"${link}${AttachFileName}?rev=12-b3a89d25deacd3eb462b2870a2a2917f"$
j.PutBytes(ActualLink, out.ToBytesArray)
j.GetRequest.SetContentType("image/jpg")

j.PutString(ActualLink, "hello world")

j.PutString(ActualLink, "")

Dim sUtil As StringUtils
Dim s As String = sUtil.EncodeBase64(out.ToBytesArray)
j.PutString(ActualLink, s.SubString2(0, 200))
j.GetRequest.SetContentType("image/jpg")

Dim sUtil As StringUtils
Dim s As String = sUtil.EncodeBase64(out.ToBytesArray)
j.PutString(ActualLink, s)
j.GetRequest.SetContentType("image/jpg")

public Sub UploadMedia
    
    Try
        
        
        Dim MySQL As String
        Dim Cursor1 As ResultSet   
        Dim IsFTPOk As Boolean
        
        MySQL="select ID, FileName from tblNotesMediaFiles "
        MySQL= MySQL & "where PlacementLocalID=? And PlacementID=? And JobDate=? And Shift=? And ifnull(FTPDate,'1/1/1900')='1/1/1900'"
            
        FileName=""
        
        
        Dim files As List,Records As List
        Dim job As HttpJob
        
        files.Initialize
        Records.Initialize
        
        Cursor1=Main.SQL1.ExecQuery2(MySQL,Array As String(Main.SelectedPlacementLocalID, Main.SelectedPlacementID, Main.SelectedDOS,Main.SelectedShift))
                
        Do While Cursor1.NextRow
            
            
            
            FileName=Cursor1.GetString("FileName")
                        
            If FileName<>"" Then
        
                If File.Exists(Main.FileDir,FileName) Then
            
                    RecordID=Cursor1.GetInt("ID")
                    Records.Add(RecordID)
                    
                    Dim fd As MultipartFileData
                    fd.Initialize
                    
                    If FileName.Contains("jpg") Then
                        fd.KeyName = "imagejpg"
                        fd.ContentType = "image/jpg"
                        else if FileName.Contains("png") Then
                        fd.KeyName = "imagepng"
                        fd.ContentType = "image/png"
                    Else
                        fd.KeyName = "audiowav"
                        fd.ContentType = "audio/wav"
                    End If
                    
                    fd.FileName = FileName
                    fd.Dir = Main.FileDir
                    
                    files.Add(fd)
                    
                End If
            End If
            
        Loop
        
        Cursor1.Close
        
        If files.Size>0 Then
                    
            For j=0 To files.Size-1
                
                Dim CurrentFile As List,CurrentRecord As List
                CurrentFile.Initialize
                CurrentRecord.Initialize
            
                CurrentFile.Add(files.Get(j))
                CurrentRecord.Add(Records.Get(j))
                    
                Dim job As HttpJob
                job.Initialize("Upload",Me)
                
                job.PostMultipart(Main.modFun.URL ,CreateMap("action":"upload", "Ticket":Main.Ticket,"RegKey":Main.RegKey,"WhatToDo":"receivefiles","IsIOS":"Yes"),CurrentFile)
        
                Wait For (job) JobDone(job As HttpJob)
        
                If job.Success Then
            
                    Dim response As String
            
                    response=job.GetString
            
                    Log("File " & j & " was uploaded successfully " & job.GetString )
            
                    IsFTPOk=Main.modFun.ApplyUploadConfirmation(response,CurrentFile,CurrentRecord)
            
                    If IsFTPOk=False Then
                        Main.modFun.ShowError("clsRefreshJobs_File upload has failed " & response & CRLF & "Try again later with better connection")
                    End If

                Else
                    Main.modFun.ShowError("clsRefreshJobs_HTTP Upload error " & LastException.Message & CRLF & "Try again later with better connection")
                    IsFTPOk=False
                End If
        
                job.Release
            
            Next
        
        End If
        
        If IsFTPOk=False Then
            Main.TestRet=False
        End If
        
        CallSubDelayed(Me,"UploadMedia_Complete")
                
    Catch
        HUD.ProgressDialogHide
        Log("UploadMedia " &   LastException.description)
        Main.modFun.ShowError("clsRefreshJobs_UploadMedia " &   LastException.description)
    End Try
    
End Sub