Propósito
Permitir
a recepção de um arquivo de uma máquina para outra, através
de um programa opus.
Sintaxe
m = RecvFile(arquivo)
Utilização
Esta função
deve ser utilizada, quando um programa opus que está sendo executado
na máquina cliente necessitar receber um arquivo que foi enviado, através
da função SendFile(arquivo), por outro programa opus que fica
ativo na máquina servidor Evita a utilização do serviço
ftp. Útil quando utilizado com o protocolo send-receive.
Exemplo:
$noinit,noclear,noterm,noget
$lentmp= 500
prog
private m(5000)
x = cliser(no do serviço,”endereço IP da máquina
servidor”) &&Esta função cria uma
&&nova coneção com o
&&programa opus que está
&&ativo no servidor
if ! x
? “Erro ao se Iniciar Coneção”
quit
endif
m = “arqteste.txt”
r = send(m)
r = RecFile(“teste.txt”)
x = cliser(0,””) && Cliente finaliza coneção
com o programa opus que estava ativo no
&& servidor
return