-
-
Notifications
You must be signed in to change notification settings - Fork 43
Joseh-Henrique edited this page Nov 20, 2022
·
2 revisions
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!'