Mudanças entre as edições de "TPHProcScript"
(Criou página com ''''Conceito''' O objeto TPHProcScript pode ser utilizado para realizar a execução do script no serviço da aplicação PHERP.') |
|||
| Linha 1: | Linha 1: | ||
'''Conceito''' | '''Conceito''' | ||
| − | O objeto TPHProcScript pode ser utilizado para realizar a execução do script no serviço da aplicação | + | O objeto TPHProcScript pode ser utilizado para realizar a execução do script no serviço da aplicação. |
| + | |||
| + | '''Exemplo''' | ||
| + | { Exemplo de como enviar o conteúdo XML para o servidor | ||
| + | e realizar a importação no script "C_ImportacaoXML" } | ||
| + | |||
| + | ScriptObj := TPHProcScript.Create; | ||
| + | try | ||
| + | ScriptObj.ScriptNome := 'C_ImportacaoXML'; | ||
| + | ScriptObj.Procedimento := 'ImportaXML'; | ||
| + | ScriptObj.RequestTimeOut := 300000; | ||
| + | // Pode ser informado diversos parâmetros para serem lidos no servidor | ||
| + | ScriptObj.ParamByName('Arquivo').AsString := ConteudoXML; | ||
| + | ScriptObj.ParamByName('DocumentoID').AsLargeInt := IDDocumento; | ||
| + | // Método para executar | ||
| + | ScriptObj.Executar; | ||
| + | // Pegar parâmetros do Retorno | ||
| + | Result := ScriptObj.ParamByName('Resultado').AsString; | ||
| + | finally | ||
| + | ScriptObj.Free; | ||
| + | end; | ||
Edição das 15h04min de 20 de novembro de 2020
Conceito
O objeto TPHProcScript pode ser utilizado para realizar a execução do script no serviço da aplicação.
Exemplo
{ Exemplo de como enviar o conteúdo XML para o servidor
e realizar a importação no script "C_ImportacaoXML" }
ScriptObj := TPHProcScript.Create;
try
ScriptObj.ScriptNome := 'C_ImportacaoXML';
ScriptObj.Procedimento := 'ImportaXML';
ScriptObj.RequestTimeOut := 300000;
// Pode ser informado diversos parâmetros para serem lidos no servidor
ScriptObj.ParamByName('Arquivo').AsString := ConteudoXML;
ScriptObj.ParamByName('DocumentoID').AsLargeInt := IDDocumento;
// Método para executar
ScriptObj.Executar;
// Pegar parâmetros do Retorno
Result := ScriptObj.ParamByName('Resultado').AsString;
finally
ScriptObj.Free;
end;
