Blog

All Blog Posts  |  Next Post  |  Previous Post

Olá, TMS Sparkle

Bookmarks: 

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


Bookmarks: 

This blog post has not received any comments yet.



Add a new comment:
Author:
Email:
  You will receive a confirmation mail with a link to validate your comment, so please use a valid email address.
 
Comment:
 
 

All fields are required.
 



All Blog Posts  |  Next Post  |  Previous Post