Aqui você vê as diferenças entre duas revisões dessa página.
desenvolvimento:web:web_service [2015/06/01 18:07] robson.francisco |
desenvolvimento:web:web_service [2015/10/05 20:21] (atual) robson.francisco |
||
---|---|---|---|
Linha 4: | Linha 4: | ||
{{ ::desenvolvimento:web:img01.jpg?nolink |}} | {{ ::desenvolvimento:web:img01.jpg?nolink |}} | ||
- | No campo "Search" Digite "TDSserverClass" e pressione ENTER. | + | No campo "Search" digite "TDSserverClass" e pressione ENTER. |
{{ ::desenvolvimento:web:img02.jpg?nolink |}} | {{ ::desenvolvimento:web:img02.jpg?nolink |}} | ||
- | Selecione a Classe nova. | + | Selecione a classe nova. |
{{ ::desenvolvimento:web:img03.jpg?nolink |}} | {{ ::desenvolvimento:web:img03.jpg?nolink |}} | ||
- | No campo "Name" informe o nome da Classe. | + | No campo "Name" informe o nome da classe. |
{{ ::desenvolvimento:web:img04.jpg?nolink |}} | {{ ::desenvolvimento:web:img04.jpg?nolink |}} | ||
Linha 33: | Linha 33: | ||
{{ :desenvolvimento:web:img10.jpg?nolink |}} | {{ :desenvolvimento:web:img10.jpg?nolink |}} | ||
- | Clique novamente em "uWebModule". | + | Clique na aba do "uWebModule"e depois na classe nova. |
- | {{ :desenvolvimento:web:img01.jpg?nolink |}} | + | |
- | + | ||
- | depois na classe nova. | + | |
{{ ::desenvolvimento:web:img15.jpg?nolink |}} | {{ ::desenvolvimento:web:img15.jpg?nolink |}} | ||
Linha 44: | Linha 41: | ||
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. | 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 |}} | {{ ::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. | Depois volte para aba do "uTeste" e aperte "F12" para ir ao código fonte. | ||
Linha 51: | Linha 51: | ||
{{ ::desenvolvimento:web:img12.jpg?nolink |}} | {{ ::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; | ||