PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WEBDEV 2024 → Problem Upload freeze when the uploaded file is greater than 8 MB
Problem Upload freeze when the uploaded file is greater than 8 MB
Iniciado por BW, 07,dic. 2015 15:03 - 1 respuesta
Miembro registrado
37 mensajes
Popularité : +5 (5 votes)
Publicado el 07,diciembre 2015 - 15:03
Hi

My application need to upload JPEG files.

It work fine but when the file grows and exceeds 8 MB

The gauge on it shows the upload as 100% but then the application freezes and actually the uplod is not done.

My host says that the maximum size allowed for upload is 100 MB, so this should not be the problem.

Who knows what is the Matter ?

How can i work arround this problem.


Thank i advance - Bastiaan

I am using the code bellow :

The code used is :

//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
// Whenever modifying the list of files selected in UPL_Upload (Browser)

IF MySelf..Occurrence > 0 THEN
Update the statics
STC_Upload_File = MySelf
Reset the progress bar (for successive uploads)
PROGBAR_Upload = 0

Displays the progress bar at its current position but with a DDW
CellDisplayDialog(CELL_Upload, cellCenter)
And starts the upload
UploadStart(MySelf)


ELSE
The list was cleared (mainly by the file upload)
=> Don't erase the STC_Upload_File caption. This caption indicates that the upload is over.
END

//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
// Progress of transfer of UPL_Upload (Browser)

// 1000: UpperBound of the progress bar
rGlobalProgress is real = UploadSizeSent(MySelf) / UploadSize(MySelf)
PROGBAR_Upload = Round(rGlobalProgress * 1000, 0)


//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
// Receiving the files uploaded from UPL_Upload (Browser)

IF MySelf="" THEN
//
// no need to uplaod
ELSE

sSomente_nome_do_arq_documento is string
sEndereco_Nome_p_Servidor is string
sSomente_nome_do_arq_documento =fExtractPath(UploadFileName(MySelf,False),fFileName+fExtension)
sEndereco_Nome_p_Servidor=CompleteDir(fWebDir())+sSomente_nome_do_arq_documento
//
EDT_PATH_ARQUIVO_A_RECUPERAR="\ARQUIVOS_ARTE\"+sSomente_nome_do_arq_documento


IF UploadCopyFile(MySelf,fWebDir()+"\ARQUIVOS_ARTE\",sSomente_nome_do_arq_documento)<>"" THEN


ELSE

Error("Error while transferring the image to the server. Process canceled.")
RETURN
END

END

//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
// After reception of files uploaded from UPL_upload (Browser)

// Hides the DDW
CellCloseDialog(CELL_Upload)
ExecuteProcess(BTN_NoName1, trtClick)

//>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
// the code of BTN_NoName1

IF HAdd(Products) THEN

ELSE
Info("Error - invalid operation")
END


PageDisplay('PAGE_Products Page aquarela')
Miembro registrado
37 mensajes
Popularité : +5 (5 votes)
Publicado el 29,diciembre 2015 - 12:21
Actually I found out the problem.
The upload was not the problem, but the sequence when we tried to display all the uploaded files