Skip to content
Joseh-Henrique edited this page Nov 20, 2022 · 2 revisions

Home > Recursos > API

API

Com o REST Dataware é muito fácil criar um servidor de APIs, abaixo um exemplo bem simples de uma aplicação com interface visual que responde um 'Olá mundo!':

  • Crie um formulário e coloque o ServicePooler nele de qualquer socket que você tenha instalado
  • Crie um datamodule trocando a herança dele de TDataModule para TServerMethodDataModule e declarando na uses uRESTDWDataModule, feche e abre novamente a unit
  • Adicione um TRESTDWServerEvents e com 2 cliques adicione um item qualquer, renomeie para hello
  • Na guia eventos dê um duplo clique em onReplyEvent e digite o código Result := 'Olá Mundo!';
  • No evento onCreate do Formulário, atribua a classe desse datamodule ao servicepooler:
  TRESTDWIdServicePooler1.ServerMethodClass := TDM;
  • Retire o datamodule da lista do autocreate do projeto
  • Ative o servidor da forma que você preferir, pode, por exemplo no evento onShow do form fazer um TRESTDWIdServicePooler1.Active := true;
  • E está pronto! Só consumir pelo navegador na url http://localhost:8082/hello que ele irá responder 'Olá Mundo!'
Clone this wiki locally