Selecione o uWebModule.pas.

No campo “Search” digite “TDSserverClass” e pressione ENTER.

Selecione a classe nova.

No campo “Name” informe o nome da classe.

No campo “LifeCycle” mude para “Invocation”.

No campo “Server” altere para “Server”.

Clique com o botão direito do mouse no executável do projeto, depois clique em “Add New” e depois em “Other”.

Selecione “Data Module” e depois clique em “OK”.

Aperte “ctrl+s” ou vá no menu “File” e click em “save”.

informe o nome do arquivo. Como padrão o nome tem que ter a primeira letra sendo “u” e depois seguido pelo nome da classe. Por exemplo: com a “classTeste” o nome ficaria uTeste.pas. Depois clique no botão “Salvar”.

No campo “Name” altere o nome.

Clique na aba do “uWebModule”e depois na classe nova.

Clique em “Events” e depois em “OneGetClass” e depois dê um clique duplo no campo vazio. O campo será preenchido automaticamente.

O Delphi Xe2 irá redirecionar para o código fonte do uWebModule. Digite o seguinte comando: PersistentClass := uTeste.TTeste;. Onde o “uTeste” será “u” mais o nome da classe e o “TTeste” será o “T” e mais o nome da classe.

Aperte “Alt+F11” selecione o arquivo ”.pas” que acabou de ser criado e clique no botão “OK”.

Depois volte para aba do “uTeste” e aperte “F12” para ir ao código fonte.

Aperte “Alt+F11” e selecione o “uServiceContainer” e depois clique em “OK”.

No cógigo fonte do “uTeste” altere o tipo da Classe para “TDSServerModule”.

Bibliotecas a serem adicionadas em uses:

vcl.forms, System.SysUtils, System.Classes, Datasnap.DSServer, Datasnap.DSAuth, Data.Win.ADODB, Datasnap.Provider, Data.DB, Datasnap.DBClient,Datasnap.Win.MConnect, Datasnap.Win.SConnect,Data.DBXFirebird, Data.FMTBcd, Data.SqlExpr, System.IniFiles, Vcl.Dialogs, DBXJSON, System.StrUtils, Soap.EncdDecd, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;