Blog
All Blog Posts | Next Post | Previous Post
Olá, TMS Sparkle
Monday, April 7, 2014
TMS Sparkle é um novo produto lançado pela TMS Software. É uma framework de Internet e networking para Delphi.Como mencionado na documentação online, o TMS Sparkle é a base para vários outros produtos e tecnologias TMS, como os produtos que serão lançados TMS RemoteDB e TMS XData. Esses produtos precisaram ser criados do zero, e se basear em uma framework robusta na qual a TMS poderia ter 100% de controle e responsabilidade. Para que esses produtos funcionem perfeitamente, precisaríamos ter certeza de usar uma framework de comunicação http que fosse devidamente testada, com excelente performance, e com rapidez na correção de problemas e inclusão de recursos. Nada melhor que uma framework própria.
É uma framework confiável, moderna, multi-plataforma (Windows, Mac, iOS, Android) e, na maior parte dela, nativa em relação à plataforma.
O TMS Sparkle é parte do TMS Business Subscription, que inclui vários outros produtos, como o TMS Aurelius e o TMS Scripter, e irá também incluir os mencioados TMS RemoteDB and TMS XData, quando lançados.
Para mais informações, você pode visitar a página do TMS Sparkle e sua documentação online. Finalmente, para ilustrar o uso do TMS Sparkle, eis o código-fonte completo de um servidor Http básico usando TMS Sparkle:
program HelloWorldServer;
{$APPTYPE CONSOLE}
uses
System.SysUtils,
Sparkle.HttpServer.Context,
Sparkle.HttpServer.Module,
Sparkle.HttpSys.Server;
type
THelloWorldModule = class(THttpServerModule)
public procedure ProcessRequest(const C: THttpServerContext); override;
end;
procedure THelloWorldModule.ProcessRequest(const C: THttpServerContext);
begin
C.Response.StatusCode := 200;
C.Response.ContentType := 'text/plain';
C.Response.Close(TEncoding.UTF8.GetBytes('Hello, World!'));
end;
const
ServerUrl = 'http://localhost:2001/tms/business/hello';
var
Server: THttpSysServer;
begin
Server := THttpSysServer.Create;
try
Server.AddModule(THelloWorldModule.Create(ServerUrl));
Server.Start;
WriteLn('Hello World Server started at ' + ServerUrl);
WriteLn('Press Enter to stop');
ReadLn;
finally
Server.Free;
end;
end.
Wagner Landgraf
This blog post has not received any comments yet.
All Blog Posts | Next Post | Previous Post