====== Criando uma Classe no WebService ======

Selecione o uWebModule.pas.
{{ ::desenvolvimento:web:img01.jpg?nolink |}}

No campo "Search" digite "TDSserverClass" e pressione ENTER.
{{ ::desenvolvimento:web:img02.jpg?nolink |}}

Selecione a classe nova.
{{ ::desenvolvimento:web:img03.jpg?nolink |}}

No campo "Name" informe o nome da classe.
{{ ::desenvolvimento:web:img04.jpg?nolink |}}

No campo "LifeCycle" mude para "Invocation".
{{ ::desenvolvimento:web:img05.jpg?nolink |}}

No campo "Server" altere para "Server".
{{ ::desenvolvimento:web:img06.jpg?nolink |}}

Clique com o botão direito do mouse no executável do projeto, depois clique em "Add New" e depois em "Other".
{{ ::desenvolvimento:web:img07.jpg?nolink |}}

Selecione "Data Module" e depois clique em "OK".
{{ ::desenvolvimento:web:img08.jpg?nolink |}}

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".
{{ ::desenvolvimento:web:img09.jpg?nolink |}}

No campo "Name" altere o nome.
{{ :desenvolvimento:web:img10.jpg?nolink |}}

Clique na aba do "uWebModule"e depois na classe nova.
{{ ::desenvolvimento:web:img15.jpg?nolink |}}

Clique em "Events" e depois em "OneGetClass" e depois dê um clique duplo no campo vazio. O campo será preenchido automaticamente.
{{ ::desenvolvimento:web:img13.jpg?nolink |}}

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.
{{ ::desenvolvimento:web:img14.jpg?nolink |}}

Aperte "Alt+F11" selecione o arquivo ".pas" que acabou de ser criado e clique no botão "OK".
{{ ::desenvolvimento:web:img18.jpg?nolink |}}

Depois volte para aba do "uTeste" e aperte "F12" para ir ao código fonte.
{{ ::desenvolvimento:web:img11.jpg?nolink |}}

Aperte "Alt+F11" e selecione o "uServiceContainer" e depois clique em "OK".
{{ ::desenvolvimento:web:img12.jpg?nolink |}}

No cógigo fonte do "uTeste" altere o tipo da Classe para "TDSServerModule".
{{ ::desenvolvimento:web:img16.jpg?nolink |}}

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;