Ferramentas do usuário

Ferramentas do site


desenvolvimento:web:web_service

Diferenças

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

Link para esta página de comparações

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"​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;
  
desenvolvimento/web/web_service.1433182048.txt.gz · Última modificação: 2015/06/01 18:07 por robson.francisco