Fala Radizeiro e Radizera, tudo bem com vocês?
Dando continuidade a nossa série de posts sobre a integração Delphi com PicPay.
Vamos hoje criar um servidor de aplicação utilizando o Horse.
A primeira coisa que iremos fazer é criar um novo projeto console application para que possamos implementar nosso servidor de aplicação Horse.
Onde iremos criar o server para a utilização dos serviços do PicPay.
Se você nunca utilizou, ou nem ouviu falar, pode acessar o github do projeto para saber mais https://github.com/HashLoad/horse.
O horse é um framework criado em cima do webbroker para criar servidores de aplicação.
Ele faz a mesma coisa que o RDW, DataSnap, e todos os outros, só que de uma forma muito simples.
Como por exemplo, dentro do proprio github tem o exemplo que só com algumas linhas de código já temos o servidor horse rodando.
uses Horse; begin THorse.Get('/ping', procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc) begin Res.Send('pong'); end); THorse.Listen(9000); end.
Simplesmente você faz o download do horse e adicionar ele no Library Path do Delphi.
E já estará pronto para ser usado.
E com isso ele tem diversos Middleware que você consegue trabalhar com o horse.
Como o exemplo acima do uso do horse, iremos criar o nosso servidor.
E iremos implementar algumas outras coisas, como mostro no código abaixo.
uses System.SysUtils, Horse; var App : THorse; begin App := THorse.Create(9001); App.Get('/', procedure (Req : THorseRequest; Res : THorseResponse; Next : TProc) begin Res.Status(200).Send('Servidor PicPay OK'); App.Start; end); end.
Se você observar eu criei uma variável chamada App que tem por tipo o THorse.
Dentro do begin e end eu instancio o objeto, já informando qual a porta ele irá funcionar.
Logo em seguida eu crio o meu endpoint, o meu primeiro endpoint.
Se você observar dentro do meu endpoint eu chamo um método anônimo.
Dentro do Req vem tudo que é usado na requisição, e o Res é tudo que vou responder, ou seja , a resposta ao servidor.
Com isso já temos o servidor do Horse já criado.
Como falei anteriormente, ele faz a mesma coisa que o RDW, DataSnap, XData, qualquer outro, só que de uma forma bem mais simples.
Ele foi criado seguindo o conceito do Express do Node JS.
Um framework Delphi que tem as mesmas características que você criaria um servidor em Node JS.
Por este motivo eu utilizo ele em todos os meus projetos, porque é muito legal e muito fácil trabalhar com ele.
Eu vejo como bem mais escalável e prático e performático.
E com esse código, simplesmente basta eu compilar e meu servidor já encontra-se no ar.
E ao chamar diretamente no navegador o endereço http://localhost:9001 teremos o retorno esperado.
Viu que com algumas linhas de códigos já podemos ter um servidor.
Essa nossa série você pode encontrar completa e em vídeos aulas dentro do Clube dos Programadores Delphi
E caso você tenha interesse de conhecer mais sobre PicPay com Delphi acessa o nosso portal do CLUBE DE PROGRAMADORES EM DELPHI, onde você não terá só conteúdos relacionados ao PicPay, mas uma quantidade enorme de conteúdos que poderá lhe ajudar muito no seu dia a dia, é uma verdadeira NETFLIX para os programadores Delphi.
CLIQUE AQUI E SAIBA MAIS SOBRE O CLUBE DOS PROGRAMADORES DELPHI