Edson T. Marques
Edson T. Marques
Boa tarde! A ideia seria viabilizar a seguinte situação: ``` program Teste; {$IFDEF FPC} {$MODE DELPHI}{$H+} {$MODESWITCH ANONYMOUSFUNCTIONS+} {$ENDIF} interface implementation uses SysUtils; begin ... THorse.Listen(9000, procedure begin WriteLn(Format('Server active...
Seria uma honra! Vou preparar aqui!
Vinícius, Infelizmente estive envolvido com vários problemas fora da área de programação e precisei deixar o desenvolvimento da API no ponto que estava. Não tive como voltar a verificar se...
Então... O meu dpr está assim: ``` program project1; {$MODE DELPHI}{$H+} uses {$IFDEF UNIX} cthreads, {$ENDIF} Horse; procedure GetPing(Req: THorseRequest; Res: THorseResponse); begin Res.Send('Pong'); end; begin THorse.Get('/ping', GetPing); THorse.Listen(9000); end....