| 4D v15.4RECEIVE PACKET | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|  | 
    4D v15.4
 RECEIVE PACKET 
         | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| RECEIVE PACKET ( {docRef ;} receiveVar ; stopChar | numBytes ) | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| docRef | refDoc |   | Número de referência do documento, o canal atual (porta serial ou documento) | |||||
| receiveVar | Variável texto, BLOB variável |   | Variável a receber os dados | |||||
| stopChar | numBytes | String, Inteiro longo |   | Caractere(s) no qual parar a recepção, ou Número de bytes a receber | |||||
RECEIVE PACKET lê caracteres a partir de uma porta serial ou de um documento.
Se docRef é especificado, este comando recupera dados de um documento aberto, usando Open document, Create document ou Append document. Se docRef for omitido, o comando recupera dados da porta serial ou o documento aberto usando SET CHANNEL.
Seja qual for a fonte, os caracteres lidos são retornados em receiveVar, que deve ser um texto, String ou variável BLOB. Se os caracteres foram enviados pelo comando SEND PACKET, o tipo deve corresponder ao do pacote enviado.
Notas:
Para ler um determinado número de caracteres, passe este número em numBytes. Se a variável receiveVar é do tipo de texto, em uma única chamada você pode ler até 2 GB de texto (valor teórico).
Para receber dados até que uma cadeia particular (composta por um ou mais caracteres) passe essa cadeia em stopChar (a cadeia não é devolvida em receiveVar).
Neste caso, se a seqüência de caracteres especificada pelo stopChar não é encontrada:
Durante a execução do RECEIVE PACKET, o usuário pode interromper a recepção pressionando Ctrl-Alt-Shift (Windows) ou Command + Option + Shift (Macintosh). Esta interrupção gera um erro -9994, que você pode pegar com um método de tratamento de erros instalado usando ON ERR CALL. Normalmente, você só terá de lidar com a interrupção de uma recepção na comunicação através de uma porta serial.
Ao ler um documento, o primeiro RECEIVE PACKET começa a ler no início do documento. A leitura de cada pacote subseqüente começa no caractere após o último byte lido.
Nota: Este comando é útil para um documento aberto com SET CHANNEL. Por outro lado, para um documento aberto com o Open document, Create document ou Append document você pode usar os comandos Get document position e SET DOCUMENT POSITION para obter e alterar o local no documento onde acontecerá a próxima escrita (SEND PACKET) ou leitura (RECEIVE PACKET).
Ao tentar ler após o final de um arquivo, RECEIVE PACKET retornará os dados lidos até aquele ponto e a variável OK será definido como 1. Então, o próximo RECEIVE PACKET irá retornar uma string vazia e definir a variável OK para zero.
Nota: Em modo não-Unicode (modo de compatibilidade), quando você usar o comando RECEIVE PACKET para ler caracteres de um documento do Windows e não quiser usar mapas para converter caracteres ASCII em caracteres Windows Mac OS, você pode usar a função Win to Mac.
O exemplo a seguir lê 20 caracteres de uma porta serial na variável getTwenty:
 RECEIVE PACKET(getTwenty;20)O exemplo a seguir lê os dados do documento referenciado pela variável myDoc na variável vData. Ele lê até encontrar um retorno de carro:
 RECEIVE PACKET(myDoc;vData;Char(Carriage return))O exemplo a seguir lê os dados do documento referenciado pela variável myDoc na variável vData. Ele lê até encontrar o  (Fim da célula da tabela)
 RECEIVE PACKET(myDoc;vData;"</TD>")O exemplo a seguir lê dados de um documento em campos. Os dados são armazenados como campos de comprimento fixo. O método chama uma subrotina para retirar espaços à direita (espaços no final da cadeia). A sub-rotina segue o método:
 $vhDocRef :=Open document("";"TEXT") ` Abertura de um documento de tipo TEXTO
 If(OK=1) ` Se o documento está aberto
    Repeat ` Loop até que não haja mais dados 
       RECEIVE PACKET($vhDocRef;$Var1;15) ` Leitura de 15 caracteres
       RECEIVE PACKET($vhDocRef;$Var2;15) ` Faz o mesmo para o segundo campo
       If(($Var1#"")|($Var2#"")) ` Se pelo menos um dos campos não estiver vazio
          CREATE RECORD([Pessoas]) ` Cria um novo registro
          [Pessoas]Nome:=Strip($Var1) ` Salva o nome
          [Pessoas]Sobrenome:=Strip($Var2) ` Salva o sobrenome 
          SAVE RECORD([Pessoas]) ` Salvar o registro
       End if
    Until(OK=0)
    CLOSE DOCUMENT($vhDocRef) ` Fecha o documento
 End ifOs espaços no final dos dados são removidos através do seguinte método, chamado Strip:
 For($i;Length($1);1;-1) ` Loop desde o fim da string ao início 
    If($1≤$i≥#" ") ` Se não é um espaço…
       $i :=-$i  ` Forçar o loop a parar 
    End if
 End for
 $0:=Delete string($1;-$i;Length($1)) ` Apagar os espaçosDepois de um chamado a RECEIVE PACKET, a variável sistema OK recebe o valor 1 se o pacote é recebido sem erros. Caso contrário, a variável sistema OK recebe o valor 0.
									Get document position
									
									RECEIVE BUFFER
									
									SEND PACKET
									
									SET DOCUMENT POSITION
									
									SET TIMEOUT
									
									USE CHARACTER SET
									
	Produto: 4D
	Tema: Comunicações
	Número 
        104
        
        
        
	
	Modificado: 4D v11 SQL  
	Modificado: 4D v12
BOM
	
	
	Manual de linguagem 4D ( 4D v15.4)
	
	Manual de linguagem 4D ( 4D v15)
	
	
	
	
	
	Manual de linguagem 4D ( 4D v15.3)
 Adicionar um comentário
Adicionar um comentário