Diferenças

Aqui você vê as diferenças entre duas revisões dessa página.

--- desenvolvimento:web:web_service [2015/06/01 14:32]
rafael criada
+++ desenvolvimento:web:web_service [2015/10/05 20:21] (atual)
robson.francisco
@@ Linha 1: / Linha 1: @@
-Implementação de web service no delphi XE2
+====== 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;

Documentação de software

Ferramentas do usuário

Ferramentas do site

Diferenças

Ferramentas da página