B4J Question Multipart Data

P

Peter Lewis

Active Member
Licensed User
Longtime User
Hi All, I have been trying to extract the data from this list that outputs on the log as

Tried to extract it using Arrays, Maps, List and Multipart data. None of those are working for me.

This is the basic code - Cannot find the Code insert

B4X: 
[QUOTE]
Dim folder As String ="r:\temp\"
    Dim maxsize As Long = 999999999999

    Dim piclist As List = GetMultiparts(req ,folder,maxsize)

Log(piclist.Size)

For j=0 To piclist.size-1
    Log(piclist.Get(j))

Next
[/QUOTE]


 

Attachments

  • 1631272431814.png
    5.6 KB · Views: 188
Last edited:
Sort by date Sort by votes

Daestrum

Expert
Licensed User
Longtime User
1, For code just type [ code ] and [ /code ] without the spaces, around the code you want to show.

2, try (it looks like Part is defined as a type/class somewhere)
B4X: 
For j=0 To piclist.size-1
Dim current as JavaObject = piclist.Get(j)
Log(current.GetField(n))
Log(current.GetField(fn))
Log(current.GetField(ct))
Log(current.GetField(s))
Log(current.GetField(t))
Log(current.GetField(f))
Next

if you know where Part is defined you could use
B4X: 
For Each p As Part In piclist
log(p.n)
log(p.fn)
...
Next

**Not tested
 
Upvote 0
P

Peter Lewis

Active Member
Licensed User
Longtime User
Thank you for that,
The variable names did not work so I Dimmed them as strings , did not work so I put them in inverted commas - did not work.
When I put as a string - this was the error code

When I put as Log(current.GetField("n")) then i go this error code


The initial code that defines the part was done by Erel

B4X: 
Public Sub GetMultiparts(req As ServletRequest, folder As String, maxsize As Long) As List
  Dim config As JavaObject
  config.InitializeNewInstance("javax.servlet.MultipartConfigElement", Array(folder, maxsize, maxsize, 81920))
  Dim f As  JavaObject
  f.InitializeNewInstance("java.io.File", Array(folder))
  Dim parser As JavaObject
  parser.InitializeNewInstance("org.eclipse.jetty.util.MultiPartInputStreamParser", Array(req.InputStream, req.ContentType, config, f))
  Dim parts As JavaObject = parser.RunMethod("getParts", Null)
  Dim result() As Object = parts.RunMethod("toArray", Null)
  Return result
End Sub
 
Upvote 0

Daestrum

Expert
Licensed User
Longtime User
B4X: 
For Each p() As Object In piclist
Log(p(0))   ' first field 'n'
Log(p(1))  ' second field 'fn'
...
Log(p(5))   ' last field 'f'
next
 
Last edited:
Upvote 0
P

Peter Lewis

Active Member
Licensed User
Longtime User
Thank you,

I have tried so many options and this one also gives an error

B4X: 
    Dim folder As String ="r:\temp\"
    Dim maxsize As Long = 999999999999
    Dim piclist As List = GetMultiparts(req ,folder,maxsize)
    Log(piclist.Size)
For j=0 To piclist.size-1
        Log(piclist.Get(j))
        For Each q() As Object In piclist
            Log(q(0))   ' first field 'n'
            Log(q(1))  ' second field 'fn'
            Log(q(5))   ' last field 'f'
        Next
Next

there are so many rows coming in at null, would that not be causing a problem. ? I looked at the html and all looks good.

Click to expand...


 
Last edited:
Upvote 0

Daestrum

Expert
Licensed User
Longtime User
It looks like the first few item are invalid
Part{n=,fn=null,ct=null,s=0,t=true,f=null}

Also sorry I didn't make it clearer
this
B4X: 
For j=0 To piclist.size-1
        Log(piclist.Get(j))
        For Each q() As Object In piclist
            Log(q(0))   ' first field 'n'
            Log(q(1))  ' second field 'fn'
            Log(q(5))   ' last field 'f'
        Next
Next

Should be
B4X: 
        For Each q() As Object In piclist
            Log(q(0))   ' first field 'n'
            Log(q(1))  ' second field 'fn'
            Log(q(5))   ' last field 'f'
        Next

You can probably skip items with an S=0 ie
B4X: 
        For Each q() As Object In piclist
            if q(3) > 0 then   ' s field
            Log(q(0))   ' first field 'n'
            Log(q(1))  ' second field 'fn'
            Log(q(5))   ' last field 'f'
            End if
        Next
 
Upvote 0
P

Peter Lewis

Active Member
Licensed User
Longtime User
Thank you @Daestrum for your help,

I tested your solution and still had an error


So spoke to @EnriqueGonzalez
and we came up with a solution

B4X: 
For Each q As Part In piclist
   
    If File.Size("",q.TempFile) > 0 Then
            Log(q.SubmittedFilename)
            Log(q.TempFile)
    End If
Next

The output is now perfect

 
Upvote 0
You must log in or register to reply here.
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…