Posts com qualidade assim só encontro aqui no seu site, muito interessante e tem me ajudado bastante. Percebi que não é uma dúvida só minha, então resolvi perguntar. É possível transferir arquivos exibindo uma barra de status, tipo um download. o cliente solicitar um arquivo presente no servidor datasnap e mostrar o progresso da transferencia com uma progressbar, é possível?

Excelente post. Estou iniciando no desenvolvimento com DataSnap Rest Application, e me surgiu uma dúvida. Implementei um servidor que me retorna uma lista de DataSets (TFDJSONDataSets). Utilizei um exemplo disponibilizado na documentação da embarcadero, conforme segue abaixo:

FDQuery.Close;

Result := TFDJSONDataSets.Create;

TFDJSONDataSetsWriter.ListAdd(Result, FDQuery);

Após o fechamento da Query, eu ajusto o meu SQL e definindo os parâmetros para o mesmo.

Pergunta: Devo abrir minha Query antes de retorná-lá?

Fiz um teste, deixando com está, funcionou perfeitamente, mas apenas para um retorno de poucos registros, percebi que, se minha consultar retornar uma quantidade de informações tais como 50 registros, o dataset chega vazio no lado do cliente, como se não tivesse dados a ser retornado.

Quando eu abro a query no lado do servidor, os registros retornam sem problema algum. O que estou fazendo de errado? tenho que configurar alguma informação que defina o tamanho das informações que devem ser trafegadas?

Desde já agradeço a atenção

Oi Magnaldo, tem sim, tudo depende como você configura o lifecycle dos objetos através do DSServerClass, aqui no blog tem artigos sobre isso

Muito tem se falado a respeito dos objetos que ficam na memória, o que acaba sendo uma bomba relógio.
Eu utilizo o DataSnap (Rest + Json). Há remover esses objetos da memória?

@William,

Infelizmente você não entendeu o exemplo, o qual mostra o envio e recebimento de objetos no DataSnap.

TCustomer é o objeto usado como exemplo, e no caso ele é usado no server e client. Para representar e ter acesso ao TCustomer no cliente você TEM que ter a estrutura do mesmo no cliente.

O método ToString somente acessa a propriedade do objeto e não faz referência nenhum ao server.

Só alterar o método tostring do tcustomer assim:

function TCustomer.ToString: string;
begin
Result := Self.Name + ‘ – Age: ‘ + IntToStr(Self.Age)+’ teste’;
end;

e compilar o server e não compilar o cliente, vai ver que o retorno será sem a string ‘teste’ que foi colocado no método.

Consegui resolver o problema trocando a classe TMemoryStream por uma TStringStream.
Mas, e quando não for possível fazer um processo como esse? E todo o projeto DataSnap já pronto parado por conta de um único tipo?

Tentei realizar o teste que vc indicou, usando TStream para enviar a imagem para o cliente… Na aplicação servidor, a imagem é lida do Stream com sucesso mas, quando é enviado para o cliente, dá erro!

O post foi detalhado para a nova situação… grato pela sua ajuda!

Antes da conversão para JSON, um TImage consegue exibir a foto tranquilamente.
Na volta de JSON para o objeto TCustomer, ao que parece, o conteúdo de Photo fica comprometido.

Estava estudando esse seu exemplo de transferência de objetos do servidor para o cliente e surgiu uma dúvida: Utilizando esse seu exemplo da classe TCustomer, poderíamos ter uma propriedade public do tipo TJPEGImage ou TBitmap, algo como TCustomer.Photo?

Meu servidor iria definir o conteúdo dessa propriedade e passar o objeto via JSON para o cliente e o mesmo conseguir exibir em um TImage padrão, a imagem que está na propriedade Photo?

Eu gostaria de criar metodo remoto onde eu possa passar um array de Delta do ClientDataSet + seu ProviderName

Para isso criei um class TDeltaApply Tentei TDeltaApplyArray : array of TDeltaApply e ele não aceita como metodo remoto esse tipo.

Então como posso para meu servidor uma array de delta e seu providername????

TCliente = Class (TObject)
private
FID: Integer;
FNome: String;
FDataCadastro: String;
FValor: String;
function GetDataCadastro: TDateTime;
procedure SetDataCadastro(value: TDateTime);
function GetValor: Double;
procedure SetValor(value: Double);
….

public
property DataCadastro: TDateTime read GetDataCadastro write SetDataCadastro;
property Valor: Double read GetValor write SetValor;
….
end;

O truque é na implementação dos métodos privados:

function TCliente.GetDataCadastro: TDateTime;
begin
Result := StrToDateTime(FDataCadastro); // Vai bem alguma checagem extra aqui antes da conversão
end;

function TCliente.SetDataCadastro(value: TDateTime);
begin
FDataCadastro:= FormatDateTime(‘DD/MM/YYYY HH:NN:SS’, Value);
end;

function TCliente.GetValor: Double;
begin
Result := StrToFloatDef(FValor,0);
end;

function TCliente.SetValor(value: Double);
begin
FValor := FloatToStr(value);
end;

Dessa forma quando você atribuir ou obter um valor das propriedades DataCadastro e Valor, automaticamente eles serão convertidos de TDateTime e Double para String, e virce-versa. Como o JSON só armazena as informações dos campos privados das propriedades, as informações são armazenas como String e não há nenhum problema na conversão de volta na aplicação cliente.

Espero ter ajudado.

Dannyrooh, não tem jeito, você tem que transformar de JSON para o objeto correspondente.

Att,

Criei um servidor datasnap que retorna uma lista de TCustomer agrupada com JsonArray e JsonValue, estou tentando consumir o resultado numa aplicação asp.net com delphi prism, ao gerar o proxy ele retorna a classe como object, alguma forma de realizar a transformação direto com .net ?

Estou desenvolvendo um sistema, que tem um servidor DataSnap com Rest, até ai tudo bem, com seus exemplos e o dos amigos, consegui desenvolver sem problema, inclusive se comunicando com outras linguagens, por exemplo Flex.
Criei minha regra de negocio no meu servidor DataSnap, e utilizando HTTPService no Flex consigo pegar os dados do meu Servidor e popular os meus campos no Flex.
{
var ht:HTTPService = new HTTPService();
ht.url = “http://localhost:8081/datasnap/rest/TSMClient/GetClient/” + txtConsulta.text;
}
seria mais ou menos assim, passo por parâmetro o txtConsulta e ele retorna o que eu quero.
Só que surgiu a necessidade de passar um arquivo(bytes) = Upload, por exemplo, uma imagem do flex para o meu Servidor DataSnap, ai que está o meu problema, pq no caso desse exemplo que passei eu passo do Flex para o DataSnap como parametro um valor String, em outras linguagens, como por exemplo ASP.NET é utilizado Request para fazer essa operação, só que não encontrei nada parecido nos componentes DataSnap que possa me permitir fazer esse upload … realmente estava confuso anteriormente espero que tenha ficado mais claro … obrigado pelo retorno.

Cleyton, pode refazer a pergunta, está confusa 🙂