WEBDEV Exemplo de Upload de Arquivos

Video no youtube
https://youtu.be/miFIivOQWlw


CODIGO

/// se houver arquivo para upload
IF MySelf..Occurrence <> 0 THEN
UploadStart(UPL_arquivos)
END

///----------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
// Evento_Upload ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE Evento_Upload()

//variaveis auxiliares
meubuffer is Buffer
sarquivo is string = "c:\tmp\adriano\imagem.png"

/// verifica se existe o arquivo e pasta
IF fDirectoryExist("c:\tmp\adriano") THEN
IF fFileExist(sarquivo) THEN
fDelete(sarquivo)
END
ELSE
fMakeDir("c:\tmp\adriano") //se nao existe cria a pasta
END
IF fDirExist("c:\tmp\adriano") = True

/// realiza o upload do 1o arquivo - nesse caso único
IF UploadCopyFile(MySelf,"c:\tmp\adriano","imagem.png",1) = "" THEN
Error("Erro ao enviar")
RETURN //aborta o upload
ELSE
/// armazena a imagem em um buffer
meubuffer = fLoadBuffer(sarquivo) //buffer pode ser imagem, som, video, xml, json, doc, xls...

/// move o buffer para a imagem -> poderia ser um campo da tabela
IMG_adriano = meubuffer
//gravar no banco
Arquivos.DataHora = DateSys() + TimeSys()
Arquivos.ArquivoBinario = meubuffer
IF HAdd(Arquivos) = True THEN
Info("Gravou com sucesso")
ELSE
Error(ErrorInfo(),HErrorInfo())
END

/// remove o arquivo do disco
fDelete(sarquivo)

END

ELSE

Info("Erro inesperado!")

END


Exemplo feito pelo Paulo Viana

Apresentado por Adriano Boller