import.css=/download/attachments/327912/newLayout.css |
Classe: TRpc
|
Nome | Tipo | Descrição | Obrigatório | Referência |
cEnv | Caracter | Indica o ambiente (environment) que será utilizado para execução das funções. | X |
TRpc(): CallProc ( < cProcName>, [ uParam] ) --> xRet
Nome | Tipo | Descrição | Obrigatório | Referência |
cProcName | Caracter | Indica o nome da função que será executada no TOTVS Application Server. | X | |
uParam | Qualquer | Indica o(s) parâmetro(s) utilizado(s) pela função especificada no parâmetro(s) . |
TRpc(): CallProcEx ( ) -->
TRpc(): Connect ( < cRpcServer>, < nRPCPort> ) --> lCon
Nome | Tipo | Descrição | Obrigatório | Referência |
cRpcServer | Caracter | Indica o nome ou endereço IP, do TOTVS Application Server, que será utilizado para realizar a chamada das funções. | X | |
nRPCPort | Numérico | Indica a porta de conexão com o TOTVS Application Server. | X |
TRpc(): StartJob ( < cProcName>, < lWait>, [ uParam] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cProcName | Caracter | Indica o nome da função que será executada como um JOB. | X | |
lWait | Lógico | Indica se a chamada de RPC deve aguardar a execução do JOB. Se verdadeiro (.T.), aguarda a execução do JOB; caso contrário, falso (.F.), o JOB é iniciado e a chamada RPC finalizada. | X | |
uParam | Qualquer | Indica o(s) parâmetro(s) utilizado(s) pela função especificada no parâmetro . |
#INCLUDE "TOTVS.CH"User Function TSTRPC()Local oServerLocal cRpcServer := "127.0.0.1"Local nRPCPort := 1029Local cRPCEnv := "Environment"// Criando objeto do tipo tRpcConOut("Criando objeto do tipo tRpc...")oServer := TRPC():New( cRPCEnv )// Conectando ao servidorConOut("Conectando ao servidor: " + cRpcServer + " - Porta: " + Str(nRPCPort,4,0))If oServer:Connect( cRpcServer, nRPCPort ) ConOut("Executando (StartJob) funcao RpcJob...") uRet := oServer:StartJob("U_RpcJob", .F., 10) ConOut(uRet) // Desconectando do servidor ConOut("Desconectando do servidor...") oServer:Disconnect()Else ConOut("Conexao indisponivel com o servidor: " + cRPCServer)EndIfUser Function RpcJob(nTimes)Local nI := 0//Local nTimes := 10For nI := 1 To nTimes ConOut("RpcJob => " + Str(nI, 2, 0)) Sleep(1000)NextReturn Nil
#INCLUDE "TOTVS.CH"User Function TSTRPC()Local oServerLocal cRpcServer := "127.0.0.1"Local nRPCPort := 1029Local cRPCEnv := "Environment"// Criando objeto do tipo tRpcConOut("Criando objeto do tipo tRpc...")oServer := TRPC():New( cRPCEnv )// Conectando ao servidorConOut("Conectando ao servidor: " + cRpcServer + " - Porta: " + Str(nRPCPort,4,0))If oServer:Connect( cRpcServer, nRPCPort ) // Executando Funcao ConOut("Executando funcao GetSrvProfString...") uRet := oServer:CallProc("GetSrvProfString", "RootPath", "" ) ConOut("Retorno da Funcao => " + uRet) oServer:CallProc("MsgAlert", uRet) // Desconectando do servidor ConOut("Conectando do servidor...") oServer:Disconnect()Else ConOut("Conexao indisponivel com o servidor: " + cRPCServer)EndIfReturn Nil