smtore.blogg.se

In future articles I’ll show you how you can split things up into a better project structure, talk to databases, generate security tokens, rate limiting, and other useful things for web based APIs. Synapse: Lukas Gebauer: Windows, Linux, macOS, FreeBSD. packagepascal-synapse seeksponsor1 Thanks, - Marcos Marado - To UNSUBSCRIBE, email to with a subject of 'unsubscribe. Unfortunately, Free Pascals HTTP client does not work with NDFDs new HTTPS protocol, so youll need to use another client, such as Indy, Synapse or. SecureBlackBox is commercially licensed component, so it might be necessary to pay for it. It wraps a few common internet protocols, like HTTP, UDP, DNS, ICMP, TCP and SMTP to multi-threaded components that can be used with Delphi, Kylix, Freepascal and C++ Builder. Otherwise you can definitely use pascal native encryption - as suggested by jarto.

On Tuesday 01 February 2011 16:19:14 Marcos Marado wrote. Visual Synapse are component wrappers around the Synapse tcp/ip libraries. If you see SysUtils, fphttpapp, httpdefs, httproute, fpjson, jsonparser procedure jsonResponse(var res: TResponse data: String) begin res.Content := data res.Code := 200 res.ContentType := 'application/json' res.ContentLength := length(res.Content) res.SendContent end procedure timeEndpoint(req: TRequest res: TResponse) var jObject : TJSONObject begin jObject := TJSONObject.Create try jObject.Strings := TimeToStr(Time) jsonResponse(res, jObject.AsJSON) finally jObject.Free end end procedure greetingEndpoint(req: TRequest res: TResponse) var jObject : TJSONObject begin jObject := TJSONObject.Create try jObject.Strings := 'Hello, ' + req.RouteParams jsonResponse(res, jObject.AsJSON) finally jObject.Free end end begin Application.Port := 9080 HTTPRouter.RegisterRoute('/time', true) HTTPRouter.RegisterRoute('/greeting/:name', Application.Threaded := true Application.Initialize Application.Run end. Bug611738: ITP: pascal-synapse - syncronous TCP/IP library in Pascal.