Páginas filhas
  • Upload de arquivo via HTTP

Upload de arquivo via HTTP


Este exemplo de ADVPL ASP mostra como realizar o upload de um arquivo via HTTP.

O código abaixo representa o arquivo "ms01.APH", que contém um formulário para indicar o local do aquivo para upload.


<html>
<head>
<title>Exemplo Upload</title>
</head>
<body>
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="28%" align="right">Path do arquivo : </td> <td width="2%"> </td>
<td width="70%"><%=httpPost->txtFile%></td> </tr> <tr> <td align="right">Tamanho : </td> <td> </td> <td><%=LengthFile%></td>
</tr>
</table>
</body>
</html>

O código abaixo representa o arquivo "upload.APH", que contém um formulário para exibir alguns dados do aquivo enviado. A parte mais importante desse código se refere a propriedade (enctype="multipart/form-data") dentro da tag, essa propriedade garante que o arquivo seja enviado corretamente.

<html>
<head>
<title>Exemplo Upload</title>
<script>Function jUpFile(){ if( document.form.txtFile.value == "" ) { alert( "Informe o nome do arquivo clicando em Browse..." );
return; }
document.form.action = "w_upFile.apw"; document.form.submit();}
</script>
</head>
<body>
<form name="form" action="" enctype="multipart/form-data" method="post">
<p align="center">
<font face="Arial, Helvetica, sans-serif" size="3"><b>Exemplo de upload de arquivos em ADVPL ASP</b></font><br> <br> <input name="txtFile" type="file" id="txtFile" size="50"> <br> <br> <input name="btnSub" type="button" id="btnSub" value="Subir arquivo" onClick="jUpFile()">
</p>
</form>
</body>
</html>

O código abaixo representa o arquivo "upload.PRW", que contém as funções escritas em ADVPL ASP.

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FILEIO.CH"
Web Function upFile()
Local nH := FOpen( httpPost->txtFile, 0 + 64 )
Private LengthFile := 0
LengthFile := fSeek( nH, 0, FS_END )
Return h_RespUpFile()

  • Sem rótulos