Documentação de software

Essa página está em modo somente de leitura. Você pode visualizar a fonte, mas não alterá-la. Informe-se com o administrador do Wiki, caso você ache que isso está incorreto.

====== 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 novamente em "uWebModule".
{{ :desenvolvimento:web:img01.jpg?nolink |}}

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 |}}

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 |}}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
====== 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".
X

Documentação de software

Ferramentas do usuário

Ferramentas do site

Ferramentas da página