Davi,

No create to simpleserverclass tem um parâmetro chamado ExposeProvider, este tem que estar True para que o cliente veja os providers

To com uma aplicação onde o server tem uma classe X que é de um tdatamodule, na unit uServerContainer tenho um DSServerClass que retorna a classe X, no lado client o dbconnection conecta normalmente ao servidor quando o mesmo está rodando, contudo mesmo configurando o dsproviderconnection com a classe X não consigo visualizar o provider do lado servidor. O seu artigo parece tratar sobre isso, mas não entendi onde exatamente faço a alteração do código? Esta classe TSimpleServerClass seria a minha classe X??? algum fonte exemplo simples pra me indicar? grato!

Rafael é só usar o mesmo código


{$METHODINFO ON}
TCustomServerClass = Class(TProviderDataModule)
Published
DSProvider:TDataSetProvider;
SQLDataSet:TSQLDataSet;
Public
Constructor Create(AOwner:TComponent); Override;
Destructor Destroy(); Override;
End;
{$METHODINFO OFF}

Constructor TCustomServerClass.Create(AOwner:TComponent);
Begin
Inherited;
DSProvider := TDataSetProvider.Create(Self);
SQLDataSet := TSQLDataSet.Create(Self);
DSProvider.DataSet := SQLDataSet;
SQLDataSet.SQLConnection := UntDMServer.DMServer.SQLConnectServer;
SQLDataSet.CommandType := ctQuery;
End;


Tem algo que eu possa implementar para executar o método Constructor Create ?
Grato!

Mas, fazendo uma pergunta extra: Tentei criar um TSQLConnection em runtime para realizar a conexão DataSnap com a aplicação servidor mas, sempre dá o erro:

TDBXError with message ‘Unknown driver: DataSnap’

Existe alguma dica pra funcionar?

É só mudar o código e não chegar a herança, o código está assim porque esta é a forma que o DataSnap recomenda e caso você queira expor provider a classe checa se realmente existe um Datamodule associado.

Eu não tenho detalhes do que você está desenvolvendo, mas DataModule para situações de provider é o melhor caminho

Pelo que entendi então, somente poderei disponibilizar um TDataSetProvider se ele estiver dentro de um TDataModule?
Neste caso, sou obrigado a herdar sempre de um TDataModule ou dos seus descendentes?
Existe algum meio para fazer isso de uma classe normal, herdando de TPersistent por exemplo?

@Júlio,

O código está correto e funciona perfeitamente quando o DataModule tem providers.

No seu caso você está tentando passar um provider em uma classe, TDataSetProvider não é suportado para passar. Você neste caso tem que usar o TDataSetProvider no datamodule.

Aproveitando atualizei a implementação do exemplo neste post

Uma cópia exata do código descrito acima para tentar publicar uma classe TUsuario que possui um objeto TDataSetProvider e que precisa ser exposto.

Na aplicação cliente, quando é tentado referenciar o ProviderName do componente TClientDataSet, dá erro de “Invalid class typecast”