Fiz o método no Delphi XE 7, e tive o seguinte erro:

{
“error”:”Unknown driver: DSServer1″
}

Estou querendo utilizar sua classe TSimpleServerClass em um projeto de um servidor DataSnap genérico, que vai servir de base para outros servidores com poucas modificações. Ele está sendo escrito em XE7. O diferencial dele é que os Server Methods vão ser carregados dinamicamente por meio de classes contidas em DLLs, bastando adicionar a DLL para o diretório específico e o servidor carrega os métodos e os registra no servidor.

Já está tudo pronto, as DLLs são carregadas dinamicamente e as classes registradas utilizando TSimpleServerClass. Entretanto as classes registradas NÃO APARECEM na lista de classes do servidor, mas ao consultar a lista de componentes do TDatamodule usado como Server Container destas classes, todos os componentes TSimpleServerClass registrados pela DLL estão lá com as respectivas propriedades preenchidas corretamente.

Se eu utilizo o mesmo comando TSimpleServerClass diretamente no DataModule a classe é registrada e publicada normalmente, então a rotina está correta, o problema acontece quando a classe é registrada por dentro da DLL.

Existe alguma incompatibilidade conhecida do DataSnap com DLLs ? Você tem alguma idéia do que pode ser o problema?

Fico grato por qualquer dica que puder me fornecer pois já tentei de tudo e não consigo contornar o problema.

Obrigado.

Eu fiz a mesma coisa utilizando DLLs com LoadLibrary e a classe TSimpleServerClass.

Eu percebi que essa classe cria os componentes TSimpleServerClass no Server Datamodule (através da constatação da existência do componente na lista de componentes do Datamodule), mas apesar disso a classe e nem os seus métodos são publicados. Ou seja, os TSimpleServerClass estão criados mas não publicam nada.

O que pode estar sendo feito de errado? Não é possível registrar e publicar métodos de classes contidas em DLLs ou BPLs ?

Com relação ao registro de classes pelo servidor DataSnap, existe uma forma de permitir que uma classe com um método em overload possa ser registrada?

Tentei realizar um teste com um método chamado GetImage com as assinaturas abaixo:
GetImage( const id: Integer ): TStream; overload;
GetImage( const login: String ): TStream; overload;

Mas o DataSnap não aceita o registro da respectiva classe pois reclama que o método GETIMAGE já foi registrado.

function TSimpleServerClass.GetDSClass: TDSClass;
begin
Result := TDSClass.Create(FPersistentClass, false);
Result := TDSClass.Create(TDSProviderDataModuleAdapter, Result)
end;

facinho.

Abraço

mude o codigo da função GetDSClass para o codigo a abaixo.

function TSimpleServerClass.GetDSClass: TDSClass;
begin
Result := TDSClass.Create(FPersistentClass, false);
Result := TDSClass.Create(TDSProviderDataModuleAdapter, Result)
end;

Abraço

Tenho urgencia em Resolver esse problema.
Obrigado

Desculpe – me pela ignorancia, porem, não consigo entender o seguinte.
Fazendo a publicação da classe para o lado cliente utilizando o componente TDSServerClass e seu metodo OnGetClass este problema se resolve.
O Problema apenas acontece quando a publicação para o lado cliente é realizada com a classe TSimpleServerClass,
notei que ao registrar por este metodo, vários metodos não são publicados.

Exemplos:
TDSCidade.AS_ApplyUpdates TDSCidade AS_ApplyUpdates
TDSCidade.AS_GetRecords TDSCidade AS_GetRecords
TDSCidade.AS_DataRequest TDSCidade AS_DataRequest
TDSCidade.AS_GetProviderNames TDSCidade AS_GetProviderNames
TDSCidade.AS_GetParams TDSCidade AS_GetParams
TDSCidade.AS_RowRequest TDSCidade AS_RowRequest
TDSCidade.AS_Execute TDSCidade AS_Execute

Aparecem apenas quando registrados pelo componente TDSServerClass

Desculpe – me se estiver falando besteira, e muito obrigado pela ajuda.
Atenciosamente,
Rodrigo Martim

Oi Rodrigo,

Isso acontece porque você está tentando retornar um ClientDataSet em um dos métodos e isso não é possível, na seção DataSnap do meu blog eu explico os tipos que podem ser retornados e convertidos em JSON.

Estou efetuando o registro de minhas classes dessa forma, porem quando eu tento carregar o meu CDS ele retorna o erro.

Remote Error: TDSCidade.AS_GetRecords method not found in the server method list.

caso eu faça o registro utilizando o componente
DSServerClass ele funciona perfeitamente.

você saberia me informar o por que deste problema?

Agradecido desde já,
Atenciosamente,
Rodrigo Martim.

Aldeson,

Por favor leia esse post http://www.andreanolanusse.com/pt/implementando-cache-de-dados-em-servidores-datasnap/

Você poderia citar em que casos cada tipo TDSLifeCycle deve ser aplicado ?

Tem alguma forma de fazer ser executado ou alguma outra forma de instanciar alguns objetos adicionados nela quando ela for instanciada pelo DataSnap ?

O que acontece é que quero criar alguns objetos para serem utilizados pela classe servidora, porém esses não consigo instanciar por conta do método Constructor não ser chamado.

Tem alguma idéia ?
Muito obrigado !
Att. Tiago

Como fica a implementação disso, tem como você colocar isso num exemplo?

Rodrigo

Existe alguma maneira de destruir os objetos criados sem ter que fechar a conexão?