Páginas filhas
  • Upload de arquivo via HTTP

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
Upload de arquivo via HTTP
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 := 0LengthFile := fSeek( nH, 0, FS_END )Return h_RespUpFile()



Advanced Protheus 7.10 , Microsiga Protheus 8.11
Nível 1 (Acesso Clientes)
Espanhol , Inglês