Histórico da Página

...

Portuguese

Pagetitle

	Upload de arquivo via HTTP
	Upload de arquivo via HTTP

Colapse ALL

Expand ALL

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

<html>
<head>
<title>Exemplo Upload</

title></head><body><table

title>
</head>
<body>
<table width="500"

border="1"

align="center"

cellpadding="0"

cellspacing="0">

<tr> <td

<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> <

</

tr></table></body><

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

<html>
<head>
<title>Exemplo Upload</

title><script>function

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

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>

<input

name="btnSub"

type="button"

id="btnSub"

value="Subir

arquivo"

onClick="jUpFile()">

</

p></form></body><

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

0
LengthFile :=

fSeek(

nH,

0,

FS_END

)
Return

h_RespUpFile()

Versões

Advanced Protheus 7.10 , Microsiga Protheus 8.11

Nível Acesso

Nível 1 (Acesso Clientes)

Idioma

Espanhol , Inglês

Páginas filhas

Versões comparadas

Versão antiga 4

Nova versão Atual

Chave

Upload de arquivo via HTTP