Comando: WSMETHOD
Inicia a declaração de um método de Web Services (Client e/ou Server) em AdvPL.
WSMETHOD [ cMethodName], [ WSRECEIVE ], [ WSSEND ], [ WSSERVICE ]
Nome | Tipo | Descrição | Obrigatório | Referência |
cMethodName | Caracter | Indica o nome do método do Web Service. | ||
WSRECEIVE <param_in,...> | Caracter | Indica os parâmetros, separados por vírgulas, que este método receberá. Caso um método recebe parâmetros, deve-se declarar que o mesmo recebe o parâmetro reservado NULLPARAM. | ||
WSSEND <param_out> | Caracter | Indica a declaração de apenas um parâmetro de retorno de um Web Services. | ||
WSSERVICE <service_name> | Caracter | Indica o nome da classe, do serviço, que o método atual pertence. |
Este comando é utilizado para:
- Declarar classes Server e/ou Client do serviço.
- Definir no código fonte do método o respectivo Web Services.
Ao utilizar este comando, dentro da declaração de uma classe WSSERVICE, informamos o primeiro parâmetro cMethodName. Porém, ao declarar o código fonte do método, todos os parâmetros desse comando são obrigatórios.
Para utilizar este comando, é necessário declarar a include TOTVSWebSrv.ch no código fonte AdvPL.
#INCLUDE "TOTVS.CH"#INCLUDE "TOTVSWEBSRV.CH"WSSERVICE SERVERTUNEL WsData recvMessage as STRING WsData sendMessage as STRING WSMETHOD DOCOMUNICATION ENDWSSERVICE WSMETHOD DOCOMUNICATION WSRECEIVE recvMessage WSSEND sendMessage WSSERVICE SERVERTUNELLocal oWS := WSSERVER1():NEW() //repassa mensagemoWS:cRECVMESSAGE := recvMessageif( oWS:DOCOMUNICATION() ) ::sendMessage := "SUCESS TO SEND: " + recvMessage else ::sendMessage := "FAIL TO SEND:" + recvMessageendifconout(::sendMessage)Return .T.
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
Protheus 10
,
TOTVS Application Server 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas