B4J Question [ABMATERIAL][ABMUpload] - problem multiparts

[Roberto P.]

Hi
I am using the ABMUpload control to import the files but they are saved with multipart format which i cannot open.

why?

I am using the ABMFeedback code

Thank

 

[alwaysbusy]

Multipart... is the result of the stream dump. Normally there should be code in your upload handler that would make a correct file from it:

Something like:

...
data = req.GetMultipartData(downloadfolder, MaxSize)   
        Dim filePart As Part = data.Get("upl")           
        If filePart.IsInitialized Then
            fileName =     filePart.SubmittedFilename       
            tmpFileName = filePart.TempFile       
            If ABM.HandleUpload(downloadfolder, tmpFileName, fileName) Then   
                If SubExists(callback, "Page_FileUploaded") Then
                    CallSubDelayed3(callback, "Page_FileUploaded", fileName, True)
                End If
            Else
                If SubExists(callback, "Page_FileUploaded") Then           
                    CallSubDelayed3(callback, "Page_FileUploaded", fileName, False)
                End If
            End If   
...

Set a breakpoint in this routine an see what goes wrong.

 

[Roberto P.]

Multipart... is the result of the stream dump. Normally there should be code in your upload handler that would make a correct file from it:

Something like:

...
data = req.GetMultipartData(downloadfolder, MaxSize)  
        Dim filePart As Part = data.Get("upl")          
        If filePart.IsInitialized Then
            fileName =     filePart.SubmittedFilename      
            tmpFileName = filePart.TempFile      
            If ABM.HandleUpload(downloadfolder, tmpFileName, fileName) Then  
                If SubExists(callback, "Page_FileUploaded") Then
                    CallSubDelayed3(callback, "Page_FileUploaded", fileName, True)
                End If
            Else
                If SubExists(callback, "Page_FileUploaded") Then          
                    CallSubDelayed3(callback, "Page_FileUploaded", fileName, False)
                End If
            End If  
...

Set a breakpoint in this routine an see what goes wrong.

I Alain,
this is my code

    Try
        data = req.GetMultipartData(downloadfolder, MaxSize)
                
        Dim filePart As Part = data.Get("upl")           
        If filePart.IsInitialized Then
            fileName =     filePart.SubmittedFilename
            tmpFileName = filePart.TempFile   
                
            If IsAllowed(fileName) = False Then
                File.Delete("", tmpFileName)
                If SubExists(callback, "Page_FileUploaded") Then           
                    CallSubDelayed3(callback, "Page_FileUploaded", fileName, False)
                End If
                'resp.SendError(500, "Not allowed")
                Return   
            End If           
            
            
        '    If Not(ABM.HandleUpload(downloadfolder, tmpFileName, ActiveCaseNumber & fileName)) Then   
                If SubExists(callback, "Page_FileUploaded") Then
                    CallSubDelayed3(callback, "Page_FileUploaded", fileName, True)
                End If
        '    Else
        '        If SubExists(callback, "Page_FileUploaded") Then           
        '            CallSubDelayed3(callback, "Page_FileUploaded", fileName, False)
        '        End If
        '    End If       
                
        Else ' try image

Could it be due to the increase in file size?

Public DownloadMaxSize As String = 5000 * 1024

 

[alwaysbusy]

I don't see this anywhere in your code (you commented it out)

If ABM.HandleUpload(downloadfolder, tmpFileName, fileName) Then

This does the renaming. Without it, the multipart is never renamed to the real filename.

 

[Roberto P.]

Ah OK

I deactivated because it often gives an error

 

[alwaysbusy]

I deactivated because it often gives an error

One reason it may give an error is because you uploaded a file with a name that already exists in the folder. The rename of the second one will fail.

 

[Roberto P.]

[CLOSE]

I resolved in this mode:

    'If Not(ABM.HandleUpload(downloadfolder, tmpFileName, ActiveCaseNumber & fileName)) Then   
            If True Then
                ' questa chiamatra trasforma il file multipart nel file normale. da lasciare assolutamente
                ABM.HandleUpload(downloadfolder, tmpFileName, ActiveCaseNumber & fileName)
                
                If SubExists(callback, "Page_FileUploaded") Then
                    CallSubDelayed3(callback, "Page_FileUploaded", fileName, True)
                End If
            Else
                If SubExists(callback, "Page_FileUploaded") Then           
                    CallSubDelayed3(callback, "Page_FileUploaded", fileName, False)
                End If
            End If

 

[alwaysbusy]

It will never get in the else, you know?

 

[Roberto P.]

One reason it may give an error is because you uploaded a file with a name that already exists in the folder. The rename of the second one will fail.

you cannot set a parameter to force overwriting or give an error message that the file is already present

 

[Roberto P.]

It will never get in the else, you know?

yes

 

[alwaysbusy]

overwriting

You can do a check if it exists and delete before doing the handleload it if you want.

 

[Roberto P.]

I don't think that's the problem because:
I reset the code and deleted all the files from the folder and table.
From error on the first attempt, if I try several times it works.

 

[alwaysbusy]

From error on the first attempt

what is this error?

 

[Roberto P.]

what is this error?

I specify that the function

If Not (ABM.HandleUpload (downloadfolder, tmpFileName, ActiveCaseNumber & fileName)
....

returns false